cornelis180
Gebruiker
- Lid geworden
- 19 apr 2007
- Berichten
- 195
Ik ben pas net begonnen aan deze programmeer taal, en hij doet niet wat hij wilt
Het zijn 3tekst labels en een = teken als cmd...
De uitkomst komt niet op het uitkomst txt label...
Wat is fout?
Code:
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?