Exitloop wird nicht ausgeführt...

kyloe

Moinsen

Ich komme mit einem Script leider nicht weiter. Auf 2 Rechnern wird der loop ordnungsgemäß verlassen und auf einigen anderen nicht.

Alle Rechner laufen mit Win7. Es geht um die 2. Bedingung. Die 1. und die 3. werden auf allen Rechnern ordnungsgemäß verlassen.

(Sorry, bin noch Autoit-Anfänger, der nun etwas ratlos ist.^^)

Hier der elementare Teil des Scriptes:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
#include <MsgBoxConstants.au3>
While 1
; Fenster definieren
$Form1_1 = GUICreate("Eti-Scan", 320, 227, 399, 282)
$Input1 = GUICtrlCreateInput("EAN / Artikelnummer", 80, 68, 217, 21)
$Input2 = GUICtrlCreateInput("Charge", 80, 110, 153, 21)
$Input3 = GUICtrlCreateInput("Menge", 80, 149, 97, 21)
$Label0 = GUICtrlCreateLabel("Scan für Etiketten 0.90", 80, 16, 223, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("EAN", 8, 68, 40, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Charge", 8, 109, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Menge", 8, 148, 58, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
; Eingabe auf 13 Stellen prüfen
    While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input1
            Sleep(500)
            $ean = GuiCtrlRead($Input1)
            If StringLen($ean)<>13 Then
                ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:1]", "")
                ControlClick("Eti-Scan", "","[CLASS:Edit; INSTANCE:1]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd
; Charge Eingabe 8 Zeichen
ControlClick ("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:2]", "")
    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd
; Mengeneingabe 1-100
    While 4
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input3
            Sleep(500)
            $menge = GuiCtrlRead($Input3)
                If ($menge) > 101 Then
                    ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:3]", "")
                    ControlClick("Eti-Scan", "","[CLASS:Edit; INSTANCE:3]")
                Else
                    ExitLoop
                EndIf
    EndSwitch
    WEnd
MsgBox($MB_SYSTEMMODAL, "Schleife", "Schleife Ende")
GUIDelete("Eti-Scan")
WEnd
MsgBox($MB_SYSTEMMODAL, "Exit", "Exit")
Exit

Alles anzeigen

**BugFix**

Oui, oui, oui

bevor ich irgendwie näher auf dein Problem eingehe: Schau dir bitte mal die Bsp. zu GuiCreate etc. an.

Du erstellst in einer Schleife immer wieder GUI und Controls! Das macht man einmalig vor dem Mainloop.

Alle anderen Probleme resultieren mit Sicherheit daraus.

Was soll übrigens dein While 1, While 2, ... bedeuten? Ich vermute dir ist die Funktion der Schleifen nicht ganz klar. Du brauchst nur eine einzige Schleife in der du alle Ereignisse auswertest.

kyloe

Thx BugFix für deine Aufmerksamkeit. Mir ist schon bewust, dass mein Konstrukt nicht optimal ist. Dafür werkelt das schon seit 12/2016 zuverlässig jeden Werktag auf 2 Rechnern. Nun soll ein weiterer Rechner dazu und genau auf dem geht es nicht....warum auch immer.

Mit der einen Schleife verstehe ich (logischerweise) nicht. Ich muß doch bei jedem Eingabefeld auf den input warten um dann zum nächsten Eingabefeld zu springen, oder? Wie kann ich das mit einer Schleife erledigen?

**BugFix**

Hier mal ein Skript aus meiner Sammlung, zum Wechseln von Ctrl zu Ctrl mittels ENTER.

Das Skript arbeitet im OnEventMode. Da kannst du deine Aläufe entsprechend anpassen und integrieren.

C

;-- TIME_STAMP   2012-06-03 18:11:17


#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
OnAutoItExitRegister('OnAutoItExit')

Global $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Global $hmod = _WinAPI_GetModuleHandle(0)
Global $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
Global $active = False, $gui, $ID_lastFocus = 0
Enum $i1, $i2, $c1, $i3, $c2, $i4, $n ; <== hier die Reihenfolge, wie der Fokus 'wandern' soll ($n ist Zähler für Anz. Ctrl)
Global $a[$n]

$gui = GUICreate('')
GUISetOnEvent(-3, '_ende')
$a[$i1] = GUICtrlCreateInput('', 10,10,40)
$a[$i2] = GUICtrlCreateInput('', 60,10,40)
$a[$c1] = GUICtrlCreateCombo('', 110,10,40)
$a[$i3] = GUICtrlCreateInput('', 160,10,40)
$a[$c2] = GUICtrlCreateCombo('', 210,10,40)
$a[$i4] = GUICtrlCreateInput('', 260,10,40)
GUISetState()


While 1
    If BitAND(WinGetState($gui), 8) Then
        $active = True
    Else
        $active = False
    EndIf
    Sleep(100)
WEnd

Func _ende()
    Exit
EndFunc

;===========================================================
; callback function
;===========================================================
Func _KeyProc($nCode, $wParam, $lParam)
    Local $tKEYHOOKS, $vkCode, $ID, $index
    $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    If $nCode < 0 Or Not $active Then Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
    $vkCode = DllStructGetData($tKEYHOOKS, "vkCode")
    If $wParam = $WM_KEYDOWN And $vkCode = 13 Then ; ENTER gedrückt
        $ID = _WinAPI_GetDlgCtrlID(ControlGetHandle($gui, '', ControlGetFocus($gui)))
        ; Für ComboBoxen kann NICHT der Fokus abgefragt werden, da dieser auf dem Input-Ctrl der ComboBox liegt.
        ; Hier muߠin der Instanz-Reihenfolge mit dem Wert des letzten Ctrl verglichen werden.
        ; Die Reihenfolge der Erstellung in der GUI ist egal, da der Fokus für die enumerierte Reihenfolge der Ctrl-Variablen
        ; weitergesetzt wird.
        ; Falls eine ComboBox als letztes Ctrl in der Folge erscheint, muss dies in der Abfragelogik berücksichtigt werden.
        If _WinAPI_GetClassName($ID) <> 'Edit' Then
            ; Variante 1: über Class+Instance
            $ID = _WinAPI_GetDlgCtrlID(ControlGetHandle($gui, "", "[CLASS:ComboBox; INSTANCE:1]"))
            If $ID_lastFocus > $ID Then $ID = _WinAPI_GetDlgCtrlID(ControlGetHandle($gui, "", "[CLASS:ComboBox; INSTANCE:2]"))
            ; Variante 2: über Enumerations-Reihenfolge der ComboCtrls
;~             $ID = $a[$c1]
;~             If $ID_lastFocus > $ID Then $ID = $a[$c2]
        EndIf
        $index = _ArraySearch($a, $ID)
        If @error Then Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
        If $index < UBound($a)-1 Then
            GUICtrlSetState($a[$index +1], $GUI_FOCUS)
            $ID_lastFocus = $a[$index +1]
        Else
            GUICtrlSetState($a[0], $GUI_FOCUS)
            $ID_lastFocus = $a[0]
        EndIf
    EndIf
    Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc

Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hHook)
    DllCallbackFree($hStub_KeyProc)
EndFunc

Alles anzeigen

Musashi

Zitat von kyloe

Mir ist schon bewusst, dass mein Konstrukt nicht optimal ist. Dafür werkelt das schon seit 12/2016 zuverlässig jeden Werktag auf 2 Rechnern.

Die Qualität des 'Konstruktes' lasse ich auch erst mal außen vor .

Möglicherweise bin ich gerade etwas begriffsstutzig, aber was genau werkelt da vor sich hin ?

- Du hast drei Eingabefelder, die Du nach gewissen Regeln prüfts (also EAN=13 Stellen usw.)

- entspricht die Eingabe nicht der jeweiligen Regel, dann wird das Feld auf 'leer' gesetzt.

So weit, so gut - aber was passiert dann mit den Werten ?

Zur Zeit kann man das Skript lediglich per $GUI_EVENT_CLOSE ([X]) verlassen.

(Nebenbei : handelt es sich um das komplette Skript, oder um eine verkürzte Testvariante ?)

Zitat von kyloe

Auf 2 Rechnern wird der loop ordnungsgemäß verlassen und auf einigen anderen nicht.

Irgendwelche (Fehler-)meldungen ?

Gruß Musashi

kyloe

BugFix

Boa, da werde ich mich reichlich nachschulen müssen, um dein Script-Vorschlag zu verstehen, aber ich werde es versuchen. (darf ich ja in der Arbeitszeit)

@Musashi

ja ja, kloppt ruhig auf mich ein. Ich bin halt noch echt am Anfang. Im Dez. 2016 hab ich ein Script "gepopelt", was bis heute in unserem Betrieb extrem wichtig ist.

Die Aufgabe des kompletten Scriptes ist folgende:

Von einem Sack mit z.B. Zucker werden folgende Strichcodes genommen:

--> EAN (GTIN) für die Endverbraucherpackung

--> Charge für die Rückverfolgbarkeit

--> Menge der zu druckenden Etiketten

(In meinem verkürzten Testscript habe ich nur mein akutes Problem eingekreist.)

Die Werte werden an eine Warenwirtschaft übergeben und dann "on the fly" die Artikeletiketten gedruckt. Das machen wir seit Jahren und mein "Super-Script" arbeitet

vllt. schmutzig, aber sehr effektiv. Ein Hoch auf AutoIt!

Die Prüfung der Werte ist natürlich notwendig, dass keine falschen Eingaben möglich sind. Fehlermeldungen gibt es, auch bei den nicht funktionierenden Rechnern, nicht.

Es bleibt einfach bei dem Feld Charge, liest ein, Cursor am Ende der Charge und das war es.

Edit:

Die Loops bei EAN und Menge werden ausgeführt.

Musashi

Zitat von kyloe

Musashi
ja ja, kloppt ruhig auf mich ein. Ich bin halt noch echt am Anfang. Im Dez. 2016 hab ich ein Script "gepopelt", was bis heute in unserem Betrieb extrem wichtig ist.

Niemand 'kloppt' auf Dich ein .

Dass es sich um ein verkürztes Testskript handelt und dass es um das Einlesen von Barcodes ging, hatte ich mir bereits gedacht - lag ja auch nahe.

Ein Lesegerät sendet die Inputs wahrscheinlich an die GUI als wären es Tastatureingaben.

Funktioniert das auch mit dem Testskript (bei den PC's wo es generell läuft) ? Falls ja, könnte man diesen Teil optimieren und später in das 'echte' Skript übernehmen.

Gibt es ein identisches Fehlverhalten auf den Problem-PC's ?

Wie unterscheiden sich die Problem-PC's bzgl. Betriebssystem, 32-Bit/64-Bit, Treiber(Lesegerät) usw. von den anderen ? Möglicherweise liegt ja auch hier der Hund begraben.

Gruß Musashi

**autoBert**

Diie Analyse von:

Code

    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd

Alles anzeigen

lässt nur 2 Schlüsse zu:

Die Eingabe erfolgt nicht in $Input2 (unwarscheinlich, da es in den beiden anderen Inputs ja klappt)
Der StringRegExp löst einen Error aus (auch unwarscheinlich, da es an 2 anderen Arbeitsplätzen klappt)

Um das Geheimnis zu lüften kannst du zu Debugzwecken MsgBoxen einbauen:

Code

    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            MsgBox(0, 'Input2', 'Eingabe erfolgt!')
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!')
                ExitLoop
            EndIf
    EndSwitch
    WEnd

Alles anzeigen

mfg (auto)Bert

kyloe

@Musashi

Lasse ich das Testscript auf den 2 "guten" Rechnern laufen - tut ... auf den Problem-PC stoppt es immer bei "Charge".

PCs sind alle Win7 64bit, aber die Lesegeräte (Scanner) sind unterschiedlich. Ich hab dann mal einen Scanner vom Gut-PC an einen Problem-PC gehangen und....

...es tut!

Im Notepad++ hab ich gesehen, dass der eine "gute" Scanner mit "TAB" terminiert, der andere mit "CR LF". (meine Verwirrung wächst^^)

Genau das "CR LF" machen auch meine anderen Scanner, aber mit denen funktioniert es nicht. Leider lassen die sich nicht zu einem Termination-String "single TAB" überreden.

Die Tage bekomme ich 2 weitere Scanner, die ich dann hoffentlich zu einer brauchbaren Zusammenarbeit überreden kann.

kyloe

autoBert

Ich hab das mal so übernommen, aber auf den Problem-PCs stellt sich das wie im screen dar. Es erfolgt einfach kein exitloop.

(NB: nehme ich als "Charge" ein falsches Format, greift der regex wie er soll.)

Zwischenablage01.jpg

Tuxedo

Versuche doch mal nachzusehen wie $Charge aussieht, also nach der Zeile $Charge = GuiCtrlRead($Input2)

einfach mal eine Mesagebox einfügen Msgbox(0, "Input2", $Charge,3)

Wenn hier dein erwartetes Ergebnis rauskommt, aber evtl zweizeilig ist oder sonst irgendein Zeichen zuviel dranhängt,

könntest du dir damit behelfen, nach der Zeile $Charge = GuiCtrlRead... folgende Zeile einzufügen

$Charge = StringLeft($Charge,8), denn deinem Script nach zu urteilen sollte $Charge immer 8 Zeichen lang sein, dann sollte es

auch mit dem schlechten Scanner funktionieren.

**autoBert**

Dann ändere einmal zu:

Code

     While 3
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Input2
                MsgBox(0, 'Input2', 'Eingabe erfolgt!', 5)
                $charge = GUICtrlRead($Input2)
                ; Erste Bedingung
                Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
                If @error Then
                    MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                    ; Zweite Bedingung
                    ;If StringLen($charge)<>8 Then
                    ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                Else
                    ExitLoop
                EndIf
        EndSwitch
    WEnd 
    MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!', 5)
;    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")

Alles anzeigen

Außerdem noch die beiden aderen sleeps etfernen, da unnötig.

Falls die MsgBox EXITLOOP erscheint sich aber trotzdem nichts tut einfach die letzte Zeile aktivieren. ContrrolClick verwendest du ja auch um in das Input für Charge zu wechseln.

mfg (auto)Bert

Musashi

Zitat von kyloe

Im Notepad++ hab ich gesehen, dass der eine "gute" Scanner mit "TAB" terminiert, der andere mit "CR LF". (meine Verwirrung wächst^^)

Genau so etwas hatte ich erwartet, also ein vom jeweiligen Lesegerät abhängiges Verhalten.

Hier Dein Originalcode mit einigen Konsolenausgaben des Editors (also im Editor starten F5) :

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
#include <MsgBoxConstants.au3>


While 1
; Fenster definieren
$Form1_1 = GUICreate("Eti-Scan", 320, 227, 399, 282)
$Input1 = GUICtrlCreateInput("EAN / Artikelnummer", 80, 68, 217, 21)
$Input2 = GUICtrlCreateInput("Charge", 80, 110, 153, 21)
$Input3 = GUICtrlCreateInput("Menge", 80, 149, 97, 21)
$Label0 = GUICtrlCreateLabel("Scan für Etiketten 0.90", 80, 16, 223, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("EAN", 8, 68, 40, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Charge", 8, 109, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Menge", 8, 148, 58, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
; Eingabe auf 13 Stellen prüfen
    While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input1
            Sleep(500)
            $ean = GuiCtrlRead($Input1)
            ConsoleWrite('@@ Debug : $ean = <' & GuiCtrlRead($Input1) & '>' & @CRLF)
            ConsoleWrite('@@ Debug : $ean Binary = <' & Binary(GuiCtrlRead($Input1)) & '>' & @CRLF)


            If StringLen($ean)<>13 Then
                ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:1]", "")
                ControlClick("Eti-Scan", "","[CLASS:Edit; INSTANCE:1]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd
; Charge Eingabe 8 Zeichen
ControlClick ("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:2]", "")
    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ConsoleWrite('@@ Debug : $charge = <' & GuiCtrlRead($Input2) & '>' & @CRLF)
            ConsoleWrite('@@ Debug : $charge Binary = <' & Binary(GuiCtrlRead($Input2)) & '>' & @CRLF)

            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd
; Mengeneingabe 1-100
    While 4
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input3
            Sleep(500)
            $menge = GuiCtrlRead($Input3)
            ConsoleWrite('@@ Debug : $menge = <' & GuiCtrlRead($Input3) & '>' & @CRLF)
            ConsoleWrite('@@ Debug : $menge Binary = <' & Binary(GuiCtrlRead($Input3)) & '>' & @CRLF)

                If ($menge) > 101 Then
                    ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:3]", "")
                    ControlClick("Eti-Scan", "","[CLASS:Edit; INSTANCE:3]")
                Else
                    ExitLoop
                EndIf
    EndSwitch
    WEnd
MsgBox($MB_SYSTEMMODAL, "Schleife", "Schleife Ende")
GUIDelete("Eti-Scan")
WEnd
MsgBox($MB_SYSTEMMODAL, "Exit", "Exit")
Exit

Alles anzeigen

Ich bin mir aber nicht sicher, ob Binary(GuiCtrlRead($Input1) die Terminierungssequenz anzeigt .

Alternativ könntest Du auch einfach auf die passenden Scanner warten, aber das wäre aus Sicht eines Programmierers natürlich Ketzerei -

Gruß Musashi

kyloe

@Musashi

schon mal vorab das debug:

@@ Debug : $ean = <4250615119604>

@@ Debug : $ean Binary = <0x34323530363135313139363034>

@@ Debug : $charge = <143291HU>

@@ Debug : $charge Binary = <0x3134333239314855>

@@ Debug : $menge = <1>

@@ Debug : $menge Binary = <0x31>

**autoBert**

Bin mir mittlerweile sicher das du Menge so wie Charge (dort macht du es) vorbereiten solltest:

Code

    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]", "")

Der ControlClick setzt den Eingabecursor, das leere Eingabefeld scheint erwünscht.

mfg (auto)Bert

kyloe

autoBert

Hab ich gemacht, aber der Effekt ist der Gleiche: Der Loop wird nicht beendet.

Was funktioniert, aber wirklich ganz, ganz schmutzig ist (ich trau mich kaum und will das nicht wirklich )

(Da wird der Loop nach dem "else" beendet)

Code

     While 3
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Input2
                Sleep(500)
                $charge = GuiCtrlRead($Input2)
                Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
                If @error Then
                    ;MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                Else
                    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
                    ControlSetText("Eti-Scan", "","[CLASS:Edit; INSTANCE:3]", "")
                EndIf
                    ExitLoop
        EndSwitch
        WEnd

Alles anzeigen

Zitat von autoBert

Dann ändere einmal zu:

Code

     While 3
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Input2
                MsgBox(0, 'Input2', 'Eingabe erfolgt!', 5)
                $charge = GUICtrlRead($Input2)
                ; Erste Bedingung
                Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
                If @error Then
                    MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                    ; Zweite Bedingung
                    ;If StringLen($charge)<>8 Then
                    ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                Else
                    ExitLoop
                EndIf
        EndSwitch
    WEnd 
    MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!', 5)
;    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")

Alles anzeigen

Außerdem noch die beiden aderen sleeps etfernen, da unnötig.

Falls die MsgBox EXITLOOP erscheint sich aber trotzdem nichts tut einfach die letzte Zeile aktivieren. ContrrolClick verwendest du ja auch um in das Input für Charge zu wechseln.

mfg (auto)Bert

Musashi

Zitat von kyloe

schon mal vorab das debug:

OK, Danke - so geht es also schon mal nicht (blöd wenn man kein Referenzgerät zum Testen hat).

Gruß Musashi

EDIT : BugFix - Wäre dieser Thread ggf. nicht besser in H&U aufgehoben ?

kyloe

Zitat von Tuxedo

Versuche doch mal nachzusehen wie $Charge aussieht, also nach der Zeile $Charge = GuiCtrlRead($Input2)
einfach mal eine Mesagebox einfügen Msgbox(0, "Input2", $Charge,3)
Wenn hier dein erwartetes Ergebnis rauskommt, aber evtl zweizeilig ist oder sonst irgendein Zeichen zuviel dranhängt,
könntest du dir damit behelfen, nach der Zeile $Charge = GuiCtrlRead... folgende Zeile einzufügen
$Charge = StringLeft($Charge,8), denn deinem Script nach zu urteilen sollte $Charge immer 8 Zeichen lang sein, dann sollte es
auch mit dem schlechten Scanner funktionieren.

Alles anzeigen

Danke, hatte ich schon mal gemacht - alles gut. Es sind ja die Steuerzeichen, die vermutlich Probleme machen.

Was ich immer noch nicht verstehe: Warum geht es mit dem exitloop nach dem else bei den Inputs "EAN" und "Menge", aber nicht bei Charge?

**autoBert**

Zitat von kyloe

Was ich immer noch nicht verstehe: Warum geht es mit dem exitloop nach dem else bei den Inputs "EAN" und "Menge", aber nicht bei Charge?

Nach EAN wird der Cursor mit CotrolClick auf das Chargen-Input gesetzt

Nach Menge wird die GUI gelöscht und neu aufgebaut, Cursor ist daher in EAN.

Wenn du nach Charge den Cursor mit ControlClick auf Menge setzt funktioniert auch das.

mfg (auto)Bert

kyloe

So, thx @ all - Mein 3. Rechner läuft als Arbeitsplatz zum Etikettendruck zumindest aus Bedienersicht einwandfrei.

Sorry nochmal an BugFix für meinen abartigen Code (sehe ich auch so) ... ich hoffe, ich darf wiederkommen.

@Musashi thx für die Anregung für den binär-Code aus dem Scanner. Da werde ich mich näher mit beschäftigen (müssen).

lg

Exitloop wird nicht ausgeführt...

Raupi 15. August 2019 um 20:11

Ähnliche Themen

QuickAccess Objekt

Frage zu CUI EXE Fenster

Umbenannt: Installierte Drucker Remote auslesen

BitOperations64