InForm-PE

[Kernelpanic]

I can't get any further here, just like last time. There's no error message, but no result either. I always get stuck with these input fields. And suddenly, an error message pops up saying the "Picture Box" is already in use. Could the master give me a tip? Thanks!

PS: What I really miss is being able to access the source code by clicking the "Calculate" button; that's how it works in VB.

Kolbengeschwindigkeit - InForm

Code: (Select All)

    Case cmdBeendenBT

      If Control(numKolbenhub).Value <> 0 Then

        Text(txtErgebnis) = __UI_StrUsing$("###.##", (((Control(2 * numKolbenhub).Value) * Control(numDrehzahl).Value) / 60 * 100))

      End If

      'Formel: kolbenges = (((2 * kolbenhub) * drehzahl) / (60 * 100))

Code: (Select All)

Dim Shared Form1 As Long

Dim Shared BerechnungDerKolbengeschwindigkeitLB As Long

Dim Shared KolbenhLB As Long

Dim Shared MotordrehzahlBeiHoechstleistungLB As Long

Dim Shared numKolbenhub As Long

Dim Shared numDrehzahl As Long

Dim Shared DieKolbengeschwindigkeitBetraegtLB As Long

Dim Shared txtErgebnis As Long

Dim Shared BerechnenBT As Long

Dim Shared cmdBeendenBT As Long

Dim Shared cmdLoeschenBT As Long

Dim Shared PictureBox1 As Long

Dim Shared EinzylindermotorjpgPX As Long

': This program uses

': InForm GUI engine for QB64-PE - v1.5.7

': Fellippe Heitor, (2016 - 2022) - @FellippeHeitor

': Samuel Gomes, (2023 - 2025) - @a740g

': https://github.com/a740g/InForm-PE

'-----------------------------------------------------------



': Controls' IDs: ------------------------------------------------------------------

Dim Shared PictureBox1 As Long

Dim Shared EinzylindermotorjpgPX As Long

Dim Shared cmdBeendenBT As Long

Dim Shared cmdLoeschenBT As Long

Dim Shared Button2 As Long

Dim Shared Button3 As Long

Dim Shared txtErgebnis As Long

Dim Shared BerechnenBT As Long

Dim Shared numKolbenhub As Long

Dim Shared numDrehzahl As Long

Dim Shared DieKolbengeschwindigkeitBetraegtLB As Long

Dim Shared KolbenhLB As Long

Dim Shared MotordrehzahlBeiHoechstleistungLB As Long

Dim Shared Form1 As Long

Dim Shared BerechnungDerKolbengeschwindigkeitLB As Long



': External modules: ---------------------------------------------------------------

'$Include:'InForm/InForm.bi'

'$Include:'InForm/xp.uitheme'

'$Include:'Kolbengeschwindigkeit.frm'



': Event procedures: ---------------------------------------------------------------

Sub __UI_BeforeInit



End Sub



Sub __UI_OnLoad



End Sub



Sub __UI_BeforeUpdateDisplay

  'This event occurs at approximately 60 frames per second.

  'You can change the update frequency by calling SetFrameRate DesiredRate%



End Sub



Sub __UI_BeforeUnload

  'If you set __UI_UnloadSignal = False here you can

  'cancel the user's request to close.



End Sub



Sub __UI_Click (id As Long)

  Select Case id

    Case PictureBox1



    Case EinzylindermotorjpgPX



    Case cmdBeendenBT

      If Control(numKolbenhub).Value <> 0 Then

        Text(txtErgebnis) = __UI_StrUsing$("###.##", (((Control(2 * numKolbenhub).Value) * Control(numDrehzahl).Value) / 60 * 100))

      End If

      'Formel: kolbenges = (((2 * kolbenhub) * drehzahl) / (60 * 100))



    Case cmdLoeschenBT



    Case Button2



    Case Button3



    Case txtErgebnis



    Case BerechnenBT



    Case numKolbenhub



    Case numDrehzahl



    Case DieKolbengeschwindigkeitBetraegtLB



    Case KolbenhLB



    Case MotordrehzahlBeiHoechstleistungLB



    Case Form1



    Case BerechnungDerKolbengeschwindigkeitLB



  End Select

End Sub