programmer404
Anmeldungsdatum: 07.09.2021 Beiträge: 12 Wohnort: Herford
|
Verfasst am: 23.06.2022, 22:57 Titel: Oszillograph |
|
|
´Sinusfunktion
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 - 6) * SIN(x)), 123 + c
PSET (x, 55 + (ml - 5) * SIN(x)), 124 + c
PSET (x, 55 + (ml - 4) * SIN(x)), 125 + c
PSET (x, 55 + (ml - 3) * SIN(x)), 126 + c
PSET (x, 55 + (ml - 2) * SIN(x)), 127 + c
PSET (x, 55 + (ml - 1) * SIN(x)), 128 + c
PSET (x, 55 + ml * SIN(x)), c
NEXT x |
|