PureGolf mit TicTacToe

Then · Beitrag von **Then** » 31.01.2006 23:13

ja aber dann sind die Felder nicht wieder LEER ! sondern ein P ist drin.....

ts-soft · Beitrag von **ts-soft** » 31.01.2006 23:16

o_O, hab nicht gesehen, das einer z verändert

HeX0R · Beitrag von **HeX0R** » 31.01.2006 23:16

jo, das war ich mal irgendwo

ts-soft · Beitrag von **ts-soft** » 31.01.2006 23:19

Ich würde sagen, das reicht, soll der Original-Author jetzt noch den Computer-Gegner einbauen und gut

Then · Beitrag von **Then** » 31.01.2006 23:21

finde ich auch - aber höchsens noch 400 Buchstaben - wir wollen ja unter 1000 bleiben !!!

HeX0R · Beitrag von **HeX0R** » 31.01.2006 23:23

Er kann ruhig mehr brauchen, wir machen das dann schon

ts-soft · Beitrag von **ts-soft** » 31.01.2006 23:32

Pausengame für Zwischendurch, 6 aus 48, damits nicht so schnell geht, fange ich mit 96 an. Sortierung muß sein!

Code: Alles auswählen

Dim a(48)
While c<6
  b=Random(48)
  If a(b)=0
    a(b)=1
    c+1
  EndIf  
Wend
For d=0 To48
  If a(d)=1
    Debug d+1
  EndIf
Next

nco2k · Beitrag von **nco2k** » 31.01.2006 23:52

Then hat geschrieben:Hör auf nen Erwachsenen !! ... bin 2 Tage früher hier gewesen !!

ja papi.

c ya,
nco2k

Lebostein · Beitrag von **Lebostein** » 01.02.2006 09:16

Schon mal den Debugger angemacht (ohne Debugger wird das Programm aufgrund eines Fehlers von Windows beendet)? Ich bekomme immer eine Fehlermeldung:

Code: Alles auswählen

  O=EventwParam()
    If T(O)=0

"Array index out of bounds"

Was ist das eigentlich für ein Befehl: EventwParam()?

Edit: Habs gerade gefunden: Zitat: PB bietet aber mit EventlParam() und EventwParam() 2 Funktionen, welche zwar nicht offiziell unterstützt werden, aber bisher einige PB-Versionen überstanden haben und wahrscheinlich niemals verschwinden werden, obwohl das theoretisch jederzeit passieren könnte. Diese beiden Funktionen liefern also den jeweiligen Wert des letzten mit WindowEvent oder WaitWindowEvent abgerufenen Ereignisses zurück und funktionieren nur unter Windows.

HeX0R · Beitrag von **HeX0R** » 01.02.2006 10:22

Du musst

Code: Alles auswählen

If WindowEvent()=13100

setzen.
(bzw, If w=13100 je nachdem welche Version du versuchst)

Auf manchen PCs wird offensichtlich ein WM_-Event > 9999 abgefeuert.
Bei uns kam das aber irgendwie nicht vor