Code: Alles auswählen
IncludeFile "CalculateIt.pb"
Procedure GenerateGraph(Term.s)
Protected Index.i
Protected Result.d, LastResult.d
Protected PosX.d
CreateImage(0, 400, 400)
If StartDrawing(ImageOutput(0))
FrontColor($404040)
For Index = -20 To 20
Line(200 + Index * 10, 0, 1, 400)
Line(0, 200 + Index * 10, 400, 1)
Next
Line(0, 200, 400, 1, $FFFFFF)
Line(200, 0, 1, 400, $FFFFFF)
FrontColor($FF)
For Index = 0 To 400
PosX = (Index - 200) / 10
Result = Calculate(ReplaceString(UCase(Term), "X", "(" + StrD(PosX, 16) + ")"))
LineXY(Index - 1, 200 - LastResult * 10, Index, 200 - Result * 10)
LastResult = Result
Next
StopDrawing()
SetGadgetState(1, ImageID(0))
EndIf
EndProcedure
OpenWindow(0, 0, 0, 420, 450, "CalculateIt - Graphical test", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
StringGadget(0, 10, 10, 400, 20, "")
ImageGadget(1, 10, 40, 400, 400, 0)
Repeat
Define EventID.i = WaitWindowEvent()
If EventID = #PB_Event_Gadget
If EventGadget() = 0 And EventType() = #PB_EventType_Change
GenerateGraph(GetGadgetText(0))
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow