ich habe auch probleme mit den Schleifen.
wie bekomme ich das hin, das Programm mit nach dem errsten Endselect nicht stehen bleibt.
Ich versuche mich nach 35 Jahren GWBasic und Qbasic jetzt in Purebasic einzuarbeiten.
Code: Alles auswählen
Case 82
LoadFont(501,"ITC Zapf Chancery SWA",18) : SetGadgetFont(#PB_Default,FontID(501))
TextGadget(501,20,50,500,30,"Bestattungsinstitut - Manager ")
TextGadget(502,20,80,500,30,"Nutzer Daten ")
LoadFont(502,"Bookman Old Style",14)
SetGadgetFont(#PB_Default,FontID(502))
ButtonGadget(505,320,905,320,30,"Speichern")
OpenFile(0,"C:\BIMHR\Install\Nutzer.DAT",#PB_Ascii)
B = 100 : For A = 1 To 25 : C = A + 100 : B = B + 30
A$ = ReadString(0) : B$ = Left(A$,29) : C$ = Mid(A$,30,30)
If Left(B$,4) <> " "
StringGadget(A,320,B,320,30,C$)
TextGadget(C,50,B,270,30,B$)
Else
StringGadget(A,320,B,0,30,C$)
TextGadget(C,50,B,270,30," - -")
EndIf
Next a
B = 100 : For A = 26 To 50 : B = B + 30 : C = A + 100
A$ = ReadString(0) : B$ = Left(A$,29) : C$ = Mid(A$,30,30)
If Left(B$,4) <> " "
StringGadget(A,920,B,320,30,C$)
TextGadget(C,650,B,270,30,B$)
Else
StringGadget(A,920,B,0,30,C$)
TextGadget(C,650,B,270,30," - -")
EndIf
Next a
CloseFile(0)
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
If EventGadget() = 505
OpenFile(0,"C:\BIMHR\INSTALL\Nutzer.DAT",#PB_Ascii)
For A = 1 To 50 : C = A + 100 : B = B + 30
C$ = GetGadgetText(A) : SetGadgetText(A,C$)
B$ = GetGadgetText(C) : SetGadgetText(C,B$)
WriteString(0,Left(B$,35)) : WriteStringN(0,C$)
Next
CloseFile(0)
TextGadget(510,920,905,300,30,"Daten gespeichert")
Else
TextGadget(510,920,905,300,30,"Daten nicht gespeichert")
EndIf
EndSelect
Until Quit = 1
Case 83
LoadFont(501,"ITC Zapf Chancery SWA",18)
SetGadgetFont(#PB_Default,FontID(501))
TextGadget(501,20,50,500,30,"Bestattungsinstitut - Manager ")
TextGadget(502,20,80,500,30,"Programm Daten ")
LoadFont(502,"Bookman Old Style",14)
SetGadgetFont(#PB_Default,FontID(502))
ButtonGadget(505,320,905,320,30,"Speichern")
OpenFile(0,"C:\BIMHR\INSTALL\Programm.DAT",#PB_Ascii)
B = 100 : For A = 1 To 25 : C = A + 100 : B = B + 30
A$ = ReadString(0) : B$ = Left(A$,35) : C$ = Mid(A$,36,25) : D$ = Mid(A$,61,25) : E$ = Mid(A$,86,25)
If Left(B$,4) <> " "
StringGadget(A,320,B,320,30,C$)
TextGadget(C,50,B,270,30,B$)
Else
StringGadget(A,320,B,0,30,C$)
TextGadget(C,50,B,270,30," - -")
EndIf
Next a
CloseFile(0)
B = 100 : For A = 26 To 50 : B = B + 30 : C = A + 100
TextGadget(A,920,B,320,30," ")
TextGadget(C,650,B,270,30," ")
Next a
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
If EventGadget() = 505
OpenFile(0,"C:\BIMHR\INSTALL\Programm.DAT",#PB_Ascii)
For A = 1 To 25 : C = A + 100 : B = B + 30
C$ = GetGadgetText(A) : SetGadgetText(A,C$)
B$ = GetGadgetText(C) : SetGadgetText(C,B$)
WriteString(0,Left(B$,35)) : WriteString(0,Left(C$,25)): WriteString(0,Left(D$,25)): WriteStringN(0,Left(E$,25))
Next
CloseFile(0)
TextGadget(510,920,905,300,30,"Daten gespeichert")
Else
TextGadget(510,920,905,300,30,"Daten nicht gespeichert")
EndIf
EndSelect
Until Quit = 1
