[VisualBasic] 3 getallen vasthouden

[Verwijderd]

Hoi allemaal,

Ik ben bezig met mijn project, het maken van een fruitautomaat. Ik loop nu een beetje vast over het toekennen van punten van 3 getalen.

Ik heb nu staan onder command start;

Text5 = Getal5
If Getal1 = Getal2 Then Getal5 = Int(Getal5) + 2
If Getal1 = Getal3 Then Getal5 = Int(Getal5) + 2
If Getal2 = Getal3 Then Getal5 = Int(Getal5) + 2
If Getal1 = Getal2 = Getal3 Then Getal5 = Int(Getal5) + 10

Alleen de laatste regel doet die niet goed.
Hij geeft dan bij 3 willekeurige getallen meteen al +10. Kan iemand mij hierbij helpen?

[Robtimus]

In vrijwel elke taal zul je dit moeten splitsen, en gebruik maken van transitiviteit.
Dus ipv "If Getal1 = Getal2 = Getal3" doe je "If Getal1 = Getal2 And Getal2 = Getal3". Uit transitiviteit volgt meteen dat Getal1 = Getal3 ook telt.

[MenaceD]

Verwijderd schreef op maandag 06 maart 2006 @ 20:03:
....
If Getal1 = Getal2 = Getal3 Then Getal5 = Int(Getal5) + 10
....

Dit mag toch niet in een if-statement?

edit: te laat

[ Voor 4% gewijzigd door MenaceD op 06-03-2006 20:07 ]

[RobIII]

1) Verdiep je even in Arrays
2) Verdiep je even in loops/lussen
3) Verdiep je even in de VB syntax, want if a = b = c kan / mag niet

[ Voor 35% gewijzigd door RobIII op 06-03-2006 20:07 ]

[Verwijderd]

Voor de volledigheid: a == b == c gaat c vergelijken met a == b, wat een boolean (true of false) oplevert

[Verwijderd]

OJO,

hij werkt !

Thx

[RobIII]

Verwijderd schreef op maandag 06 maart 2006 @ 20:26:
Voor de volledigheid: a == b == c gaat c vergelijken met a == b, wat een boolean (true of false) oplevert

Daarin ben je correct:

Visual Basic:

    Dim a As Integer
    Dim b As Integer
    Dim c As Boolean
    
    a = 10
    b = 10
    c = True
    
    If a = b = c Then
        MsgBox "ja"
    Else
        MsgBox "nee"
    End If

geeft "ja", echter het gewenste effect van:

Visual Basic:

    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    
    a = 10
    b = 10
    c = 10
    
    If a = b = c Then
        MsgBox "ja"
    Else
        MsgBox "nee"
    End If

gaat dus niet werken. Dit geeft doodleuk "nee".

[whoami]

Sorry hoor, maar dit is wel iets te basic.
We willen je best helpen, maar ik denk dat het zowiezo beter is om eerst eens even een boek of tutorial door te nemen.