Diklogi

Kode programnya :

Private Sub Command1_Click()
rp = Text1.Text
valuta = Combo1.Text

Select Case valuta
Case "Dollar AS": hasil = rp / 9800
Case "Ringgit": hasil = rp / 3000
Case "Euro": hasil = rp / 15000
End Select
Text2.Text = hasil
End Sub

Private Sub Form_Load()
Combo1.AddItem "Dollar AS"
Combo1.AddItem "Ringgit"
Combo1.AddItem "Euro"
End Sub

Private Sub Command2_Click()
End
End Sub

Salam ilmu pengetahuan ^^