Hi,
ich bin z.Z. ein totaler au3 Anfänger und habe mir gestern mal einen Vokabeltrainer zusammengebastelt. Nun möchte ich aber das man die Vokabeln selbst in eine Textdatei schreibt die man üben möchte und das Programm dann Zufallsweise 10 von den ganzen Vokabeln raussucht.
Hier mal mein bisheriger Code:
[autoit]$counter = 0
MsgBox(0,"Vokabeltrainig","Willkommen zum französischen Vokabeltraing.")
MsgBox(0,"Vokabeltraining","Der Vokabeltrainer sagt Wörter und du musst sie immer in der anderen Sprache schreiben; Wenn deutsches Wort dann französisch, wenn französisches Wort dann deutsch; Denke dran: Alle französischen Wörter werden klein geschrieben und achte auch bei den deutschen Nomen das sie groß geschrieben werden.")
; Aufgabe 1
MsgBox(0,"Guten Tag","Guten Tag (Erwachsener,Fremder)")
$vokabel_1 = InputBox("","Guten Tag (Erwachsener,Fremder)", "")
If $vokabel_1 = ("bonjour") Then
$counter = $counter +1
Endif
; Aufgabe 2
MsgBox(0,"Ja","Ja")
$vokabel = InputBox("","Ja", "")
If $vokabel = ("oui") Then
$counter = $counter +1
Endif
; Aufgabe 3
MsgBox(0,"Katze","Katze")
$vokabel = InputBox("","Katze", "")
If $vokabel = ("chat") Then
$counter = $counter +1
Endif
; Aufgabe 4
MsgBox(0,"Silence","Silence")
$vokabel_1 = InputBox("","Silence", "")
If $vokabel_1 = ("Ruhe") Then
$counter = $counter +1
Endif
; Aufgabe 5
MsgBox(0,"Ich(betont)","Ich(betont")
$vokabel_1 = InputBox("","Ich(betont)", "")
If $vokabel_1 = ("Moi") Then
$counter = $counter +1
Endif
; Aufgabe 6
MsgBox(0,"garÇon","garÇon")
$vokabel_1 = InputBox("","garÇon", "")
If $vokabel_1 = ("Junge") Then
$counter = $counter +1
Endif
; Aufgabe 7
MsgBox(0,"Herr","Herr")
$vokabel_1 = InputBox("","Herr", "")
If $vokabel_1 = ("monsieur") Then
$counter = $counter +1
Endif
; Aufgabe 8
MsgBox(0,"sympatisch","sympatisch(lange Form)")
$vokabel_1 = InputBox("","sympatisch(lange Form)", "")
If $vokabel_1 = ("sympatique") Then
$counter = $counter +1
Endif
; Aufgabe 9
MsgBox(0,"rue","rue")
$vokabel_1 = InputBox("","rue", "")
If $vokabel_1 = ("Straße") Then
$counter = $counter +1
Endif
; Aufgabe 10
MsgBox(0,"drei","drei")
$vokabel_1 = InputBox("","drei", "")
If $vokabel_1 = ("trois") Then
$counter = $counter +1
Endif
MsgBox (0,"Aufgaben", "Du hast " & $counter & " von 10 Aufgaben richtig")
[/autoit]Nun fragt er ja nur das ab was ich ihm sage und es wäre bei dem Nutzer immer das selbe. Weiß vielleicht wer wie ich das hinbekomme das er aus ner Textdatei zufällig 10 Vokabeln auswählt und diese dann nimmt?
Grüße
Baaam