Werkstückzähler für mehrere unterschiedlichen Paletten

Hallo Zusammen

Ich möchte gerne auf einen BZ mit sin 840D Powerline (BJ2003)
einen Werkstückzähler einbinden.
Die Maschine hat einen Paletten Speicher mit 8 Paletten.
Dieser Zähler soll aber nur eine Bestimmte Palette Zählen.
Diese Teile werden aber nicht in einen Durchgang erzeugt.
Also wird dazwischen immer wieder eine Andere Palette eingewechselt
mit einer Anderen Programmnummer.

Ich habe die Variante mit freien R-Parameter gewählt.
(Unsere Maschine ist mit den UGUDs leider schon voll)

Ziel: Da aus Einen Rohteil verschiedene Werkstücke gemacht werden
soll nach erreichen der Stückzahl eine Meldung kommen
Nach dem erreichen der Stückzahl beginnt das Spiel wieder
von Vorne ( mit Reaktion des Bedienmann)

Meine Frage: Hat von euch schon jemand so was gemacht,
oder was und wie könnte ich noch verbessern??

P.S. Programm habe ich nicht getestet da diese Werkstucke
erst in ca. 2Wochen wiederkommen.

Danke Andy



;=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
R415 =120 ; Sollstückzahl Eingeben
;== == == == == == == == == == == == == == == == ==
R416 =4 ; Teile auf der Vorrichtung
;== == == == == == == == == == == == == == == == ==
R417 =1 ; 1= Mit Zählen
; 0= Ohne
;=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
; ===>> Bei Programmbeginn R-Parameter R420 mit Hand
; ===>> auf Null setzen.
; ===>> Zähler fängt von Vorne an !!!!
;-----------------------------------------------------
; Parametererläuterung
; R415= Sollstückzahl Eingeben
; R416= Teile auf der Vorrichtung
; R417= 1= Mit Zählen
; 0= Ohne
; R418= Noch zu Fertigen
; R420= Aktueller Zählerstand

;***********************************************************


;**********************************
MSG("Bearbeitung")
; blabla
; blabla
; blabla
G04 F3
MSG("")
;**********************************
;**************************************************************
; V:05_05 /30.03.2022 =============
; Ab Hier wird die Zählstrategie aktivieret
;==================================
If R417 == 0 GoToF _ohne_zaehlen_001
If R420 >= R415
;==============================================================
MSG("Stückzahl "<<R420<<" Erreicht")
;==============================================================
M00 ; Stückzahl Erreicht
stopre
R420=0
;==============================================================
MSG("R420 wurde genullt, weiter mit Starttaste")
;==============================================================
M00 ; R420 wurde genullt
else
R420=(R420+R416) ; Hochzählen
endif
;==============================================================
MSG("Noch "<<R415-R420<<" Stück fertigen")
;==============================================================
stopre
R418=(R415-R420) ; Noch zu fertigen
G04 F2
gotoF _mit_zaehlen_001
;_______________________
_ohne_zaehlen_001:
StopRe
;_______________________
_mit_zaehlen_001:
StopRe
;==================================
; Ab Hier wird die Zählstrategie Beendet
;==================================


M30