+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Expanding Horizons (Libraries) (https://qb64phoenix.com/forum/forumdisplay.php?fid=21)
+---- Forum: a740g (https://qb64phoenix.com/forum/forumdisplay.php?fid=55)
+---- Thread: InForm-PE (/showthread.php?tid=1756)
RE: InForm-PE - Kernelpanic - 06-20-2025
(06-19-2025, 10:14 PM)TempodiBasic Wrote:Yes, I noticed that too and wondered where it came from. Thanks! I think it's a bug in InForm.
- the first issue is that you have a duplicate of many ID of controls! This is an issue coming out when you edit a previous form in UEditor
- the second issue is that you have typed wrong the formula for calculating txtErgebnis
I have a bit of trouble with calculations in InForm; the introduction isn't much help either. It's unnecessarily complicated, but that's how it was programmed, and switching to the way it's handled in VB would be too much work.
In VB, they're all text fields, and numbers are simply preceded by a VAL, nice simple
Code: (Select All)
Kolbenhub = Val(txtHub.Text)
Drehzahl = Val(txtDrehzahl.Text)
Kolbengeschwindigkeit = (((2 * Kolbenhub) * Drehzahl) / (60 * 100))
txtKolbenges.Text = Format$(Kolbengeschwindigkeit, "###.00")
RE: InForm-PE - Kernelpanic - 06-21-2025
As soon as one edit or change something in the editor, everything duplicates again. This is clearly a bug.
After everything is corrected, there is no error message, but the result is still not displayed. I tried to consider the error messages, but there's no OK.
Code: (Select All)
Case cmdBeendenBT
If Control(numKolbenhub).Value <> 0 Then
Text(txtErgebnis) = __UI_StrUsing$("###.##", ((2 * (Control(numKolbenhub).Value) * Control(numDrehzahl).Value) / 60 * 100))
End If
'Formel: kolbenges = (((2 * kolbenhub) * drehzahl) / (60 * 100))
Everything duplicates again.
RE: InForm-PE - TempodiBasic - 06-21-2025
Here a link to an example that uses Numeric Textboxes.
It seems working
4Operation BASIC calculator with NumericTextBox
RE: InForm-PE - TempodiBasic - 06-22-2025
@KernelPanic
about
Quote:Text(txtErgebnis) = __UI_StrUsing$("###.##",this doesn't work because it is a NumericTextBox (NTB) so (the control) it accepts only numeric values...
Yes you can read the value from string Text(ControlID) but it cannot be set until it is NTB
in the meanwhile you can read the value of control from Control(ControlID).Value and you can set it assigning a numeric value.
A little Hacking would be to transform in the code the NTB (Numeric TextBox) into TB (TextBox) but I cannot imagine why I design a NTB and then I convert it into a TB for assigning a value via Text(ControlID). In this case, if I prefer, I design a TB for using as numeric input box.
RE: InForm-PE - Kernelpanic - 06-23-2025
Yes, I also remembered the string box thing, and I turned it into a numeric box - but it didn't help.
I've done it again now, looked at the linked examples... and spent over an hour trying to disable the error messages. Without any positive results.
Maybe I have discovered another error; see screenshot. The calculation routine was inserted now into Exit (Beenden).
And of course, everything was duplicated again.
So, I am fed up at the moment. I think there's a lot wrong.
Incorrect insertion
Insertion corrected
RE: InForm-PE - TempodiBasic - 06-24-2025
Hi Kernelpanic
maybe we have lost in translations
in the 2 screenshots that you have posted above in your post #115 I see that you are trying to assign something_that_is_more_than_a_digit to a digit!
Control(numErgebnis).value is a number whose edge have been set at design time.
I think that
Code: (Select All)
Number = "###.##", Numeric_formula '<--- wrong syntax
Number = ("###.##", Numeric_Formula) '<--- wrong syntax
Number = Numeric_Formula '<-- correct syntaxif your goal is to get back from the formula a number that has the format ###.##, I think you must do this by code. and show it in a string.
So it is useful to use for result a Label at the place of the third textbox that will be never used as input tool.
But if you like to use a textbox please make calculation before , then convert your result to a string with the right kind of output and at the end assign this last string to the textbox string.
Remember that surely there are some inner checks about the controls that are invisible to the user.
RE: InForm-PE - TempodiBasic - 06-24-2025
I hope this example can be useful!
calculation made by converting Text from textBoxes
RE: InForm-PE - Kernelpanic - 06-24-2025
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
![[Image: Kolbengeschwindigkeit2025-06-25.jpg]](https://i.ibb.co/wNsjN98K/Kolbengeschwindigkeit2025-06-25.jpg)
RE: InForm-PE - TempodiBasic - 06-25-2025
@KernelPanic
I confirm that it works as I said you at post #114
However I send you this, with your form and the code to let work it!
As demo you can use the button on the right to set Input into Numeric Text boxes , the first two form the top of form.
Please use the left button to make calculation and to get into the third Numeric Text Box the result.
As you can see it is correct and is the same of your example that you were translating into Inform_Pe version.
Moreover use the middle button if you can see how hacking the third textbox from the top! As you can see the button when pressed change the nature of the Textbox switching from NumericTextBox to TextBox and viceversa... at the same moment the calculation must use the numeric data for NTB and string data from TB.
If you want to limit the number of digits before and after the point, you must transform the result and then you must assign it to NumericTextBox/TextBox.
(just as example in TB mode you can use LEFT$ for getting the last 5 digit on the left, while in NTB mode you can use CSNG)
You needn't Inform library files cause you have Inform on your PC!
RE: InForm-PE - Kernelpanic - 06-26-2025
@TempodiBasic, thanks for your effort. It doesn't work. I've tried it all over again, but at best I get a program that doesn't display an error message, but also doesn't produce any results. It's a real shame.
I created the whole thing in VB today, see screenshot, and I like the design better in InForm than in VB. It has potential as a VB replacement, if it weren't so complicated.
Here's the source code in VB:
Code: (Select All)
'Kolbengeschwindigkeit berechnen - 26. Juni 2025
Option Explicit
Private Sub cmdBeenden_Click()
End
End Sub
Private Sub cmdBerechnen_Click()
Dim Kolbenhub, Drehzahl As Double
Dim Kolbenges As Double
Kolbenhub = Val(txtKolbenhub.Text)
Drehzahl = Val(txtDrehzahl.Text)
Kolbenges = (((2 * Kolbenhub) * Drehzahl) / (60 * 100))
txtKolbenges.Text = Format$(Kolbenges, "##.##")
End Sub
Private Sub cmdLoeschen_Click()
txtKolbenhub = ""
txtDrehzahl = ""
txtKolbenges = ""
End Sub
![[Image: Kolben-Ges-In-Form-VB.jpg]](https://i.ibb.co/j9ctzTGN/Kolben-Ges-In-Form-VB.jpg)