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

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

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 As String, nilai AsInteger, tetapi dengan Structure kita dapat mendeklarasikannya menjadi :

    Private Structure data_siswa

        Dim nik As String

        Dim nama As String

        Dim nilai As Integer

    End Structure

Bagaimana cara menggunakannya? berikut ini contoh lengkapnya :
1.Kita Deklarasikan Structure di module atau form

    Public Structure test_structure

        Dim satu As String

        Dim dua As Integer

        Dim tiga As Boolean

        Dim empat As DateTime

    End Structure

2.Kita Deklarasikan Variable untuk menggunakan Stucture tersebut

    Dim var_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

 Dim array_test As New List(Of test_structure)

 Dim init_test As New test_structure

 For i 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,

sumber:http://djiesoft.blogspot.com/2012/12/deklarasi-dan-contoh-penggunaan.html