Reken programma'tje werkt niet...

[cornelis180]

Ik ben pas net begonnen aan deze programmeer taal, en hij doet niet wat hij wilt

Private Sub Label1_Click()

End Sub

Private Sub cmdVermenigvuldigen_Click()
Dim Dgetal1 As Double
Dim Dgetal2 As Double
Dim Duitkomst As Double

Dgetal1 = Val(txtGetal1.Text)
Dgetal2 = Val(txtGetals2.Text)
End Sub

Private Sub txtGetal1_Change()
Dim txtGetal1 As Double
End Sub

Private Sub txtGetals2_Change()
Dim txtGetal2 As Double
End Sub

Private Sub txtUitkomst_Change()
Duitkomst = Dgetal1 * Dgetal2
txtUitkomst.Text = Var(Duitkomst)
End Sub

Het zijn 3tekst labels en een = teken als cmd...

De uitkomst komt niet op het uitkomst txt label...
Wat is fout?

 

[That Guy]

als je dingen DIMT en ze binnen een property van een conrtol zet, werkt het inderdaad niet. Dan gelden ze alleen voor dit control.
Dit kan dus bijvoorbeeld:

Private Sub cmdVermenigvuldigen_Click()
Dim Dgetal1 As Double
End Sub

Private Sub txtGetal1_Change()
Dim Dgetal1 As Double
End Sub

Private Sub txtGetals2_Change()
Dim Dgetal1 As Double
End Sub

zonder enige error.

wat jij als code moet hebben:

Option explicit    [COLOR="SeaGreen"]'zet dit er altijd boven, is handig (kijkt of je geen dubbele 'dims' hebt)[/COLOR]
Dim Dgetal1 As Double
Dim Dgetal2 As Double
Dim Duitkomst As Double

Private Sub cmdVermenigvuldigen_Click()
Dgetal1 = Val(txtGetal1.Text)
Dgetal2 = Val(txtGetals2.Text)
Duitkomst = Dgetal1 * Dgetal2
txtUitkomst.Text = Val(Duitkomst)
End Sub

Wat mischien handiger is, is dit:

Option Explicit

Private Sub txtUitkomst_Change()
   Dim Dgetal1 As Double
   Dim Dgetal2 As Double
   Dim Duitkomst As Double
Dgetal1 = Val(txtGetal1.Text)
Dgetal2 = Val(txtGetals2.Text)
Duitkomst = Dgetal1 * Dgetal2
   txtUitkomst.Text = Val(Duitkomst)
End Sub

 

[cornelis180]

k thanks ik heb 'm nou zo:

Private Sub cmdVermenigvuldigen_Click()
Dim Dgetal1 As Double
Dim Dgetals2 As Double
Dim Duitkomst As Double

Dgetal1 = Val(txtGetal1.Text)
Dgetal2 = Val(txtGetals2.Text)

Duitkomst = Dgetal1 * Dgetal2
txtUitkomst.Text = Val(Duitkomst)
End Sub

en helemaal niks bij txtgetal1 en 2

maar waar moet die explicit option?

 

[That Guy]

Die moet helemaal bovenaan je script staan, in de general/declerations sectie

zie ook de bijlage-screenie die k heb gemaakt