Vokabel Trainer..

iJonas · 11/17/2010, 20:28

Hallo liebe Community
Ich ahbe im deutschen Forum von AutoIt mal nach ei9nem Vokabel Trainer gesucht..
Hab auch mehrere Sachen gefunden doch einer hat mir besonders gefallen.
Ich habe mir die .exe und das Script heruntergeladen doch das Scricpt war auf 6 Zeilen zusammen geschnitten, ich ahbe es versucht zu ändern habe aber dann Befehle aus einander gezogen

Könnnte mir jmd helfen?

Scricpt so wie es im Inet war:

PHP Code:



#region ;**** Directives created by AutoIt3Wrapper_GUI ****#AutoIt3Wrapper_Res_Comment=Vokabeltester by Tim Dellmann#AutoIt3Wrapper_Res_Description=Simpler Vokabeltrainer#AutoIt3Wrapper_Res_Fileversion=1.0.0.0#AutoIt3Wrapper_Res_LegalCopyright=Tim Dellmann#AutoIt3Wrapper_Res_Language=1031#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****#include #include #include #include #include #include #include #include #include #include Global $sListPath = @ScriptDir & "/Lists/", $aVocabs[1], $zaehler = 1, $aLaguage, $aNowVocab, $richtig = 0, $falsch = 0If Not FileExists($sListPath) Then DirCreate($sListPath); Hauptmenü#region ### START Koda GUI section ### Form=c:\users\tim\desktop\vokabeltrainer\form1.kxf$Form1 = GUICreate("Vokabeltrainer by Tim Dellmann", 301, 84, 280, 143)GUISetOnEvent(-3, "_Exit")$datei = GUICtrlCreateMenu("&Datei")$crealelist = GUICtrlCreateMenuItem("Vokabelliste erstellen", $datei)GUICtrlSetOnEvent(-1, "_Create_List")$writeTest = GUICtrlCreateMenuItem("Test schreiben", $datei)GUICtrlSetOnEvent(-1, "_TestSchreiben")$end = GUICtrlCreateMenuItem("Beenden", $datei)GUICtrlSetOnEvent(-1, "_Exit")$list_edit = GUICtrlCreateMenuItem("Vokabelliste bearbeiten", $datei)$liste_waehlern = GUICtrlCreateCombo("", 112, 8, 185, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))$Label1 = GUICtrlCreateLabel("Vokabelliste wählen:", 8, 8, 101, 17)$Button1 = GUICtrlCreateButton("Starten", 8, 32, 91, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_Start")$deleteList = GUICtrlCreateButton("Ausgewählte Liste löschen", 120, 32, 171, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_Deletelist")_CheckLists()GUISetState(@SW_SHOW)#endregion ### END Koda GUI section ### 
Opt("GUIOnEventMode", 1) 
; Liste erstellen$Form1_1 = GUICreate("Neue Liste erstellen", 261, 476, 192, 124)GUISetOnEvent($GUI_EVENT_CLOSE, "From_Creator2Main", $Form1_1)$Label1 = GUICtrlCreateLabel("Name der Liste:", 8, 8, 78, 17)$name = GUICtrlCreateInput("", 88, 8, 169, 21)$Label2 = GUICtrlCreateLabel("Spalten:", 8, 32, 43, 17)$links = GUICtrlCreateInput("links", 88, 32, 81, 21)$rechts = GUICtrlCreateInput("rechts", 176, 32, 81, 21)$Label3 = GUICtrlCreateLabel("Linke Spalte - Rechte Spalte", 8, 56, 184, 17)$liste = GUICtrlCreateEdit("", 8, 80, 249, 361, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))$save = GUICtrlCreateButton("Speichern", 8, 448, 243, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_Save")GUISetState(@SW_HIDE)$Form2 = GUICreate("Vokabeltrainer by Tim Dellmann", 405, 296, 334, 277)GUISetOnEvent(-3, "_FromTest2Main")$StatusBar1 = _GUICtrlStatusBar_Create($Form2)Dim $StatusBar1_PartsWidth[3] = [150, 250, -1]_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)_GUICtrlStatusBar_SetText($StatusBar1, "Vokabeln gesamt:", 0)_GUICtrlStatusBar_SetText($StatusBar1, "Richtig:", 1)_GUICtrlStatusBar_SetText($StatusBar1, "Falsch:", 2)$antwort = GUICtrlCreateInput("antwort", 232, 96, 153, 29, BitOR($ES_CENTER, $ES_AUTOHSCROLL))GUICtrlSetOnEvent(-1, "_check")GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")GUICtrlSetBkColor(-1, 0x808000)$Label1 = GUICtrlCreateLabel("", 16, 96, 167, 27, $SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")GUICtrlSetBkColor(-1, 0x808000)$Label2 = GUICtrlCreateLabel("", 8, 8, 183, 27, $SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")GUICtrlSetBkColor(-1, 0x808000)$Label3 = GUICtrlCreateLabel("", 216, 8, 183, 27, $SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")GUICtrlSetBkColor(-1, 0x808000)$check = GUICtrlCreateButton("Überprüfen", 8, 176, 91, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_check")$Label4 = GUICtrlCreateLabel("Label4", 8, 216, 391, 27, $SS_CENTER)GUICtrlSetBkColor(-1, 0x808000)GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")$Pic1 = GUICtrlCreatePic(@ScriptDir & "/Data/Hintergrund.jpg", 0, 0, 404, 276, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))While 1Sleep(10)WEndFunc _FromTest2Main()GUISetState(@SW_HIDE, $Form2)GUISetState(@SW_SHOW, $Form1)_CheckLists()$zaehler = 1$richtig = 0$falsch = 0EndFunc   ;==>_FromTest2Main 
Func _start()If GUICtrlRead($liste_waehlern) = "" Then Return (MsgBox(64, "Fehler", "Bitte wähle eine VokabellisteListe"))$aVocabs[0] = _FileCountLines($sListPath & GUICtrlRead($liste_waehlern))$aLaguage = StringSplit(FileReadLine($sListPath & GUICtrlRead($liste_waehlern), 1), "-")For $i = 2 To _FileCountLines($sListPath & GUICtrlRead($liste_waehlern))$sLine = FileReadLine($sListPath & GUICtrlRead($liste_waehlern), $i)$aLine = StringSplit($sLine, "-")_ArrayAdd($aVocabs, $sLine)NextGUISetState(@SW_HIDE, $Form1)GUISetState(@SW_SHOW, $Form2)_GUICtrlStatusBar_SetText($StatusBar1, "Vokabeln gesamt:" & _FileCountLines($sListPath & GUICtrlRead($liste_waehlern)) - 1, 0)GUICtrlSetData($Label2, $aLaguage[1])GUICtrlSetData($Label3, $aLaguage[2])$aNowVocab = StringSplit($aVocabs[$zaehler], "-")GUICtrlSetData($Label1, $aNowVocab[1])EndFunc   ;==>_startFunc _exit()ExitEndFunc   ;==>_exitFunc _Create_List()GUISetState(@SW_HIDE, $Form1)GUISetState(@SW_SHOW, $Form1_1)EndFunc   ;==>_Create_List 
Func _Save()#RequireAdminFileWrite($sListPath & GUICtrlRead($name) & ".vcl", GUICtrlRead($links) & "-" & GUICtrlRead($rechts) & @CRLF &GUICtrlRead($liste))EndFunc   ;==>_SaveFunc From_Creator2Main()GUISetState(@SW_HIDE, $Form1_1)GUISetState(@SW_SHOW, $Form1)_CheckLists()EndFunc   ;==>From_Creator2MainFunc _CheckLists()$aLists = _FileListToArray($sListPath);_ArrayDisplay($aLists)If Not IsArray($aLists) Then Return -1For $i = 1 To $aLists[0]$aFile = StringSplit($aLists[$i], "\")GUICtrlSetData($liste_waehlern, $aFile[$aFile[0]])NextEndFunc   ;==>_CheckListsFunc _check()If GUICtrlRead($antwort) = $aNowVocab[2] Then$richtig += 1_GUICtrlStatusBar_SetText($StatusBar1, "Richtig:" & $richtig, 1)GUICtrlSetData($Label4, "Richtig!")Else$falsch += 1_GUICtrlStatusBar_SetText($StatusBar1, "Falsch:" & $falsch, 2)GUICtrlSetData($Label4, "Falsch!: " & $aNowVocab[2])EndIf$zaehler += 1If $zaehler = $aVocabs[0] ThenMsgBox(64, "", "Du hast von " & $aVocabs[0] - 1 & " Vokabeln:" & @CRLF & $richtig & " richtig" & @CRLF & $falsch & " falsch." & @CRLF & "Du hast " & Round(Execute($richtig / ($aVocabs[0] - 1) * 100), 2) & "% richtig")_FromTest2Main()EndIf$aNowVocab = StringSplit($aVocabs[$zaehler], "-")GUICtrlSetData($Label1, $aNowVocab[1])GUICtrlSetData($antwort, "")EndFunc   ;==>_checkFunc _deletelist()if GUICtrlRead($liste_waehlern) = "" Then Return(MsgBox(64, "Fehler", "Wähle eine Liste aus!"))$yesno = MsgBox(4, "Sicher?", "Möchten sie die ausgewählte Liste löschen?")if $yesno = 6 Then FileDelete($sListPath & GUICtrlRead($liste_waehlern))_GUICtrlComboBox_Destroy($liste_waehlern)$liste_waehlern = GUICtrlCreateCombo("", 112, 8, 185, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))_CheckLists()EndFuncFunc _TestSchreiben()if GUICtrlRead($liste_waehlern) = "" Then Return MsgBox(64, "Fehler" , "Wähle eine Liste aus!")FileWrite(@TempDir &"/list.vlc", $sListPath & GUICtrlRead($liste_waehlern))Run(@ScriptDir &"/Test.exe")EndFunc

So wie ich es geändert habe:

PHP Code:



#cs ---------------------------------------------------------------------------- 
 
 AutoIt Version: 3.3.6.1 
 Author:         myName 
 
 Script Function: 
    Template AutoIt script. 
 
#ce ---------------------------------------------------------------------------- 
 
; Script Start - Add your code below here 
 
#region ;**** Directives created by AutoIt3Wrapper_GUI ****#AutoIt3Wrapper_Res_Comment=Vokabeltester by Tim Dellmann#AutoIt3Wrapper_Res_Description=Simpler Vokabeltrainer#AutoIt3Wrapper_Res_Fileversion=1.0.0.0#AutoIt3Wrapper_Res_LegalCopyright=Tim Dellmann#AutoIt3Wrapper_Res_Language=1031#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****#include #include #include #include #include #include #include #include #include #include Global $sListPath = @ScriptDir & "/Lists/", $aVocabs[1], $zaehler = 1, $aLaguage, $aNowVocab, $richtig = 0, $falsch = 0If Not FileExists($sListPath) Then DirCreate($sListPath); Hauptmenü#region ### START Koda GUI section ### Form=c:\users\tim\desktop\vokabeltrainer\form1.kxf$Form1 = GUICreate("Vokabeltrainer by Tim Dellmann", 301, 84, 280, 143)GUISetOnEvent(-3, "_Exit")$datei = GUICtrlCreateMenu("&Datei")$crealelist = GUICtrlCreateMenuItem("Vokabelliste erstellen", $datei)GUICtrlSetOnEvent(-1, "_Create_List")$writeTest = GUICtrlCreateMenuItem("Test schreiben", $datei)GUICtrlSetOnEvent(-1, "_TestSchreiben")$end = GUICtrlCreateMenuItem("Beenden", $datei)GUICtrlSetOnEvent(-1, "_Exit")$list_edit = GUICtrlCreateMenuItem("Vokabelliste bearbeiten", $datei)$liste_waehlern = GUICtrlCreateCombo("", 112, 8, 185, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))$Label1 = GUICtrlCreateLabel("Vokabelliste wählen:", 8, 8, 101, 17)$Button1 = GUICtrlCreateButton("Starten", 8, 32, 91, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_Start")$deleteList = GUICtrlCreateButton("Ausgewählte Liste löschen", 120, 32, 171, 25, $WS_GROUP)GUICtrlSetOnEvent(-1, "_Deletelist")_CheckLists()GUISetState(@SW_SHOW)#endregion ### END Koda GUI section ### 
Opt("GUIOnEventMode", 1) 
; Liste erstellen$Form1_1 = GUICreate("Neue Liste erstellen", 261, 476, 192, 124)GUISetOnEvent($GUI_EVENT_CLOSE, "From_Creator2Main", $Form1_1) 
$Label1 = GUICtrlCreateLabel("Name der Liste:", 8, 8, 78, 17) 
$name = GUICtrlCreateInput("", 88, 8, 169, 21) 
$Label2 = GUICtrlCreateLabel("Spalten:", 8, 32, 43, 17) 
$links = GUICtrlCreateInput("links", 88, 32, 81, 21) 
$rechts = GUICtrlCreateInput("rechts", 176, 32, 81, 21) 
$Label3 = GUICtrlCreateLabel("Linke Spalte - Rechte Spalte", 8, 56, 184, 17) 
$liste = GUICtrlCreateEdit("", 8, 80, 249, 361, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL)) 
$save = GUICtrlCreateButton("Speichern", 8, 448, 243, 25, $WS_GROUP) 
GUICtrlSetOnEvent(-1, "_Save")GUISetState(@SW_HIDE) 
$Form2 = GUICreate("Vokabeltrainer by Tim Dellmann", 405, 296, 334, 277) 
GUISetOnEvent(-3, "_FromTest2Main") 
$StatusBar1 = _GUICtrlStatusBar_Create($Form2)Dim $StatusBar1_PartsWidth[3] = [150, 250, -1]_GUICtrlStatusBar_SetParts( 
$StatusBar1, $StatusBar1_PartsWidth)_GUICtrlStatusBar_SetText($StatusBar1, "Vokabeln gesamt:", 0)_GUICtrlStatusBar_SetText($StatusBar1, "Richtig:", 1)_GUICtrlStatusBar_SetText($StatusBar1, "Falsch:", 2) 
$antwort = GUICtrlCreateInput("antwort", 232, 96, 153, 29, BitOR($ES_CENTER, $ES_AUTOHSCROLL)) 
GUICtrlSetOnEvent(-1, "_check") 
GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS") 
GUICtrlSetBkColor(-1, 0x808000) 
$Label1 = GUICtrlCreateLabel("", 16, 96, 167, 27, $SS_CENTER) 
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") 
GUICtrlSetBkColor(-1, 0x808000) 
$Label2 = GUICtrlCreateLabel("", 8, 8, 183, 27, $SS_CENTER) 
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") 
GUICtrlSetBkColor(-1, 0x808000) 
$Label3 = GUICtrlCreateLabel("", 216, 8, 183, 27, $SS_CENTER) 
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") 
GUICtrlSetBkColor(-1, 0x808000) 
$check = GUICtrlCreateButton("Überprüfen", 8, 176, 91, 25, $WS_GROUP) 
GUICtrlSetOnEvent(-1, "_check") 
$Label4 = GUICtrlCreateLabel("Label4", 8, 216, 391, 27, $SS_CENTER) 
GUICtrlSetBkColor(-1, 0x808000)GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS") 
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/Data/Hintergrund.jpg", 0, 0, 404, 276, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))While 1Sleep(10)WEndFunc _FromTest2Main() 
    GUISetState(@SW_HIDE, $Form2)GUISetState(@SW_SHOW, $Form1)_CheckLists()$zaehler = 1$richtig = 0$falsch = 0EndFunc   ;==>_FromTest2Main 
Func _start()If GUICtrlRead($liste_waehlern) = "" Then Return (MsgBox(64, "Fehler", "Bitte wähle eine VokabellisteListe")) 
    $aVocabs[0] = _FileCountLines($sListPath & GUICtrlRead($liste_waehlern)) 
    $aLaguage = StringSplit(FileReadLine($sListPath & GUICtrlRead($liste_waehlern), 1), "-")For $i = 2 To _FileCountLines($sListPath & GUICtrlRead($liste_waehlern)) 
        $sLine = FileReadLine($sListPath & GUICtrlRead($liste_waehlern), $i) 
        $aLine = StringSplit($sLine, "-")_ArrayAdd($aVocabs, $sLine)NextGUISetState(@SW_HIDE, $Form1) 
        GUISetState(@SW_SHOW, $Form2)_GUICtrlStatusBar_SetText($StatusBar1, "Vokabeln gesamt:" & _FileCountLines($sListPath & GUICtrlRead($liste_waehlern)) - 1, 0)GUICtrlSetData($Label2, $aLaguage[1])GUICtrlSetData($Label3, $aLaguage[2])$aNowVocab = StringSplit($aVocabs[$zaehler], "-") 
        GUICtrlSetData($Label1, $aNowVocab[1])EndFunc   ;==>_startFunc _exit()ExitEndFunc   ;==>_exitFunc _Create_List()GUISetState(@SW_HIDE, $Form1)GUISetState(@SW_SHOW, $Form1_1)EndFunc   ;==>_Create_List 
Func _Save()#RequireAdminFileWrite($sListPath & GUICtrlRead($name) & ".vcl", GUICtrlRead($links) & "-" & GUICtrlRead($rechts) & @CRLF & 
    GUICtrlRead($liste))EndFunc   ;==>_SaveFunc From_Creator2Main()GUISetState(@SW_HIDE, $Form1_1)GUISetState(@SW_SHOW, $Form1)_CheckLists()EndFunc   ;==>From_Creator2MainFunc _CheckLists()$aLists = _FileListToArray($sListPath);_ArrayDisplay($aLists)If Not IsArray($aLists) Then Return -1For $i = 1 To $aLists[0]$aFile = StringSplit($aLists[$i], "\")GUICtrlSetData($liste_waehlern, $aFile[$aFile[0]])NextEndFunc   ;==>_CheckListsFunc _check()If GUICtrlRead($antwort) = $aNowVocab[2] Then$richtig += 1_GUICtrlStatusBar_SetText($StatusBar1, "Richtig:" & $richtig, 1)GUICtrlSetData($Label4, "Richtig!")Else$falsch += 1_GUICtrlStatusBar_SetText($StatusBar1, "Falsch:" & $falsch, 2)GUICtrlSetData($Label4, "Falsch!: " & $aNowVocab[2])EndIf$zaehler += 1If $zaehler = $aVocabs[0] ThenMsgBox(64, "", "Du hast von " & $aVocabs[0] - 1 & " Vokabeln:" & @CRLF & $richtig & " richtig" & @CRLF & $falsch & " falsch." & @CRLF & "Du hast " & Round(Execute($richtig / ($aVocabs[0] - 1) * 100), 2) & "% richtig")_FromTest2Main()EndIf$aNowVocab = StringSplit($aVocabs[$zaehler], "-")GUICtrlSetData($Label1, $aNowVocab[1])GUICtrlSetData($antwort, "")EndFunc   ;==>_checkFunc _deletelist()if GUICtrlRead($liste_waehlern) = "" Then Return(MsgBox(64, "Fehler", "Wähle eine Liste aus!"))$yesno = MsgBox(4, "Sicher?", "Möchten sie die ausgewählte Liste löschen?")if $yesno = 6 Then FileDelete($sListPath & GUICtrlRead($liste_waehlern))_GUICtrlComboBox_Destroy($liste_waehlern)$liste_waehlern = GUICtrlCreateCombo("", 112, 8, 185, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))_CheckLists()EndFuncFunc _TestSchreiben()if GUICtrlRead($liste_waehlern) = "" Then Return MsgBox(64, "Fehler" , "Wähle eine Liste aus!")FileWrite(@TempDir &"/list.vlc", $sListPath & GUICtrlRead($liste_waehlern))Run(@ScriptDir &"/Test.exe")EndFunc

Hoffe, dass mir jemand von euch helfen kann..

Zur Info es ist nicht mein Vokabel Trainer!!

bollen · 11/17/2010, 20:39

du hast unteranderem die

PHP Code:



#include< >

vergessen

Außerdem finde ich es eigentlich nicht gut wenn man scripts von Anderen ohne deren Einwilligung verwendet.

Hackerfreak1 · 11/17/2010, 20:39

ich weis zwar net genau wo das prob da liegt aber xD ..

nimm den hier ;d is eig auch gant gut

iJonas · 11/17/2010, 20:45

Quote:

Originally Posted by bollen

du hast unteranderem die

PHP Code:

#include< >

vergessen

Außerdem finde ich es eigentlich nicht gut wenn man scripts von Anderen ohne deren Einwilligung verwendet.

Also, Der Beitrag im Forum war so geschrieben, dass man sich die .Ink und die au.3 downloaden durfte und auch Dinge verändern darf, wenn ich den Link wieder finde stelle ich den hier rein.

~~}{exer~~ · 11/18/2010, 21:26

omfg
Da bekommt man ja Augenkrebs
Abgesehn von den #includes die du um die Standart "Dinger" ergänzen kannst,
solltest du mehr Ordnung da rein bringen.
Etwa:
Alle GUIOnEvents untereinander in einer Reihe,
alle Schriften Farben und Backgrounds.

z.B. GUICtrlSetOnEvent($antwort , "_check") nach diesem Schema.

Dann les ich da was von Pic , welches du sicher nicht dabei hast.
Naja, nimm doch lieber einen der schon "Fertig" ist.
Aber zum lernen ist der hier auch gut

PenGuin :O · 11/18/2010, 23:28

Quote:

Originally Posted by }{exer

omfg
Da bekommt man ja Augenkrebs
Abgesehn von den #includes die du um die Standart "Dinger" ergänzen kannst,
solltest du mehr Ordnung da rein bringen.
Etwa:
Alle GUIOnEvents untereinander in einer Reihe,
alle Schriften Farben und Backgrounds.

z.B. GUICtrlSetOnEvent($antwort , "_check") nach diesem Schema.

Nö, mach ich auch nie.
Lieber direkt hinter dem Label/Button etc. und dann -1 als ContorlID.

GE IXI TIM · 11/19/2010, 17:57

Also erstmal danke, dass du MEINEN Vokabeltrainer nutzt

Kannst ja anhand des Benutzernamens usw prüfen, dass das alles seine Richtigkeit hat...
Das mit der schlechten Formatierung liegt daran, dass ich zum Zeitpunkt des Postens Google Chrome verwendet habe...Dieser buggt beim Posten von Quellcode im deutschen AutoIt-Forum.

Wenn du Fragen hast, melde dich bei mir.
Das Original kann ich auch noch posten.

Bei weiteren Fragen melde dich doch bitte auf Autoit.de an, wo das Programm schon ausreichend diskutiert wurde.

hier der Link zu meinem Post:

Über Kritik würde ich mich freuen

mfg
GE IXI TIM aus Autoit.de