REFERENCE XYZ; STOP .
{***************************************************** PB29
Erlauterung Zum PALBeispeilprogramm:E/ A_Erweiterungseinheit seite 24 uten byteweises lesen eines Port der E/A_Erweiterung
***********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(3000), 50(3000), 30(3000),20(3000);
MOVE 40(3000), 40(3000),5(1000), 0(1000);
ON_PORT 65531, 128 = 10, 3;
Có thể bạn quan tâm!
- _ Thông Báo Lỗi Của Chương Trình Soạn Thảo
- Điều khiển máy khoan mạch in CNC dùng động cơ bước - 9
- Điều khiển máy khoan mạch in CNC dùng động cơ bước - 10
Xem toàn bộ 97 trang tài liệu này.
ON_PORT 65531, 128 = 0, 2;
ON_PORT 65531, 128 = 205, 4;
MOVE 60(6000), 60(6000), 30(3000), 0(3000); REFERENCE XYZ;
STOP .
{*******************************************************PB31 Anwendungsbeispiel: Programmwaheit Art.Nr.1783
Programm "Pb31" zur Interface_karte ubertragen subD_Buchse von der Interfacekaarte abziechen und Programmwaheinheit anschlieben
STAART_TASTER durcken und die tasten F1 bis F12 sind funktionsbereit
***********************************************************}
#AXIS XYZ;
#DEFINE ( ) (21);
#ELVE 4, 4, 4; ANFANG; REPEAT
ON_KEY 1, REFERENCE Z; ON_KEY 2, FAHREZ;
ON_KEY 3, FAHREZ;
ON_KEY 4, FAHREZXY;
ON_KEY 5, FAHREY;
ON_KEY 6, FAHREXY;
ON_KEY 7, FAHREX;
ON_KEY 8, REFERENCEZ;
ON_KEY 9, FAHREX;
ON_KEY 10, FAHREXY;
ON_KEY 11, FAHREY;
ON_KEY 12, FAHREXY;
UNTIL 0;
FAHREZ: MOVE 0( ), 0( ), 1(2000), 0( ); GO TO ANFANG;
FAHREZ: MOVE 0( ), 0( ), 1(2000), 0( ); GO TO ANFANG;
FAHREXY: MOVE 10(2000 ), 10(2000 ), 0( ), 0( ); GO TO ANFANG;
FAHREX: MOVE 10(2000 ), 0( ), 0( ), 0( ); GO TO ANFANG;
FAHREXY: MOVE 10(2000 ), 10(2000 ), 0( ), 0( ); GO TO ANFANG;
FAHREX: MOVE 0( ), 10(2000 ), 0( ), 0( ); GO TO ANFANG; FAHREZ: REFERENCE XYZ; GO TO ANFANG;
FAHREY: MOVE 0( ), 10(2000 ), 0( ), 0( ); GO TO ANFANG;
FAHREXY: MOVE 10(2000 ), 10(2000 ), 10(2000), 0( ), 0( ); GO TO ANFANG;
FAHREX: MOVE 10(2000 ), 0( ), 0( ), 0( ); GO TO ANFANG;
FAHREXY: MOVE 10(2000 ), 10(2000 ), 0( ), 0( ); GO TO ANFANG; END.
STOP.
{****************************************************** PB32 Anwendungsbeispiel: Interfacekart mit E/A_Erweiterungseinheit Programm zum Testen der E/A Einheit
Programm mit den Befehl "TRNFER" im window_menue zur Interfacekart ubertragen. Nach erfolgreicher ubertragung und compierung solten sie den Befehl "COMMUNICATION" im window_menu aufrufen. Nun betatigen sie die "START" Taste und in window wird "PORT = 0" angezeigt, ercheint die meldung "PORT = 1". Schalten sie nun auf alle Eingange nacheianander die Meldung "PORT = 1, 2, 3, 4, 5, 6, 7, 8" KOMMEN. Schalten sie nur Eingang 7 (bit 7) leuchten zunachst die LED'STOP am Ausgangsport I nacheinande auf, anschliebend am Ausgangsport II.
Dieser vorgang wiederholt sich nocheinmal
Schalten sie nur Eingang 8 (bit 8), leuchten zunachst die LED am Ausgangsport I nacheinander auf, verfahibewegung X_Achse und aufleuchten der LED'STOP am Ausgangsport II nacheiander
Dieser vorgang wiederholt sich noch eininol
***********************************************************}
#AXIS X;
#ELEV 2;
#DEFINE M MOVE 1(9000);
#DEFINE L MOVE 1(9000)
#DEFINE INPUT ON_PORT 65531, 128 = ;
#DEFINE P1 SET_PORT 65529, 128 = ;
#DEFINE P SET_PORT 65530, 128 = ;
#DEFINE T TIME 3;
#DEFINE T1 TIME 2; START :
PULSE IN; TIME 5;
INPUT 0, A;
INPUT 1, B;
INPUT 3, C;
INPUT 7, D;
INPUT 15, E;
INPUT 31, F;
INPUT 63, G;
INPUT 127, H; INPUT 255, I ; INPUT 128, K;
INPUT 64, N;
A: SEND 80; SEND 79; SEND 82; SEND 61; SEND 48; SEND 13; GOTO START ;
B: SEND 80; SEND 79; SEND 82; SEND 61; SEND 49; SEND 13; GOTO START ;
C: SEND 80; SEND 79; SEND 82; SEND 61; SEND 49; SEND 44; SEND 50; SEND 13; GOTO START ;
D: SEND 80; SEND 79; SEND 82; SEND 61; SEND 49; SEND 44; SEND 50; SEND
44; SEND 51; SEND 13; GOTO START ;
E: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 49; SEND 44; SEND
50; SEND 44; SEND 51; SEND 44; SEND 52; SEND 13; GOTO START ;
F: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 49; SEND 44; SEND
50; SEND 44; SEND 51; SEND 44; SEND 52; SEND 44; SEND 53; SEND 13; GOTO START ;
G: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 49; SEND 44; SEND
50; SEND 44; SEND 51; SEND 44; SEND 52; SEND 44; SEND 54; SEND 13; GOTO START ;
H: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 49; SEND 44; SEND
50; SEND 44; SEND 51; SEND 44; SEND 52; SEND 44; SEND 53; SEND 44;
SEND 54; SEND 44; SEND 55; SEND 13; GOTO START ;
I: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 49; SEND 44; SEND
50; SEND 44; SEND 51; SEND 44; SEND 52; SEND 44; SEND 53; SEND 44;
SEND 54; SEND 44; SEND 55; SEND 44; SEND 56; SEND 13; GOTO START ;
K: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 56; SEND 13; GOTO START ;
REFERENCE X; REPEAT
P1 1; T;
P1 2; T;
P1 4; T;
P1 8; T;
P1 16; T;
P1 32; T;
P1 64; T;
P1 128; T;
P1 0; T;
P 1; M; T1;
P 2; L; T1;
P 4; M; T1;
P 8; L; T1;
P 16; M; T1;
P 32; L; T1;
P 64; M; T1; P 128;L ; T1; P 0; T1;
UNTIL 2; GOTO START ;
N: SEND 80; SEND 79; SEND 82; SEND 84; SEND 61; SEND 55; SEND 13; REPEAT
P1 1; T;
P1 3; T;
P1 7; T;
P1 15; T;
STOP .
P1 31; T;
P1 63; T;
P1 127; T;
P1 255; T;
P1 127; T;
P1 63; T;
P1 31; T;
P1 15; T;
P1 7; T;
P1 3; T;
P1 1; T;
P1 0; T;
P1 1; T;
P1 3; T;
P1 7; T;
P1 15; T;
P1 31; T;
P1 63; T;
P1 127; T;
P1 255; T;
P1 127; T;
P1 63; T;
P1 31; T;
P1 15; T;
P1 7; T;
P1 3; T;
P1 1; T;
P1 0; T;
P1 15; T;
UNTIL 2; GOTO START ;
{****************************************************** PB33
Erlauterung Zum PALBeispeilprogramm: InterfaceManual 4.0 zursatzblatt 30_Interpolation und kreisiterprolation
**********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(1000), 50(1000), 10(1000), 0(1000);
DELAY 50; SET3D ON;
MOVE 50(1000), 50(1000), 50(1000), 0(1000); SET3D OFF;
DELAY 50;
MOVE 80(3000), 80(3000), 50(3000), 0(3000); REFERENCE XYZ;
STOP . START ;
{****************************************************** PB34
Erlauterung Zum PALBeispeilprogramm: PAL_PC Manual seite 91 unten kreis rechtsdrehend
**********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(3000), 50(3000), 50(3000), 0(3000);
ARC_R 10(100), 0, 360, 5; REFERENCE XYZ;
STOP .
#START ;
{********************************************************PB35
Erlauterung Zum PALBeispeilprogramm: PAL_PC Manual seite 92 unten kreis rechtsdrehend
***********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(3000), 50(3000), 50(3000), 0(3000);
ARC_L 6(5000), 180, 270, 3; REFERENCE XYZ;
STOP .
#START ;
{****************************************************** PB36
Erlauterung Zum PALBeispeilprogramm: InterfaceManual 4.0 zursatzblatt 30_Interpolation und kreisiterprolation kreis rechtsdrehend; mit knostanter Bahngeschwindigkeut
**********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(3000), 50(3000), 50(3000), 0(3000); LINE YZ;
CIRCLE_CW 10(1000), 720, 360; REFERENCE XYZ;
STOP .
#START ;
{****************************************************** PB37
Erlauterung Zum PALBeispeilprogramm: InterfaceManual 4.0 zursatzblatt 30_Interpolation und kreisiterprolation kreis rechtsdrehend; mit knostanter Bahngeschwindigkeut
***********************************************************}
#AXIS XYZ;
#REFERENCE XYZ;
MOVE 50(3000), 50(3000), 50(3000), 0(3000);
CIRCLE_CCW 10(1000), 0, 360; REFERENCE XYZ;
STOP . START ;