Fout: "naam is opnieuw gedefinieerd"

Status
Niet open voor verdere reacties.

Pitfire

Gebruiker
Lid geworden
11 jan 2008
Berichten
145
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
 
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
 
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
 
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.
 
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
 
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
 
Aaah bedankt ik heb het:thumb::thumb::thumb::thumb:



Nu kan ik weer verder;) bedankt:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan