06-26-2025, 08:06 PM
@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:
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

