Verfasst: 04.11.2005 15:34
@PB42
ich war mal so Frei dein Programmschnipzel entsprechend umzuschreiben um dir anschaulicher zu zeigen wo deine Fehler sind die ja vorab schon von unseren Mitprogern aufgezeigt wurden.
Code: Alles auswählen
If OpenWindow(0,0,0,606,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"") And CreateGadgetList(WindowID(0))
If LoadFont(0,"arial",12):SetGadgetFont(#PB_Default,FontID()): EndIf
TextGadget (13,50,118,506,30,"",#PB_Text_Border|#PB_Text_Center)
ButtonGadget(14,446,41,110,22,"Berechnen")
Repeat
EventID = WaitWindowEvent()
If (EventID=#PB_Event_Gadget)
Select EventGadgetID()
Case 14
If (f.f=0): f = 0.2: EndIf
g.f = (a + b + c) * d.f
h.f = g * f
SetGadgetText(13,"Egebnis")
EndSelect
EndIf
Until (EventID=#PB_Event_CloseWindow)
EndIf