PureBoard

Verfasst: **01.02.2006 16:08**

Die Idee hatte ich auch schon, aber irgendwann hiess es eigentlich die Texte bleiben wie sie sind.
Aber wurscht.

Sollten es nicht trotzdem 505 und nicht 501 sein ? Oder hast du noch mehr geändert ?

Verfasst: **01.02.2006 16:30**

Sorry, habs jetzt dokumentiert !

Verfasst: **01.02.2006 16:59**

Als ersatzspiel: 4 gewinnt.

Code: Alles auswählen

      if random(4)=4
                Messagerequester("Gewonnen","Man bist du gut")
      endif

Verfasst: **01.02.2006 17:07**

499

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T($F)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
TextGadget(9,t,t*3,t,20,"=> A")
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
  ButtonGadget(a,t*a%3,a/3*t,t,t,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next

While O<>9
  x=WindowEvent()
  O=EventwParam()&$F
  If x-T(O)=13100
    T(O)=P+1
    z=Chr(t+P)
    P!1
    x=S(O,z)
    For i=S(9,"=> "+Chr(t+P)) To2
      If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i))
        For a=0 To9
          T(a)=S(a,"")
        Next
        P=S(9,z+" won")
      EndIf
      x+3
    Next
  EndIf
Wend

Kann aber mal der Oberschiedsrichter endlich festsetzen, dass an den Texten nix mehr geändert werden darf ?

Verfasst: **01.02.2006 17:22**

Kann aber mal der Oberschiedsrichter endlich festsetzen, dass an den Texten nix mehr geändert werden darf ?

Ab jetzt darf nichts mehr an den Texten geändert werden!!!

Verfasst: **01.02.2006 18:45**

498

Code: Alles auswählen


Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T(9)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
TextGadget(9,t,t*3,t,20,"=> A")
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
  ButtonGadget(a,t*a%3,a/3*t,t,t,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next

While O<>9
  x=WindowEvent()
  O=EventwParam()&$F
  If x-T(O)=13100
    T(O)=p+1
    z=Chr(t+p)
    p!1
    x=S(O,z)
    For i=S(9,"=> "+Chr(t+p)) To2
      If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i))
        For a=0 To9
          T(a)=S(a,"")
        Next
        p=S(9,z+" won")
      EndIf
      x+3
    Next
  EndIf
Wend

Verfasst: **01.02.2006 19:15**

Is das zulässig ?
Drück mal nen 'L' (z.B.) wenn das Fenster offen is

Verfasst: **01.02.2006 19:16**

Die andern Programme hab ich jetzt mal nicht getestet, aber Frankys letztes Programm hat zwei paar gravierende Mängel:
1.) Es läuft nur mit ausgeschaltetem Debugger
2.) Es lässt sich nicht beenden ohne den Taskmanager

//EDIT: Siehe die beiden nächsten Threads

Verfasst: **01.02.2006 19:18**

Beenden lässt es sich schon.
Vor einigen Versionen wurde die TAB-Taste zur Beenden-Taste ernannt

Verfasst: **01.02.2006 19:20**

Alle letzten Codes lassen sich mit TAB beenden.
Franky hat allerdings die Größe des Arrays geändert, was ein "Array Index out of bounds" nach sich zieht. (mit Debugger)

MFG PMV

PureBoard

PureGolf mit TicTacToe