PureBoard

Bingo

@crawler

Wie ich schon erwähnt habe, nimmt das Programm an, daß ich z.B. den Button [suchen] ständig gedrückt habe, der Status des Buttongadget also 1 ist. Dies wollte ich dur das Nullsetzen der Variablen "knopf" verhindern.

Ursprünglich in PB 3.9? geschrieben und lauffähig habe ich nach dem Upgrade auf PB 4.31 den Code angepaßt und bei einem Probelauf folgendes Problem entdeckt :

Ein Klick auf den Button [speichern] führt zu mehrfacheinträgen in die jeweiligen Dateien
Ein Klick auf den Button [suchen] und mein Window ...

Jetzt klappts
(ich weiß nur nicht warum)

;Verwaltungsprogramm für Lohnfertiger

SetCurrentDirectory("G:\FIRMA")

OpenWindow(1,0,0,700,400,fnme$+" - Stammdaten",#PB_Window_ScreenCentered)
PanelGadget(100,10,10,680,300)
AddGadgetItem(100,-1,"Anschrift")
TextGadget(101,10,70,100,20,"Anrede ...

Doch. Ein Fenster hab ich erstellt....


;Verwaltungsprogramm für Lohnfertiger

SetCurrentDirectory("G:\FIRMA")

OpenWindow(1,0,0,500,300,fnme$+" - Stammdaten",#PB_Window_ScreenCentered)
PanelGadget(100,10,10,480,200)

If AddGadgetItem(100,-1,"Anschrift")
ElseIf a=0

EndIf ...

Für meine Minifirma gibt es kein vernünftiges Verwaltungsprogramm. Drum hab ich mich naiverweise entschlossen, selbst Eins zu stricken. Meine bisherige Programmiersprache (Profan) läuft nicht mehr und beim Googeln nach einer Neuen bin ich über Purebasic gestolpert und bin total begeistert! (noch ...