Sabtu, 06 April 2013

Contoh Program menggunakan objek ComboBox pada Microsoft Visual Basic 6.0



Objek ComboBox merupakan gabungan dari objek TextBox dan ListBox. ComboBox dapat menampilkan atau diketik / diisi suatu teks seperti halnya pada objek TextBox serta dapat menampilkan dafar pilihan seperti pada objek LsitBox.

Langkah – langkah pembuatan program dengan menggunakan objek CheckBox adalah sbb :
·      Buka proyek Standard EXE yang baru
·  Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox, CommandButton, Frame dan CheckBox


 
Gbr 1


·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol
Properties
Pengaturan
TextBox1
Name       
Caption     
Font
ForeColor
txt_kurs
(dikosongkan)
MS Sans Serif, Bold, 10
&H00FF0000&
TextBox1
Name       
Caption     
Font
ForeColor
txt_jumlah
(dikosongkan)
MS Sans Serif, Bold, 10
&H00FF0000&
TextBox1
Name       
Caption     
Font
ForeColor
txt_rupiah
(dikosongkan)
MS Sans Serif, Bold, 10
&H00FF0000&
CommandButton1
Name        
Caption    
cmd_exit
E&xit
Label1
Caption
Font
ForeColor
Valuta Asing
MS Sans Serif, Bold, 10
&H00FF0000&
Label2
Caption
Font
ForeColor
Nilai Kurs
MS Sans Serif, Bold, 10
&H00FF0000&
Label3
Caption
Font
ForeColor
Jumlah
MS Sans Serif, Bold, 10
&H00FF0000&
Label4
Caption
Font
ForeColor
Nilai Rupiah
MS Sans Serif, Bold, 10
&H00FF0000&
CheckBox1
Name
Caption
Chk_KartuAnggota
Kartu Anggota

CheckBox2
Name
Caption
Chk_Cash
Bayar Tunai
ComboBox1
Name
Text
Font
Fore Color
ComboBox_MoneyChanger
(dikosongkan)
MS Sans Serif, Bold, 10
&H00FF0000&


Form1
Name
Caption
ComboBox_MoneyChanger
Program Money Changer dengan menggunakan Objek ComboBox

·      Double click pada  ComboBox Cmb_ValutaAsing lalu ketik Kode Program dibawah ini :

Private Sub Cmb_ValutaAsing_Click()
Kurs = Me.Cmb_ValutaAsing.ItemData(Me.Cmb_ValutaAsing.ListIndex)
Me.txt_kurs.Text = Format(Kurs, "###,###,###.#0")
Me.txt_jumlah.SetFocus
End Sub

·     Double click pada TextBox txt_jumlah lalu ketik kode program dibawah ini :

Private Sub txt_jumlah_Change()
Me.txt_rupiah.Text = Format(Kurs * Me.txt_jumlah.Text, "###,###,###.#0")
End Sub

·     DoubleClick pada  CommandButton cmd_exit lalu ketik Kode Program dibawah ini :

Private Sub cmd_exit_Click()
End
End Sub

·     Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start


Download program Money Changer dengan menggunakan Objek ComboBox  disini