Seite 2 von 2
Verfasst: 16.12.2005 16:25
von Thorsten1867
Badboy99 hat geschrieben:Und noch was was zwar nicht hier reingehört aber ich will keinen neuen Beitrag dafür machen:
WIe kann Ich in ein Set Gadget einen String benutzen statt die Zahl???
Ich wüsste kein Gadget, dass als State Sekunden akkzepiert, egal ob String oder nicht.
Was du vermutlich brauchst ist (aber dazu müsste man wissen, um welches Gadget es sich handelt):
SetGadgetText(#Gadget, sekunde$)
Verfasst: 16.12.2005 16:48
von R4z0r1989
Ein Progreesbar!!!
Aber die leiste ist dann immer voll!!!
Code: Alles auswählen
; PureBasic Visual Designer v3.80 build 1249
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Gadget_0
#Gadget_1
#Gadget_2
EndEnumeration
;- Fonts
;
Global FontID1
FontID1 = LoadFont(1, "Edwardian Script ITC", 72, #PB_Font_Bold)
Global FontID2
FontID2 = LoadFont(2, "Arial Black", 72)
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 471, 273, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
TextGadget(#Gadget_0, 10, 10, 450, 90, "")
SetGadgetFont(#Gadget_0, FontID1)
TextGadget(#Gadget_1, 10, 150, 450, 110, "")
SetGadgetFont(#Gadget_1, FontID2)
ProgressBarGadget(#Gadget_2, 10, 100, 450, 40, 0, 60)
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
tag$ = Str(Day(Date()))
monat$ = Str(Month(Date()))
jahr$ = Str(Year(Date()))
stunde$ = Str(Hour(Date()))
minute$ = Str(Minute(Date()))
sekunde$ = Str(Second(Date()))
datum$ = tag$+"."+monat$+"."+jahr$
zeit$ = stunde$+":"+minute$+":"+sekunde$
;MessageRequester("Aktuelle Zeit",datum$+" "+sekunde$,0)
SetGadgetText(#Gadget_0, datum$)
SetGadgetText(#Gadget_1, zeit$)
SetGadgetState(#Gadget_2, sekunde$)
Delay (50)
EventID.l = WindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
End
Verfasst: 16.12.2005 17:45
von Thorsten1867
Mit diesem Gadget habe ich noch nicht gearbeitet. Es muss in jedem Fall eine Zahl übergeben werden.
z.B.