» » » Konsep Dasar Object Oriented Programming (OOP) Visual Basic 2010 2

Konsep Dasar Object Oriented Programming (OOP) Visual Basic 2010 2

,

Salman Tech 42 - Post ini bisa dibilang lanjutan dari post sebelumnya mengenai Konsep Dasar Object Oriented Programming di Visual Basic 2010 Materi yang akan dibahas yaitu :
1. Class 
2. Object 
3. Attribute 
4. Method

Terdapat juga Contoh dan Studi Kasus dibawah ini


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

Bagaimana Cara Membuat Class ?

Class dibentuk dengan menggunakan :
<Access Modifier> Class "nama_class"
            .........
            .........
End Class

Access Modifier yaitu :

- Public (dapat dipakai di semua class dan semua turunan)
- Private (dapat dipakai di semua class harus melakukan inheritance (turunan))
- Protected (tidak dapat digunakan di semua class dapat diakses hanya di class dan turunan class itu sendiri)

Contoh :

Public Class Mobil 
            Protected merk As String

            Public Property merk_mobil()
                        Get 
                                Return merk
                        End Get
                        Set(ByVal Value)
                                merk = value
                        End Set
               End Property
End Class


Bagaimana Membuat Object

Membuat sebuah Objek, berarti mendeklarasikan dan menginstansiasi objek. 
Untuk mendeklarasikan sebuah Objek gunakan aturan penulisan sebagai berikut : 

Dim <nama objek> As <namaclass>

Setelah objek dideklarasikan, kemudian objek tersebut diinstantiasi menggunakan perintah New 
<nama objek> = New <nama class>()


Attribute/Field

Variable yang mengitari class, dengan nilai datanya bisa ditentukan di object 
Variable digunakan untuk menyimpan nilai yang nantinya akan digunakan pada program. 
Cara mendeklarasikan sebuah Attribut/Field hampir sama dengan cara membuat sebuah variabel biasa.
<Access modifier> <namafield/deklarasi> As <Type data>


Latihan 1 

  • Ketika Form dijalankan, Klik Button Proses, Maka akan muncul warna mobil dan tahun produksi di textbox warna mobil dan textbox Tahun produksi.  
  • Button Keluar untuk Keluar dari aplikasi

Buat Tampilan Form di bawah ini



Buat Class
Source Code
Public Class Class_Latihan_1
    Public warna As String
    Public tahun As Integer
End Class

Source Form
Public Class Latihan_1
    Public mobil As New Class_Latihan_1
    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            'Salman Tech 42
            End
        End If
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        mobil = New Class_Latihan_1

        mobil.warna = "Merah"
        mobil.tahun = 2020

        tbwarnamobil.Text = mobil.warna
        tbtahunproduksi.Text = mobil.tahun
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class

Running Program

Kasus 1 
  • Buat Class Baru dengan nama Mahasiswa beserta attributnya yang terdiri dari nim, nama dan jurusan. 
  • Dan buatlah main class (FormMahasiswa) yang berfungsi untuk Menampilkan Identitas dari Mahasiswa tersebut!
Buat Form


Buat Class 
Source Code
Public Class Class_Kasus_1
    Public nim As Integer
    'Salman Tech 42
    Public jurusan, alamat, nama As String
End Class

Source Form 
Public Class Kasus_1
    Public mahasiswa As New Class_Kasus_1

    Private Sub Kasus_1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Kasus_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            'Salman Tech 42
            End
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        mahasiswa = New Class_Kasus_1
        mahasiswa.nim = 2017230184
        mahasiswa.nama = "Ahmad Salman Farisi"
        mahasiswa.jurusan = "Information Technology"
        mahasiswa.alamat = "Jl. Asem Baris Gang 2"

        tbnim.Text = mahasiswa.nim
        tbnama.Text = mahasiswa.nama
        tbjurusan.Text = mahasiswa.jurusan
        tbalamat.Text = mahasiswa.alamat
    End Sub
End Class

Running Program

Latihan 2 
  • Ketika Form dijalankan, Input Nilai Alas dan Nilai Tinggi. 
  • Klik Button Hitung, Maka Nilai Luas akan tampil sesuai dengan rumus segitiga 
  • Button Keluar untuk Keluar aplikasi
Buat Form 

Buat Class
Source Code
Public Class Class_Latihan_2
    Public alas, tinggi As Integer
    'Salman Tech 42
End Class
Source Form
Public Class Latihan_2
    Public segitiga As New Class_Latihan_2 'memanggil class segitiga
    'Salman Tech 42
    Dim luas As Double

    Private Sub Latihan_2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Latihan_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        'membuat object segitiga
        segitiga = New Class_Latihan_2
        segitiga.alas = tbalas.Text
        segitiga.tinggi = tbtinggi.Text

        luas = segitiga.alas * segitiga.tinggi / 2
        'Salman Tech 42
        tbluas.Text = luas
        tbalas.Text = segitiga.alas
        tbtinggi.Text = segitiga.tinggi
    End Sub
End Class

Running 

Kasus 2 
  • Buat Class Baru dengan nama ClassPersegiPanjang beserta attributnya yang terdiri dari panjang dan lebar. 
  • Dan buatlah FormPersegiPanjang yang berfungsi untuk menghitung Luas dan Keliling Persegi Panjang dimana nilai panjang dan lebar diinput dan Tampilkan Hasilnya di Form tersebut!
Buat Form
Buat Class
Source Code 
Public Class Class_Kasus_2
    'Salman Tech 42
    Public panjang, lebar As Double
End Class

Source Form
Public Class Kasus_2
    Dim pj As New Class_Kasus_2
    Dim luas, keliling As Double

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            'Salman Tech42
            End
        End If
    End Sub

    Private Sub Kasus_2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        pj = New Class_Kasus_2

        pj.panjang = tbpanjang.Text
        pj.lebar = tblebar.Text

        luas = pj.panjang * pj.lebar
        keliling = 2 * (pj.panjang + pj.lebar)

        tbpanjang.Text = pj.panjang
        tblebar.Text = pj.lebar
        'Salman Tech 42
        tbluas.Text = luas
        tbkeliling.Text = keliling
    End Sub

    Private Sub Kasus_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class

Running

Kasus 3
  • Buat Class Baru dengan nama Classlingkaran beserta attributnya yaitu jari-jari.
  • Dan buatlah FormLingkaran yang berfungsi untuk menghitung Luas dan Keliling Lingkaran dimana nilai jarijari diinput dan Tampilkan Hasilnya di Form tersebut!
Buat Form 
Baca Juga : Kasus Procedure dan Function pada Visual Basic 2010
Buat Class
Source Code 
Public Class Class_Kasus_3
    Public jari As Double
    'Salman Tech 42
End Class
Source Form
Public Class Kasus_3
    Public lingkaran As New Class_Kasus_3
    Dim luas, keliling As Double
    Dim phi As Decimal = CDec(3.14)

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            'Salman Tech 42
            End
        End If
    End Sub

    Private Sub Kasus_3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        lingkaran = New Class_Kasus_3
        lingkaran.jari = tbjari.Text
        luas = phi * lingkaran.jari * lingkaran.jari
        keliling = 2 * phi * lingkaran.jari
        tbluas.Text = luas
        tbkeliling.Text = keliling
    End Sub
    Private Sub Kasus_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class

Running

Kasus 4
  • Buat Class Baru dengan nama ClassKotak beserta attributnya yaitu panjang, luas dan tinggi. 
  • Dan buatlah FormKotak yang berfungsi untuk menghitung Volume Kotak dimana nilai panjang, tinggi dan luas kotak diinput dan Tampilkan Hasilnya di Form tersebut!
Buat Form
Buat Class 
Source Code 
Public Class Class_Kasus_4
    Public panjang, lebar, tinggi As Double
    'Salman Tech 42
End Class

Source Form
Public Class Kasus_4
    Public kotak As New Class_Kasus_4
    Dim volume As Double

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            'Salman Tech 42
            End
        End If
    End Sub

    Private Sub Kasus_4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
            'Salman Tech 42
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        kotak = New Class_Kasus_4

        kotak.panjang = tbpanjang.Text
        kotak.lebar = tblebar.Text
        kotak.tinggi = tbtinggi.Text
        'Salman Tech 42
        volume = kotak.panjang * kotak.lebar * kotak.tinggi

        tbvolume.Text = volume
    End Sub

    Private Sub Kasus_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class

Running

Method 
Method adalah urutan instruksi yang mengakses data dari object/Menentukan Perilaku Objek. 
Method melakukan: 
1. Manipulasi data 
2. Perhitungan matematika 
3. Memonitor kejadian dari suatu event
Metode (Method) menunjukkan apa saja yang dapat dilakukan oleh Objek hasil instantiasi Class tersebut. 
Dalam Visual studio, Metode dapat diimplementasikan dalam bentuk Sub atau Function. 
Jika Metode yang dibuat adalah berupa Sub, berarti metode tersebut tidak mengembalikan nilai apapun ke kode program yang memanggilnya. 
Jika Metode yang dibuat berupa Fungsi, berarti metode tersebut mengembalikan sebuah nilai ke kode program yang memanggilnya.

Latihan 3
Buat Form
Buat Class 
Source Code
Public Class Class_Latihan_3
    'Salman Tech 42
    Dim hari As String
    Public Sub GetDay() 'Buat Method Get Day
        hari = "Senin"
        MessageBox.Show("Hari ini adalah hari : " & hari)
    End Sub
End Class
Source Form
 Public Class Latihan_3

    Private Sub Latihan_3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Latihan_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub btgetday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btgetday.Click
        'deklarasi variable dan referensi
        Dim hari As New Class_Latihan_3
        hari.GetDay()
    End Sub
End Class
Running
Baca Juga : Belajar Java NetBeans dari Awal Sampai Bisa
Latihan 4
  • Ketika Form dijalankan, Klik Button Hasil, maka akan keluar Massagebox perhitungan Luas Lingkaran. 
  • Button Keluar untuk Keluar aplikasi
Buat Form
Buat Class 
Source Code 
Public Class Class_Latihan_4
    Dim phi As Decimal = CDec(3.14)
    Dim r As Decimal

    Public Sub GetArea() 'Buat Method
        phi = CDec(3.14)
        'Salman Tech 42
        r = 10
        MessageBox.Show("Luas Lingkaran = " & phi * r ^ 2)
    End Sub
End Class
Source Form
Public Class Latihan_4

    Private Sub Latihan_4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub tbexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then 'Salman Tech 42
            End
        End If
    End Sub

    Private Sub tbhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbhasil.Click
        Dim hasil As New Class_Latihan_4
        hasil.GetArea()
    End Sub

    Private Sub Latihan_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class
Running

Latihan 5
  • Ketika Form dijalankan, input nilai panjang dan lebar kemudian klik button Hitung. Akan muncul nilai luas dan keliling persegi Panjang. 
  • Button Keluar untuk Keluar aplikasi
Buat Form
Buat Class 
Source Code
Public Class Class_Latihan_5
    Public panjang, lebar As Double

    Public Sub cetakluas()
        Dim luas As Double
        luas = panjang * lebar
    End Sub

    Public Sub cetakkeliling()
        Dim keliling As Double
        keliling = 2 * (panjang + lebar)
    End Sub
End Class

Source Form
Public Class Latihan_5
    Public persegi As New Class_Latihan_5

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Latihan_5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        persegi = New Class_Latihan_5
        persegi.panjang = tbpanjang.Text
        persegi.lebar = tblebar.Text

        tbluas.Text = persegi.panjang * persegi.lebar
        tbkeliling.Text = 2 * (persegi.panjang + persegi.lebar)

        persegi.cetakluas() 'panggil method
        persegi.cetakkeliling() 'panggil method
    End Sub

    Private Sub Latihan_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class
Running

Kasus 5
  • Buat Class Baru dengan nama ClassKotak beserta attributnya yaitu panjang, luas dan tinggi dan buat Method CetakVolume() untuk mencetak Volume Kotak. 
  • Dan buatlah FormKotak yang berfungsi untuk menghitung Volume Kotak dengan memanggil Methode CetakVolume yang dibuat di ClassKotak!
Buat Form
Buat Class 
Source Code
Public Class Class_Kasus_5
    Public panjang, lebar, tinggi As Double

    Public Sub cetakvolume()
        Dim volume As Double
        'Salman Tech 42
        volume = panjang * lebar * tinggi
    End Sub
End Class
Source Form
Public Class Kasus_5
    Dim kotak As New Class_Kasus_5

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Kasus_5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        kotak = New Class_Kasus_5
        kotak.panjang = tbpanjang.Text
        kotak.lebar = tblebar.Text
        kotak.tinggi = tbtinggi.Text

        tbvolume.Text = kotak.panjang * kotak.lebar * kotak.tinggi

        kotak.cetakvolume() 'panggil method
    End Sub

    Private Sub Kasus_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class

Running

Baca Juga : Array Dua Dimensi Visual Basic 2010
Kasus 6
  • Buat Class Baru dengan nama ClassSegiTiga2 beserta attributnya yaitu alas dan tinggi dan buat Method CetakLuas() untuk mencetak Luas Segi Tiga. 
  • Dan buatlah FormSegiTiga2 yang berfungsi untuk menghitung Luas Segi Tiga dengan memanggil Methode CetakLuas() yang dibuat di ClassSegiTiga2
Buat Form
Buat Class
Source Code
Public Class Class_Kasus_6
    Public alas, tinggi As Double

    Public Sub cetakluas()
        Dim luas As Double
        'Salman Tech 42
        luas = alas * tinggi / 2
    End Sub
End Class
Source Form
Public Class Kasus_6
    Dim segitiga As New Class_Kasus_6

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Kasus_6_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "Salman Tech 42")
        If pesan = vbYes Then
            End
        ElseIf pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        segitiga = New Class_Kasus_6
        segitiga.alas = tbalas.Text
        segitiga.tinggi = tbtinggi.Text

        tbluas.Text = segitiga.alas * segitiga.tinggi / 2

        segitiga.cetakluas() 'panggil method
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbalas.Clear()
        tbluas.Clear()
        tbtinggi.Clear()
    End Sub

    Private Sub Kasus_6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Salman Tech 42"
    End Sub
End Class
Running


Sekian untuk post kali ini semoga bermanfaat dan dapat ilmu yang berguna.
Stay Home Stay Safe Stay Life COVID-19
Stay Tune on Salman Tech 42.

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


Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Konsep Dasar Object Oriented Programming (OOP) Visual Basic 2010 2"

Post a Comment

Subscribe to: Post Comments (Atom)