willekeurige rekensommen

[Firebal]

Hoi allemaal,

Ik zit hier met een probleem. Mijn code genereert 2 willekeurige cijfers. de gebruiker moet deze zelf optellen en invullen. De code moet daarna aangeven of dit antwoord correct is. De code geeft echter altijd aan, dat dit incorrect is. Wat doe ik fout? De eindcijfer blijft daarom ook op "0" staan.






dim aantalgoed
dim rekensom
dim rn1
dim rn2
dim answer
dim intHighNumber
dim intLowNumber
dim rn3


aantalgoed=a
rekensom=r
intHighNumber = 1000
intLowNumber = 100

a=0
r=0
do until r=20

rn1 = int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
'rn1 = intnumber
rn2 = int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
'rn2 = intnumber
wscript.echo (rn1)
wscript.echo (rn2)
answer=inputbox ("wat is daar het antwoord van?")
rn3=(rn1+rn2)
if answer = rn3 then a = a + 1 and wscript.echo("goed") else wscript.echo ("fout")
r = r+1
loop

wscript.echo("jouw cijfer is:")
wscript.echo (a/2)



Alvast bedankt.

 

[edmoor]

Dat komt omdat deze regel niet klopt:

if answer = rn3 then a = a + 1 and wscript.echo("goed") else wscript.echo ("fout")

 

[Firebal]

Ok bedankt. Wat zou hier wel moeten staan?

 

[edmoor]

Maar er eens dit van van:

If Int(answer) = Int(rn3) Then
    a = a + 1 
    wscript.echo("Goed")
Else
    wscript.echo ("Fout")
End If

De reden is dat je op jouw manier een Integer waarde met een String vergelijkt en die zijn dan altijd ongelijk aan elkaar.

 

[Firebal]

Het werkt. Hartstikke bedankt!