Formelrechnen in PB

[Günter Opatz]

Ich möchte ein Programm schreiben und darin Berechnungen vornehmen.
Als erstes müssen etliche verschiedene Werte eingegeben werden , teilweise mit festen Vorgaben , z. B bei Eingabe der Spannung sind nur die
Werte 230 und 400 möglich. Sind alle erforderlichen Werte für Spannung, Strom , Leitungsquerschnitt und Leitungslänge eingegeben ,soll
der Spannungsfall nach einer bekannten Formel berechnet werden. Hat jemand ein solches oder ähnliches Programm geschrieben?

[KeyKon]

Ich hab sowas zwar nicht geschrieben, aber da da ja offensichtlich nichts gezeichnet wird gehört das wohl eher in ein anderes Forum.

KeyKon

[Macros]

Hier mal ein Beispiel:

Code: Alles auswählen

OpenWindow(1,100,100,200,200,#PB_Window_SystemMenu,"test")
CreateGadgetList(WindowID(1))
StringGadget(1,0,0,50,30,"",#PB_String_Numeric)
TextGadget(20,50,0,20,30,"^")
ComboBoxGadget(2,70,0,50,30)
AddGadgetItem(2,-1,"2")
AddGadgetItem(2,-1,"5")
TextGadget(21,120,0,20,30,"=")
StringGadget(3,140,0,50,30,"",#PB_String_ReadOnly)

ButtonGadget(10,0,50,200,150,"berechnen")
Repeat
event=WaitWindowEvent(); Fensterevents verarbeiten
Select Event
Case #PB_Event_Gadget
If EventGadgetID()=10; unser Button
ergebnis=Pow(Val(GetGadgetText(1)),Val(GetGadgetText(2))); die Zahlen auslesen und verrechnen.
SetGadgetText(3,Str(ergebnis));das ergebnis wieder ins Gadget schreiben.
EndIf

Case #PB_Event_CloseWindow
End
EndSelect

ForEver