esercitazioni con Turbo Basic

esci turboba.htm

sintassi grafica elementare

REM disegnax
CLS
SCREEN 12

x1 = 20
x2 = 40


FOR a = 1 TO 7
LINE (x1, 10)-(x2, 30), a, B, &H1234
LINE (x1, 50)-(x2, 80), a, BF, &H8844
CIRCLE (x1, 120), 15, a
CIRCLE (x1, 150), 15, a
t$ = CHR$(63) + CHR$(76) + CHR$(87) + CHR$(63) + CHR$(63)
PAINT (x1, 150), t$, a
CIRCLE (x1, 200), 15, a, 0, 6.28, 2
PAINT (x1, 200), t$, a
CIRCLE (x1, 250), 15, a, 0, 6.28, .5
CIRCLE (x1, 300), 15, a, 0, 6.28, 1.5
d$ = CHR$(66) + CHR$(77) + CHR$(88)
PAINT (x1, 300), d$, a
CIRCLE (x1, 350), 15, a, 0, 3.14, 1
CIRCLE (x1, 400), 15, a, 3.14, 6.28, 1
x1 = x1 + 30
x2 = x2 + 30
NEXT
END