01-07-2023, 11:57 PM
(01-07-2023, 04:01 PM)Kernelpanic Wrote:Code: (Select All)Option _Explicit
Dim PS As Double, KW As Double
Dim Auswahl As Integer
Print "1 -- PS in Kilowatt"
Print "2 -- Kilowatt in PS"
Input "Ihre Wahl: ", Auswahl
If Auswahl = 1 Then
Input "Anzahl PS: ", PS
KW = PS / 1.36
Print -- Fehler?
Print KW
Else
Input "Anzahl Kilowatt: ", KW
PS = KW * 1.36
Print PS
End If
End
This line:
Code: (Select All)
Print -- Fehler?
The stuff after "Print" needs to be surrounded by double quotation marks.
I'm not able to run Luke's creation straight away but the "bad integer" or something like that might point to the "LOCATE , 2" line, might have to use "CSRLIN" function to get the current cursor line and fill in the "LOCATE row, column" instead of leaving out the row.
If not, it could be your using the apostrophe at the end of code lines.