InForm-PE

[Kernelpanic]

I just want to recreate in InForm what I did in QB64. 

Code: (Select All)

'Kolbengeschwindigkeit berechnen - 13. Juni 2024



Screen _NewImage(650, 420, 32)

$Color:32



Option _Explicit



Dim As Double kolbenhub, drehzahl, kolbenges

Dim As Long Bild, myFont

Dim As String Text



Bild = _LoadImage("..\..\Bilder\Zweitackter.gif") 'Siehe Hinweis unten um das Bild zu erhalten

_PutImage (470, 35), Bild 'Platzierung des Bildes. Haengt von der Fenstergroesse ab



Locate 2, 3

Print "Berechnung der Kolbengeschwindigkeit"

Locate 3, 3

Print "===================================="



'Bild = _LoadImage("..\..\Bilder\Zweitackter.gif") 'Siehe Hinweis unten um das Bild zu erhalten

'_PutImage (140, 15), Bild 'Platzierung des Bildes. Haengt von der Fenstergroesse ab



Locate 5, 3

Input "Kolbenhub in cm                      : ", kolbenhub

Locate 6, 3

Input "Motordrehzahl hoechste Leistung U/min: ", drehzahl



'Formel fuer die Kolbengeschwindigkeit

kolbenges = (((2 * kolbenhub) * drehzahl) / (60 * 100))



If kolbenges <= 21 Then

  Locate 8, 3

  Print Using "Die Kolbengeschwindigkeit betraegt  : ##.## m/sec"; kolbenges

Else

  Locate 8, 3

  Beep: Color Red, 0

  Print Using "Die Kolbengeschwindigkeit liegt ueber 21 m/sec: ##.##"; kolbenges

  Locate 9, 3

  Color White, 0

  Print "(Bei Dauerbelastung droht Gefahr fuer den Motor!)"

End If



Text = "Bild von A. Schierwagen, GNU-Lizens - Wikipedia"

myFont = _LoadFont("C:\Windows\Fonts\Dauphinn.ttf", 15, "")

_Font myFont



'Neue Farbe setzen

Color _RGB32(255, 165, 0), _RGB32(0, 0, 0)



'Spalte - Zeile (Umgekehrt wie bei Locate)

_PrintString (360, 340), Text



'Farbe und Schrift zuruecksetzen

Color _RGB32(255), _RGB32(0, 0, 0)

_Font 16

_FreeFont myFont



End