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