CURRENCY CONVERTER USING VISUAL BASIC ~ Dailyones

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

Dailyones