Axis AX-906 Guía de usuario Pagina 17

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 24
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 16
CHAPTER
4.
APPLICATION
DESIGN
73
900 '
*********************
•••••
********
••••••••••••••••••••••••
901
902
903
'
..
904
905
'
..
906
'
..
Line 1000-1060 sends a move down to the first AX. Computer
waits for the Line
Feed from the AX indicating that the motor
has finished its move.
..
..
if
••••••
*
••••
****.**********
••••
***.***.**
•••
**************.
1000 MOVE1$ =
"lAl
lV2
1025,600
lG
lLF"
1005 CLS
1007 LOCATE
12,15:
PRINT"
MOVING AXIS 1 "
1010 PRINT #l,MOVE1$
1015 ECHO$
= INPUT$(22,l)
1020
LF$ = INPUT$(
1,
1)
1040
IF
LF$ <> CHR$(10) GOTO 1020
1045 CLS
1047 LOCATE
12,15
, Define move for Axis 1
, Move axis
1.
, Read echoes from AX
Wait for line feed from AX
indicating end
of
move.
1050 PRINT "AXIS 1 FINISHED ITS
MOVE"
, Let user know axis 1 done
1060 LOCATE 15,15: PRINT" PRESS ANY KEY TO MOVE SECOND
AXIS"
1 070 V$ = INKEY$: IF LEN(V$) = 0 THEN 1060
1 900 .
..
...
......
*
........
*
..
* .... * *
....
..
*
..
..........
*
......
*
........
*
....
*
..
*
....
* * * * *
......
1901
1902
..
After axis one is done, we request that you hit any key to go
on
1903 '
..
to second move.
In
real application, we would expect you to
1
904
..
go ahead with the process and work
on
the part before going
on
to
1905 '
..
next move.
(Le.
Activate a punch)
1906
1907
'
..
Now that first axis finished its move, we go
on
to move axis
2.
1908 '
..
Second AX also prints a line feed after finishing the move.
1909 '
..
As soon as computer receives the line feed from
AX,
program will
1910
'
..
go back to the first move.
1911
..
..
1912
......................
* * *
..........
* *
..
*
..
*
..
* * *
..................
*
..........
*
..
*
..
*
........
*
....
..
2000 MOVE2$ = "2A 1 2V2
206,400
2G 2LF "
2005 CLS
2007 LOCATE
12,15:
PRINT"
AXIS 2 MOVING "
2010 PRINT
#l,MOVE2$
2015 ECHO$ = INPUT$(22,1)
2020
LF$ =
INPUT$(l,
1 )
2040 IF LF$ <> CHR$(10) GOTO 2020
2045 CLS
2047 LOCATE
12,15
2050 PRINT "AXIS 2 FINISHED ITS
MOVE"
2060 FOR I = 1 TO 1000: NEXT I
2070 GOTO 20
' Go back to beginning of program.
Vista de pagina 16
1 2 ... 12 13 14 15 16 17 18 19 20 21 22 23 24

Comentarios a estos manuales

Sin comentarios