PureBoard

t-master

Aus der Hilfe
(Date)

Debug FormatDate("%hh:%ii:%ss", Date())  ; zeigt die aktuelle Zeit mittels dem 00:00:00 Format

Wer lesen kann ist klar im Vorteil

t-master

Versuchs mal hiermit in Procedure find_var(*Name.Byte)

Code: Alles auswählen

  If quit=2 
    ProcedureReturn 0 
  Else 
        Procedurereturn var()\s  ;statt ProcedureReturn 1 
  EndIf

Habs aber jetzt nicht getestet.
Gruß t-master

t-master

ohne die entsprechenden Abfragen in der Schleife wird es wohl nicht funktionieren.
Habe ein kurzes Beispiel eingefügt.

Repeat
Delay (20)
UseWindow(#Window_0)

Select WindowEvent()

; <<<< eingefügt Anfang
Case #PB_Event_Gadget
Select EventGadgetID()
Case #Button_okey_anmeldung ...

t-master

Im Objektanzeiger (Unteres Fenster) das Panel markieren, dann im oberen Fenster unterhalb der Gadgets auf das Pluszeichen klicken.

Hoffe ich konnte damit helfen.

t-master

Ich hoffe das hilft dir ein wenig weiter.
Habe einige zeilen kommentiert.

Enumeration
#window_1
#gadget_1
#gadget_2 =11 ;Konstante definieren um den richtigen Antwortknopf herauszufinden
#gadget_3
#gadget_4
#gadget_5
#Font1
EndEnumeration

Structure Fragen
Frage.s
Antwort.s[4 ...

t-master

Versuch mal das hier:

Enumeration
#window_1
#gadget_1
#gadget_2 =11
#gadget_3
#gadget_4
#gadget_5
#Font1
EndEnumeration

Structure Fragen
Frage.s
Antwort.s[4]
Loesung.b
EndStructure

NewList Fragen.Fragen()

AddElement(Fragen())
Fragen()\Frage = "Frage1"
Fragen ...

Die Suche ergab 6 Treffer