login  Naam:   Wachtwoord: 
Registreer je!
 Forum

[VB] Calculator

Offline MothZone - 17/06/2005 15:22 (laatste wijziging 17/06/2005 15:24)
Avatar van MothZonePHP ver gevorderde Hallo,
Ik ben bezig met een calculator, maar hij wil maar niet werken

Ik heb een reeks cmdbtns met control array en als naam 'nr', en heb een txtbox met als naam 'calc'.
Dit is de code:

  1. Private Sub nr_Click(Index As Integer)
  2. If (Index < 10) Then
  3. calc.Text = calc.Text & nr(Index).Caption
  4. Else
  5. If (Index <> 14) Then
  6. lid1 = calc.Text
  7.  
  8. bew = Index
  9.  
  10. calc.Text = ""
  11. Else
  12. lid2 = calc.Text
  13.  
  14. If (bew = 10) Then
  15. calc.Text = lid1 + lid2
  16. End If
  17.  
  18. If (bew = 11) Then
  19. calc.Text = lid1 - lid2
  20. End If
  21.  
  22. If (bew = 12) Then
  23. calc.Text = lid1 * lid2
  24. End If
  25.  
  26. If (bew = 13) Then
  27. calc.Text = lid1 / lid2
  28. End If
  29. End If
  30. End If
  31.  
  32. End Sub


indexen 0 -> 9: cijfers 0 -> 9
index 10 -> 13: + - * /
index 14: =

wat is er fout aan?

2 antwoorden

Gesponsorde links
Offline prorsoft - 17/06/2005 15:38
Avatar van prorsoft PHP gevorderde geeftie errors?
zoja, wat voor errors?
Offline MothZone - 17/06/2005 15:41 (laatste wijziging 17/06/2005 15:57)
Avatar van MothZone PHP ver gevorderde heb ff als 'controle' er 3 labels bijgezet, met daarin lid1, bew en lid2
als je het eerste lid hebt ingevuld, en je klikt op een bewerking, zijn lid1 en bew juist, maar als je dan een cijfer intypt zijn lid1 en bew plots leeg

edit: voor de rest geen opvallende problemen buiten dta het niet werkt

edit2: opgelost, was vergeten lid1, lid2 en bew te declaren
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.201s