spel hoger lager ( weer ^^ )

[secretman8o]

hoi alemaal,
ik heb al eens eerder een vraag geplaatst via phyton.
maar nu doe ik het via ( denk ik ) vbs.
want ik start kladblok, maar sla op met .vbs ipv. .txt

maar mijn vraag is:
hoe moet ik de computer zelf een getal laten kiezen ?? ( tussen 1 en 20 )

hier een script die het wel doet, maar daar moet ik de getal zelf invoeren... :
( het getal is hier dan 7 )

do
antwoord = inputbox ("spel HOGER /\ LAGER                   1 tot 10")
if (antwoord) = cancel then wscript.quit

if (antwoord) <7 then msgbox "je nummer is te laag"
if (antwoord) =7 then msgbox "hoera, je hebt mijn getal gevonden"
if (antwoord) =7 then wscript.quit
if (antwoord) >7 then msgbox "je nummer is te hoog"
loop

en hier een script van dat ie zelf moet kiezen,maar daar geeft ie alleen maar fouten aan. ik heb al verschillende dingen geprobeert...
( ergens een fout bij regel 4 )

do
antwoord = inputbox ("spel HOGER /\ LAGER                   1 tot 20")
if (antwoord) = cancel then wscript.quit
number=(0, 20)
if (antwoord) < (number) then msgbox "je nummer is te laag"
if (antwoord) = (number) then msgbox "hoera, je hebt mijn getal gevonden"
if (antwoord) = (number) then wscript.quit
if (antwoord) > (number) then msgbox "je nummer is te hoog"
loop

ik hoop dat iemand weet hoe ik het moet doen, alvast bedankt !!!

 

[nire]

dim max,min
Randomize
max=20
min=1
msgbox (Int((max-min+1)*Rnd+min))

 

[vanschagen]

hoger lager spel vb
http://www.cursusboek.eu/vb2005/hoger_lager_spel.htm

 

[secretman8o]

bedankt voor de snelle reactie, maar ik snap er niks van...
moet ik dit nou ergens plaatsen, of moet ik een heele nieuwe script maken ?

als ik het ergens moet plaatsen, plz zeg effe waar...

dim max,min
Randomize
max=20
min=1
msgbox (Int((max-min+1)*Rnd+min))

 

[nire]

Int((max-min+1)*Rnd+min)

is je random nummer tussen 1 en 20.
Als je die in een variabele zet, kun je hem steeds weer gebruiken.

Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

Je vervangt dan 7 (in jouw voorbeeld) door mijnGetal

 

[secretman8o]

lol...,
het goede nieuws is dat ik geen foutmeldingen krijg.
het slechte nieuws is dat hij alleen maar zegt "je getal is te hoog"... zelfs bij 1 en 0

zo heb ik ze ingevoerd:

do
antwoord = inputbox ("spel HOGER /\ LAGER                   1 tot 10")
if (antwoord) = cancel then wscript.quit
Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

if (antwoord) <mijngetal then msgbox "je nummer is te laag"
if (antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"
if (antwoord) =mijngetal then wscript.quit
if (antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop 

-----------------------------------------( dat was van die 7 )

do
antwoord = inputbox ("spel HOGER of LAGER                   1 tot 20")
if (antwoord) = cancel then wscript.quit
number= Int((max-min+1)*Rnd+min)
if (antwoord) <number then msgbox "je nummer is te laag"
if (antwoord) =number then msgbox "hoera, je hebt mijn getal gevonden"
if (antwoord) =number then wscript.quit
if (antwoord) >number then msgbox "je nummer is te hoog"
loop 
----------------------------------------------(dat was die 2e )

:thumb: :shocked:

 

[nire]

waarschijnlijk moet je (antwoord) nog even converteren naar een Integer

int(antwoord)

anders vergelijk je appels (string) met peren (integer)

 

[secretman8o]

de puntjes op de i ....

hij doet het !!!!
en ook weer niet...

want:
volgens mij verandert hij elke ronde van getal...
dan is 4 te hoog, en dan is 4 weer te laag... snapie
ik ga zo slapen, maar ik heb er zeker 1 uur aan besteed,
maar nog doet ie het niet... graag nog een laatste reactie.

script:

do
antwoord = inputbox ("spel HOGER /\ LAGER 1 tot 20")
if (antwoord) = cancel then wscript.quit
Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"
if int(antwoord) =mijngetal then wscript.quit
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop

:thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb:

 

[Jabber]

Nog nooit zo'n script gemaakt, maar zie wel wat er fout gaat.
Je hebt gelijk, in de lus wordt elke ronde een nieuwe getal genomen.

Het zal dus zoiets moeten:

[CPP]Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

do
antwoord = inputbox ("spel HOGER /\ LAGER 1 tot 20")
if (antwoord) = cancel then wscript.quit


if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"
if int(antwoord) =mijngetal then wscript.quit
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop[/CPP]

 

[nire]

Wat Jabber zegt. :thumb:

 

[secretman8o]

bedankt!!!!

ok ik zal hiermee wel zoet zijn,
hartstikke bedankt nog voor alle hulp ^^

( nog een korte vraagje, welke programma gebruik je hiervoor ?? ik denk c of c+ of c++, want ik doe het via kladblok maar dan krijg ik geen kleur erin, en dat zal wel handig zijn... )

groetjessssssssss eddie v. h. = secretman8o
ik zet hem op opgelost !!!

 

[nire]

Ik gebruik UltraEdit. Maar dat kost je iets van 30 dollar.

Het kan ook met Visual Studio Express Edition. Krijg je nog intellisense bij ook! (dat ie aangeeft welke waarden er verwacht worden).

 

[secretman8o]

ok bedankt !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!