InForm-PE

[Kernelpanic]

I recompiled everything again and then set it up the way I do with all programs. But that doesn't really work. As far as I have found, one cannot run programs in a different folder than specified. I have tried adjusting the paths, but I get one error after another because a file is not found.

This doesn't work properly

Code: (Select All)

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

' Common InForm header. This is included by the main InForm header file

' Copyright (c) 2024 Samuel Gomes

' Copyright (c) 2022 Fellippe Heitor

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



$IF INFORMCOMMON_BI = UNDEFINED THEN

    $LET INFORMCOMMON_BI = TRUE



    ' Do a complier check to ensure we have the minimum version needed

    $IF VERSION < 3.11.0 THEN

            $ERROR 'This requires the latest version of QB64-PE from https://github.com/QB64-Phoenix-Edition/QB64pe/releases'

    $END IF



    '$INCLUDE:'InFormVersion.bi'

    '$INCLUDE:'D:\QuickBasic64\QB64\QB64pe\InForm\InForm\extensions\HashTable.bi'



    CONST FALSE%% = 0%%, TRUE%% = NOT FALSE

. . .

The problem with the color setting has been resolved - I accidentally used a text field. Now I have another problem.
If I click on "Calculate" (Berechnen) under VB, then I can program it, but how does it work in InForm?



Code from VB:

Code: (Select All)

Option Explicit



Private Sub cmdBeenden_Click()

  End

End Sub



Private Sub cmdBerechnen_Click()

  Dim Einkaufspreis, Verkaufspreis, Rabattaufschlag As Double

  

  Einkaufspreis = Val(txtEinkaufspreis.Text)

  Verkaufspreis = Val(txtVerkaufspreis.Text)

  Rabattaufschlag = (((Verkaufspreis * 100) / Einkaufspreis) - 100)

  

  'Mit dem Prozentzeichen bei Format -> ##.00 % Formatierungsfehler

  txtProzenthoehe.Text = Format$(Rabattaufschlag, "##.00")

End Sub



Private Sub cmdLoeschen_Click()

  txtEinkaufspreis = ""

  txtVerkaufspreis = ""

  txtProzenthoehe = ""

End Sub

In addition, everything is LONG by default.

Code: (Select All)

': This program uses

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

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

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

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

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



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

Dim Shared Label4 As Long

Dim Shared ProzentaufschlagLB As Long

Dim Shared TextBox3 As Long

Dim Shared cmdBerechnen As Long

Dim Shared Ueberschrift As Long

Dim Shared EinkaufspreisLB As Long

Dim Shared VerkaufspreisLB As Long

Dim Shared txtEinkaufspreis As Long

Dim Shared txtVerkaufspreis As Long

Dim Shared Prozentberechnung As Long

Dim Shared Prozentrechnung As Long '<-- "Prozentrechnung" deleted from Form on 02-15-2024 '<-- "Prozentrechnung" deleted from Form on 02-15-2024



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

'$INCLUDE:'InForm.bi' -> Mistake

'$INCLUDE:'xp.uitheme'

'$INCLUDE:'Prozenthoehe.frm'