PureBoard

Verfasst: **03.02.2006 00:34**

@Stefan
nicht schlecht mein lieber.

@ts-soft
55 zeichen:

For n=1 To6
  Repeat
    a=Random(48)+1
  Until a<>b
  b=a
  Debug a
Next

das problem ist nur, dass die zahlen mehrmals vorkommen können, aber die chancen sind sehr gering. gilt das trotzdem?

c ya,
nco2k

Verfasst: **03.02.2006 01:13**

nco2k hat geschrieben: @ts-soft
55 zeichen:
Code: Alles auswählen
For n=1 To6
  Repeat
    a=Random(48)+1
  Until a<>b
  b=a
  Debug a
Next
das problem ist nur, dass die zahlen mehrmals vorkommen können, aber die chancen sind sehr gering. gilt das trotzdem?

c ya,
nco2k

Selbstverständlich nicht, ist ja viel zu einfach

6 aus 49, keine Doppelten und in sortierter Reihenfolge, so wie es bei der Samstags-Ziehung angezeigt wird, ohne Zusatzzahl usw.
Hab ja langsam das Gefühl, das ist zu schwer

(sollte aber leichter sein, als der sechser im Lotto)

Verfasst: **03.02.2006 01:18**

460!

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
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)
  TextGadget(9,t,t*3,t,t,"=> A")
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
Next
While O<>9
  x=WindowEvent()-'3,'
  O=EventwParam()&$F
  If x=T(O)
    T(O)=P+1
    z=Chr(t+P)
    P!1
    S(O,z)
    For i=S(9,"=> "+Chr(t+P))To2
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i)
        For a=0 To9
          T(a)=S(a,"")
        Next
        P=S(9,z+" won")
      EndIf
      x+3
    Next
  EndIf
Wend

Mit Dank an Prof. Toennissen für die Vorlesung über Boolesche Algebra

Verfasst: **03.02.2006 03:11**

459

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
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) 
  TextGadget(9,t,t*3,t,t,"=> A") 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O-9 
  x=WindowEvent()-'3,' 
  O=EventwParam()&$F 
  If x=T(O) 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    S(O,z) 
    For i=S(9,"=> "+Chr(t+P))To2 
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i) 
        For a=0 To9 
          T(a)=S(a,"") 
        Next 
        P=S(9,z+" won") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

vielen dank an gott

Verfasst: **03.02.2006 09:49**

0

Code: Alles auswählen

...und DIESER Code funktioniert sogar !

Verfasst: **03.02.2006 14:36**

458

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
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) 
  TextGadget(9,t,t*3,t,t,"=> A") 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O-9 
  x=WindowEvent()-'3,' 
  O=EventwParam()&$F 
  If x=T(O) 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    S(O,z) 
    For i=S(9,"=> "+Chr(t+P))To2 
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i) 
        For a=S(9,z+" won")To8 
          T(a)=S(a,"")
        Next
        P=0
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

Verfasst: **03.02.2006 16:18**

455

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
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)
  TextGadget(9,t,t*3,t,t,"=> A")
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
Next
While O-9
  x=WindowEvent()-'3,'
  O=EventwParam()&$F
  If x=T(O)
    T(O)=P+1
    z=Chr(t+P)
    P!1
    S(O,z)
    For i=S(9,"=> "+Chr(t+P))To2
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i)
        For a=S(9,z+" won")To8
          T(a)=S(a,"")
        Next
      EndIf
      x+3
    Next
  EndIf
Wend

Verfasst: **03.02.2006 17:34**

443

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
t=65 
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))) 
z.s="=> A"
1:
For a=0 To9
  ButtonGadget(a,t*a%3,a/3*t,t,t,"")
  TextGadget(9,t,t*3,t,t,z)
  T(a)=SetGadgetFont(a,LoadFont(a,"",24-a/9*12))
Next
While O-9
  x=WindowEvent()-'3,' 
  O=EventwParam()&$F 
  If x=T(O) 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    S(O,z) 
    For i=S(9,"=> "+Chr(t+P))To2 
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i)
        z+" won"
        Goto 1
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

Verfasst: **03.02.2006 18:03**

442

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
t=65 
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))) 
z.s="=> A" 
1: 
For a=0 To9 
  ButtonGadget(a,t*a%3,a/3*t,t,t,"") 
  TextGadget(9,t,t*3,t,t,z) 
  T(a)=SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O-9 
  x=WindowEvent()-'3,' 
  O=EventwParam()&$F 
  If x=T(O) 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    S(O,z) 
    For i=S(9,"=> "+Chr(t+P))To2 
      If T(x)&T(x+1)&T(x+2)+(T(i+3)&T(i+6))|(T(4)&T(8-i))&T(i) 
        z+" won" 
        Goto 1 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

Verfasst: **03.02.2006 18:04**

Wo bleibt die erste PB4 Version

PureBoard

PureGolf mit TicTacToe