Langkah Kerja
- Click Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
- Click Standard Exe dan click Open
- Simpan latihan ini dengan nama
- Form : Frm_latihan3.Frm
- Project : P_Latihan3.VBP
- Desain Form Seperti tampilan ini
- Atur properties-nya seperti tabel berikut :
Komponen
|
Properties
|
Value
|
Form1
|
Caption
|
Kurs Valuta Asing
|
Label1
|
Caption
|
Valuta Asing
|
Label2
|
Caption
|
Jumlah
|
Label3
|
Caption
|
Nilai Rupiah
|
Label4
|
Caption
|
Kurs Hari Ini
|
Combo1
|
Name
Text
|
Combo1
“Kosongkan”
|
Text1
|
Name
Text
|
Text1
“Kosong”
|
Text2
|
Name
Text
|
Text2
“Kosong”
|
Text3
|
Name
Text
|
Text3
“Kosong”
|
Command1
|
Name
Caption
|
Command1
If ... Then
|
Ketikkan
kode program ini pada bagian General
Dim Kurs, nilai_rupiah
As Single
Doubleclick pada Combo1 dan ketikkan kode program
Private Sub
Combo1_Click()
Kurs =
Combo1.ItemData(Combo1.ListIndex)
Text1.Text =
Format(Kurs, "###,###,###.#0")
Text2.SetFocus
End Sub
Doubleclick pada Command1 dan ketikkan kode program
Private Sub Command1_Click()
Unload Me
End Sub
Doubleclick pada Form1 dan ketikkan kode program
Private Sub
Form_Load()
Combo1.List(0) =
"Dollar US"
Combo1.List(1) =
"Dollar AUS"
Combo1.List(2) =
"Yen Jepang"
Combo1.List(3) =
"Pound Inggris"
Combo1.List(4) =
"Won Korea"
Combo1.ItemData(0) = 9600
Combo1.ItemData(1) = 3500
Combo1.ItemData(2) = 32
Combo1.ItemData(3) = 4500
Combo1.ItemData(4) = 5
End Sub
Doubleclick pada Text2 dan ketikkan kode program
Private Sub
Text2_Change()
Text3.Text = Format(Kurs
* Val(Text2.Text), "###,###,###.#0")
End Sub
0 comments:
Post a Comment