Visual Basic Lanjutan (Praktikum 6) - Object Oriented Programming (OOP)

Assalamualaikum Wr.Wb.

Masih Bersama Saya Sulthan Alawy Shihab, Apakabar semua,saya harap anda sehat yaa dan semoga kita selalu dilindungi Tuhan Yang Maha Esa.

ini adalah tugas Praktikum saya pada pertemuan keenam dan Kemarin kita sudah bahas VB yang teori 6 , silahkan simak dan pelajari :)

1. Buatlah Class di Project_OOP / WindowsApplication1 dengan nama ClassDay...

2. Buatlah Class di Project_OOP / WindowsApplication1 dengan nama ClassDay.

3. Buatlah Form di Project_OOP / WindowsApplication1 dengan nama FormHari..

Latihan 1

• Code:

Form Class

Public Class ClassDay
    Dim hari As String

    Public Sub GetDay()
        hari = "Senin"
        MessageBox.Show("Hari ini adalah : " & hari)
    End Sub
End Class

Form1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Jembatan Lulus"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Mendeklarasikan variable dan mereferensikan ke ClassDay
        Dim hari As New ClassDay
        hari.GetDay()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
        If message = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 2

•  Code:

Form Class

Public Class ClassCircle
    Dim phi As Decimal = CDec(3.14)
    Dim r As Decimal

    Public Sub GetArea()
        phi = CDec(3.14)
        r = 10
        MessageBox.Show("Luas Lingkaran = " & phi * r ^ 2)
    End Sub
End Class

Form2

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Jembatan Lulus"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lingkaran As New ClassCircle
        lingkaran.GetArea()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
        If message = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 3

• Code :

Form Class

Public Class ClassMahasiswa

    'sultanalawyshihab

    Private nama As String

    'membuat methodTeori 6

    Public Function getNama()

        Return nama

    End Function

    Public Sub setNama(ByRef nm As String)

        nama = nm

    End Sub

End Class

Form3

Public Class Form3

    Public mahasiswa As New ClassMahasiswa

    'sultan alawy shihab

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Sultan"

        mahasiswa = New ClassMahasiswa

        mahasiswa.setNama("Sultan Alawy Shihab")

        MsgBox("Nama Anda : " + mahasiswa.getNama())

    End Sub

End Class

Kasus 1

• Code :

Form Class

Public Class ClassLuasSegitiga
    Dim alas As Decimal
    Dim tinggi As Decimal

    Public Sub GetLuas()
        alas = 13
        tinggi = 14
        MessageBox.Show("Luas Segitiga = " & 0.5 * alas * tinggi)
    End Sub
End Class

Form4

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Jembatan Lulus"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim segitiga As New ClassLuasSegitiga
        segitiga.GetLuas()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim message As String
        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")
        If message = vbYes Then
            End
        End If
    End Sub
End Class

Visual Basic Lanjutan (Teori 6) - Object Oriented Programming (OOP

Assalamualaikum Wr.Wb.

Masih Bersama Saya lagi Sulthan Alawy Shihab, Apakabar semua, semoga kita selalu dilindungi Tuhan Yang Maha Esa.

ini adalah tugas TEORI saya pada pertemuan keenam, silahkan simak dan pelajari.

Suatu konsep Pemrograman yang menggunakan Object. Berinteraksi dalam hal pembuatan aplikasi komputer dikarenakan adanya suatu pengelompokan elemen-elemen atau modul-modul atau class-class yang bekerja berdasarkan fungsinya masing- masing. Dengan teknik pemrograman berorientasi objek ini, akan memudahkan dalam mengelompokkan source code sesuai dengan fungsi dari source code tersebut.

Berorientasi Object?

Attribute :
   Topi, Baju, Jaket,
   Tas Punggung,
   Tangan, Kaki, Mata

Behavior :
   Cara Jalan ke Depan
   Cara Jalan Mundur
   Cara Belok ke Kiri
   Cara Memanjat

Attribute :
   Ban, Stir, Pedal Rem, Pedal Gas,
   Warna, Tahun Produksi

Behavior :

   Cara Menghidupkan Mesin

   Cara Manjalankan Mobil
   Cara Memundurkan Mobil 

Attribute ⇒ Variable(Member)
Behavior ⇒ Method(Fungsi)

Perbedaan Class dan Object

➤ Class: konsep dan deskripsi dari sesuatu

     → Class adalah abstrak dari suatu Object

     → Class mendeklarasikan method yang dapat digunakan (dipanggil) oleh object

➤ Object: instance dari class, bentuk (contoh) nyata dari class

     → Object memiliki sifat independen dan dapat digunakan untuk memanggil method

➤ Contoh Class dan Object:

     → Class: mobil

     → Object: mobilnya pak Joko, mobilku, mobil berwarna merah

• Satu class dapat memiliki banyak object, dan setiap object tersebut mempunyai sifat yang sama persis seperti yang didefinisikan dalam class tersebut.
• Contoh Class dan Object:

          → Class: Fruit

          → Object: Pisang, Mangga, Apel

• Class seperti cetakan kue, dimana kue yg dihasilkan dari cetakan kue itu adalah object
• Warna kue bisa bermacam-macam meskipun berasal dari cetakan yang sama (object memiliki
  sifat independen)

Membuat Project dengan Console

• Buat Project Console Application dengan OOP Console_nim.

• Buat Class dengan nama Segiempat dengan cara klik kanan di project OOP Console_nim.

(Latihan1)

• Class Segiempat memiliki attribut panjang dan lebar

• Buat Module untuk Mengakses Class dengan cara klik kanan di project OOP Console_nim.

LATIHAN 1

•  Code :

Public Class Segiempat
    Public panjang As Double
    Public lebar As Double
End Class

Module Module1

    Sub Main()
        'Mendeklarasi variabel lokal
        Dim luas As Double

        'Mendeklarasikan referensi ke kelas segiempat
        Dim se As Segiempat

        'Membuat objek dari kelas SegiEmpat
        se = New Segiempat()

        'Mengisi Nilai Object
        se.panjang = 8
        se.lebar = 6

        'Menghitung luas
        luas = se.panjang * se.lebar

        'Menampilkan luas
        Console.WriteLine("Luas Segi Empat ={0}", luas)
        Console.ReadLine()
    End Sub

End Module

LATIHAN 2

Membuat Class Lingkaran dimana nilai jari-jari ditentukan pengguna dan di akses di Modul Utama.

•  Code :

Public Class Lingkaran
    Public r, luas As Integer
    Public Property jari() As Integer
        Get
            Return r
        End Get
        Set(ByVal value As Integer)
            r = value
        End Set
    End Property

    Public Function luas_lingkaran()
        luas = 3.14 * r * r
        Return luas
    End Function

End Class

    Sub Main()
        Dim ling As New Lingkaran()
        Console.Write("Masukkan Jari-Jari Lingkaran =")
        ling.r = Console.ReadLine()

        Console.Write("Luas=")
        Console.WriteLine(ling.luas_lingkaran)
        Console.ReadLine()
    End Sub
End Module

LATIHAN 3

Membuat Class kotak dan membuat Volume dari Kotak1 dan Kotak2 Modul Utama.

•  Code:

Public Class Kotak
    Public panjang As Double  ' Panjang dari kotak
    Public luas As Double     ' Luas dari kotak
    Public tinggi As Double   ' Tinggi dari kotak
End Class

Module Module3
    Sub main()
        Dim kotak1 As Kotak = New Kotak()   ' Pembuatan objek kotak1
        Dim kotak2 As Kotak = New Kotak()   ' Pembuatan objek kotak2
        Dim volume As Double = 0.0
        ' Spesifikasi kotak1
        kotak1.tinggi = 2.0
        kotak1.panjang = 3.0 
        kotak1.luas = 4.0
        ' Spesifikasi kotak2
        kotak2.tinggi = 7.0
        kotak2.panjang = 8.0
        kotak2.luas = 9.0
        'volume dari kotak1
        volume = kotak1.tinggi * kotak1.panjang * kotak1.luas 
        Console.WriteLine("Volume dari kotak1 : {0}", volume)
        'volume dari kotak2
        volume = kotak2.tinggi * kotak2.panjang * kotak2.luas 'laptopinformatika.com
        Console.WriteLine("Volume dari kotak2 : {0}", volume)
        Console.ReadKey()
    End Sub
End Module

LATIHAN 4

Membuat Class SegiEmpat2 dan menghitung Volume bangun ruang dimana panjang, lebar dan tinggi di input.

•  Code :

Public Class Segiempat2
    Public p As Integer
    Public l As Integer
    Public temp_luas As Integer

    Public Property panjang() As Integer
        Get
            Return p
        End Get
        Set(ByVal value As Integer)
            p = value
        End Set
    End Property

    Public Property lebar() As Integer
        Get
            Return l
        End Get
        Set(ByVal value As Integer)
            l = value
        End Set
    End Property

    Public Function luas(ByVal panjang As Integer, ByVal lebar As Integer) As Integer
        temp_luas = panjang * lebar
        Return temp_luas
    End Function
End Class

Module Module4
    Sub main()
        Dim temp_panjang, temp_lebar As Integer
        Dim temp_tinggi, volume As Integer

        Console.Write("Masukkan Panjang = ")
        temp_panjang = Console.ReadLine()
        Console.Write("Masukkan Lebar = ")
        temp_lebar = Console.ReadLine()
        Console.Write("Masukkan Tinggi = ")
        temp_tinggi = Console.ReadLine()

        Dim persegipanjang As New Segiempat2
        Console.Write("Luas = ")
        Console.WriteLine(persegipanjang.luas(temp_panjang, temp_lebar))
        volume = temp_tinggi * (persegipanjang.luas(temp_panjang, temp_lebar))
        Console.Write("Volume = ")
        Console.Write(volume)
        Console.ReadLine()
    End Sub
End Module

Visual Basic Lanjutan (Praktikum 5) - Procedure dan Function

Assalamualaikum Wr.Wb. Saya Sulthan Alawy Shihab ,kemarin kita sudah bahas pengertian procedure dan function. kali ini saya akan memberikan materi lanjutan dari VB Lanjutan Teori 5 yaitu VB Lanjutan Praktikum 5.

Simak dan pelajari ya..

KASUS 1

Code:

Public Class Form1

    Sub KomboAgama()

        Me.ComboBox1.Items.Add("Islam")

        Me.ComboBox1.Items.Add("Kristen Protestan")

        Me.ComboBox1.Items.Add("Kristen Katolic")

        Me.ComboBox1.Items.Add("Hindu")

        Me.ComboBox1.Items.Add("Buddha")

    End Sub

    Sub KomboJurusan()

        Me.ComboBox2.Items.Add("Manajemen Informatika")

        Me.ComboBox2.Items.Add("Teknik Informatika")

        Me.ComboBox2.Items.Add("Sistem Informatika")

    End Sub

    Sub KomboProgi()

        Me.ComboBox3.Items.Add("D1")

        Me.ComboBox3.Items.Add("D2")

        Me.ComboBox3.Items.Add("D3")

        Me.ComboBox3.Items.Add("D4")

        Me.ComboBox3.Items.Add("S1")

        Me.ComboBox3.Items.Add("S2")

        Me.ComboBox3.Items.Add("S3")

    End Sub

    Sub ListKota()

        Me.ListBox1.Items.Add("Bandung")

        Me.ListBox1.Items.Add("Denpasar")

        Me.ListBox1.Items.Add("Jakarta")

        Me.ListBox1.Items.Add("Surabaya")

        Me.ListBox1.Items.Add("Manado")

        Me.ListBox1.Items.Add("Medan")

        Me.ListBox1.BackColor = Color.Silver

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Jembatan Lulus"

        KomboAgama()

        KomboJurusan()

        KomboProgi()

        ListKota()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

KASUS 2

Code:

Public Class Form2

    Sub Clean()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

    End Sub

    Private Function hitung()

        Dim jumlah, harga, total As Double

        jumlah = TextBox5.Text

        harga = TextBox4.Text

        total = jumlah * harga

        TextBox6.Text = total

        Return total

    End Function

    Sub CheckEmptyData()

        If TextBox1.Text = "" Then

            MessageBox.Show("Item Code Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox1.Focus()

        ElseIf TextBox2.Text = "" Then

            MessageBox.Show("Item Name Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox2.Focus()

        ElseIf TextBox3.Text = "" Then

            MessageBox.Show("Unit Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox3.Focus()

        ElseIf TextBox5.Text = "" Then

            MessageBox.Show("Amount Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox5.Focus()

        ElseIf TextBox4.Text = "" Then

            MessageBox.Show("Unit Price Must be filled !!", "Confirm", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            TextBox4.Focus()

        Else

            Call hitung()

        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call CheckEmptyData()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call Clean()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")

        If message = vbYes Then

            End

        End If

    End Sub

End Class

KASUS 3

• Buat Prosedur Bersih utk membersihkan semua textbox.
• Buat Function hitung untuk Menghitung Total Harga.
• Buat Prosedur Cekdatakosong utk mengecek inputan textbox mulai kode barang sd Jumlah harus diisi dan panggil Function hitung.
• Pada saat Form di jalankan dan pada saat di klik Clear, Panggil Prosedur Bersih.
• Tombol Hitung, panggil Prosedure cekdatakosong.
• Tombol exit utk menutup aplikasi dengan Messagebox.

Code:

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Jembatan Lulus"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ganjil, genap, prima, legend As Integer

        proses(ganjil, genap, prima, legend)

        ShowSum(TextBox1.Text, TextBox2.Text)

    End Sub

    Sub ShowSum(ByRef number1 As Integer, ByVal number2 As Integer)

        Dim number As Integer

        number = number1 + number2

        TextBox3.Text = number

    End Sub

    Sub bilganjil()

        Dim ganjil As Integer

        ListBox1.Items.Clear()

        ganjil = 1

        Do While ganjil <= 20

            ListBox1.Items.Add(ganjil)

            ganjil = ganjil + 2

        Loop

    End Sub

    Sub bilgenap()

        Dim genap As Integer

        ListBox1.Items.Clear()

        genap = 0

        Do While genap <= 20

            ListBox1.Items.Add(genap)

            genap = genap + 2

        Loop

    End Sub

    Sub bilprima()

        Dim prima, x, y, z As Integer

        ListBox1.Items.Clear()

        For x = 2 To 100

            z = 0

            For y = 2 To x

                prima = x Mod y

                If prima = 0 Then

                    z = z + 1

                End If

            Next y

            If z <= 1 Then

                ListBox1.Items.Add(x)

        Next x

    End Sub

    Sub billegend()

        ListBox1.Items.Clear()

        Dim a As Integer = 0

        Dim b As Integer = 1

        Dim fib As Integer = 0

        ListBox1.Items.Add("1")

        Do

            fib = a + b

            a = b

            b = fib

            ListBox1.Items.Add(fib.ToString)

        Loop While fib <= 100

    End Sub

    Sub proses(ByVal ganjil As String, ByRef genap As String, ByVal prima As String, ByVal legend As String)

        If (ComboBox1.SelectedIndex.Equals(0)) Then

            bilganjil()

        ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then

            bilgenap()

        ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then

            bilprima()

        ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then

            billegend()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim message As String

        message = MsgBox("Are you sure want to exit ?", vbYesNo, "konfirmasi")

        If message = vbYes Then

            End

        End If

    End Sub

End Class