.vbs vraag

[m4dc0w344]

hoi
ik heb van een soort w8woord een soort vraag gemaakt
en dan heb ik er bij zet wanner je op cancel of als ie fout is dan moet je hem opnieuw doe maar dan geeft ie een fout

do
Select Case InputBox("b in het eurpeese alfabet,"examen vraag")

    Case Cancel
	MsgBox "d8 het niet we gaan gwn door"
	loop

    Case "braafo"
	MsgBox "ik wis het wel het duurde ff maar je hebt het door"
	

    Case Else
	MsgBox "Fout! noob nog een x"
	loop

End Select

ik heb al een oplosing

strComputer = "."
strProcessToKill = "wscript.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer _
& "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
objProcess.Terminate()

het killt de script
dus ik heb er dit van gemaakt

a=InputBox ("A in het Internationaal spelalfabet",strTitle)
Select Case a

Case Cancel
MsgBox "OK, we stoppen ermee"
Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess

strComputer = "."
strProcessToKill = "wscript.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer _
& "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
objProcess.Terminate()
Next
Exit Do

Case "alfa"
MsgBox "goed, je gaat door naar de volegende "

Case Else
MsgBox "Fout tip! let op je speling en zonder hoofdleters"

End Select

bedankt
JoZ1

 

[JoZ1]

Dat komt omdat je End Select niet in het Do-Loop staat.

Zo zou het moeten werken:

Do
Select Case InputBox("b in het Europese alfabet,"examen vraag")

    Case Cancel
	MsgBox "d8 het niet we gaan gwn door"
	loop

    Case "bravo"
	MsgBox "ik wist het wel het duurde ff maar je hebt het door"
	
    Case Else
	MsgBox "Fout! noob nog een x"

End Select
Loop

 

[m4dc0w344]

nee hij zget
foet:"loop"zonder"do"
regel 6
teken 2

 

[JoZ1]

Aha! Ik zie het al! Dat ligt aan deze loop:

Do
Select Case InputBox("b in het Europese alfabet,"examen vraag")

    Case Cancel
	MsgBox "d8 het niet we gaan gwn door"
	[COLOR="red"]loop[/COLOR]

    Case "bravo"
	MsgBox "ik wist het wel het duurde ff maar je hebt het door"
	
    Case Else
	MsgBox "Fout! noob nog een x"

End Select
Loop

Dat slaat nergens op . Waarom heb je die daar geplaatst?


[edit]Je kan trouwens beter zo doen:[/edit]

Do
a=InputBox("b in het Europese alfabet","examen vraag")
Select Case a

    Case Cancel
	MsgBox "d8 het niet we gaan gwn door"

    Case "bravo"
	MsgBox "ik wist het wel het duurde ff maar je hebt het door"
	
    Case Else
	MsgBox "Fout! noob nog een x"

End Select
Loop until a="bravo"

Anders blijft-ie eeuwig doorgaan, ook al heb je het goede antwoord ingetypt.

 

[m4dc0w344]

ik heb hem daar geplaats omdat ik d8 wannner ie dan op kcancel klikt dan gaat ie naar die line dus dan laat ie eerst die msgbox zien en daarna weer opneiuw

 

[JoZ1]

Eh, OK?

Maar het werkt nu wel toch?

 

[m4dc0w344]

ja en hoe zorg er voor dat ze tog wel op Cancel kunne kliken en dan stopen?

waar heb jij al die dingen geleert?

 

[JoZ1]

ja en hoe zorg er voor dat ze tog wel op Cancel kunne kliken en dan stopen?

Verander dit:

Case Cancel
	MsgBox "d8 het niet we gaan gwn door"

In dit

 Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

waar heb jij al die dingen geleert?

Gewoon veel gedaan: Oefening baart kunst.

 

[m4dc0w344]

ja werkt wel, maar dan ga je naar de volgende vraag en ik heb er 26
kan ik misschien deze doen of is er een korte manier

Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess

strComputer = "."
strProcessToKill = "wscript.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer _
& "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
msgbox "... terminating " & objProcess.Name
objProcess.Terminate()
Next

 

[JoZ1]

Dan kan je toch allemaal Do-Loop statements gebruiken, zoals je al deed.
Die code die je nu post is voor het beëndigen van een proces, in dit geval 'wscript.exe' wat .VBS-scripts uitvoert.

'//Vraag 1\\

Do
a=InputBox("b in het Europese alfabet","examen vraag")
Select Case a

    Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "bravo"
	MsgBox "ik wist het wel het duurde ff maar je hebt het door"
	
    Case Else
	MsgBox "Fout! noob nog een x"

End Select
Loop until a="bravo"

'//Vraag 2\\

Do
b=InputBox("Wat is de hoofdstad van Nederland?","examen vraag")
Select Case b

    Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "Amsterdam"
	MsgBox "ik wist het wel het duurde ff maar je hebt het door"
	
    Case Else
	MsgBox "Fout! noob nog een x"

End Select
Loop until b="Amsterdam"

 

[m4dc0w344]

wat doe ik hier fout ?
ik heb gedaan wat jij ook deed maar toch doet het op een ofandere mannier niet

msgbox "hallo, en welkom bij je oefen-axamen voor het europese alfabet",64 + 0,"axamen vraag"
wscript.sleep 500
msgbox "Let op!! je moet het nauwkurig mogelijk intypen anders is het FOUT",64 + 0,"axamen vraag"
msgbox "veel plezier en succes",64 + 0,"axamen vraag"

Do
a=InputBox("A in het Europese alfabet","examen vraag")
Select Case a

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "alfa"
	MsgBox "goed, je gaat door naar de volegende "
	
    Case Else
	MsgBox "Fout tip! let op je speling en zonder hoofdleters"

End Select
Loop until a="alfa"

Do
b=InputBox(" b in het Europese alfabet","examen vraag")
Select Case b

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do
    Case "bravo"
	MsgBox "ja goed gedaan"
	
    Case Else
	MsgBox "Fout! tip! wanner iemand iets goed heeft gedaan"

End Select
Loop until b="bravo"

Do
c=InputBox("c in het Europese alfabet","examen vraag")
Select Case c

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "charlie"
	MsgBox "goed zo"
	
    Case Else
	MsgBox "Fout! tip! een meisjes en een jongens naam"

End Select
Loop until c="charlie"

Do
d=InputBox("d in het Europese alfabet","examen vraag")
Select Case d

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "delta"
	MsgBox "die wist ik neit maar jij wel"
	
    Case Else
	MsgBox "Fout tip! *****vlieger  *****plan"

End Select
Loop until d="delta"

Do
e=InputBox("e in het Europese alfabet","examen vraag")
Select Case e

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "echo"
	MsgBox "goed,je schrijft echo maar je zegt ek-koo"
	
    Case Else
	MsgBox "Fout tip!wanner je scheeuwt en het galmt"

End Select
Loop until e="echo"

Do
f=InputBox("f in het Europese alfabet","examen vraag")
Select Case f

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "foxtrot"
	MsgBox "die is moeilijk maar je hebt hem wel goed"
	
    Case Else
	MsgBox "Fout tip! een heel ouwe dans"

End Select
Loop until f="foxtrot"

Do
g=InputBox("g in het Europese alfabet","examen vraag")
Select Case g

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "golf"
	MsgBox "goed zo"
	
    Case Else
	MsgBox "Fout tip! auto type"

End Select
Loop until g="golf"

Do
h=InputBox("h in het Europese alfabet","examen vraag")
Select Case h

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "hotel"
	MsgBox "ja die heb je ook al weer goed"
	
    Case Else
	MsgBox "Fout tip! je kan er slapen"

End Select
Loop until h="hotel"

Do
i=InputBox("i in het Europese alfabet","examen vraag")
Select Case i

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "india"
	MsgBox "perfect je mag door naar de andere"
	
    Case Else
	MsgBox "Fout tip! een mooi land"

End Select
Loop until i="india"

Do
j=InputBox("j in het Europese alfabet","examen vraag")
Select Case j

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "juliet"
	MsgBox "perfect"
	
    Case Else
	MsgBox "Fout tip! een mooie meisjes naam"

End Select
Loop until j="juliet"

Do
k=InputBox("k in het Europese alfabet","examen vraag")
Select Case k

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "kilo"
	MsgBox "wauw!, je bent goed bezig!"
	
    Case Else
	MsgBox "Fout tip! denk aan een gewicht"

End Select
Loop until k="kilo"

Do
l=InputBox("L in het Europese alfabet","examen vraag")
Select Case l

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "lima"
	MsgBox "heel goed!"
	
    Case Else
	MsgBox "Fout tip! stad in chili "

End Select
Loop until l="lima"

Do
m=InputBox("m in het Europese alfabet","examen vraag")
Select Case m

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "mike"
	MsgBox "heel goed"
	
    Case Else
	MsgBox "Fout tip! een jongens naam"

End Select
Loop until m="mike"

Do
n=InputBox("n in het Europese alfabet","examen vraag")
Select Case n

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "november"
	MsgBox "heel goed gedaan je bent bijna op de helft"
	
    Case Else
	MsgBox "Fout tip! maand"

End Select
Loop until n="november"

Do
o=InputBox("o in het Europese alfabet","examen vraag")
Select Case o

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "oscar"
	MsgBox "wauw!"
	
    Case Else
	MsgBox "Fout tip! een jongens naam"

End Select
Loop until o="oscar"

Do
p=InputBox("p in het Europese alfabet","examen vraag")
Select Case p

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "papa"
	MsgBox "dat de je snel"
	
    Case Else
	MsgBox "Fout tip! niet mama maar..."

End Select
Loop until p="papa"

Do
q=InputBox("q in het Europese alfabet","examen vraag")
Select Case q

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "quebec"
	MsgBox "wauw!, je spreekt het uit als kwie-bek"
	
    Case Else
	MsgBox "Fout tip! plaats in canada"

End Select
Loop until q="quebec"

Do
r=InputBox("R in het Europese alfabet","examen vraag")
Select Case r

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "romeo"
	MsgBox "goed gedaan!!"
	
    Case Else
	MsgBox "Fout tip! ***** en jullia"

End Select
Loop until r="romeo"

Do
s=InputBox("s in het Europese alfabet","examen vraag")
Select Case s

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "sierra"
	MsgBox "perfect gedaan"
	
    Case Else
	MsgBox "Fout tip! een type van fort"

End Select
Loop until s="sierra"

Do
t=InputBox("T in het Europese alfabet","examen vraag")
Select Case t

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "tango"
	MsgBox "goed zo op naar de volgende"
	
    Case Else
	MsgBox "Fout tip! een dans"

End Select
Loop until t="tango"

Do
u=InputBox("u in het Europese alfabet","examen vraag")
Select Case u

    Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "uniform"
	MsgBox "goed zo!"
	
    Case Else
	MsgBox "Fout tip! draagt de polite en het leger"

End Select
Loop until u="uniform"

Do
v=InputBox("v in het Europese alfabet","examen vraag")
Select Case v

    Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "victor"
	MsgBox "victory! nog maar 4"
	
    Case Else
	MsgBox "Fout tip! jongens naam"

End Select
Loop until v="victor"

Do
w=InputBox("w in het Europese alfabet","examen vraag")
Select Case w

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "whiskey"
	MsgBox "goed gedaan"
	
    Case Else
	MsgBox "Fout tip! sterke drank"

End Select
Loop until w="whiskey"

Do
x=InputBox("x in het Europese alfabet","examen vraag")
Select Case x

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "x-ray"
	MsgBox "goed! je bent er bijna"
	
    Case Else
	MsgBox "Fout tip! word in het ziekenhuis gemaakt"

End Select
Loop until x="x-ray"

Do
y=InputBox("Y in het Europese alfabet","examen vraag")
Select Case y

     Case Cancel
	MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "yankee"
	MsgBox "perfect je hoeft er nog maar eentje"
	
    Case Else
	MsgBox "Fout tip! bekende honkbal club"

End Select
Loop until y="yankee"

Do
z=InputBox("Z in het Europese alfabet","examen vraag")
Select Case z

     Case Cancel
	    MsgBox "OK, we stoppen ermee"
        Exit Do

    Case "zulu"
	     msgox"heel goed gedaan*"
	
    Case Else
	     MsgBox "Fout tip! een stam in afrika"

End Select
Loop until z="zulu"

msgbox "gefeliciteerd, je hebt hem hellemaal goed en je bent klaar voor je axamen",48 + 0,"axamen vraag"
msgbox "gemaakt door:Yorrick Verhoef",48 + 0,"axamen vraag"

 

[JoZ1]

Bij mij werkt het gewoon. Wat werkt er niet dan?

 

[m4dc0w344]

wanner je op annuleeren drukt gaat ie gwn naar de volgende het enige probleem wat ik nog dan heb is wanneer ik nu nix in vul dat ie dan zig zelf killed
dus ik zoek allen daarvoor nog een oplossing en dan ben ik echt klaar

ik stuur je wel de hele script zoals ik hem nu heb

 

[JoZ1]

Ik zou dit:

strComputer = "."
     strProcessToKill = "wscript.exe"
      Set objWMIService = GetObject("winmgmts:" _ 
      & "{impersonationLevel=impersonate}!\\" _ 
       & strComputer _ 
     & "\root\cimv2") 
     Set colProcess = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
     For Each objProcess in colProcess
     objProcess.Terminate()
      Next

Veranderen in dit:

wscript.quit

Ik zou het trouwens een beetje op het forum houden, dan zijn mensen met ditzelfde probleem ook geholpen .

Over dat niets invullen:

If the user clicks Cancel, the function returns a zero-length string ("").

Bron: http://msdn.microsoft.com/en-us/library/Aa445028

Als er op 'Cancel' wordt gedrukt, retourneert VBScript een lege string (""). Hetzelfde geldt als je op 'OK' klikt zonder wat in te voeren. Je zou wel een spatie (" ") als DefaultAnswer kunnen instellen, zodat wanneer er op 'OK' wordt geklikt, je het verschil kunt zien. Voorbeeld:

a=inputbox("bericht","titel"," ")
Select Case a
  Case Cancel
    b=MsgBox("Cancel!")
  Case " "
    b=MsgBox("Niets ingevuld!")
  Case Else
    b=MsgBox(a)
End Select

Het nadeel is dan wel dat je dit ziet:

 

[m4dc0w344]

ok bedankt voor het eerste deel
maar hoe doe je het dan met wanneer je een quiz er van wilt maken

jij zij dat die spatie een na del is en als je die spatie nou veranderd door plaats hier uw antwoord dan is een probleem mooi opgelost
want dan heb je niet dat ze eindeloos op enter kunnen kliken en spatie word ook gezien als fout

met spatie zegt ie nu wel (je meot wat invullen)
maar niks word gezien als cancel

ik dacht dit maar dat werkt niet

a=InputBox ("A in het Internationaal spelalfabet",strTitle,"Plaats hier uw antwoord.")
Select Case a

Case Cancel
MsgBox "OK, we stoppen ermee"
wscript.quit

case " "
masgbox "je moet wat invullen"

Case "alfa"
MsgBox "goed, je gaat door naar de volegende "

Case Else
MsgBox "Fout tip! let op je speling en zonder hoofdleters"

End Select
Loop until a="alfa"

 

[JoZ1]

Bij mij werkt het anders wel .
(zie onderstaande animatie)

 

[m4dc0w344]

grapig die animatie en duidelijk XD

maar ik bedoel wanner je hellemaal nix in vult
dus ook geen spatie of die standaard text dan krijg je ook (ok, we stoppen er mee) te zien

 

[JoZ1]

Dat klopt, maar dat heb ik al uitgelegd in één van mijn vorige posts (onder het kopje: Over dat niets invullen: )

Daar is niets aan te doen .