
Licznik sztuk jak zaprogramowac CK6432?????
Licznik sztuk Sinumerik 808D Tokarka CK6432
-
Autor tematu - Czytelnik forum poziom 1 (min. 10)
- Posty w temacie: 1
- Posty: 18
- Rejestracja: 01 sty 2011, 02:57
- Lokalizacja: Ostrów Wlkp.
Licznik sztuk jak zaprogramowac CK6432?????
Witam..napisałem program na tokarke Ck 6432 na Sinumeriku 808D w ISO z pociagaczem preta..wszystko pieknie ladnie ale jak zaprogramowac licznik zeby mi maszyna liczyla kazda ukonczona sztuk i zeby jej zadac np 20 szt i po tych 20-tu sztukach maszyna skonczyła prace???Pracuje ogolnie na fanucu i tam nie ma problemu z licznikiem..dzwonilem do sprzedawcy tej maszynu i powiedzial zeby napisac podprogram do liczby sztuk i ze nie posiada ona kodu M dla liczby sztuk ...moze mni ktos napisac jakis przykladowy program na ten licznik sztuk jak to ma wygladac
??? z góry dziekuje za jakakolwiek pomoc pozdrawiam

-
- ELITA FORUM (min. 1000)
- Posty w temacie: 1
- Posty: 1037
- Rejestracja: 01 kwie 2006, 22:08
- Lokalizacja: Wroclaw
- Kontakt:
Re: Licznik sztuk jak zaprogramowac CK6432?????
Tutaj przykład programu z pętlą FOR która powoduje wykonanie instrukcje wewnątrz pętli z góry określoną ilość razy. Za każdym razem wyświetlany jest komunikat o aktualnej liczbie wykonanych sztuk.
; PROGRAM DO WYKONANIA OKRESLONEJ LICZBY SZTUK ZE ZLICZANIEM IL SZTUK DO ZMIENNEj
DEF INT _ILSZT ; ILOSC SZTUK DO WYKONANIA
DEF INT _AKTILSZT ; AKTUALNA ILOSC SZTUK
DEF INT _K ; ZMIENNA POMOCNICZA
_ILSZT = 20 ; ILOSC POMIAROW
FOR _K =1 TO _ILSZT ; TO CO W PETLI WYKONUJEMY _ILSZT RAZY
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
_AKTILSZT=_AKTILSZT+1
MSG("AKTUALNA LICZBA SZTUK: " <<_AKTILSZT)
ENDFOR
M30
Dodane 52 minuty 16 sekundy:
Jeszcze możesz spróbować tego:
; PROGRAM DO WYKONANIA OKRESLONEJ LICZBY SZTUK ZE ZLICZANIEM ZA POMOCĄ ZMIENNEJ SYSTEMOWEJ
$AC_REQUIRED _PARTS = 20 ; TUTAJ WPISUJEMY ILE SZTUK MA SIĘ WYKONAĆ
$AC_ACTUAL_PARTS = 0;
START:
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
IF ($AC_ACTUAL_PARTS ==$AC_REQUIRED _PARTS )
GOTOF KONIEC
ELSE
GOTOB START
ENDIF
MSG("AKTUALNA LICZBA SZTUK: " <<$AC_ACTUAL_PARTS)
KONIEC:
M30
; PROGRAM DO WYKONANIA OKRESLONEJ LICZBY SZTUK ZE ZLICZANIEM IL SZTUK DO ZMIENNEj
DEF INT _ILSZT ; ILOSC SZTUK DO WYKONANIA
DEF INT _AKTILSZT ; AKTUALNA ILOSC SZTUK
DEF INT _K ; ZMIENNA POMOCNICZA
_ILSZT = 20 ; ILOSC POMIAROW
FOR _K =1 TO _ILSZT ; TO CO W PETLI WYKONUJEMY _ILSZT RAZY
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
_AKTILSZT=_AKTILSZT+1
MSG("AKTUALNA LICZBA SZTUK: " <<_AKTILSZT)
ENDFOR
M30
Dodane 52 minuty 16 sekundy:
Jeszcze możesz spróbować tego:
; PROGRAM DO WYKONANIA OKRESLONEJ LICZBY SZTUK ZE ZLICZANIEM ZA POMOCĄ ZMIENNEJ SYSTEMOWEJ
$AC_REQUIRED _PARTS = 20 ; TUTAJ WPISUJEMY ILE SZTUK MA SIĘ WYKONAĆ
$AC_ACTUAL_PARTS = 0;
START:
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
; TUTAJ INSTRUKCJE PROGRAMU
IF ($AC_ACTUAL_PARTS ==$AC_REQUIRED _PARTS )
GOTOF KONIEC
ELSE
GOTOB START
ENDIF
MSG("AKTUALNA LICZBA SZTUK: " <<$AC_ACTUAL_PARTS)
KONIEC:
M30
>>>>>>>>>> GELO <<<<<<<<<<