• Home
 · 
• Miscellaneous
 · 
• Converts American Currency Into Marks, Francs, Lire, and Yen

Converts American Currency Into Marks, Francs, Lire, and Yen

Converts American Currency Into Marks, Francs, Lire, and Yen

Rate Converts American Currency Into Marks, Francs, Lire, and Yen

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

picOutput.Cls
Label2.Caption = ""
    Dim yen!, Lire!, marks!, francs!, Dollars!
    Dollars = txtDollars.Text
    Call Calculate(yen!, Lire!, marks!, francs!, Dollars!)
    Label2.Caption = "  Yen             Lire             Marks             Francs"
    picOutput.Print yen; Tab(10); Lire; Tab(22); marks; Tab(36); francs
End Sub


Public Sub Calculate(yen!, Lire!, marks!, francs!, Dollars!)
    Let yen = Dollars * 119.734
    Let francs = Dollars * 5.7345
    Let Lire = Dollars * 1798.29
    Let marks = Dollars * 1.81646
End Sub