Seite 18 von 22
Verfasst: 02.02.2006 19:54
von DarkDragon
Weniger:
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T($F)
t=65
q=t*3
CreateGadgetList(OpenWindow(0,0,0,q,220,1,"AB"))
For a=0 To9
ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
If a>8
TextGadget(a,t,q,t,20,"=> A")
EndIf
SetGadgetFont(a,LoadFont(a,z,24-a*4/3))
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: 02.02.2006 20:13
von PMV
Weniger:
nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen
MFG PMV
Verfasst: 02.02.2006 20:15
von Stefan
PMV hat geschrieben:Weniger:
nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen
Und bei dir sind die Buchstaben nicht gleich groß.
Verfasst: 02.02.2006 20:17
von DarkDragon
PMV hat geschrieben:Weniger:
nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen
MFG PMV
NicTheQuick sollte sein tool hier mal reinstellen, habs leider verloren.
[EDIT]
Stimmt. Naja sorry.
Verfasst: 02.02.2006 20:42
von PMV
Das Tool wäre wirklich hilfreich ... zum selberproggen is man ja schließlich
zu faul
Hast recht Stefan, aber wenn nicht so, dann halt so:
482
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T($F)
t=65
y=24
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
For a=0 To9
ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
If a>8
TextGadget(a,t,t*3,t,20,"=> A")
y/2
EndIf
SetGadgetFont(a,LoadFont(a,z,y))
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
MFG PMV
Verfasst: 02.02.2006 20:56
von HeX0R
481
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
y=24
Dim T(y)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
For a=0 To9
ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
If a>8
TextGadget(a,t,t*3,t,20,"=> A")
y/2
EndIf
SetGadgetFont(a,LoadFont(a,z,y))
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: 02.02.2006 20:56
von Stefan
480
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
y=24
Dim T(y)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
For a=0 To9
ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
If a>8
TextGadget(a,t,t*3,t,y,"=> A")
y/2
EndIf
SetGadgetFont(a,LoadFont(a,z,y))
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: 02.02.2006 21:00
von NicTheQuick
Ich fass es einfach nicht....
WEITER SO!!
Verfasst: 02.02.2006 21:33
von HeX0R
[Edit]
Leider stimmte das ned so ganz
Verfasst: 02.02.2006 21:52
von HeX0R
479
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
y=24
t=65
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB")))
For a=0 To9
ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
If a>8
TextGadget(a,t,t*3,t,y,"=> A")
y/2
EndIf
SetGadgetFont(a,LoadFont(a,z,y))
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
[Edit]
Wieso sagt denn keiner was ?
Bin ich der einzige, der meine eigene Konstruktion etwas gewagt findet ?
Kann CreateGadgetList() auch wirklich keine negativen Werte zurückgeben ?