1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Yaerox

Beiträge von Yaerox

  • If ElseIf

    • Yaerox
    • 7. Oktober 2015 um 11:14

    Weil deine If-Anweisungen vorher schon greifen, siehe hier:


    AutoIt
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <WinAPIShPath.au3>
    
    
    Opt("GUIOnEventMode", 1)
    
    
    #Region ### START Koda GUI section ###
    $Form1 = GUICreate("Umbenennungs-Tool für Doku´s", 423, 495, 198, 124)
    $Input1 = GUICtrlCreateInput("", 65, 24, 121, 21)
    $Label1 = GUICtrlCreateLabel("Objekt-Nr.:", 8, 26, 55, 17)
    $Input2 = GUICtrlCreateInput("", 264, 24, 121, 21)
    $Label2 = GUICtrlCreateLabel("Jahr:", 229, 26, 27, 17)
    $Checkbox1 = GUICtrlCreateCheckbox("Frühjahrswartung", 64, 56, 110, 17)
    GUICtrlSetOnEvent(-1, "Checkbox1Click")
    $Checkbox2 = GUICtrlCreateCheckbox("Herbstwartung", 64, 88, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox2Click")
    $Checkbox3 = GUICtrlCreateCheckbox("Inspektion", 64, 120, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox3Click")
    $Checkbox4 = GUICtrlCreateCheckbox("Jahreswartung", 64, 152, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox4Click")
    $Checkbox5 = GUICtrlCreateCheckbox("RLT", 264, 375, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox5Click")
    $Checkbox6 = GUICtrlCreateCheckbox("Heizung", 264, 184, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox6Click")
    $Checkbox7 = GUICtrlCreateCheckbox("DDC", 264, 56, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox7Click")
    $Checkbox8 = GUICtrlCreateCheckbox("MSR", 264, 344, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox8Click")
    $Checkbox9 = GUICtrlCreateCheckbox("GLT", 264, 152, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox9Click")
    $Checkbox10 = GUICtrlCreateCheckbox("Kälte", 264, 248, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox10Click")
    $Checkbox11 = GUICtrlCreateCheckbox("Klima", 264, 312, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox11Click")
    $Checkbox12 = GUICtrlCreateCheckbox("Elektro", 264, 120, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox12Click")
    $Checkbox13 = GUICtrlCreateCheckbox("WVA", 264, 472, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox13Click")
    $Checkbox14 = GUICtrlCreateCheckbox("KKL", 264, 280, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox14Click")
    $Checkbox15 = GUICtrlCreateCheckbox("TWA", 264, 440, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox15Click")
    $Checkbox16 = GUICtrlCreateCheckbox("EAB", 264, 88, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox16Click")
    $Checkbox17 = GUICtrlCreateCheckbox("Hygiene", 264, 216, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox17Click")
    $Checkbox18 = GUICtrlCreateCheckbox("Sanitär", 264, 408, 97, 17)
    GUICtrlSetOnEvent(-1, "Checkbox18Click")
    $oeffnen = GUICtrlCreateButton("Datei öffnen", 72, 328, 75, 25)
    GUICtrlSetOnEvent(-1, "oeffnen")
    $umbenennen = GUICtrlCreateButton("Umbenennen", 72, 368, 75, 25)
    GUICtrlSetOnEvent(-1, "umbenennen")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Checkbox19 = GUICtrlCreateCheckbox("ergänzte Version", 64, 208, 97, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    
    
    
    GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
    Func SpecialEvents()
        Select
    		Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    			Exit
    	EndSelect
    EndFunc   ;==>SpecialEvents
    
    
    Func Checkbox1Click()
        If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox2, $GUI_DISABLE)
            GUICtrlSetState($Checkbox3, $GUI_DISABLE)
            GUICtrlSetState($Checkbox4, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox2, $GUI_ENABLE)
            GUICtrlSetState($Checkbox3, $GUI_ENABLE)
            GUICtrlSetState($Checkbox4, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox2Click()
        If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox1, $GUI_DISABLE)
            GUICtrlSetState($Checkbox3, $GUI_DISABLE)
            GUICtrlSetState($Checkbox4, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox1, $GUI_ENABLE)
            GUICtrlSetState($Checkbox3, $GUI_ENABLE)
            GUICtrlSetState($Checkbox4, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox3Click()
        If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox1, $GUI_DISABLE)
            GUICtrlSetState($Checkbox2, $GUI_DISABLE)
            GUICtrlSetState($Checkbox4, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox1, $GUI_ENABLE)
            GUICtrlSetState($Checkbox2, $GUI_ENABLE)
            GUICtrlSetState($Checkbox4, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox4Click()
        If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox1, $GUI_DISABLE)
            GUICtrlSetState($Checkbox2, $GUI_DISABLE)
            GUICtrlSetState($Checkbox3, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox1, $GUI_ENABLE)
            GUICtrlSetState($Checkbox2, $GUI_ENABLE)
            GUICtrlSetState($Checkbox3, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox5Click()
        If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox6, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
            GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox6, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
            GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox6Click()
        If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
            GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
            GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox7Click()
        If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
            GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
            GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox8Click()
        If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox9Click()
        If GUICtrlRead($Checkbox9) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox10, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox10Click()
        If GUICtrlRead($Checkbox10) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox11Click()
        If GUICtrlRead($Checkbox11) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox12Click()
        If GUICtrlRead($Checkbox12) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox13Click()
        If GUICtrlRead($Checkbox13) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox14Click()
        If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox15Click()
        If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox16Click()
        If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
            GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox17, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
            GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox17, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox17Click()
        If GUICtrlRead($Checkbox17) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
            GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox18, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
            GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox18, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func Checkbox18Click()
        If GUICtrlRead($Checkbox18) = $GUI_CHECKED Then
            GUICtrlSetState($Checkbox5, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox6, $GUI_DISABLE)
            GUICtrlSetState($Checkbox7, $GUI_DISABLE)
            GUICtrlSetState($Checkbox8, $GUI_DISABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox10, $GUI_DISABLE)
            GUICtrlSetState($Checkbox11, $GUI_DISABLE)
            GUICtrlSetState($Checkbox12, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox13, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox14, $GUI_DISABLE)
            GUICtrlSetState($Checkbox15, $GUI_DISABLE)
            GUICtrlSetState($Checkbox16, $GUI_DISABLE)
    		GUICtrlSetState($Checkbox17, $GUI_DISABLE)
        Else
            GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox6, $GUI_ENABLE)
            GUICtrlSetState($Checkbox7, $GUI_ENABLE)
            GUICtrlSetState($Checkbox8, $GUI_ENABLE)
    	    GUICtrlSetState($Checkbox9, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox10, $GUI_ENABLE)
            GUICtrlSetState($Checkbox11, $GUI_ENABLE)
            GUICtrlSetState($Checkbox12, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox13, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox14, $GUI_ENABLE)
            GUICtrlSetState($Checkbox15, $GUI_ENABLE)
            GUICtrlSetState($Checkbox16, $GUI_ENABLE)
    		GUICtrlSetState($Checkbox17, $GUI_ENABLE)
        EndIf
    EndFunc
    
    
    Func oeffnen()
    Global $code = FileOpenDialog("Wähle eine Datei aus!",@StartupDir, "(*.xlsx;*.xls;*.xlsm;*.pdf)",1 + 2)
    Global $aFile = StringSplit($code, "|", 1)
    Global $folder = _WinAPI_PathRemoveFileSpec($aFile[1])
    If IsString($folder) Then GUICtrlSetState($umbenennen, $GUI_ENABLE)
    EndFunc
    
    
    Func umbenennen()
    Global $Objektnr = GUICtrlRead($Input1)
    Global $Jahr = GUICtrlRead($Input2)
    
    
    ;RLT
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & ".pdf" & @CRLF)
    ;ergänzte Version RLT
    ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    EndIf
    ;Heizung
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & ".pdf" & @CRLF)
    ;ergänzte Version Heizung
    ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIF GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
    ConsoleWrite($folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf" & @CRLF)
    EndIf
    
    
    EndFunc
    
    
    While 1
    	Sleep(200)
    WEnd
    Alles anzeigen

    Wenn du ein mal Umbenennen klickst, gibt er dir 2 Zeilen Code aus. Bei einem Filemove bedeutet das, dass die Datei umbenannt wird in *rtl* ... Dann existiert die alte nich mehr, und somit kann der zweite BEfehl nicht erfolgreich durchgeführt werden.

    Tipp: Error handling einbauen. Vereinfacht auch oft das Debugging.

  • Brauche mal Hilfe bei eine Pausen Funktion

    • Yaerox
    • 7. Oktober 2015 um 10:59

    So?

    AutoIt
    HotKeySet("{F9}", "_Start")
    HotKeySet("{F10}", "_Stop")
    HotKeySet("{F11}", "_Exit")
    
    
    Local $iStop = 0
    
    
    While (1)
    	Sleep(500)
    WEnd
    
    
    Func _Start()
    	$iStop = 0
    
    
    	While (1)
    		Send("{1}")
    		Sleep(1200)
    
    
    		If $iStop = 1 Then Return 1
    	WEnd
    EndFunc
    
    
    Func _Stop()
    	$iStop = 1
    EndFunc
    
    
    
    
    Func _Exit()
    	Exit
    EndFunc
    Alles anzeigen
  • Barcode sendet Steuerzeichen in AutoIt

    • Yaerox
    • 5. Oktober 2015 um 16:35

    Wie gesagt, das Problem war die Funktion wie ich den Barcode-Scanner ausgelesen habe ... habe da eine Funktion mit der RawInput.au3 genutzt die ich in der Vergangenheit mal geschrieben habe. Das Problem tritt nicht auf, wenn ich die gescannten Informationen einfach native in die Controls schreiben lasse. hab es nun gelöst.

    Sry für den panik-post, aber das war wichtig und eilig das das heute fertig wird "-.-

  • Barcode sendet Steuerzeichen in AutoIt

    • Yaerox
    • 5. Oktober 2015 um 14:09

    Hallo zusammen,

    ich habe ein kleines problem. Habe ein Skript mit dem ich Barcode-Scanner-Eingaben verarbeiten möchte. Derzeitiger Stand ist, dass das einlsen funktioniert, ich allerdings einige Probleme mit Steuerzeichen habe.

    Steuerzeichen werden mir nur in der AutoIt Konsole angezeigt, nicht im Notepad++. Ich habe die Steuerzeichen hier in eckige Klammern [] geschrieben.

    Barcode: 012345 678 910
    Notepad++: 012345 678 910
    AutoIt: J[DC1]012345 678 910

    Barcode: 012345 678 910A
    Notepad++: 012345 678 910A
    AutoIt: J[DC1]012345 678 910[DLE]

    Herausgefunden habe ich:
    DC1 = CTRL
    DLE = SHIFT

    Ich nutze grundästzlich:
    - German
    - Full ASCII
    - Code 32
    - Code 93
    - Code 11

    Bar Code ID "With this function ON, a leading character will be added to the output string..." ist es nicht. Das wäre ein zusätzliches E als führendes Zeichen. Das hatte ich bereits ausprobiert.

    Ich verzweifel langsam. Jemand eine Idee? Nutze einen Manhattan Barcode Scanner.

    Update: Aufgabe hat sich geändert. Das Problem war die Funktion wie ich den Barcode-Scanner ausgelesen habe ... habe da eine Funktion mit der RawInput.au3 genutzt die ich in der Vergangenheit mal geschrieben habe. Das Problem tritt nicht auf, wenn ich die gescannten Informationen einfach native in die Controls schreiben lasse. Hier muss ich jetzt jedoch Enter und Tab abfangen. Enter ist ja noch einfach ... in der While-Schleife ein Case $MSG = $input, aber wie fange ich so ein TAB ab?

  • WaWi in AutoIt - Projekt für AutoIt / SQLite zu groß?

    • Yaerox
    • 25. September 2015 um 00:43
    Zitat von BugFix

    Für deine Form der Multiusernutzung kannst du problemlos auch SQLite nutzen. Die DB wird während eines Zugriffs (der in der Regel nur einige ms dauert) gesperrt. Hier kann mann durch das Absetzen der Queries über einen Puffer dafür sorgen, dass diese nicht ins Leere laufen. Wenn Query mit Fehler endet: 10 ms warten (oder auch 100, für den User unerheblich) und erneut durchführen, dann sollte die DB wieder frei sein. Wenn wieder Fehler nochmal das ganze bis zu einer $MAX -Zahl an Zugriffen, nach der du davon ausgehen musst, dass ein generelles Zugriffsproblem besteht.

    Zitat von chesstiger

    Diese ganze Fehlerüberprüfung und Pufferei kann man sich allerdings sparen, wenn man direkt MySQL verwendet. Noch dazu spart man sich dann die Dateifreigaben. Warum soll man sich eine Single-Session-Lösung zurechtbiegen, wenn man auch gleich die Multi-Session-Lösung verwenden kann?

    In meinen Augen gibt es bei der Kombination MySQL u. AutoIt keinerlei Einschränkungen. Solange du mit SQL umgehen kannst, macht die Handhabung von MySQL und SQLite kaum einen Unterschied.

    Danke euch beiden für die vielen Ratschläge. Ich muss mich da am Wochenende mal hinsetzen und überlegen, was und wie ich das nun löse. Im Raum stehen immer noch einige fertige Lösungen. Da das ganze nicht für mich ist, werde ich nochmal einige Listen an Vor-/Nachteilen versuchen aufzustellen und dann langsam eine Entscheidung treffen müssen.

  • WaWi in AutoIt - Projekt für AutoIt / SQLite zu groß?

    • Yaerox
    • 23. September 2015 um 23:10
    Zitat von chesstiger

    SQLite ist halt nur nicht von Haus aus für Multiclient-Zugriff geeignet. Ich weiß gar nicht, ob das überhaupt geht, aber selbst wenn, würde die SQLite-Datei auf einem Server liegen müssen, mit einer Dateifreigabe usw... Ist imho nicht optimal. Bei MySQL läuft alles über einen Datenbankserver, sodass man sich das Gefuddel mit den Dateien direkt sparen kann. Und ob dann eine oder zehn Verbindungen zur Datenbank aufgebaut werden, ist komplett egal. Du kannst das praktisch ohne Umbau oder spezielle Programmierung für Multiclient-Zugriff nutzen. Musst ggf. nur eine intervallartige DB-Abfrage basteln. Daher ist in meinen Augen MySQL besser geeignet. Auch die Option mit den einzelnen Dateien halte ich eher für eine Notlösung. Datenbanken sind einfach leichter zu handhaben. Du kannst die fertigen Funktionen mit SQL nutzen und obendrein erfindest du nicht noch ein unnötiges, proprietäres Datenformat. Was die andere konkrete Frage angeht... Nein, ich habe noch keine Schwächen seitens AutoIt im Multiclient-Betrieb festgestellt. Hängt alles vom Programmierer ab. Wenn du geschickt bist, läuft das einwandfrei.

    Ich hab es vll. bisher nicht direkt erwähnt, aber vorerst wird es nur einen PC geben. Im Unternehmen stehen zwar 2 Rechner, aber der zweite ist nur im Falle eines Ausfalles zur Nutzung gedacht. Sprich, die DB wird egal ob SQLite oder MySQL lokal auf dem Rechner laufen. Es wird jedoch mit Hilfe von Festplatten/NAS Systeme eine Datensicherung geben. Die Punkte dir mir momentan am meisten in den Gedanken vorschweben ist:

    - Multi-User in Zukunft (einer Inventarisiert Ware, der andere verkauft). Es muss quasi alle zwei Stunden Ware inventarisiert werden. Nebenbei müssen aber dennoch die Verkäufe weitergeführt werden. Sprich es sollte wahrscheinlich direkt auf Multi-User Fähigkeit geachtet werden. Das hat sich jetzt erst so langsam aber sicher herauskristalisiert.

    @chesstiger aber du siehst keinerlei Einschränkungen, wenn ich AutoIt mit MySQL nutze?

  • Professionelle eCommerce Software

    • Yaerox
    • 21. September 2015 um 23:50

    Leider konnte ich nicht wirklich eher hier eine Antwort geben. Viel um die Ohren derzeit :) Ich danke soweit für die vielen Antworten. Durch viele Gespräche ist nun raus gekommen, dass ein Online-Shop Zukunfts-Musik ist. Daher habe ich ein zeitlichen Puffer und kann mich noch mehr und mehr dort hinein-arbeiten.

    Zitat von Kanashius

    An sich sind fertige Lösungen ja schön... ich habe damit aber bisher meistens nur Probleme gehabt. Oft waren die so überladen, dass man ewig braucht, um herauszufinden, wo man was ändern kann,...
    Deshalb mach ich das meiste selbst (solange es halt nicht zu groß wird).

    Überladene Systeme kenne ich bereits leider auch nur zu gut. Einem Leien zu erklären, klicke nur diese Sachen an, und nicht den Rest ist oft nicht einfach. Ordentliche Systeme regeln dies aber durch Benutzerverwaltungen.

    Zitat von Andy

    Das schöne an "fertiger" Software ist, du bist rechtlich raus :D
    Das wären bei mir 99,8% auf der "Haben" Seite! Der absolut kümmerliche und vernachlässigbare Rest wie bspw. Usability, Administration, Einspielen von (Sicherheits)-Updates uswusf. kannst du ALLES auf deinen Auftraggeber abwälzen!
    Wenn dem dann irgendetwas später nicht passt, könnt ihr zusammen eine neue "fertige" Software suchen.

    Nichts ist schlimmer als vor den Kadi gezerrt zu werden, nur weil ein "selbstgeschnitztes" System zu einem betriebstechnischen Supergau geführt hat!

    Das ganze rechtliche ist bei mir zu 99% der Part bei dem sich meine Nackenhaare aufstellen. Daher ist die Tendenz so oder so be einer fertigen Software. Da ist auch die meiste Zeit der Recherche hinein geflossen, da gibt es aber auch verschiedene Modelle der Systeme. Da sich das nun zunächst aufschiebt, werde ich mich zu diesem Punkt besonders nochmal mit entsprechenden Leuten zusammen setzen und dort Informationen einholen. Bekannte für Erfahrungen sowie mit ANbietern der Software.

    Zitat von 4ern

    @Yarox wichtig für dein Frage ist es auch zu wissen, ob du dafür Geld ausgeben kannst?
    Ich habe schon einige Shops auf Wordpress mit Woocommerce erstellt, mit den Addon germanized, damit bist du auch Rechtlich zu 99 % fein raus aus der Sache.

    Das schöne an Wordpress ist, dass du viele modernere, Individuellere und schönere Designs für dein Kunden anbieten kannst und auf Webspace Anbieter deiner Wahl hosten kannst.

    Wenn du bereit bist sogar etwas Geld in die Hand zu nehmen, kann ich dir nur Envato Market empfehlen. Da bekommst du schon für ein absolut lächerlichen Betrag ein perfekt aufgearbeitetes und sehr gut dokumentiertes Theme mit Update Garantie und Support von den Entwicklern.

    Danke für den Tipp. Ich habe auch zuerst an Wordpress gedacht. Ich kenne einige Freelancer, die ausschließlich Wordpress Homepages erstellen und diese verkaufen. Gerade aus rechtlichen und Update-Gründen.

    Soweit Danke für die Antworten. Ich werde in Zukunft nochmal gerne auf das Thema zurück kommen wollen. Derzeit wird dies wahrscheinlich keine große Rolle spielen (für die nächsten 6-12 Monate).

  • WaWi in AutoIt - Projekt für AutoIt / SQLite zu groß?

    • Yaerox
    • 21. September 2015 um 20:13
    Zitat von AspirinJunkie

    Und der Artikelstamm wird nur lokal verwendet?Sollte es nicht eher eine zentrale DB für mehrere Clients geben?
    Ich habe keine Ahnung von Warenwirtschaftssystemen aber spontan hätte ich ein serverbasiertes DBMS bevorzugt (MariaDB oder PostgreSQL oder was kommerzielles wenn die Lizenzen da sind) gegenüber SQLite.
    Die kannst du auch alle über AutoIt ansprechen (z.B. über ADODB)

    Der Artikelstamm wird nur lokal verwendet. Mehrere Clients wird es vorerst nicht geben. Später vll. Guter Punkt, daher wäre die Wahl zur MySQL DB vll. nicht schlecht.

    Zitat von chesstiger

    Ich habe erst vor kurzem ein kleines Warenwirtschaftssystem in AutoIt geschrieben, allerdings eher als Testprojekt. Das Ganze baut auf nativem AutoIt und einer MySQL-Datenbank auf, ist also Multiclient-Fähig. Die Artikel werden erfahrungsgemäß ja nicht über das ListView direkt ausgewählt, sondern über eine Suchmaske. Dann ist die Darstellung auch kein Problem. Du musst bei einem so großen Projekt nur darauf achten, einem Programmier- und Strukturschema zu folgen. Sonst wird's schief gehen. Ich habe zum Beispiel jedes View, also jede GUI, in eine Unterdatei ausgelagert. So kann man ohne viel Suchen schnell Änderungen vornehmen. Auch die Ausgabe einer Rechnung als PDF ist ohne weiteres aus AutoIt heraus möglich. Die Welt der UDFs steht dir offen.

    Das Wawi soll für meinem Bruder sein. Der wird sich in naher Zukunft selbstständig machen. Daher ist leider keine Zeit das Wawi als "Testprojekt" zu entwickeln und zu schauen. Daher muss ich vorher jetzt gut überlegen, ob das was werden kann, oder nicht. Ein Struktur- und Programmierschema wird beibehalten, Neuentwicklung und vorherige Planung sind mir ausreichend bekannt. Mir ist halt wichtig, dass das Projekt auch längerfristg taugt. Kannst du mir vll. noch ein paar weitere Informationen/Einschätzungen geben, z.B.:

    - Ist AutoIt in Verbindung mit MySQL prinzipiell langsamer, als z.B. mit einer SQLite DB, oder gibt es da keine/wenige Unterschiede? Für mich z.B. scheint es so, als ob SQLite die DB ist, die AutoIt am nähsten steht. Ist das nicht so? Ich lasse mich gerne von anderen ERfahrungen überzeugen. Ich habe mit AutoIt noch nie in Verbindung mit einer anderen DB als SQLite gearbeitet.
    - Denkst du, dass prinzipiel auch ein Multi-Client-User betrieb einwandfrei funktionieren wird, oder hat AutoIt dir da bekannte Schwachstellen?

    Es gibt auch noch ein paar andere Dinge, die ich noch nie mit AutoIt gemacht habe, z.B. PDFs erstellen, was ein wichtiger Punkt wird. Hast du da vll. die Möglichkeit mir ggf. einige kleine Beispiele zu zeigen, bzw. weißt du, ob ich eine PDF erzeugen kann, aus einer Word-Vorlage (Rechnung mit Rechnungskopf, Logo etc.)?

  • WaWi in AutoIt - Projekt für AutoIt / SQLite zu groß?

    • Yaerox
    • 21. September 2015 um 09:59

    Das kann ich heute Nachmittag gerne mal ausprobieren. Bin jetzt bis 16 Uhr erstmal unterwegs. Nur mit dem Tool muss halt auch wirklich ein ganzen Tag gearbeitet werden. Ich muss da auch nochmal ein paar Tests machen zur Speicherfreigabe. In einem alten Projekt von mir gab es da Probleme, weil bei meiner Listview der Speicher nach dem löschen der Inhalte nicht 100%ig freigegeben worden war. Daher musste ich auf ListBoxen umsteigen. Das wäre hier aber nicht so toll ^^

  • WaWi in AutoIt - Projekt für AutoIt / SQLite zu groß?

    • Yaerox
    • 21. September 2015 um 00:09

    Hallo zusammen,

    ich habe vll. bald die Aufgabe ein kleines "Warenwirtschaftssystem" zu programmieren. Zunächst nur Artikel-Liste, Kunden-Daten, Kasse. Was geklärt werden muss:
    - AutoIt gut genug um die Datenmengen zu verarbeiten?
    - SQLite gut genug um die Datenmengen zu verarbeiten?
    Alternativen:
    - AutoIt und MySQL?
    - C# und MySQL/Oracle? Muss mich hier nochmal erkundigen, ich meine es gab eine etwas eingeschränke Version kostenfrei und legal vom Visual Studio.
    - Fertiges Produkt kaufen

    Dabei ist zusagen, dass voraussichtlich das Programm so ausschaut, das es 3 oder 4 verschiedene Masken gibt, die jeweils Listviews nutzen. Alle Daten werden/müssen in der Datenbank gespeichert (werden). Artikelstamm wird wahrscheinlich um die 10.000 Artikel werden.

    Hat jemand Erfahrungen oder Ratschläge für mich, ob das zu groß wird um es mit AutoIt zu lösen? Die GUIs etc. müssen nicht alle binnen 2 Sekunden reagieren, aber wenn ich mal mit meinem Skript ein weng rumspiele wird es ab 10.000 schon hart :D

    Alternativ kaufbare WaWi Systeme?

    Hoffe ihr habt ein paar Tpps für mich.


    AutoIt: Beispel-Skript
    #include <MsgBoxConstants.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    
    
    Local $aResult, $iRows, $iColumns, $iRval
    
    
    
    
        GUICreate("ListView Add Item", 800, 600)
        $idListview = GUICtrlCreateListView("", 10, 10, 780, 580)
        GUISetState(@SW_SHOW)
        _GUICtrlListView_InsertColumn($idListview, 0, "Column 1", 100)
        _GUICtrlListView_InsertColumn($idListview, 1, "Column 2", 100)
        _GUICtrlListView_InsertColumn($idListview, 2, "Column 3", 100)
        _GUICtrlListView_InsertColumn($idListview, 3, "Column 2", 100)
        _GUICtrlListView_InsertColumn($idListview, 4, "Column 3", 100)
        _GUICtrlListView_InsertColumn($idListview, 5, "Column 2", 100)
        _GUICtrlListView_InsertColumn($idListview, 6, "Column 3", 100)
        _GUICtrlListView_InsertColumn($idListview, 7, "Column 2", 100)
        _GUICtrlListView_InsertColumn($idListview, 8, "Column 3", 100)
        _GUICtrlListView_InsertColumn($idListview, 9, "Column 3", 100)
        _GUICtrlListView_InsertColumn($idListview, 10, "Column 3", 100)
    
    
    
    
    
    
    _SQLite_Startup()
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", "SQLite.dll Can't be Loaded!")
        Exit -1
    EndIf
    ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
    _SQLite_Open() ; Open a :memory: database
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Can't Load Database!")
        Exit -1
    EndIf
    
    
    If Not _SQLite_Exec(-1, "CREATE TABLE persons (a, b, c, d, e, f, g, h, i, j, k);") = $SQLITE_OK Then
    	MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    EndIf
    If Not _SQLite_Exec(-1, "CREATE TABLE persons2 (a, b, c, d, e, f, g, h, i, j, k);") = $SQLITE_OK Then
    	MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    EndIf
    
    
    Dim $aSpace[3]
    
    
    For $y = 0 To 1000 Step 1
    	$digits = 11
    	$query = ""
    	$pwd = ""
    
    
    	For $i = 1 To $digits
    		$aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
    		$aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
    		$aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
    		$pwd &= $aSpace[Random(0, 2, 1)]
    		If $i = 1 Then
    			$query = "'" & $pwd
    		Else
    			$query &= "', '" & $pwd
    		EndIf
    	Next
    
    
    	If Not _SQLite_Exec(-1, "INSERT INTO persons VALUES (" & $query & "');") = $SQLITE_OK Then
    		MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    	EndIf
    	If Not _SQLite_Exec(-1, "INSERT INTO persons2 VALUES (" & $query & "');") = $SQLITE_OK Then
    		MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
    	EndIf
    Next
    
    
    ; Query
    $iRval = _SQLite_GetTable2d(-1, "SELECT p.a, pp.b, p.c, pp.d, p.e, pp.f, p.g, pp.h, p.i, pp.j, p.k FROM persons p, persons2 pp;", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    	For $i = 0 To $iRows
    		_GUICtrlListView_AddItem($idListview, "Row 1: Col 1", $i)
    
    
    		For $y = 0 To $iColumns
    			_GUICtrlListView_AddSubItem($idListview, $i, "Row 1: Col 2", $y)
    		Next
    	Next
    
    
    Else
        MsgBox($MB_SYSTEMMODAL, "SQLite Error: " & $iRval, _SQLite_ErrMsg())
    EndIf
    
    
    _SQLite_Close()
    _SQLite_Shutdown()
    
    
    MsgBox(0, "", $iRows)
    
    
        ; Loop until the user exits.
        Do
        Until GUIGetMsg() = $GUI_EVENT_CLOSE
        GUIDelete()
    Alles anzeigen
  • Professionelle eCommerce Software

    • Yaerox
    • 17. September 2015 um 16:32

    Ich muss mich mal wieder in das Thema eCommerce arbeiten bezüglich der Erstellung eines Online-Shops in der KFZ-Teile Branche. Ich bin selber noch am recherchieren, aber dachte ich frag mal nach ob mir jemand von euch Software empfehlen kann aus eigenen Erfahrungen und vll. Vor-/Nachteilen aufzählt.

    Ich bin nicht abgeneigt eine fertige Lösung zu nutzen wie z.B. von Strato oder so, genauso wäre u.U. das selbstständige erstellen mit OpenSource Software möglich. Wichtig ist jedoch, der Shop muss vom Computer-Leien bedient werden können (administrativ), da ich den Shop nur erstellen würde. Da es für eine Firma sein wird sind somit rechtliche Absicherungen nicht unwichtig.

    Also meine Aufgabe ist es eine Lösung zu finden, wenn es keine fertige ist muss ich diese Umsetzen. Der Shop wird somit nicht für mich sein, ich erstelle den lediglich.

    Jemand Vorschläge? :)

    Erste Anläufe:
    - Strato Webshop
    - Wordpress mit entsprechenden AddOns?
    - osCommerce OpenSource Lösung
    - ...

  • Programm aus Toolbar wiederherstellen (maximieren)

    • Yaerox
    • 16. September 2015 um 13:53

    Ich habe grad leider nicht die Zeit um da was zu basteln, aber wenn Speedfan Konfigurationsdateien hat, hat es nicht auf Log-Dateien, über die man das ganze evtl. prüfen könnte? Eher unwahrscheinlich, das ein recht Namenhaftes Tool wie Speedfan Konfigurationen sporadisch verwirft.

    Edit: Für den Fall das der Fehler nicht bei dir liegt sondern wirklich am Tool, würde ich mir ggf. Gedanken machen ob ich nicht mal mit meinen Informationen mich an den Entwickler wende. Fehler reproduzierbar machen, klar strukturierte Schritte aufschreiben und n Bug-Report eröffnen. Sollte es so sein wird es behoben und du müsstest dir nun keine eigene Lösung basteln.

    Worauf ich jedenfalls hinaus will ist: automatisierungen okay schön und gut, aber von solchen Quick and Dirty Lösungen als "Überprüfung" würde ich tendenziell eher abraten.

  • Programm aus Toolbar wiederherstellen (maximieren)

    • Yaerox
    • 16. September 2015 um 12:00

    Mir ergibt sich nicht ganz was dein Ziel ist. Ich würde empfehlen das Vorhaben auszuformulieren, dann kann man die ggf. einen anderen Lösungsweg vorschlagen. Dazu immer Beispiel-Code posten wenn du welchen hast.

  • OnePlus 2

    • Yaerox
    • 14. September 2015 um 20:25

    Lol, nur die angemeldete Adresse kann das Handy bestellen. Sry. Das wurde nie erwähnt.-

  • OnePlus 2

    • Yaerox
    • 14. September 2015 um 20:21

    Habe einen Invite der gültig ist bis 18 Uhr morgen. @General Kaboom noch Interesse?

  • "Punktwolke" erstellen?

    • Yaerox
    • 14. September 2015 um 12:00
    Zitat von chip

    Warum noch einen dritte Koordinate?


    Ich denke @AspirinJunkie meint mit 3ter Koordinate die Verbindung zum "Nearest-Neighbour" damit du eben kein "Brute-Force" machen musst.

    Sry hatte nur die ersten 3 Beiträge als ich die Antwort schrieb.

  • Dateien umbenennen

    • Yaerox
    • 9. September 2015 um 11:46

    Quellcode das nächste mal bitte in ein Code-Tag packen bitte ;)

    Wenn es immer 5-stellige Zahlen sind, kannst du einfach ein StringMid( $sString, 1, 5 ) machen. Dann jede Zahl die du ermittelt hast in ein Array "pushen" und vorher natürlich immer fragen ob es bereits einen Eintrag mit selber Nummer gibt, wenn ja irgendwas anhängen und push. Zum Schluss Array auslesen und ausgabe produzieren.

    Update:

    AutoIt: ungetestet
    Local $aArray, $file, $dest, $i, $counter
    Local $search = FileFindFirstFile("*.jpg") ; vielleicht auch "*.jpg" ?
    
    
    ; Check if the search was successful
    If $search = -1 Then
    	MsgBox(0, "Error", "Es existieren keine Dateien")
    	Exit
    EndIf
    
    
    $i = 0
    $counter = 1
    While 1
    	$file = FileFindNextFile($search)
    	If @error Then ExitLoop
    
    
    	$dest = StringMid( $file, 1, 5 )
    	If $i <> 0 Then
    		For $y = 0 To UBound($aArray) - 1 Step 1
    			If $dest = $aArray[$y] Then
    				$counter++
    				$dest = $dest & $counter
    			EndIf
    		Next
    	EndIf
    	_ArrayAdd( $aArray, $dest )
    
    
    	FileMove($file,$dest & ".jpg")
    	;FileMove($file,StringReplace(StringReplace($file,"ß","ss")))
    WEnd
    FileClose($search)
    Alles anzeigen


  • String per Input auslesen und bearbeiten?

    • Yaerox
    • 8. September 2015 um 11:35

    Wenn es immer gleich bleibt, dass der 2te String nach dem Zeilenanfang der Suchbegriff ist, und immer der 13 String der Preis ist ist das möglich. Scheint mir net positionsgebunen zu sein. Tipps zur Umsetzung geb ich dir gerne wenn ein Mod den Thread durchwinkt (bez. Forenregeln, die du hoffentlich gelesen hast ;)).

  • Win2K-Server: STATUS_NO_SUCH_LOGON_SESSION

    • Yaerox
    • 4. September 2015 um 08:55

    Bin da mal sehr gespannt ob es das problem war. Aber wenn man sich mal grob das Problem und die Beschreibung durchliest, denke ich kann das auf jeden Fall hinkommen :thumbup:

  • Win2K-Server: STATUS_NO_SUCH_LOGON_SESSION

    • Yaerox
    • 3. September 2015 um 13:37

    Hat das WaWi oder die Datenbank Zugriffs-Logs, sodass man vll. durch zeitliche Abgleichungen rausfinden könnte, ob ein zugriff auf eine der Softwares den Fehler produziert?

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™