Class Form GUI Visual Lanjutan
Awesome Image

Assalamualaikum wr.wb
 
Pada pertemuan kali ini saya akan membahas "Membuat Class dan diakses dari Form GUI", ini sambungan dari postingan saya yang Konsep Dasar OOP Visual Lanjutan tanpa berlama lama lagi yuk simak dibawah ini.
 
Pertama buatlah Project di Visual Studio 2010 dengan Nama Project_OOP (ini bebas teman teman mau menamakan projectnya apa).
 
 
 
Selanjutnya Buat Class di Project_OOP (sesuai nama project teman teman yah) dengan nama ClassDay, karna yang mau kita buat adalah Hari.
 
Berikut Source Code untuk Public ClassDay :
Public Class ClassDay
    '2017230092
    'Naufal Farisi Zamzam
    Dim hari As String
 
    Public Sub GetDay()
        hari = "Rabu"
        MessageBox.Show("Hari ini adalah : " & hari)
    End Sub
End Class
 
Selanjutnya Buat Form di Project_OOP dengan nama FormHari.
 
Berikut Source Code FormHari :
Public Class FormHari
    '2017230092
    'Naufal Farisi Zamzam
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Naufal Farisi Zamzam"
        'Mendeklarasikan variabel dan merefrensi ke classday
        Dim hr As New ClassDay()
        hr.GetDay()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Cabut ??", vbYesNo, "naufalfz.my.id")
        If pesan = vbYes Then
            Close()
            End
        End If
    End Sub
End Class
 
Jika semua sudah dilakukan dengan benar dan tepat, maka running program tersebut dan hasilnya seperti di bawah ini :
 
 
Dan selanjutnya berbdeda dengan materi yang di atas, untuk yang ini Buat Class dengan nama ClassCircle dan buat Method dengan nama Getarea yang berfungsi untuk menampilkan luas Lingkaran dan Akses Class tersebut dari FormCircle.
 
Caranya pun masi sama dengan yang diatas yaitu Buat Class dengan nama ClassCircle untuk soruce code :
 
Public Class ClassCircle
    '2017230092
    'Naufal Farisi Zamzam
    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
 
Lalu buat Form nya juga dengan nama FormCircle berikut source code :
 
Public Class FormCircle
    '2017230092
    'Naufal Farisi Zamzam
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Naufal Farisi Zamzam"
        'Mendeklarasikan variabel dan merefrensi ke classcircle
        Dim hsl As New ClassCircle
        hsl.GetArea()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Cabut ??", vbYesNo, "naufalfz.my.id")
        If pesan = vbYes Then
            Close()
            End
        End If
    End Sub
End Class
 
Jika sudah semua dilakukan dengan benar maka hasil running seperti berikut :
 
 
Mungkin Sekian dulu dari saya Materi tentang "Membuat Class dan diakses dari FORM GUI" di Visual Studio 2010 jika teman-teman masih bingung dan ada yang mau di tanyakan silahkan komentar di bawah ini, karna malu bertanya sesat di jalan. jika ada kritik dan saran yang membangun bisa contact saya juga di bawah ini agar saya bisa selalu berkarya. Oh, iya jangan lupa Like dan share juga yah.
 
Baca Juga Materi Materi Visual Lanjutan lainnya :
 
 
Dan masih banyak lainnya di Pemrograman Visual Lanjutan di Blog saya.
 
Wassalamualaikum wr.wb