Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

Modul Praktikum 3



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
Share:

0 comments:

Post a Comment

Blogger templates