Guten Abend Community,
ich habe vor einen Lern Script für die Europäische Union zu scripten.
Dabei muss man immer von dem Mitgliedsstaat die Hauptstadt angeben.
Und nun komme ich nicht mehr weiter.
P.S.: Dies ist mein erster Versuch mit den Arrays
Spoiler anzeigen
; EU Staaten und deren Hauptstädte
; Lern script für das Fach ,,Politik"
Dim $Land[27]
[/autoit] [autoit][/autoit] [autoit]$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]
[/autoit] [autoit][/autoit] [autoit]$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"
$nMsg = GUIGetMsg ()
Switch $nMsg
Case $Land[0] To $Land[26]
$Eingabe = InputBox ("EU Städte + Hauptstädte","Was ist die Hauptstadt von " & $Land[0] & "?")
If $Eingabe = $Haupstadt[0] Then
MsgBox (0,"Richtig!","Die Hauptstadt von " & $Land[0] & " ist " & $Haupstadt[0] & "!")
Else
MsgBox (0,"Falsch","Die Hauptstadt von " & $Land[0] & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $Land[0] & " war " & $Haupstadt[0] & "!")
EndIf
EndSwitch
Wie gesagt, er soll halt von $Land[0] bis $Land[26] immer diese Frage stellen, aber
er stellt nur die von Belgien..