Rockwell-automation 57C610 Enhanced Basic Language, AutoMax Manual de usuario Pagina 72

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 146
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 71
6Ć32

100 COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900 USERNAME$ = "
910 KYBD_RD
Y@ = F
ALSE
:
1000 IF DISP_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1100 OPEN PORTB" AS FILE #2, SETUP=(0800H,
9600) \ CL
OSE #2
1110 OPEN PORTB" AS FILE #2,
ACCESS=NON_EXCLUSIVE
1120 ! Add initialization code as required
:
1200 KYBD_RDY@ = TRUE
1210 IF NOT DISP_RDY@ THEN DELA
Y 10 TICKS \
GOTO 1210
:
2000 IF USERNAME$ = " THEN
PRINT #2; CLRSCR$(2); CURPOS$( 10,10);
Please enter your name ;
INPUT #2 USERNAME$
END_IF
2100 DELA
Y 10 TICKS \ GOTO 2000
:
32767
END

100 COMMON USERNAME$
110 COMMON KYBD_RDY@, DISP_RDY@
:
900 USERNAME$ = "
910 DISP_RD
Y@ = F
ALSE
1000
IF K
YBD_RDY@ THEN DELAY 10 TICKS \ GOTO
1000
1010 ! Add initialization code as required
:
1200 IF NOT KYBD_RDY@ THEN DELA
Y 10 TICKS \
GOTO 1200
1210 OPEN PORTB" AS FILE #2,
ACCESS=NON_EXCLUSIVE
1220 DISP_RDY@ = TRUE
:
2000 IF USERNAME$ <> " THEN
PRINT #2 ; CURPOS$(20,10); Hello World,
my name is ; USERNAME$;
DELAY 5 SECONDS \ USERNAME$ = "
END_IF
2100 DELA
Y 10 TICKS \ GOTO 2000
:
32767 END
Vista de pagina 71
1 2 ... 67 68 69 70 71 72 73 74 75 76 77 ... 145 146

Comentarios a estos manuales

Sin comentarios