Also. Habe mir diesen "Vokabeltrainer" mit hilfe aus dem anderen Thread gebastelt. Funktioniert auch teilweise ganz gut, jedoch tritt Manchmal der fehler
\Desktop\test.au3 (49) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If GUICtrlRead($input) = $voc[2] Then
If GUICtrlRead($input) = ^ ERROR
auf. Ich weiss nicht wodran es liegt
hier Einmal der Quelltext:
Spoiler anzeigen
;includes
#include "file.au3"
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
;include Ende
;Variablen
Dim $arvocs
Dim $allvocs
Dim $voc
;Variablen Ende
;Vokabeln auslesen
_FileReadToArray (@scriptdir & "\Vokabeln.txt", $arvocs)
$allvocs = UBound ($arvocs)
;Vokabeln auslesen Ende
;ToolTip
$random = Random (1, $allvocs, 1)
$voc = $arvocs[$random]
$voc = StringSplit ($voc, ";")
;~ ToolTip ($voc[1], 500, 500)
;ToolTip Ende
;GUI
$Form1 = GUICreate("Vokabeltester", 100, 90, 300, 10)
$label = GUICtrlCreateLabel($voc[1],0, 10,90,20,$SS_CENTER)
$input = GUICtrlCreateInput ("" , 10, 30, 80, 20)
$ok = GUICtrlCreateButton ("OK", 40, 60)
GUISetState (@sw_show)
;Gui Ende
;Warten aufs ausfüllen
While 1
$bla = GUIGetMsg()
switch $bla
Case $GUI_EVENT_CLOSE
Exit
Case $ok
_next()
EndSwitch
WEnd
;Warten Ende
;Schleife, die die nächste Vokabel erstellt
Func _next()
GUISetState (@SW_hide)
If GUICtrlRead($input) = $voc[2] Then
MsgBox (64, "Richtig", "Richtige Antwort.")
Else
MsgBox (64, "Falsch", $voc[2] & " wäre die richtige Lösung gewesen")
;~ ToolTip ("Richtig ist: " & $voc[2], 500, 500,"","",2)
EndIf
GUICtrlSetData ($input, "")
;~ Sleep (2000)
$arvocs[$random] = ""
$random = Random (1, $allvocs, 1)
$voc = $arvocs[$random]
$voc = StringSplit ($voc, ";")
If $voc[1] = "" Then
_next()
EndIf
GUICtrlSetData ($label, $voc[1])
;~ ToolTip ($voc[1], 500, 500,"","",2)
GUISetState (@SW_show)
EndFunc
;Schleife Ende
und hier die dazugehörige text datei (muss Vokabeln.txt heißen)
Spoiler anzeigen
Hallo;hello
rennen;run
gehen;walk
schauen;look
lügen;lie
kauen;chew
drehen;turn
lippen;lips
augen;eyes
hoffe es weiss jemand, wo der fehler liegt. Danke
mfg SiLenCa