VB4 Kotak Input

Membuat Text Box

Untuk membuat Text Box diperlukan kontrol Text Box . Pada bagian ini adnda akan berlatih membuat aplikasi perhitungan sederhana. Jika perhitungan yang dilakukan benar maka akan menampilkan hasil perhitungan tersebut.

Langkah – langkah dibawah ini adalah untuk membuat aplikasinya :

1. Buat form sebagai berikut :

2. Ubah properti tiap kontrol sebagai berikut :

Kontrol	Properti	Nilai
Label1	Caption	Aplikasi Perhitungan Sederhana
Label2	Caption	Nilai Pertama
Label3	Caption	Nilai Kedua
Label4	Caption	Hasil Perhitungan
Text1	Text	(Dikosongkan)
Text2	Text	(Dikosongkan)
Text3	Text	(Dikosongkan)
Command1	Caption	+
Command2	Caption	-
Command3	Caption	*
Command4	Caption	/

3. Ketikkan program di bawah ini :

   Private Sub Command1_Click()

       Text3 = val(text1) + val (text2)

   End Sub

   Private Sub Command2_Click()

      Text3 = text1 - text2

   End Sub

   Private Sub Command3_Click()

       Text3 = text1 * text2

   End Sub

   Private Sub Command4_Click()

      Text3 = text1 / text2

   End Sub

4. Jalankan aplikasi tersebut dengan menekan tombol F5

========================================================================

Membuat List Box

Contoh :

1. Buat form sebagai berikut :

2. Ubah properti tiap kontrol sebagai berikut :

Kontrol	Properti	Nilai
Form	Caption	Metode List Box
Label1	Caption	Menambah, menghapus dan menjumlah item pada List Box
Label2	Caption	Tambah
Label3	Caption	Hapus
Label4	Caption	Jumlah
Label5	Caption	Item yang Anda pilih
Text1	Text	(Dikosongkan)
Text2	Text	(Dikosongkan)
Text3	Text	(Dikosongkan)
Text4	Text	(Dikosongkan)
Command1	Caption	&Tambah
Command2	Caption	&Hapus
Command3	Caption	&Jumlah
Command4	Caption	Hapus &Semua
Command5	Caption	&Keluar

3. Ketikkan program di bawah ini :

Private Sub Form_Load()

List1.AddItem "Jakarta"

List1.AddItem "Bogor"

List1.AddItem "Bandung"

List1.AddItem "Semarang"

List1.AddItem "Jogjakarta"

List1.AddItem "Malang"

List1.AddItem "Surabaya"

List1.AddItem "Bali"

End Sub

Private Sub List1_DblClick()

Text4.Text = List1.Text

End Sub

Private Sub Command1_Click()

List1.AddItem Text1.Text

End Sub

Private Sub Command2_Click()

List1.RemoveItem (Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = List1.ListCount

End Sub

Private Sub Command4_Click()

List1.Clear

End Sub

Private Sub Command5_Click()

End

End Sub

========================================================================

Membuat Combo Box

Aplikasi dibawah ini menggunakan kontrol Combo Box. Pada Combo Box Jenis Mata Uang terdapat beberapa pilihan jenis mata uang, jika user memilih salah satu pilihan maka kotak Nilai Kurs akan langsung terisi dengan besaran kurs Mata Uang yang dipilih terhadap nilai Rupiah. Setelah itu user dapat memasukkan sembarang nilai untuk kotak Nilai Mata Uang. Pada saat Kotak Nilai Mata Uang terisi, maka kotak Nilai Rupiah akan langsung terisi pula dengan rumus nilai kurs dikalikan dengan nilai mata uang.

1. Buka form dan buat aplikasi seperti dibawah ini :

2. Ubah properti masing – masing kontrol :

Kontrol	Properti	Keterangan
Label1	Caption	Aplikasi Pemilihan Mata Uang
Label2	Caption	Jenis Mata Uang
Label3	Caption	Nilai Mata Uang
Label4	Caption	NilaiRupiah
Label5	Caption	Nilai Kurs
Text1	Text	(Dikosongkan)
Text2	Text	(Dikosongkan)
Text3	Text	(Dikosongkan)
Combo1	Text	(Dikosongkan)

3. Ketikkan program dibawah ini :

Private Sub Combo1_Click()

Text3.Text = Combo1.ItemData(Combo1.ListIndex)

End Sub

Private Sub Form_Load()

          With Combo1

    .AddItem "YEN"

    .AddItem "US$"

    .AddItem "Poundsterling"

          End With

Combo1.ItemData(0) = 67

Combo1.ItemData(1) = 8800

Combo1.ItemData(2) = 13000

End Sub

Private Sub Text1_Change()

Text2.Text = Text1.Text * Text3.Text

Text1.SetFocus

End Sub

4. Jalankan Aplikasi tersebut dengan menekan tombol F5

========================================================================

TIMER

Adalah kontrol yang berfungsi menghitung waktu pada Visual Basic. Kontrol ini menggunakan jam internal yang terdapat pada komputer. Pada saat program dijalankan, kontrol Timer tidak akan tampak pada layar Form, karena ia hanya berjalan pada latar belakang untuk menghitung waktu.

Properti timer yang utama adalah Enabled yang membuat Timer mulai menghitung waktu jika nilainya True dan berhenti menghitung waktu jika nilainya False. Sedangkan properti Interval berfungsi mengaktifkan event Timer() jika nilai di dalamnya dilampaui. Properti Interval memiliki nilai 1 sampai 65,535.

Contoh :

Timer1.Interval = 500, artinya 500/1000 detik atau 0,5 detik

Timer1.Interval = 1000 artinya 1000/1000 detik atau 1 detik

      

      1.    Buat form sebagai berikut :

     

2. Ubah properti tiap kontrol sebagai berikut :

Kontrol	Properti	Nilai
Form	Caption	Kalender
Label1	Caption	(dikosongkan)
Label2	Caption	(dikosongkan)
Label3	Caption	(dikosongkan)
Label4	Caption	(dikosongkan)
Label5	Caption	(dikosongkan)
Timer1	Enabled Interval	True 1
Command1	Caption	Keluar

3. Ketikkan program di bawah ini :

Private Sub keluar_Click()

Beep

End

End Sub

Private Sub timer1_Timer()

Label1.Caption = Format(now, "dddd")

Label2.Caption = Format(hari_ini, "mmmm")

Label3.Caption = Format(hari_ini, "hh:mm:ss")

Label4.Caption = Format(hari_ini, "d")

Label5.Caption = Format(hari_ini, "dddd")

End Sub

4. Jalankan aplikasi tersebut dengan menekan tombol F5

Artikel Terkait: