esercitazioni con Turbo Basic

esci turboba.htm

funzioni grafiche elementari

REM pro10x
REM prove sonore con sound e grafica
CLS
SCREEN 12
c = 1
x = 30
FOR a = 100 TO 750 STEP 50
SOUND a, 10
PRINT a
CIRCLE (x, 100), 20, c, 0, 6.28, 1
SOUND a, 2
c = c + 1
x = x + 30
NEXT a
y = 100
x = 500
FOR a = 750 TO 100 STEP -50
SOUND a, 10
CIRCLE (x, y), 20, c, 0, 6.28, 2
CIRCLE (x + 40, y), 20, c, 0, 6.28, .5
y = y + 20
c = c - 1
PRINT a
SOUND a, 1
NEXT a

END