Hilfe bei Scannereingabe in ein Textfeld

kyloe

Moinsen,
vorab; sollte es eine Vorstellungsecke geben die ich nicht gefunden habe, bitte mich mit der Nase draufstoßen.^^

Mein Problem (bin blutiger Anfänger mit autoit):
Ich warte in einem Inputfeld auf eine Scannereingabe die einer Bedingung unterliegen soll: Nicht kleiner als x und nicht größer als y. (GTIN-Code)
Leider wird dies bei meinem Script völlig ignoriert.
Irgendwie hab ich da mind. ein Brett vor dem Kopf.

AutoIt

...
While 1
     $var = ControlGetText ( $fenster, "", $input_eti )
     Sleep(1000)
     If $var (($var < 4250000000000) Or ($var > 4350000000000)) Then
 	ControlSetText($fenster, "", $input_eti, "")
     Else
 	ExitLoop
     EndIf
WEnd
...

Alles anzeigen

Über einen Denkanstoß würde ich mich sehr freuen.
lg
Tom

**autoiter**

Hallo @kyloe,

ändere doch mal

AutoIt

If $var (($var < 4250000000000) Or ($var > 4350000000000)) Then

in

AutoIt

If $var < 4250000000000 Or $var > 4350000000000 Then

oder liegt es daran, dass in deiner Schleife abgebrochen wird, wenn der Wert mal nicht kleiner 4250000000000 oder größer 4350000000000 ist. Vielleicht ist dein Problem, dass der erste Wert innerhalb dieses ausgeklammerten Bereichs ist?

kyloe

@autoiter:
erstmal thx für die Aufmerksamkeit.
Leider funktioniert es auch ohne Klammern nicht. Sobald ich den Wert mit dem Scanner einlese wird das Feld wieder geleert (soll auch so), aber der Scriptablauf geht nicht weiter.
Egal ob ich 1, 100 oder 4250515105553 scanne.
Normalerweise sollte bei einem bestimmten Wertebereich die Schleife beendet werden.

**autoiter**

Oha, ja.
Ergänze deinen Code unter der Zeile mit ControlSetText noch um ein ExitLoop, damit auch in dem Fall die Schleife beendet wird.

AutoIt

ControlSetText($fenster, "", $input_eti, "")
ExitLoop

Zeitriss

Hi,

Wenn ich mich recht entsinne schicken Scanner häufig zum Abschluss ein bestimmtes Zeichen (z.B. @LF) oder?
In diesem Fall wäre es günstiger auf dieses Zeichen zu warten als ständig zu überprüfen ob alle Bedingungen erfüllt sind.
Es kann ja auch sein das du überprüfst wärend das Gerät grade schreibt und so gültige Werte ignoriert werden.

Hier mal ein Beispiel:

AutoIt

#include<GUIConstantsEx.au3>
; Aktiviert den OnEventMode (In der AutoIt hilfe gibt es eine Beschreibung hierzu)
Opt("GUIOnEventMode", 1)
; Erstellt das Eingabe Fenster sowie ein Inputfeld und ein Bestätigungsfeld
Global $hGUI = GUICreate("", 350, 20)
Global $hI_ETI = GUICtrlCreateInput("", 0, 0, 300, 20)
Global $hB_Ok = GUICtrlCreateButton("ok", 300, 0, 50, 20)
; In den nächsten 2 Zeilen wird angewiesen, dass der Button auf das Zeichen @lf reagieren soll
Global $aAccelerators[1][2] = [[@lf, $hB_Ok]]
GUISetAccelerators($aAccelerators)
; Hier wird der Button "ok" der Funktion "Check()" zugewiesen
GUICtrlSetOnEvent($hB_Ok, "Check")
; $GUI_EVENT_CLOSE entspricht der id des Schließen Buttons oben rechts,
; dieser wird der Funktion _exit() zugewiesen
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW, $hGUI)
While 1
   sleep(1000)
WEnd


; Diese Funktion wird aufgerufen, wenn jemand den "ok" Button drückt oder
; ein @lf Zeichen gesendet wird
Func Check()
   ; Liest den Inhalt der InputBox aus und wandelt diese in eine Zahl um
   Local $iInput = Number(GUICtrlRead($hI_ETI))
   If $iInput < 4250000000000 or $iInput > 4350000000000 Then
	  GUICtrlSetData($hI_ETI, "")
	  MsgBox(16, "", "Daten ungültig.")
   Else
	  MsgBox(0, "", "Eingabe erfolgreich.")
   EndIf
EndFunc


; Beendet das Programm
Func _exit()
   Exit
EndFunc

Alles anzeigen

mfg
Zeitriss

**autoiter**

Zitat von Zeitriss

Wenn ich mich recht entsinne schicken Scanner häufig zum Abschluss ein bestimmtes Zeichen (z.B. @LF) oder?

Guter Gedanke @Zeitriss!
Ja, das tun Scanner.

kyloe

Zitat von autoiter

Guter Gedanke @Zeitriss!Ja, das tun Scanner.

Genau
ich bin jetzt nicht mehr in der Firma, aber werde das morgen gleich testen .
Ich melde mich dann .

**Andy**

Zitat von Zeitriss

Local $iInput = Number(GUICtrlRead($hI_ETI))

Naja, mal wieder ein Versuch....
Wie so nicht einfach RICHTIG den Scanner abfragen und den gesendeten Code mittels Binary untersuchen?! Dann werden jedenfalls sämtliche gesendeten Zeichen angezeigt, incl. der nicht darstell(umwandel)baren! Je nach Tastaturemulation können beim Scannen diverse Zeichen mitgeschickt werden, das erlaubt u.a. auch die Erkennung/Unterscheidung, ob eine Tastatur oder ein Scanner angeschlossen/bedient wurden.

kyloe

Da bin ich wieder.
Den Code hab ich noch nicht eingebaut, aber zur Verdeutlichung hab ich mal ein Bild von der Problematik gemacht:

Zwischenablage01.jpg

Bei "1" wird der gescannte EAN-Code eingefügt
Bei "2" muss der Artikel markiert werden
Bei "3" der Button Etikett geklickt werden
Bei "4" erfolgt wieder eine Scannereingabe mit der Menge der zu druckenden Etiketten
Bei "5" der abschließende "OK"-Button

Danach soll das Ganze wieder auf Anfangsstellung. Wichtig für mich ist, dass ein Fehlscann nicht zum Druck von 4250615113152 Stück Etiketten führen kann und
auch das EAN-Feld nur einen Code innerhab eines Wertebereichs akzeptiert. So kann das narrensicher an einem Arbeitsplatz laufen. So die Theorie.

@Andy
Verstehen kann ich das nicht ganz mit dem "binary". Hier hilft mir auch nicht die Hilfe weiter...
Der Scanner ist auf EAN13 eingestellt und liefert auch den passenden Wert incl. abschließendem @LF.

Edit: Sorry, es ist ein "@CR" vom Scanner, was aber auch kein Problem ist.

kyloe

Damit ihr fürs Wochenende noch was zu lachen habt (oder zu weinen)^^
Das Script tut was es soll, aber auf Dauer wird es nicht gehen.

Wenn jemand Lust hat das Script zu professionaliesieren; bitte Bescheid geben (PN). Je nach Einsatz wäre ein Pfund Cashew in Schoki oder mehr drin.

AutoIt

Dim $fenster = "[CLASS:yy]"
Dim $input = "xx"
Dim $input_eti = "[CLASS:Edit; INSTANCE:5]"
Sleep(100)
WinActivate ($fenster)
ControlSetText($fenster, "", $input_eti, "")
MouseClick ("left" ,35, 76)


While True
MouseClick ("left" ,1759, 132)
While 1
 	$var = 0
     $var = ControlGetText ( $fenster, "", $input_eti )
     Sleep(Random(500,1000))
	 If ControlGetText ( $fenster, "", "[CLASS:Static; INSTANCE:5]") = 1 Then
		ControlSetText($fenster, "", $input_eti, "")
		ExitLoop
	 Else
		ControlSetText($fenster, "", $input_eti, "")
	 EndIf
WEnd
MouseClick ("left" ,1783, 194)
MouseClick ("left" ,1399, 658)
MouseClick ("left" ,1444, 411)
ControlSetText("Einstellungen für den Etikettendruck", "", "[CLASS:WindowsForms10.EDIT.app.0.3bb3978_r47_ad1; INSTANCE:1]", "")
Do
	$var1 = 0
	$var1 = ControlGetText ("Einstellungen für den Etikettendruck", "", "[CLASS:WindowsForms10.EDIT.app.0.3bb3978_r47_ad1; INSTANCE:1]")
	Sleep(Random(500,1000))
	If $var1 > 101 Then
		ControlSetText("Einstellungen für den Etikettendruck", "", "[CLASS:WindowsForms10.EDIT.app.0.3bb3978_r47_ad1; INSTANCE:1]", "")
	EndIf
Until $var1 > 0 And $var1 < 101


MouseClick ("left" ,1343, 509)
MouseClick ("left" ,1905, 131)
WEnd
Exit

Alles anzeigen

kyloe

So, nach ein bischen Feinschliff (soweit man das nennen kann) startet das Script pünktlich Montag zum Arbeitsbeginn.
Leider immer noch sehr amateurhaft, aber soweit passend.

Einen herzlcihen Dank an alle die mir ihre Aufmerksamkeit geschenkt haben und mit Tipps geholfen haben.

Soweit der Code:

AutoIt

global $fenster = "[CLASS:xyz]"
global $input_eti = "[CLASS:Edit; INSTANCE:5]"
global $eti = "Einstellungen für den Etikettendruck"
global $class_eti = "[TEXT:1; INSTANCE:1]"
if Not WinExists ($fenster) Then Exit
WinActivate ($fenster)
MouseClick ("left" ,37, 77)
While True
ControlClick ($fenster, "", 2365)   ;input leeren auf x
ControlClick ($fenster, "", 1384)
While 1
 	$var = 0
     $var = ControlGetText ( $fenster, "", $input_eti )
     Sleep(Random(500,1000))
	 If ControlGetText ( $fenster, "", "[CLASS:Static; INSTANCE:5]") = 1 Then
		ControlSetText($fenster, "", $input_eti, "")
		ExitLoop
	 Else
		ControlSetText($fenster, "", $input_eti, "")
	 EndIf
WEnd
MouseClick ("left" ,1159, 194) ;Datensatz markieren
ControlClick ($fenster, "", 1729)  ;eti Button
WinWait ($eti)
ControlClick($eti, "", $class_eti)
ControlSetText($eti, "", $class_eti, "")
Do
	$var1 = 0
	$var1 = ControlGetText ($eti, "", $class_eti)
	Sleep(Random(500,1000))
	If $var1 > 101 Then
		ControlSetText($eti, "", $class_eti, "")
	EndIf
Until $var1 > 0 And $var1 < 101
MouseClick ("left" ,772, 460)   ;button-ok eti
WinActivate ($fenster)
ControlClick ($fenster, "", 2365)   ;input leeren auf x
WEnd
Exit

Alles anzeigen