Ik ben bezig met een euro calculator, als script heb ik:
Option Explicit
Dim Euro As Integer
Dim Gulden As Integer
Dim Koers As Integer
Private Sub cmdReken_Click()
Koers = Val(txtKoers.Text)
Euro = Val(txtEuro.Text)
Gulden = Euro * Koers
txtGulden.Text = "FL. " + Str(Gulden)
End Sub
ik heb een veldje dat heet txtKoers, met als Text 2,20371 en ingesteld als Currency (visible=false)
Het enigste wat dit script doet is het bedrag wat je intypt verdubbelen, ziet iemand een fout?
Option Explicit
Dim Euro As Integer
Dim Gulden As Integer
Dim Koers As Integer
Private Sub cmdReken_Click()
Koers = Val(txtKoers.Text)
Euro = Val(txtEuro.Text)
Gulden = Euro * Koers
txtGulden.Text = "FL. " + Str(Gulden)
End Sub
ik heb een veldje dat heet txtKoers, met als Text 2,20371 en ingesteld als Currency (visible=false)
Het enigste wat dit script doet is het bedrag wat je intypt verdubbelen, ziet iemand een fout?