internationaal spelalfabet leren !

Status
Niet open voor verdere reacties.
m4dc0w344

m4dc0w344

Gebruiker
Lid geworden
8 aug 2011
Berichten
377
hoi
ik moet voor mijn examen lifeguard moet ik het internationaale spelalfabat weeten
dus ik dacht hee laat ik er een soort quiz achtig iets van maken
en dit heb ik er van gemaakt

het is heel erg simpel in vbscript gescheeven

Wat doet dit eigenlijk: heel erg simpel het vraagt je bijvoorbeeld wat is de q in het internaationaale alfabat en dan kan jij het antwoord geven in dit geval quebec

wat meot er getest worden: je hoeft niet te kijken naar spelfouten daar ben ik al mee bezig
ik wil graag weeten of alles het wel doet ik heb 99% al getest

ik wil graag een eerlijke feedback over


hier alles op een rijtje
Code: 
 A	alfa		al-faa		|		N	november		no-vem-ber
 B	bravo		braa-vo		|		O	oscar			os-kar
 C	charlie		sjar-lie	|		P	papa			pap-paa
 D	Delta		del-taa		|		Q	quebec			kwie-bak
 E	echo		ek-koo		|		R	romeo			roo-mee-oo
 F	foxtrot		fok-strot	|		S	sierra			sjer-raa
 G	golf		golf		|		T	tango			tan-goo
 H	hotel		hoo-tel		|		U	uniform			joe-nie-form
 I	india		in-die-jaa	|		V	victor			vik-tor
 J	juliet		djoe-lie-et	|		W	whiskey			wis-kie
 K	kilo		kie-loo		|		X	x-ray			iks-ree
 L	lima		lie-maa		|		Y	yankee			jeng-kie
 M	mike		maik		|		Z	zulu			zoe-loe
-------------------------------------------------------------------------------------------------------




tips zijn welkom
downloaden kan beneeden in de 2e post
 

Bijlagen

Laatst bewerkt:
Dit is een beetje jammer:
20938180.jpg


Dat komt door die converter van .VBS naar .EXE. Waarom wilde je het per se naar .EXE hebben? Zodat mensen de source niet zien? :confused:

Verder zou je i.p.v. na elk bericht een venster met of je het goed of fout hebt gedaan, op het einde een overzicht kunnen weergeven. Met cijfer enzo. :)
 
ja weet niet wrm ik ou persee naar .exe wilde
maar dat word lastig met die cijfers want okal heb je iedere leter 10000000x fout dan zou je toch een 10 hebben ik moet dan echt gigaantisch veel verandere dat word dan bijna ommoogelijk voor mi XD
 
Het is verplicht alles in kleine letters in te tikken. Dat kun je eenvoudig ondervangen in je programma en moet je een gebruiker niet mee lastig vallen in dit geval.
 
Ja, je kunt in het programma het antwoord zelf omvormen naar hoofd- of kleine letters, dan hoef je de gebruiker er niet op te attenderen.
Bijvoorbeeld:
If Ucase(InputBox("A in het alphabet")) = "ALFA" Then

In dat geval maakt het niet uit of de gebruiker hoofdletters of kleine letters intikt.
 
miscien in een verdere uodate ben nu met iets anders bezig er is al een update beta link is in de 2e post
 
Scherp opgelet crash :thumb:
 
ik heb in het begin al gezegt dat ik daar al mee bezig ben dus je hoeft er niet naar te kijken
er is nu een beta daar kan je wel naar kijken of daar fouten in zitten
 
@ joz1
er zitten best wel veel spelfouten in dat weet ik mijn moeder is er al mee bezig (ik weet het ,het klinkt raar maar het is zo)
ik veel mensen programmer of scripten met zo min mogelijk code's maar ik ben nog niet zo goed dus ik doe het op de makkelijke manier

en wat is interpunctie
 
in de 2e post zie je een link dat is mijn laatste update waar ik ook echt aan heb gewerkt
 
Ik heb even iets nieuws voor je geschreven:
:D

Code: 
'Introductie
x=MsgBox("Klik op 'OK' om te beginnen met het Oefen Examen van het Internationale Spelalfabet.",64+4096+1, "Oefen Examen van  het Internationale Spelalfabet")
if x = vbCancel then
msgbox "Het Oefen Examen wordt afgesloten.",48+4096,"Oefen Examen van  het Internationale Spelalfabet"
wscript.quit
End if

'Volgorde Willekeurig genereren:
Dim L0
Dim Array(25), ArrayShuffled(25)
Dim i3 

i=1
i2=0

Do
Array(i2) = i
i=i+1
i2=i2+1
Loop until i = 26

Randomize Timer

For L0 = 25 To 0 Step -1
i3 = Int(Rnd * (L0 + 1))
ArrayShuffled(L0) = Array(i3)
If i3 <> L0 Then Array(i3) = Array(L0)
Next

Dim Volgorde(25)

For L0 = 0 To 25
num = ArrayShuffled(L0)
if num = "" then num = 0
Volgorde(L0) = ChrW(65 + num)
Next

Eindcijfer = 10

'Vragen!
For Each item in Volgorde
a=Inputbox(item + " in het Internationaal Spelalfabet?","Oefen Examen van  het Internationale Spelalfabet","Plaats hier uw antwoord")
'Antwoord checken
Select Case item
Case "A"
if not (Ucase(a)) = "ALFA" then Eindcijfer = Eindcijfer - 1
Case "B"
if not (Ucase(a)) = "BRAVO" then Eindcijfer = Eindcijfer - 1
Case "C"
if not (Ucase(a)) = "CHARLIE" then Eindcijfer = Eindcijfer - 1
Case "D"
if not (Ucase(a)) = "DELTA" then Eindcijfer = Eindcijfer - 1
Case "E"
if not (Ucase(a)) = "ECHO" then Eindcijfer = Eindcijfer - 1
Case "F"
if not (Ucase(a)) = "FOXTROT" then Eindcijfer = Eindcijfer - 1
Case "G"
if not (Ucase(a)) = "GOLF" then Eindcijfer = Eindcijfer - 1
Case "H"
if not (Ucase(a)) = "HOTEL" then Eindcijfer = Eindcijfer - 1
Case "I"
if not (Ucase(a)) = "INDIA" then Eindcijfer = Eindcijfer - 1
Case "J"
if not (Ucase(a)) = "JULIET" then Eindcijfer = Eindcijfer - 1
Case "K"
if not (Ucase(a)) = "KILO" then Eindcijfer = Eindcijfer - 1
Case "L"
if not (Ucase(a)) = "LIMA" then Eindcijfer = Eindcijfer - 1
Case "M"
if not (Ucase(a)) = "MIKE" then Eindcijfer = Eindcijfer - 1
Case "N"
if not (Ucase(a)) = "NOVEMBER" then Eindcijfer = Eindcijfer - 1
Case "O"
if not (Ucase(a)) = "OSCAR" then Eindcijfer = Eindcijfer - 1
Case "P"
if not (Ucase(a)) = "PAPA" then Eindcijfer = Eindcijfer - 1
Case "Q"
if not (Ucase(a)) = "QUEBEC" then Eindcijfer = Eindcijfer - 1
Case "R"
if not (Ucase(a)) = "ROMEO" then Eindcijfer = Eindcijfer - 1
Case "S"
if not (Ucase(a)) = "SIERRA" then Eindcijfer = Eindcijfer - 1
Case "T"
if not (Ucase(a)) = "TANGO" then Eindcijfer = Eindcijfer - 1
Case "U"
if not (Ucase(a)) = "UNIFORM" then Eindcijfer = Eindcijfer - 1
Case "V"
if not (Ucase(a)) = "VICTOR" then Eindcijfer = Eindcijfer - 1
Case "W"
if not (Ucase(a)) = "WHISKEY" then Eindcijfer = Eindcijfer - 1
Case "X"
if not (Ucase(a)) = "X-RAY" then Eindcijfer = Eindcijfer - 1
Case "Y"
if not (Ucase(a)) = "YANKEE" then Eindcijfer = Eindcijfer - 1
Case "Z"
if not (Ucase(a)) = "ZULU" then Eindcijfer = Eindcijfer - 1
End Select
next

if Eindcijfer < 1 then Eindcijfer = 1


b=msgbox("Uw cijfer is: "&Eindcijfer &". Wilt u de antwoorden zien?",64+4096+4,"Resultaat")

'antwoorden
if b = vbyes then 
a=msgbox( _
"A     Alfa                Al-faa" +vbnewline & _
"B     Bravo             Braa-voo" +vbnewline & _
"C     Charlie          Sjar-lie" +vbnewline & _
"D     Delta              Del-taa" +vbnewline & _
"E      Echo              Ek-koo" +vbnewline & _
"F      Foxtrot          Fok-strot" +vbnewline & _
"G     Golf               Golf" +vbnewline & _
"H     Hotel             Hoo-tel" +vbnewline & _
"I       India              In-die-jaa" +vbnewline & _
"J       Juliet             Djoe-lie-et" +vbnewline & _
"K      Kilo               Kie-loo" +vbnewline & _
"L       Lima             Lie-maa" +vbnewline & _
"M     Mike             Maik" +vbnewline & _
"N      November   Noo-vem-ber" +vbnewline & _
"O      Oscar            Os-kar" +vbnewline & _
"P       Papa             Pap-paa" +vbnewline & _
"Q      Quebec        Kwie-bak" +vbnewline & _
"R       Romeo         Roo-mee-oo" +vbnewline & _
"S       Sierra            Sjer-raa" +vbnewline & _
"T      Tango           Tan-goo" +vbnewline & _
"U      Uniform        Joe-nie-form" +vbnewline & _
"V      Victor             Vik-tor" +vbnewline & _
"W     Whiskey        Wis-kie" +vbnewline & _
"X      X-Ray             Iks-ree" +vbnewline & _
"Y      Yankee          Jeng-kie" +vbnewline & _
"Z      Zulu               Zoe-loe" +vbnewline & _
"",0,"Antwoorden")
else
wscript.quit
end if

'Auteur: JoZ1 van Helpmij.nl

Probeer maar eens uit! :)
 
Laatst bewerkt:
nice

alleen jmr dat ennuleeren niet werkt
je kan 26x op ok druken en een 9 krijgen want zelfs als je alles goed hebt krijg je een 9

mag ik het gebruiken ik zet je naam er bij ?
 
Laatst bewerkt:
Tuurlijk :), ik heb 'm tenslotte voor jou gemaakt.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan