Europäische Union

; EU Staaten und deren Hauptstädte
; Lern script für das Fach ,,Politik"

Dim $Land[27]

$Land[0] = "Belgien"
$Land[1] = "Deutschland"
$Land[2] = "Frankreich"
$Land[3] = "Italien"
$Land[4] = "Luxemburg"
$Land[5] = "Niederlande"
$Land[6] = "Dänemark"
$Land[7] = "Irland"
$Land[8] = "England"
$Land[9] = "Griechenland"
$Land[10] = "Protugal"
$Land[11] = "Spanien"
$Land[12] = "Finnland"
$Land[13] = "Österreich"
$Land[14] = "Schweden"
$Land[15] = "Estland"
$Land[16] = "Lettland"
$Land[17] = "Litauen"
$Land[18] = "Malta"
$Land[19] = "Polen"
$Land[20] = "Slowakei"
$Land[21] = "Slowenien"
$Land[22] = "Tschechien"
$Land[23] = "Ungarn"
$Land[24] = "Zypern"
$Land[25] = "Bulgarien"
$Land[26] = "Rumänien"

Dim $Haupstadt[27]

$Haupstadt[0] = "Brüssel"
$Haupstadt[1] = "Berlin"
$Haupstadt[2] = "Paris"
$Haupstadt[3] = "Rom"
$Haupstadt[4] = "Luxemburg"
$Haupstadt[5] = "Amsterdam"
$Haupstadt[6] = "Kopenhagen"
$Haupstadt[7] = "Dublin"
$Haupstadt[8] = "London"
$Haupstadt[9] = "Athen"
$Haupstadt[10] = "Lissabon"
$Haupstadt[11] = "Madrid"
$Haupstadt[12] = "Helsinki"
$Haupstadt[13] = "Wien"
$Haupstadt[14] = "Stockholm"
$Haupstadt[15] = "Tallinn"
$Haupstadt[16] = "Riga"
$Haupstadt[17] = "Vilnius"
$Haupstadt[18] = "Valletta"
$Haupstadt[19] = "Warschau"
$Haupstadt[20] = "Bratislava"
$Haupstadt[21] = "Ljubljana"
$Haupstadt[22] = "Prag"
$Haupstadt[23] = "Budapest"
$Haupstadt[24] = "Nikosia"
$Haupstadt[25] = "Sofia"
$Haupstadt[26] = "Bukarest"

While 1
$rand = Random(0, 26, 1)
$Eingabe = InputBox("EU Städte + Hauptstädte", "Was ist die Hauptstadt von " & $Land[$rand] & "?")
If $Eingabe = $Haupstadt[$rand] Then
MsgBox(0, "Richtig!", "Die Hauptstadt von " & $Land[$rand] & " ist " & $Haupstadt[$rand] & "!")
Else
MsgBox(0, "Falsch", "Die Hauptstadt von " & $Land[$rand] & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $Land[$rand] & " war " & $Haupstadt[$rand] & "!")
EndIf
WEnd

; EU Staaten und deren Hauptstädte
; Lern script für das Fach "Politik"

Dim $Land[27] = [ _
"Belgien", _
"Deutschland", _
"Frankreich", _
"Italien", _
"Luxemburg", _
"Niederlande", _
"Dänemark", _
"Irland", _
"England", _
"Griechenland", _
"Protugal", _
"Spanien", _
"Finnland", _
"Österreich", _
"Schweden", _
"Estland", _
"Lettland", _
"Litauen", _
"Malta", _
"Polen", _
"Slowakei", _
"Slowenien", _
"Tschechien", _
"Ungarn", _
"Zypern", _
"Bulgarien", _
"Rumänien"]

Dim $Haupstadt[27] = [ _
"Brüssel", _
"Berlin", _
"Paris", _
"Rom", _
"Luxemburg", _
"Amsterdam", _
"Kopenhagen", _
"Dublin", _
"London", _
"Athen", _
"Lissabon", _
"Madrid", _
"Helsinki", _
"Wien", _
"Stockholm", _
"Tallinn", _
"Riga", _
"Vilnius", _
"Valletta", _
"Warschau", _
"Bratislava", _
"Ljubljana", _
"Prag", _
"Budapest", _
"Nikosia", _
"Sofia", _
"Bukarest"]

While 1
$rand = Random(0, 26, 1)
$Eingabe = InputBox("EU Städte + Hauptstädte", "Was ist die Hauptstadt von " & $Land[$rand] & "?")
If @error = 1 Then ExitLoop
If $Eingabe = $Haupstadt[$rand] Then
MsgBox(0, "Richtig!", "Die Hauptstadt von " & $Land[$rand] & " ist " & $Haupstadt[$rand] & "!")
Else
MsgBox(0, "Falsch", "Die Hauptstadt von " & $Land[$rand] & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $Land[$rand] & " war " & $Haupstadt[$rand] & "!")
EndIf
WEnd

$iR = Random(0, $oCapitals.Count - 1)
$aKeys = $oCapitals.Keys()
If $oCapitals($aKeys[$iR]) = InputBox("Frage", "Hauptstadt von " & $aKeys[$iR] & " eingeben") Then
MsgBox(0, "", "Richtig")
Else
MsgBox(0, "", "Falsch")
EndIf