Friday, December 28, 2012

Sharing Everything From My Experience And Knowlegde

Sharing Everything From My Experience And Knowlegde

Deklarasi dan Contoh Penggunaan Structure (Type In VB6) di VBNET

Posted: 27 Dec 2012 06:19 PM PST

Dulu saya pernah menjelaskan tentang Array, sekarang saya akan share tentang Structure, apa itu ? sebelumnya mungkin anda tahu bahwa di VB6 itu ada deklarasi Type, seperti ini :

Public Type data_siswa
    nik As String
    nama As String
    nilai As Integer
End Type

Nah di VBNET itu adalah Structure yaitu suatu variable/object yang terdiri dari beberapa variable/object yang yang berbeda type data. Jadi bisa dikatakan structure ini adalah bundle atau wadah yang menampung beberapa variable yang berbeda beda. Contoh sederhananya adalah jika anda ingin membuat variable NIK, Nama, Nilai maka : Dim nik, nama AsString, nilai AsInteger, tetapi dengan Structure kita dapat mendeklarasikannya menjadi :

    Private Structure data_siswa
        Dim nik As String
        Dimnama As String
        Dimnilai As Integer
    End Structure
Bagaimana cara menggunakannya? berikut ini contoh lengkapnya :
1.Kita Deklarasikan Structure di module atau form

    Public Structure test_structure
        Dimsatu As String
        Dim dua As Integer
        Dimtiga As Boolean
        Dimempat As DateTime
    End Structure

2.Kita Deklarasikan Variable untuk menggunakan Stucture tersebut

    Dimvar_test As test_structure

3.Contoh penggunaanya adlah sebagai berikut :

With var_test
     .satu = "djiesoft"
     .dua = 1024
     .tiga = False
     .empat = Now.Date
     MessageBox.Show(.satu + "," + .dua.ToString + "," + .tiga.ToString + "," + .empat.ToShortDateString)
End With

4.Anda pun dapat menggunakan Structure ini sebagai variable Array/List, contohnya :
-Deklarasi Array/List Structure dan sekaligus masukan/isi nilai nya

 Dimarray_test As NewList(Of test_structure)

 Diminit_test As Newtest_structure
 Fori As Integer = 0 To 10
     init_test.satu = "nilai ke : " + i.ToString
     init_test.dua = i
     init_test.tiga = True
     init_test.empat = DateAdd(DateInterval.Day, i, Now)
     array_test.Add(init_test)
 Next
 
-Hasilnya ? saya coba tampilkan ke ListView

With ListView1
     For Each Data As test_structure In array_test
         .Items.Add(Data.satu)
         .Items(.Items.Count - 1).SubItems.Add(Data.dua)
         .Items(.Items.Count - 1).SubItems.Add(Data.tiga)
         .Items(.Items.Count - 1).SubItems.Add(Data.empat)
     Next
     .AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
End With
Dengan Metode Structure ini anda dapat mengembangkan logika anda dalam membuat sebuah aplikasi. OK Semoga bermanfaat.

Tags:
contoh deklarasi structure vbnet, apa variable Type di vbnet ? structure vbnet is Type in vb6, contoh penggunaan type / srtucture visual basic,


Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)