programmer404
Anmeldungsdatum: 07.09.2021 Beiträge: 12 Wohnort: Herford
|
Verfasst am: 23.06.2022, 18:35 Titel: Sinusfunktion per Tastatur steuern |
|
|
SCREEN 13
CLS
PRINT "Bedienung mit Tasten Ö und Bindestrich"
SLEEP 8
CLS
c = 14
ml = 30
pt = .003
FOR x = 0 TO 319 STEP pt
IF INP(&H60) = 39 THEN ml = ml + .01
IF ml > 0 AND INP(&H60) = 53 THEN ml = ml - .01
IF INP(&H60) = 1 THEN WHILE INKEY$ <> "": WEND: END
PSET (x, 55 + ml * SIN(x)), c
NEXT x |
|