Hallo,
Ich möchte Barcodes scannen und daraus eine csv Datei erstellen. Diese wird benötigt um dann Etiketten zu drucken.
ich habe eine kleine GUI, 2 Inputfelder und ein Button.
Im ersten Inputfeld trage ich die Anzahl des Etiketts ein, wie oft es benötigt wird. Im zweiten Input kommt dann der Barcode rein.
Der Button wird betätigt sobald alle Barcodes eingelesen wurden.
Nun zu meinem Problem. Mit einem Barcode klappt es wunderbar. Aber ich möchte, das, nachdem ein Barcode eingetragen wurde und mit FileWriteLine geschrieben wurde, die beiden Inputfeld wieder geleert werden und ich die nächste Eingabe machen kann. Solange bis der Button gedrückt wird.
Leider kenne ich mich mit GUIs nicht aus und hoffe daher auf eure Unterstützung.
So sieht es bisher aus:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 316, 191, 192, 124)
$Label1 = GUICtrlCreateLabel("Labelmaker", 32, 24, 185, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Cooper Black")
$Label2 = GUICtrlCreateLabel("Anzahl", 32, 80, 36, 17)
$Input1 = GUICtrlCreateInput("1", 34, 96, 25, 21)
$Label3 = GUICtrlCreateLabel("Barcode", 88, 80, 44, 17)
$Input2 = GUICtrlCreateInput("", 88, 96, 121, 21)
$Fertig = GUICtrlCreateButton("Fertig", 32, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Datei erzeugen
Local $file = FileOpen("etiketten.csv",2)
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $Fertig
ExitLoop
EndSelect
WEnd
;Barcode in Werte aufteilen
$Barcode = GUICtrlRead($Input2)
$Artikelnr = StringLeft($Barcode,4)
$Nic = StringMid($Barcode,5,2)
$Size = StringRight($Barcode,2)
;Zeile schreiben
FileWriteLine($file, GUICtrlRead($Input1)&","&$Artikelnr&","&$Nic&","&$Size)
FileClose($file)Gruß Sascha