Emely.Net Banner Exchange
Home, Forum diskusi, Chatting, Download

Latihan 2

Judul : Memahami kontrol ComboBox yang diaplikasikan untuk pengolahan data Peserta Indoprog-vb

1. Buatlah program untuk menyimpan data perserta indoprog-vb kesebuah random file Peserta.Dat yang memiliki struktur sebagai berikut :

'Struktur data untuk random file Private Type Peserta Email As String * 30 nama As String * 30 Alamat As String * 40 Kota As String * 20 Propinsi As String * 20 Negara As String * 20 Tempat As String * 20 TglLahir As Date Pria As Integer End Type

Pada masing-masing textbox dibatasi panjang pengetikkan terbatas sesuai dengan ukuran masing-masing field, seperti tampilan berikut :

Isi ComboBox cboNegara diisi dari file Negara.txt, dan Propinsi dari file Propinsi.txt, sehingga menghasilkan tampilan sebagai berikut :

Petunjuk, lakukan hal tersebut pada Event Form_Load, adapun potongan programnya adalah sebagai berikut :

Private Sub Form_Load()
Dim Item As String                   'Variabel untuk membaca isi text file

'Isi cboNegara dengan file Negara.txt
Open "Negara.txt" For Input As #1    'Buka text file Negara.txt
Do While Not EOF(1)
   Input #1, Item                    'Baca ke item
   cboNegara.AddItem (Item)          'Tambahkan item ke cboNegara
Loop
Close #1                             'Tutup text file 

'Isi cboPropinsi dengan file Propinsi.txt
Open "Propinsi.txt" For Input As #1
Do While Not EOF(1)
   Input #1, Item
   cboPropinsi.AddItem (Item)
Loop
Close #1

'Buka Random file Peserta.Dat
Open "Peserta.Dat" For Random As #1 Len=Len(DatPeserta)
JlhRec = LOF(1) / Len(DatPeserta)
If JlhRec > 0 Then
   Posisi = 1
Else
   Posisi = 0
End If

Call Tampil                          'Jalankan Sub Tampil 

End Sub

Untuk koding pada event-event tombol harus anda buat sendiri dengan mempelajari dan mencontoh Latihan pada Modul-modul sebelumnya untuk kemajuan anda sendiri.

Catatan : Fasilitas Find adalah mencari berdasarkan Nama.