Kein richtiger Verschlüßler

[Thorsten1867]

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???

Code: Alles auswählen

SetGadgetState(#Gadget_2, sekunde$)

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$)

[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

[Thorsten1867]

Mit diesem Gadget habe ich noch nicht gearbeitet. Es muss in jedem Fall eine Zahl übergeben werden.

z.B.

Code: Alles auswählen

SetGadgetState(#Gadget_2, Val(sekunde$))