CAB Apollo 1 Manual del operador Pagina 236

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 255
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 235
236 cab Produkttechnik GmbH & Co KG
236
PRODUCT MARKING AND BARCODE IDENTIFICATION
Hermes
Apollo
A-series
This
function is
available
for:
[TABLE OF CONTENTS]
[COMMAND LIST][INDEX][ESC][i][L][S]
Small program to show ON GOSUB. Uses ASCII dump mode to show what happens:
a
<ABC>
for number=0 to 6
on number+1 gosub sorry,one,two,three,four,five,sorry
next number
end
label sorry:print „; Sorry, can’t convert „,number:return
label one:print „; 1=one“:return
label two:print „; 2=two“:return
label three:print „; 3=three“:return
label four:print „; 4=four“:return
label five:print „; 5=five“:return
</ABC>
Small program to show READ,DATA and RESTORE. Uses ASCII dump mode to show what happens:
a
<ABC>
restore names
read maxnum
dim names$(maxnum)
for a=1 to maxnum:read names$(a):next a
for number=0 to 10
if (number>=1 and number<=maxnum) then
print „; „,number,“=“,names$(number)
else
print „; Sorry, can’t convert „,number
endif
next number
error „Program finished“
label names
data 9,“one“,“two“,“three“,“four“,“five“,“six“
data „seven“,“eight“,“nine“
</ABC>
Small program for measuring the label length:
<ABC>
DO
REM read measured length
dy=PEEK(„mlength“)
IF dy>0 BREAK
PRINT „f“
WAIT 0.25
REM wait until standing again REPEAT
UNTIL (PEEK(„direction“)=0)
LOOP
PRINT „J“
PRINT „S l1;0,0,“,dy-2,“,“,dy,“,100"
PRINT „T 0,10,0,3,5;Measured length: „,dy,“mm“
PRINT „A 1“
</ABC>
no
no
Vista de pagina 235
1 2 ... 231 232 233 234 235 236 237 238 239 240 241 ... 254 255

Comentarios a estos manuales

Sin comentarios