Hallo,
ist es in Spider möglich, 2 Zahlen einzugeben und dann eine Berechnung durchzuführen?
Ich denke an den Satz von Pythagoras ... a² + b² = c², daraus dann den Wert von c.
Blitzer
Zahleneingabe / Formeln berechnen
Re: Zahleneingabe / Formeln berechnen
Ja, genauso wie in PureBasic.
// Edit: Allerdings ohne Event-Schleife. Window- und Gadget-Ereignisse müssen mit Bind*Event() gebunden werden.
// Edit: Allerdings ohne Event-Schleife. Window- und Gadget-Ereignisse müssen mit Bind*Event() gebunden werden.
Hygge
Re: Zahleneingabe / Formeln berechnen
Ja, aber bei der einfachen Zahleneingabe habe ich keine Lösung.
In SB brauche ich eine einzeilige Eingabe (Editorgadget - ohne WordWrap)
Hier das Beispiel aus der Hilfe:
Kann der Code wie oben beschrieben mit ein paar Zeilen für mich erweitert werden? Wäre nice.
Blitzer
In SB brauche ich eine einzeilige Eingabe (Editorgadget - ohne WordWrap)
Hier das Beispiel aus der Hilfe:
Code: Alles auswählen
Procedure ButtonHandler()
Debug "Button click event on gadget #" + EventGadget()
EndProcedure
OpenWindow(0, 100, 100, 200, 50, "Click test", #PB_Window_SystemMenu)
ButtonGadget(0, 10, 10, 180, 30, "Click me")
BindGadgetEvent(0, @ButtonHandler())
Kann der Code wie oben beschrieben mit ein paar Zeilen für mich erweitert werden? Wäre nice.
Blitzer
Re: Zahleneingabe / Formeln berechnen
Gewinnt keinen Schönheitspreis, zeigt aber recht simpel die Addition zweier ganzer Zahlen:
Code: Alles auswählen
EnableExplicit
Enumeration
#Window
#Zahl1
#Zahl2
#Berechnen
#Ergebnis
EndEnumeration
Procedure Berechnen()
Protected Zahl1, Zahl2, Ergebnis
Zahl1 = Val(GetGadgetText(#Zahl1))
Zahl2 = Val(GetGadgetText(#Zahl2))
Ergebnis = Zahl1 + Zahl2
SetGadgetText(#Ergebnis, Str(Ergebnis))
EndProcedure
OpenWindow(#Window, 0, 0, 100, 190, "Calc", #PB_Window_ScreenCentered)
StringGadget(#Zahl1 , 10, 10, 80, 30, "Zahl 1", #PB_String_PlaceHolder)
StringGadget(#Zahl2 , 10, 50, 80, 30, "Zahl 2", #PB_String_PlaceHolder)
ButtonGadget(#Berechnen, 10, 100, 80, 30, "Berechnen")
TextGadget(#Ergebnis, 10, 150, 80, 30, "Ergebnis", #PB_Text_Center | #PB_Text_VerticalCenter | #PB_Text_Border)
BindGadgetEvent(#Berechnen, @Berechnen())
Hygge
Re: Zahleneingabe / Formeln berechnen
Genauso so ...
... thx
... thx