Hy @ ALL
Hab n risen problem !!!
hab n kleines skript laufen. funktioniert auch wunderbahr!!!
aber nach ner halben stunde kommt
folgende FEHLERMELDUNG
WARUM ??
siehe auch den ausschnitt meines programms
Spoiler anzeigen
Func manistart()
sleep(100)
Run($prg) ; starten vom mani programmierprogramm
sleep(100)
GUIDelete() ; Löschen des Hauptfensters
sleep(100)
guineu()
EndFunc
Exit
[/autoit] [autoit][/autoit] [autoit]Func guineu()
GUIDelete() ; Löschen des Hauptfensters
sleep(50)
GUICreate("Zählung korrigieren", 350,110,$guix,$guiy)
GUICtrlCreateLabel("Wenn ein Prüfling durch Sichtkontrolle als fehlerhaft" , 1,1)
GUICtrlCreateLabel("nochmal programmiert werden soll. Bitte - Stück +1 - drücken", 1,15)
$plus1 = GUICtrlCreateButton("Stück +1", 2,35 , 150)
$minus1 = GUICtrlCreateButton(" -1 ", 158,35 , 35)
$ende = GUICtrlCreateButton("BEENDEN", 199,35 , 150)
GUICtrlCreateLabel("Aktueller EAN-Code "&$eingabe, 0,70)
GUISetState(@SW_SHOW)
;sleep(10)
zaehlstart() ; sprung zu unterfunktion manistart
EndFunc
Exit
;--------------
Func zaehlstart()
sleep(100)
$msg2 = GUIGetMsg () ; Einlesen der Eingabe in die Variable $msg
;Sleep(50)
Select
case $msg2 = $plus1 ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
$stueck = $stueck + $eins
;guineu()
case $msg2 = $minus1 ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
$stueck = $stueck - $eins
;guineu()
case $msg2 = $ende ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
manikill()
EndSelect
;Sleep(100)
ToolTip("Momentan sind noch "&$stueck& " zu testen" ,$guix+1,$guiy+115) ; tooltip anzeige ( für Zählstatus )
Sleep(100)
[/autoit] [autoit][/autoit] [autoit]$wertdll = DllCall("inpout32.dll", "short", "Inp32", "short", "0x379")
[/autoit] [autoit][/autoit] [autoit];Sleep(50)
[/autoit] [autoit][/autoit] [autoit]$wert = $wertdll[0]
[/autoit] [autoit][/autoit] [autoit]Sleep(50)
[/autoit] [autoit][/autoit] [autoit]If $wert = $tasterhy Then
;Sleep(50)
tasteda() ; zu funktion Taste da
EndIf
Sleep(50)
zaehlstart() ; sprung zu...
EndFunc
[/autoit] [autoit][/autoit] [autoit]Exit
;-----------------------------------------
Func tasteda()
sleep(250)
$wertdll = DllCall("inpout32.dll", "short", "Inp32", "short", "0x379")
;Sleep(50)
$wert = $wertdll[0]
;Sleep(50)
If $wert = $tasterhy Then
;Sleep(50)
tasteda()
EndIf
;Sleep(50)
zaehlen()
EndFunc
[/autoit] [autoit][/autoit] [autoit]Exit
;-----------------
Func zaehlen()
;sleep(100)
$stueck = $stueck - $eins ; stückzahl um 1 verringern
;sleep(50)
IF $stueck = 0 then ; abfrage ob stückzahl = 0
;sleep(50)
manikill()
EndIf
;Sleep(50)
zaehlstart()
EndFunc
;exit
;-----------------
Func manikill()
GUIDelete()
;sleep(50)
WinKill("ManI-US2") ; mani schließen
;sleep(50)
WinKill("ManI")
if WinExists("ManI-US2")Then
manikill()
EndIf
if WinExists("ManI")Then
manikill()
EndIf
exit
EndFunc
DANKE
schon im vorraus