Adding more Logical Operators

[Kernelpanic]

And here with a subprogram - Everything works.:

Code: (Select All)

'Beispiel fuer sleep - 3. Juni 2022

OPTION _EXPLICIT

DIM kw_eingabe AS DOUBLE, ps AS DOUBLE
DIM i AS INTEGER

SCREEN _NEWIMAGE(800, 600, 32)

CLS
PRINT
PRINT "Rechnet Kilowatt(KW) in PS um": PRINT
INPUT "Geben Sie die Motorleistung ein (KW): ", kw_eingabe
PRINT

FOR i = 1 TO 10
  ps = kw_eingabe * 1.36
  PRINT USING "###.## KW sind ###.## PS"; kw_eingabe, ps
  IF i MOD 3 = 0 THEN
    SLEEP 3 '3 Sekunden warten
  ELSEIF i MOD 4 = 0 THEN
    PRINT
    CALL Quadratvolumen(i)
  END IF
  PRINT
  kw_eingabe = kw_eingabe + 5.0
NEXT

END

SUB Quadratvolumen (i)
  DIM volumen AS DOUBLE

  volumen = (i * i) * i
  PRINT USING "Ein Wuerfel von ##.## cm Kantenlaenge hat ein Volumen von ###.## qcm"; i, volumen
END SUB