MrNeophema
Gebruiker
- Lid geworden
- 1 jul 2010
- Berichten
- 15
Code:
Private Sub cmdCalculate_Click()
Dim nRank As Integer
Dim nSqMeter As Integer
Dim nWood As Integer
Dim nStone As Integer
Dim nTools As Integer
nRank = Val(txtRank.Text)
nSqMeter = Val(txtSqMeter.Text)
nWood = nRank * nSqMeter
txtWood.Text = nWood
nStone = nRank * nSqMeter
txtStone.Text = nStone
nTools = nRank * nSqMeter
txtTools.Text = nTools
End Sub
Dit is dus mijn code, even snelle code, maar toch moet tie werken.
Visual Basic 6
de bovenste lijn geen een error.
Wat is mijn fout?
Laatst bewerkt door een moderator: