PureGolf mit TicTacToe

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Antworten
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

@Stefan
nicht schlecht mein lieber. :D

@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
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

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 :wink:
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 :wink: (sollte aber leichter sein, als der sechser im Lotto)
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Benutzeravatar
freedimension
Admin
Beiträge: 1987
Registriert: 08.09.2004 13:19
Wohnort: Ludwigsburg
Kontaktdaten:
Kontaktdaten von freedimension

Beitrag von freedimension »

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 :allright:
Beginne jeden Tag als ob es Absicht wäre!
Bild
BILDblog
Nach oben
Benutzeravatar
MLK
Beiträge: 267
Registriert: 01.11.2004 13:17
Wohnort: Hamburg

Beitrag von MLK »

459 :-D

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 8)
Nach oben
Benutzeravatar
Sylvia
verheiratet<br>1. PureGolf-Gewinner
Beiträge: 487
Registriert: 29.08.2004 09:42
Wohnort: Old Europe

Beitrag von Sylvia »

0

Code: Alles auswählen
...und DIESER Code funktioniert sogar !
Basic Pur = PureBasic
Nach oben
Stefan
Beiträge: 125
Registriert: 29.08.2004 10:51
Kontaktdaten:
Kontaktdaten von Stefan

Beitrag von Stefan »

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
Nach oben
Benutzeravatar
HeX0R
Beiträge: 3040
Registriert: 10.09.2004 09:59
Computerausstattung: AMD Ryzen 7 5800X
96Gig Ram
NVIDIA GEFORCE RTX 3060TI/8Gig
Win11 64Bit
G19 Tastatur
2x 24" + 1x27" Monitore
Glorious O Wireless Maus
PB 3.x-PB 6.x
Oculus Quest 2 + 3
Kontaktdaten:
Kontaktdaten von HeX0R

Beitrag von HeX0R »

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
Nach oben
Benutzeravatar
MLK
Beiträge: 267
Registriert: 01.11.2004 13:17
Wohnort: Hamburg

Beitrag von MLK »

443 8)

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
Nach oben
Stefan
Beiträge: 125
Registriert: 29.08.2004 10:51
Kontaktdaten:
Kontaktdaten von Stefan

Beitrag von Stefan »

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
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Wo bleibt die erste PB4 Version :D
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Antworten

Zurück zu „Offtopic“