seperti yang sudah saya tulis sebelumnya pada tulisan array pada javascript atau array di php bahwa di setiap pemrograman kita akan menjumpai yang namanya array. begitu juga dalam pemrograman visual basic ini kita akan berjumpa lagi dengan array vb atau vb array.untuk penerapan logikanya sama dengan di javascript ataupun di php, perbedaannya hanya terletak pada penulisan dan penerapannya dalam kode masing-masing setiap pemrograman. sebelum kita mulai seperti biasa izinkan diri ini terlebih dahulu untuk mengucapkan
1. project1name : PArr2. form1- caption : Vb6 Array- startupposition : center screen3. Listbox1- Name : Lst4. CommandButton1- Name : cmdArr- Caption : Click me
untuk hasil interfaces project diatas kurang lebihnya seperti berikut
sedangkan untuk penulisan array sendiri pada visual basic adalah kurang lebihnya seperti berikut
Dim|Public|Private NameArray(SubsArray) As Datatype
biar lebih jelas mari sekarang kita coba terapkan pada kode komponen cmdArr pada event click yang kurang lebihnya seperti berikut
Private Sub cmdArr_Click()
Dim Nama(4) As String
Dim i As Double
Nama(0) = "Muhammad"
Nama(1) = "Abu Bakar"
Nama(2) = "Umar"
Nama(3) = "Ustman"
Nama(4) = "Ali"
For i = 0 To 4
Lst.AddItem Nama(i)
Next
End Sub
maka jika kita jalankan kode diatas dan kita klik komponen cmdArr maka akan menghasilkan sebuah output yang kurang lebihnya seperti berikut
atau kita bisa buat array yang tidak diketahui jumlahnya maka kita menggunakan fungsi redim yang kurang lebihnya seperti berikut
Private Sub cmdArr_Click()
Dim Nama() As String
Dim i As Double
For i = 0 To 4
ReDim Nama(i) As String
Nama(i) = i * 3
Lst.AddItem Nama(i)
Next
End Sub
maka jika kode diatas dijalankan akan menghasilkan output sebagai berikut kurang lebihnya
kemudian kita tambahkan component textbox pada form kita sebagai bahan untuk mencoba jika array vb kita gunakan dengan menggunakan component dengan pengaturan properti yang kurang lebihnya sebagai berikut
5. textbox1
- Name : txtArr
- text : kosong
dan sekarang kita coba bagaimana caranya untuk membuat komponen txtArr diatas menjadi array? caranya ada dua yakni dengan mengisi angka 0 pada properi project form vb kita di bagian index kemudian kita copy component txtArr dan kita paste pada porject form vb kita sebanyak 5. sehingga pengaturan component txtArr akan menjadi seperti berikut kurang lebihnya
- Name : txtArr
- text : kosong
- index : 0
dan untuk hasil jadinya akan seperti berikut kurang lebihnya
atau cara yang kedua kalian tidak usah mengisi properti bagian index dengan angka 0, akan tetapi langsung di copy saja kemudian paste pada project form vb kita sehingga jika ada pesan "You Already have a control named 'txtArr'. Do you want create a control Array?" maka kita kita pilih yes atau kita klik yes maka komponen tersebut otomatis akan sudah menjadi control array yang kurang lebihnya seperti berikutPrivate Sub cmdArr_Click()Dim i As DoubleFor Each Nama In txtArrLst.AddItem NamaNext NamaEnd Sub
sehingga jika kita isi pada komponen txtArr dan kemudian kita klik komponen cmdArr maka akan tampil pada kompone Lst hasil input dari komponen txtArr control array seperti tampak berikut kurang lebihnya
kemudian sekarang kita coba penerapan pada event komponen yang menjadi control array tadi yaitu komponen txtArr yang mana kita coba terapkan pada event lostfocus yang mana seperti yang sudah kita tahu beberapa fungsi event pada tulisan sebelumnya disini bahwa lostfocus adalah event ketika kursor berpindah ke komponen lainnya yang kurang lebihnya untuk kode pada kompnen txtArr control array seperti berikutPrivate Sub txtArr_LostFocus(Index As Integer)Lst.AddItem txtArr(Index)End Sub
maka jika kita jalankan kode diatas dan ketika mengisi input pada komponen txtArr sebagai control array kemudian kita berpindah ke komponen txtArr yang lain maka komponen Lst akan menampilkan output dari input txtArr sebelumnya seperti tampak berikut kurang lebihnya
Comments
Post a Comment