CAB Apollo 1 Návod k obsluze Strana 235

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 255
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 234
cab Produkttechnik GmbH & Co KG 235
235
[TABLE OF CONTENTS]
[COMMAND LIST][INDEX]
Hermes
Apollo
A-series
This
function is
available
for:
[ESC][i][L][S]
PRODUCT MARKING AND BARCODE IDENTIFICATION
Small program to print a 100mm long ruler with 1mm markings:
; Test label for ruler
J
S l1;0,0,68,71,104
G 0,10,0;L:100,.1
<ABC>
FOR X=0 TO 100
IF MOD(X,10) = 0 THEN
PRINT „G „,X,“,10,270;L:4,.1"
ELSE
PRINT „G „,X,“,10,270;L:2,.1"
END IF
NEXT X
END
</ABC>
A 1
Small program to print a text in a circle:
; Test label for rotated text
J
S l1;0,0,68,71,104
<ABC>
A$=“Rotated text with Euro sign: „+CHR$(DEC(„20AC“))+“ „
N=LEN(A$)
D=360/N
FOR I=1 TO N
W=((I-1)*D)/180*PI
X=50-25*COS(W)
Y=30-25*SIN(W)
R=90-(I-1)*D
IF R<0 THEN
R = R + 360
ENDIF
PRINT „T „,X,“,“,Y,“,“,R,“,3,6,b;“,MID$(A$,I,1)
NEXT I
PRINT „T 0,30,0,3,5;[J:c100]“,date$
PRINT „T 0,38,0,3,5;[J:c100]“,time$
END
</ABC>
A 1
Small program to show usage of local and static variables. Uses ASCII dump mode to show
what happens:
a
<ABC>
for a=1 to 4:stars():next a
sub stars()
static a$
local b$
a$=a$+“*“
b$=b$+“*“
print „; „,a$,“ „,b$
end sub
</ABC>
no
no
abc - examples:
Zobrazit stránku 234
1 2 ... 230 231 232 233 234 235 236 237 238 239 240 ... 254 255

Komentáře k této Příručce

Žádné komentáře