Zahleneingabe / Formeln berechnen

Hier könnt ihr alle Fragen zu SpiderBasic austauschen.
Blitzer
Beiträge: 79
Registriert: 26.09.2004 14:33
Wohnort: Lower Saxony

Zahleneingabe / Formeln berechnen

Beitrag von Blitzer »

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
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Zahleneingabe / Formeln berechnen

Beitrag von Kiffi »

Ja, genauso wie in PureBasic.

// Edit: Allerdings ohne Event-Schleife. Window- und Gadget-Ereignisse müssen mit Bind*Event() gebunden werden.
Hygge
Blitzer
Beiträge: 79
Registriert: 26.09.2004 14:33
Wohnort: Lower Saxony

Re: Zahleneingabe / Formeln berechnen

Beitrag von Blitzer »

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:

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
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Zahleneingabe / Formeln berechnen

Beitrag von Kiffi »

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
Blitzer
Beiträge: 79
Registriert: 26.09.2004 14:33
Wohnort: Lower Saxony

Re: Zahleneingabe / Formeln berechnen

Beitrag von Blitzer »

Genauso so ...
... thx
Antworten