TPWrite "No of produced parts="\Num:=reg1; mit UIMessageBox machen???

var string Nachricht;
var num antwort;


Nachricht:="No of produced parts: "+ NumToStr(reg1,0);
antwort:=UIMessageBox(\Header:="Counter:", Nachricht \Buttons:=btnOK);

Aber das Programm wartet dann, dass man auf "ok" drückt. Erst danach schließt das Fenster wieder und die Sache geht weiter.

Grüße,
Michael

TPWrite "No of produced parts="\Num:=reg1;

und was ist daran so schlecht....?

Hi,
Ich habe so etwas ähnliches schon mal gemacht.
Allerdings mit einem Zykluszeit Zähler.
Das Geheimnis ist, den num-Value in ein String zu wandeln...
Hier ein Auszug was ich grade rausgesucht habe...
Hoffe hab auf die schnelle nichts vergessen

Musst du dir halt individuell anpassen...

MODULE …()
!Cycle time clock
VAR clock cCycleTime_Stapler;
VAR clock cCycleTime_WaitPickPart;
! string from last cycle stapler clipsing
PERS string sCycleStapler;
! string from last cycle wait to pick parts
PERS string sCycleWaitPickPart;
PROC …()
ClkReset cCycleTime_WaitPickPart;
ClkStart cCycleTime_WaitPickPart;
.
.
.
ClkStop cCycleTime_WaitPickPart;
sCycleWaitPickPart:=ValToStr(ClkRead(cCycleTime_WaitPickPart));
.
.
.
ClkReset cCycleTime_Stapler;
ClkStart cCycleTime_Stapler;
.
.
.
ClkStop cCycleTime_Stapler;
sCycleStapler:=ValToStr(ClkRead(cCycleTime_Stapler));
UIMsgBox\Header:="Zykluszeiten Roboter 3:letzter Zyklus:","Wartezeit Schweißvorrichtung bis Aufnahme nächstes Bauteil in sek.: \MsgLine2:=sCycleWaitPickPart\MsgLine3:="Benötigte Zeit zum Muttern Clipsen in sek.:"\MsgLine4:=sCycleStapler\MsgLine5:="ROBOTER 3 IN HOME POSITION:->WARTE AUF START NÄCHSTER ZYKLUS"\Buttons:=btnOk\Icon:=iconInfo\DIBreak:=di_CycleStart\BreakFlag:=err_var_s5;
ENDPROC
ENDMODULE

Ich hoffe das gibt dir einen Denkanstoß...

:ylsuper: