spingadget - stepping problem

[Burstnibbler]

Hallo,

hier das Ganze mal mit einem Array (auf Eventtype kann hierbei verzichtet werden).

Code: Alles auswählen

EnableExplicit

#Win=0
#Spn=0

Define Loop.i
Dim Spinner.i(10)

For Loop=0 To 10
  Spinner(Loop)=(Loop+1)*5
Next

OpenWindow(#Win,0,0,140,70,"SpinGadget",#PB_Window_SystemMenu)
SpinGadget(#Spn,20,20,100,25,0,10, #PB_Spin_ReadOnly)
SetGadgetText(#Spn,Str(Spinner(GetGadgetState(#Spn))))
SetActiveGadget(#Spn)

Repeat
  Select WaitWindowEvent()
   Case #PB_Event_Gadget
    If EventGadget()=#Spn
     SetGadgetText(#Spn,Str(Spinner(GetGadgetState(#Spn))))
    EndIf
   Case #PB_Event_CloseWindow : Break
  EndSelect
ForEver

MfG,
Burstnibbler

[STARGÅTE]

Wozu dann überhaupt das Array ?

Code: Alles auswählen

EnableExplicit

#Win=0
#Spn=0

OpenWindow(#Win,0,0,140,70,"SpinGadget",#PB_Window_SystemMenu)
SpinGadget(#Spn,20,20,100,25,0,10, #PB_Spin_ReadOnly)
SetGadgetText(#Spn,Str(GetGadgetState(#Spn)*5+5))
SetActiveGadget(#Spn)

Repeat
  Select WaitWindowEvent()
   Case #PB_Event_Gadget
    If EventGadget()=#Spn
     SetGadgetText(#Spn,Str(GetGadgetState(#Spn)*5+5))
    EndIf
   Case #PB_Event_CloseWindow : Break
  EndSelect
ForEver

[Burstnibbler]

Wozu dann überhaupt das Array ?

Jo, da haste auch wieder Recht !


Mfg,
Burstnibbler

[broozar]

danke für eure hilfe. genug beispielcode habe ich ja jetzt. bitte sagt mir nun auch noch, wo mein denkfehler lag.

[Burstnibbler]

Hallo broozar,

ich habe mir mal deinen Code genauer angeschaut und den Fehler tatsächlich gefunden .
Es ist die Konstante: #PB_Spin_Numeric

Das SpinGadget wird den Text automatisch mit dem aktuellen Wert des SpinGadgets updaten, womit SetGadgetText() nicht benötigt wird.

Das Problem dabei war dann, "der aktuelle Wert des SpinGadgets", welcher die ganze Berechnung durcheinander gebracht hat; und beim "Dauerfeuer" dann irgendwie vollends versagt hat.

Wenn du in deinem Code jetzt die Konstante weg lässt und die Werte "4" durch "5" ersetzt, dann funktioniert es.

MfG,
Burstnibbler

[hjbremer]

Es ist die Konstante: #PB_Spin_Numeric

Das Problem dabei war dann, "der aktuelle Wert des SpinGadgets", welcher die ganze Berechnung durcheinander gebracht hat; und beim "Dauerfeuer" dann irgendwie vollends versagt hat.

Das Spin-Gadget versagt nicht !!! !!!

Es tut genau das, was es tun soll,
würde es das nicht, so würde eine Flut von Protesten über Fred und Co hereinbrechen.

PS: in meinem Beispiel am Anfang fehlt genau dies Konstante. Darum und wegen dem einfacheren Code funktioniert der selbige.

Wenn schon Kritik, dann leise an der Hilfe von PB, die nicht genau und ausführlich genug ist.

[Burstnibbler]

Das Spin-Gadget versagt nicht !!! !!!

Habe ich ja auch nie behauptet !
Ich schrieb, dass durch die Verwendung dieser Konstante, der "aktuelle Gadgetwert des Spingadgets" die Berechnung durcheinander bringt und bei "Dauerfeuer" versagt. Und warum das so ist, habe ich mit dem Zitat aus der PB-Hilfe verdeutlicht - nämlich weil mit der Verwendung dieser Konstante, der Gadgettext automatisch geupdatet wird.

Es tut genau das, was es tun soll,

Ja!

würde es das nicht, so würde eine Flut von Protesten über Fred und Co hereinbrechen.

Also an der Flut hege ich leise Zweifel.

PS: in meinem Beispiel am Anfang fehlt genau dies Konstante. Darum und wegen dem einfacheren Code funktioniert der selbige.

Egal ob einfacher oder verkomplizierter Code! @Broozar wollte wissen, wo denn der Fehler in seinem Code liegt, und das ist nunmal die Verwendung dieser Konstante; denn ohne sie läuft sein Code ohne Probleme.

Wenn schon Kritik, dann leise an der Hilfe von PB, die nicht genau und ausführlich genug ist.

Laute Zustimmung !

MfG,
Burstnibbler