Hi. Teman-teman, hali ini admin akan share kepada teman-teman semua mengenai cara membuat class pada visual basic .net. Mungkin banyak teman-teman sudah tahu tentang bagaimana cara membuat class pada visual basic .net tapi tidak ada salahnya juga admin kembali mengingatkan teman-teman bagaimana cara yang mudah untuk membuat class tersebut.
Sebelum kita memulai bagaimana cara membuat class visual basic .net kita terlebih dahulu harus memahami apa pengertian class dan fungsinya.
Seperti yang kita ketahui bersama visual basic .net sudah sepenuhnya mendukung pemograman berorientasi objek. Jadi class yang dimaksudkan disini adalah membuat program yang berorientasi objek yaitu class tersebut yang merepresentasi kan objek itu sendiri.
dalam pemograman Class diartikan sebagai sebuah objek karena sebuah class dapat memiliki variabel, properti, anak class dan fungsi-fungsi. dianalogikan class adalah sebuah benda nyata didunia ini, kita contohkan saja kucing, jadi kucing memiliki jenis, warna, cara makan, cara jalan, cara menerkam mangsa, tinggi dan yang lainnya yang dapat diambil dari seekor kucing. jadi class juga seperti itu jenis, warna diartikan sebagai identitas atau properti didalam pemograman. cara makan, cara jalan dan cara menerkam mangsa diartikan sebagai gerak-gerik atau perintah didalamm pemograman dapat diartikan sebagai fungtion-funtion atau fungsi-fungsi.
Kemudian sebuah class dapat digandakan dengan mudah, dan masing-masing class mempunyai proses sendiri-sendiri / masing-masing walaupun berasal dari class yang sama.
Nah. mudah-mudahan teman-teman tidak mengerti. heheheheh
ok. untuk membuat class teman-teman ikuti langkah2 berikut ini :
- Buka visal basic .net --> buat sebuah project ---> dan design form seperti dibawah ini :
- kemudian buatlah sebuah class dengan nama "_mahasiswa" dengan mengklik menu Project --> Add Class...
- Kemudian ketikkan kode dibawah ini didalam coding class "_mahasiswa"
- kemudian ketikkan kode dibawah ini didalam coding form
Public Class _mahasiswa
Private _npm As String = ""
Private _nama As String = ""
Private _jurusan As String = ""
Private _alamat As String = ""
Public Property NPM() As String
Get
Return _npm
End Get
Set(ByVal value As String)
_npm = value
End Set
End Property
Public Property Nama() As String
Get
Return _nama
End Get
Set(ByVal value As String)
_nama = value
End Set
End Property
Public Property Jurusan() As String
Get
Return _jurusan
End Get
Set(ByVal value As String)
_jurusan = value
End Set
End Property
Public Property Alamat() As String
Get
Return _alamat
End Get
Set(ByVal value As String)
_alamat = value
End Set
End Property
End Class
Private _npm As String = ""
Private _nama As String = ""
Private _jurusan As String = ""
Private _alamat As String = ""
Public Property NPM() As String
Get
Return _npm
End Get
Set(ByVal value As String)
_npm = value
End Set
End Property
Public Property Nama() As String
Get
Return _nama
End Get
Set(ByVal value As String)
_nama = value
End Set
End Property
Public Property Jurusan() As String
Get
Return _jurusan
End Get
Set(ByVal value As String)
_jurusan = value
End Set
End Property
Public Property Alamat() As String
Get
Return _alamat
End Get
Set(ByVal value As String)
_alamat = value
End Set
End Property
End Class
Public Class Form1
Dim Mahasiswa As New _mahasiswa
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Mahasiswa.NPM = "0911105"
Mahasiswa.Nama = "visualbasic-indonesia.blogsot.com"
Mahasiswa.Jurusan = "Teknik Informatika"
Mahasiswa.Alamat = "Medan"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Mahasiswa
TextBox1.Text = .NPM
TextBox2.Text = .Nama
TextBox3.Text = .Jurusan
TextBox4.Text = .Alamat
End With
End Sub
End Class
Dim Mahasiswa As New _mahasiswa
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Mahasiswa.NPM = "0911105"
Mahasiswa.Nama = "visualbasic-indonesia.blogsot.com"
Mahasiswa.Jurusan = "Teknik Informatika"
Mahasiswa.Alamat = "Medan"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Mahasiswa
TextBox1.Text = .NPM
TextBox2.Text = .Nama
TextBox3.Text = .Jurusan
TextBox4.Text = .Alamat
End With
End Sub
End Class
(* artikel oleh visualbasic-indonesia
Hasilnya mana
ReplyDelete