CURRENCY CONVERTER USING VISUAL BASIC

PROGRAM
Private Sub Command1_Click()
If Combo1.Text = "pound" Then
Text1.Text = Val(Text2.Text) * 2000
ElseIf Combo1.Text = "usdollar" Then
Text1.Text = Val(Text2.Text) * 1500
ElseIf Combo1.Text = "kshi" Then
Text1.Text = Val(Text2.Text) * 1350
ElseIf Combo1.Text = "tsh" Then
Text1.Text = Val(Text2.Text) * 1300
ElseIf Combo1.Text = "rupees" Then
Text1.Text = Val(Text2.Text) * 47
ElseIf Combo1.Text = "euro" Then
Text1.Text = Val(Text2.Text) * 30
ElseIf Combo1.Text = "yen" Then
Text1.Text = Val(Text2.Text) * 15
Else
MsgBox ("no currency")
End If
End Sub
Private Sub Command2_Click()
Text2.Text = ""
Text1.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem ("pound")
Combo1.AddItem ("usdollar")
Combo1.AddItem ("ksh")
Combo1.AddItem ("tsh")
Combo1.AddItem ("euro")
Combo1.AddItem ("yen")
Combo1.AddItem ("rupees")

End Sub

0 Comment "CURRENCY CONVERTER USING VISUAL BASIC"

Post a Comment

:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.

Loading...
இணைந்திருங்கள் 24 நேரமும்!! Like us on Facebook!)