[VBA] beginnersfout(?) rekenmachine werkt niet

[Scooper]

Ik ben voor het eerst bezig in VBA en ben nu aan het proberen een rekenmachinetje te maken, deze hoeft nog maar met 2 getallen om te kunnen gaan en alleen maar met - en +. Ik heb alle geheugentoewijzingen goed gespeld dat weet ik zeker.

Eerst maar ff het scriptje:

code:

Private Sub cmdAction_Click()
Dim dblGetal1 As Double
Dim dblGetal2 As Double
Dim radPlus As Boolean
Dim radMin As Boolean
Dim dblUitkomst As Double
Dim strPlusOfMin As String


If (radPlusValue = True) Then
    strPlusOfMin = "&"
    GoTo Uitkomst
ElseIf (radMinValue = True) Then
    strPlusOfMin = "-"
    GoTo Uitkomst
Else
    GoTo Vergeten
End If

Uitkomst:
lblUitkomst.Caption = dblGetal1 + " " + strPlusOfMin + " " + dblGetal2
GoTo Einde

Vergeten:
MsgBox "Je moet wel min of plus kiezen"

Einde:

End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Het probleem is telkens als ik op de cmdAction-knop druk hij zegt "Je moet wel min of plus kiezen", ook al heb je dat wel gekozen (radiobuttons). Maar volgens mij zou hij niet naar "Vergeten" moeten gaan, maar naar uitkomst en dan klaar is kees.

Ik heb vast wel meerdere fouten gemaakt, maar het is ook nog maar mijn eerste keer hé. Y)

[.GoO]

If (radPlusValue = True) Then

moet dat niet zijn .value? (en die andere dan dus ook)

Probeer anders eens een exit sub ertussen te zetten...

[curry684]

[knip]
Oeps nevermind ik moet m'n kop houden over VB-code dat snap ik niet
[/knip]

ps. met <code> en </code> maar dan met rechte haken kun je code leesbaarder tonen.

[Gerco]

Doe eens beginnen met "Option Explicit" bovenaan je module te zetten. Dat scheelt een hoop fouten (incl deze).

[Scooper]

Op donderdag 14 maart 2002 23:38 schreef Gerco het volgende:
Doe eens beginnen met "Option Explicit" bovenaan je module te zetten. Dat scheelt een hoop fouten (incl deze).

Als ik dat doe geeft hij een foutmelding bij

If (radPlusValue = True) Then

en als ik dit gebruik:

If (radPlus.Value = True) Then

krijg ik ook een compileer fout

[Scooper]

Op donderdag 14 maart 2002 23:32 schreef devv05 het volgende:
Probeer anders eens een exit sub ertussen te zetten...

Waar zou ik dat moeten zetten?? Ik heb het geprobeerd voor "Vergeten:", maar helaas zonder resultaat

[nescafe]

Heb je enig idee waar je radPlus Boolean wordt geset ?

Overigens is radPlus.Value niet echt noodzakelijk

[Scooper]

Op vrijdag 15 maart 2002 00:13 schreef nescafe het volgende:
Heb je enig idee waar je radPlus Boolean wordt geset ?

Sorry maar ik ben een echte n00b op het gebied van VBA, kun je dat proberen wat duidelijker uit te leggen?

[nescafe]

code:

Dim radPlus As Boolean
Dim radMin As Boolean

Je initialiseert ze wel maar je geeft er geen waarde aan (True of False).. Dit moet je dus doen aan de hand van de afhankelijke knop. Ik neem aan dat je twee knoppen met twee stukjes code hebt:

code:

Private Sub cmdActionPlus_Click()
  Call Bereken("+")
End Sub

Private Sub cmdActionMin_Click()
  Call Bereken("-")
End Sub

Private Sub Bereken(type_button as string)

Dim dblGetal1 As Double
Dim dblGetal2 As Double
Dim dblUitkomst As Double
Dim strPlusOfMin As String

Select Case type_button
  Case "+":
    strPlusOfMin = "&"
    GoTo Uitkomst
  Case "-":
    strPlusOfMin = "-"
    GoTo Uitkomst
  Case Default:
    GoTo Vergeten
End Select

Uitkomst:
lblUitkomst.Caption = dblGetal1 + " " + strPlusOfMin + " " + dblGetal2
GoTo Einde

Vergeten:
MsgBox "Je moet wel min of plus kiezen"

Einde:

End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Ik zou het ongeveer zo doen, waarschijnlijk type_button as string(1) als dat kan, om geheugen te sparen maar of dat werkt weet ik niet.

Snap je nu wat ik bedoel trouwens ?

[Verwijderd]

opmerking:

pleazzzz WASTE THE GOTO'S !!!!

als je die nu in je eerste programma al gebruikt, ga je nooit verder komen dan kwakkelcode
grtz
CPUburn

[nescafe]

goto stamt inderdaad uit de qbasic tijd ja

[Verwijderd]

En je error afhandeling dan? Hoe was je van plan om die te doen zonder GoTo (in VB6 dan, in dotnet is het eindelijk netjes...)

[curry684]

Op vrijdag 15 maart 2002 15:30 schreef JeroenDega het volgende:
En je error afhandeling dan? Hoe was je van plan om die te doen zonder GoTo (in VB6 dan, in dotnet is het eindelijk netjes...)

Ik heb ooit maintenance moeten verrichten op een enorm VB-project dat alle error-handling deed zonder goto... iedere, maar dan ook echt IEDERE functie begon met de volgende regel:

code:

on error resume next

Wat heb ik me vermaakt met die opdracht