Memanggil Class dengan GUI di Visual Basic 2010

Pada post kali ini Salman Tech memberikan materi tentang bagaimana memanggil class ke GUI Visual Basic 

Baca juga tutorial Bahasa Pemrograman Java : Belajar Java dari Awal sampai Bisa 1

Penjelasan ada di materi sebelumnya :  Class dan Object Visual Basic 2010

Berikut beberapa contoh program dan source code nya 

• Latihan 1

Buatlah From, Class pada Project baru anda lalu paste kan source code di bawah ini

Public Class ClassDay

    Dim hari As String

    Public Sub GetDay()

        hari = "Senin"

        '2017230184

        MessageBox.Show("Hari ini adalah : " & hari)

    End Sub

End Class

Sedikit penjelasan : GetDay adalah method yang akan dipanggil ke GUI nanti

Pada Form silahkan buat seperti gambar di bawah ini

Copykan source code nya 

Public Class FormHari

    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, "salmantech42")

        If message = vbYes Then

            End

        End If

    End Sub

    Private Sub FormHari_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

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

        If message = vbNo Then

            'Ahmad Salman Farisi

            e.Cancel = True

        End If

    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

End Class

Berikut Running Programnya

• Latihan 2

Buat Class dengan nama ClassCircle dan buat Method dengan nama GetArea yang berfungsi untuk menampilkan Luas Lingkaran dan Akses Class tersebut dari FormCircle

Source Code Class

Public Class FormCircle

    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, "salmantech42")

        If message = vbYes Then

            End

        End If

    End Sub

    Private Sub FormCircle_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

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

        If message = vbNo Then

            e.Cancel = True

        End If

    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

End Class

FormCircle Source Code 

Public Class FormCircle

    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, "salmantech42")

        If message = vbYes Then

            End

        End If

    End Sub

    Private Sub FormCircle_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

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

        If message = vbNo Then

            e.Cancel = True

        End If

    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

End Class

Berikut Running Programnya

• Latihan 3

Buat Class dengan nama ClassMahasiswa2 dan buat object dengan nama Getnama dan setnama yang berfungsi untuk menampilkan nama mahasiswa dan Akses Class tersebut dari Formmahasiswa2

ClassMahasiswa2 Source Code 

Public Class ClassMahasiswa2

    'deklarasi variable

    Private nama As String

    'membuat method

    Public Function getNama()

        Return nama

    End Function

    Public Sub setNama(ByRef nm As String)

        nama = nm

    End Sub

End Class

Formmahasiswa2

Public Class Formmahasiswa2

    Public mahasiswa As New ClassMahasiswa2

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

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

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

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

        Me.Text = "salmantech42"

        mahasiswa = New ClassMahasiswa2

        mahasiswa.setNama("Ahmad Salman Farisi")

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

    End Sub

End Class

Berikut Running Programnya

• Tugas 1

Buat kelas LuasSegiTiga, serta buat method untuk menghitung luas segi tiga dengan nama getluas dimana nilai alas dan tinggi diberikan nialinya di metode tersebut 

Buat Form untuk dengan 2 buah object yaitu button hasil untuk menampilkan nilai luas persegi panjang dan button keluar untuk keluar dari aplikasi.

ClassLuasSegitiga Source Code 

Public Class ClassLuasSegitiga

    Dim alas As Decimal

    Dim tinggi As Decimal

    Public Sub GetLuas()

        alas = 23

        tinggi = 22

        MessageBox.Show("Luas Segitiga = " & 0.5 * alas * tinggi)

    End Sub

End Class

FormSegitiga

Public Class FormSegitiga

    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, "salmantech42")

        If message = vbYes Then

            End

        End If

    End Sub

    Private Sub FormSegitiga_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim message As String

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

        If message = vbNo Then

            e.Cancel = True

        End If

    End Sub

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

    End Sub

End Class

Berikut Running Programnya 

Itulah beberapa contoh untuk pemanggilan Class ke GUI di Visual Basic 2010

Semoga bermanfaat dan dapat ilmu yang berguna 

どうもありがとうございました…!

---

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

---

Subscribe to receive free email updates: