Fout: "naam is opnieuw gedefinieerd"

Pitfire · 6 feb 2008

Ik ben een kleine quiz aan het maken(nog lang niet af), maar ik wou het even zien en dan geeft hij een foutmelding op de 24e regel, Naam is opnieuw gedefinieerd. Ik snap niet wat hier nu fout aan is

PHP:

msgbox"De eerste VRAAG!!!!!",4096 + 0 + 48,"Quiz, de eerste vraag!"
Const wshYes = 6 
Const wshNo = 7 
Const wshYesNo = 4 
Const wshQuestion = 32 

Dim objShell 
Dim Answer 

Set objShell = CreateObject("Wscript.Shell") 
Answer = objShell.Popup("Is de voornaam van Piet van Dalen, Piet?", 5, "Quiz, de eerste vraag!", wshYesNo + wshQuestion) 
Set objShell = Nothing 

If Answer = wshYes Then 
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de eerste vraag!" 
ElseIf Answer = wshNo Then 
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de eerste vraag!" 
Else 
    MsgBox "Nou, Nou, nou, nou als het zo begint weet ik niet of het wel eindigt. Het 

goede antwoord was: JA", vbOkOnly, "Timed Out" 
End If
msgbox"Misschien doe je de 2e vraag goed. Hij is heel moeilijk",4096 + 0 + 48,"Error"
msgbox"De tweede VRAAG!!!!!",4096 + 0 + 48,"Quiz, de tweede vraag!"

Const wshYes = 6 
Const wshNo = 7 
Const wshYesNo = 4 
Const wshQuestion = 32 

Dim objShell 
Dim Answer 

Set objShell = CreateObject("Wscript.Shell") 
Answer = objShell.Popup("In de zin: Jan loopt op straat. Is Jan dan het gezegde?", 4, "Quiz, de tweede vraag!", wshYesNo + wshQuestion) 
Set objShell = Nothing 

If Answer = wshYes Then 
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de tweede vraag!" 
ElseIf Answer = wshNo Then 
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de tweede vraag!" 
Else 
    MsgBox "OOh, zo'n sloom iemand heb ik nog nooit gezien. Het goede antwoord was: NEE", vbOkOnly, "Timed Out" 
End If 
msgbox"Door naar de laatste vraag!",4096 + 0 + 48,"Error"
msgbox"De laatste VRAAG!!!!",4096 + 0 + 48,"Quiz, De laatste vraag!"

Const wshYes = 6 
Const wshNo = 7 
Const wshYesNo = 4 
Const wshQuestion = 32 

Dim objShell 
Dim Answer 

Set objShell = CreateObject("Wscript.Shell") 
Answer = objShell.Popup("Ligt de provincie Zuid-Holland aan Nieuw-Zeeland", 3, "Quiz, de laatste vraag!", wshYesNo + wshQuestion) 
Set objShell = Nothing 

If Answer = wshYes Then 
    MsgBox "Nee, helaas dat is niet goed. Nieuw-Zeeland ligt bij Australie", vbOkOnly, "Quiz, de Laatste vraag!" 
ElseIf Answer = wshNo Then 
    MsgBox "Goedzo", vbOkOnly, "Quiz, de Laatste vraag!" 
Else 
    MsgBox "Jammer buiten de tijd, zonde van je IQ als je zo sloom gaat. Het goede antwoord was NEE", vbOkOnly, "Timed Out" 
End If
msgbox"Nu bereken ik je IQ...",4096 + 0 + 48,"Error"
msgbox"Je IQ is rond de... 71",4096 + 0 + 48,"Error"
msgbox"Redelijk goed voor zo'n aap als jou",4096 + 4 + 48,"Error"
if msgBox("Of had je hoger verwacht?", vbYesNo, "Error") = vbYes then 
   msgbox "Nou, ik kan er niets meer aan verranderen",4096 + 0 + 48,"Error"
else 
   msgbox "Mooizo",4096 + 0 + 48,"Error" 
end if
Wscript.Quit

Bij: Nou, Nou, Nou, Nou zit de fout maar ik zie niet wat ik er moet verranderen

kabourterplop · 6 feb 2008

De tekst van je MSGBOX bij nou nou nou staat op meerder lijnen maar dat kan niet.

Code:

msgbox"De eerste VRAAG!!!!!",4096 + 0 + 48,"Quiz, de eerste vraag!" 
Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("Is de voornaam van Piet van Dalen, Piet?", 5, "Quiz, de eerste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de eerste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de eerste vraag!"  
Else  
    MsgBox "Nou, Nou, nou, nou als het zo begint weet ik niet of het wel eindigt. Het goede antwoord was: JA", vbOkOnly, "Timed Out"  
End If 
msgbox"Misschien doe je de 2e vraag goed. Hij is heel moeilijk",4096 + 0 + 48,"Error" 
msgbox"De tweede VRAAG!!!!!",4096 + 0 + 48,"Quiz, de tweede vraag!" 

Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("In de zin: Jan loopt op straat. Is Jan dan het gezegde?", 4, "Quiz, de tweede vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de tweede vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de tweede vraag!"  
Else  
    MsgBox "OOh, zo'n sloom iemand heb ik nog nooit gezien. Het goede antwoord was: NEE", vbOkOnly, "Timed Out"  
End If  
msgbox"Door naar de laatste vraag!",4096 + 0 + 48,"Error" 
msgbox"De laatste VRAAG!!!!",4096 + 0 + 48,"Quiz, De laatste vraag!" 

Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("Ligt de provincie Zuid-Holland aan Nieuw-Zeeland", 3, "Quiz, de laatste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed. Nieuw-Zeeland ligt bij Australie", vbOkOnly, "Quiz, de Laatste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo", vbOkOnly, "Quiz, de Laatste vraag!"  
Else  
    MsgBox "Jammer buiten de tijd, zonde van je IQ als je zo sloom gaat. Het goede antwoord was NEE", vbOkOnly, "Timed Out"  
End If 
msgbox"Nu bereken ik je IQ...",4096 + 0 + 48,"Error" 
msgbox"Je IQ is rond de... 71",4096 + 0 + 48,"Error" 
msgbox"Redelijk goed voor zo'n aap als jou",4096 + 4 + 48,"Error" 
if msgBox("Of had je hoger verwacht?", vbYesNo, "Error") = vbYes then  
   msgbox "Nou, ik kan er niets meer aan verranderen",4096 + 0 + 48,"Error" 
else  
   msgbox "Mooizo",4096 + 0 + 48,"Error"  
end if 
Wscript.Quit

Pitfire · 6 feb 2008

kabourterplop zei:

De tekst van je MSGBOX bij nou nou nou staat op meerder lijnen maar dat kan niet.

Code:

msgbox"De eerste VRAAG!!!!!",4096 + 0 + 48,"Quiz, de eerste vraag!" 
Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("Is de voornaam van Piet van Dalen, Piet?", 5, "Quiz, de eerste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de eerste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de eerste vraag!"  
Else  
    MsgBox "Nou, Nou, nou, nou als het zo begint weet ik niet of het wel eindigt. Het goede antwoord was: JA", vbOkOnly, "Timed Out"  
End If 
msgbox"Misschien doe je de 2e vraag goed. Hij is heel moeilijk",4096 + 0 + 48,"Error" 
msgbox"De tweede VRAAG!!!!!",4096 + 0 + 48,"Quiz, de tweede vraag!" 

Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("In de zin: Jan loopt op straat. Is Jan dan het gezegde?", 4, "Quiz, de tweede vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de tweede vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de tweede vraag!"  
Else  
    MsgBox "OOh, zo'n sloom iemand heb ik nog nooit gezien. Het goede antwoord was: NEE", vbOkOnly, "Timed Out"  
End If  
msgbox"Door naar de laatste vraag!",4096 + 0 + 48,"Error" 
msgbox"De laatste VRAAG!!!!",4096 + 0 + 48,"Quiz, De laatste vraag!" 

Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

Dim objShell  
Dim Answer  

Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("Ligt de provincie Zuid-Holland aan Nieuw-Zeeland", 3, "Quiz, de laatste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed. Nieuw-Zeeland ligt bij Australie", vbOkOnly, "Quiz, de Laatste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo", vbOkOnly, "Quiz, de Laatste vraag!"  
Else  
    MsgBox "Jammer buiten de tijd, zonde van je IQ als je zo sloom gaat. Het goede antwoord was NEE", vbOkOnly, "Timed Out"  
End If 
msgbox"Nu bereken ik je IQ...",4096 + 0 + 48,"Error" 
msgbox"Je IQ is rond de... 71",4096 + 0 + 48,"Error" 
msgbox"Redelijk goed voor zo'n aap als jou",4096 + 4 + 48,"Error" 
if msgBox("Of had je hoger verwacht?", vbYesNo, "Error") = vbYes then  
   msgbox "Nou, ik kan er niets meer aan verranderen",4096 + 0 + 48,"Error" 
else  
   msgbox "Mooizo",4096 + 0 + 48,"Error"  
end if 
Wscript.Quit

Moet er dan: " _
& "
bij ofzo want ik snap het nog niet helemaal

kabourterplop · 6 feb 2008

Waarom wil je dan op een nieuwe lijn beginnen?

Pitfire · 6 feb 2008

kabourterplop zei:
Waarom wil je dan op een nieuwe lijn beginnen?

Wacht even, nu snap ik het niet meer. Het staat bij mij op meerdere lijnen, wat bedoel je daarmee dat het te lang word?

kabourterplop · 6 feb 2008

In de eerste code geeft hij een foutmelding omdat je msgbox tekst op meerder lijnen staat maar dat kan helemaal niet. Je moet de code die ik gepost heb gebruiken.

Pitfire · 6 feb 2008

kabourterplop zei:
In de eerste code geeft hij een foutmelding omdat je msgbox tekst op meerder lijnen staat maar dat kan helemaal niet. Je moet de code die ik gepost heb gebruiken.

Ik ga het nog een keer proberen maar toen ik het net deed kwam hetzelfde probleem

That Guy · 6 feb 2008

bovendien is je code nogal... scrambled

Probeer het zo eens. Noot dat je bv. de constants- dubbel hebt. Daarbij declareer je objShell en answer 3x

Code:

' constantes
Const wshYes = 6  
Const wshNo = 7  
Const wshYesNo = 4  
Const wshQuestion = 32  

'dimmentioneren
Dim objShell  
Dim Answer  


'set objshell
Set objShell = CreateObject("Wscript.Shell")  


'1e vraag
msgbox"De eerste VRAAG!!!!!",4096 + 0 + 48,"Quiz, de eerste vraag!" 

Answer = objShell.Popup("Is de voornaam van Piet van Dalen, Piet?", 5, "Quiz, de eerste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  


If Answer = wshYes Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de eerste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de eerste vraag!"  
Else  
    MsgBox "Nou, Nou, nou, nou als het zo begint weet ik niet of het wel eindigt. Het goede antwoord was: JA", vbOkOnly, "Timed Out"  
End If 
msgbox"Misschien doe je de 2e vraag goed. Hij is heel moeilijk",4096 + 0 + 48,"Error" 


'2e vraag
msgbox"De tweede VRAAG!!!!!",4096 + 0 + 48,"Quiz, de tweede vraag!" 


Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("In de zin: Jan loopt op straat. Is Jan dan het gezegde?", 4, "Quiz, de tweede vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed", vbOkOnly, "Quiz, de tweede vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo, we gaan door naar de volgende ronde!", vbOkOnly, "Quiz, de tweede vraag!"  
Else  
    MsgBox "OOh, zo'n sloom iemand heb ik nog nooit gezien. Het goede antwoord was: NEE", vbOkOnly, "Timed Out"  
End If  

msgbox"Door naar de laatste vraag!",4096 + 0 + 48,"Error" 
msgbox"De laatste VRAAG!!!!",4096 + 0 + 48,"Quiz, De laatste vraag!" 



Set objShell = CreateObject("Wscript.Shell")  
Answer = objShell.Popup("Ligt de provincie Zuid-Holland aan Nieuw-Zeeland", 3, "Quiz, de laatste vraag!", wshYesNo + wshQuestion)  
Set objShell = Nothing  

If Answer = wshYes Then  
    MsgBox "Nee, helaas dat is niet goed. Nieuw-Zeeland ligt bij Australie", vbOkOnly, "Quiz, de Laatste vraag!"  
ElseIf Answer = wshNo Then  
    MsgBox "Goedzo", vbOkOnly, "Quiz, de Laatste vraag!"  
Else  
    MsgBox "Jammer buiten de tijd, zonde van je IQ als je zo sloom gaat. Het goede antwoord was NEE", vbOkOnly, "Timed Out"  
End If 

msgbox"Nu bereken ik je IQ...",4096 + 0 + 48,"Error" 
msgbox"Je IQ is rond de... 71",4096 + 0 + 48,"Error" 
msgbox"Redelijk goed voor zo'n aap als jou",4096 + 4 + 48,"Error" 

if msgBox("Of had je hoger verwacht?", vbYesNo, "Error") = vbYes then  
   msgbox "Nou, ik kan er niets meer aan verranderen",4096 + 0 + 48,"Error" 
else  
   msgbox "Mooizo",4096 + 0 + 48,"Error"  
end if 

Wscript.Quit

Pitfire · 6 feb 2008

Aaah bedankt ik heb het:thumb::thumb::thumb::thumb:

Nu kan ik weer verder

bedankt:thumb:

That Guy · 6 feb 2008

np, zet je de vraag wel ff op 'opgelost' ?

Pitfire · 6 feb 2008

Fout: "naam is opnieuw gedefinieerd"

Pitfire

Gebruiker

kabourterplop

Gebruiker

Pitfire

Gebruiker

kabourterplop

Gebruiker

Pitfire

Gebruiker

kabourterplop

Gebruiker

Pitfire

Gebruiker

That Guy

Meubilair

Pitfire

Gebruiker

That Guy

Meubilair

Pitfire

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy