Thema Datum  Von Nutzer Rating
Antwort
11.12.2007 16:34:26 Manuel S
NotSolved
Blau Aw:4 gewinnt!
 12.12.2007 11:50:56 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
12.12.2007 11:50:56		 Views:
979		 Rating:
     
Antwort:
  Ja
Thema:
Aw:4 gewinnt!
Hallo Manuel,
so einfach geht das nicht! Du wirst sicherlich die Spalten als mögliche Eingangswerte gewählt haben. Wenn ein Spieler die Spalte n gewählt hat (ich setze voraus, dass diese Spalte existiert!), muss du prüfen, welche Zeile in der Spalte bisher nicht besetzt ist, z.B. wenn das Array a(Spalten, Zeilen) von unten nach oben läuft:

if a(n,7)<>0 then msgbox "Eingabe nicht möglich!" 'Anweisungen für diesen Fall, z.B. zurück zur Eingabe
for i=0 to 7
if a(n,i)<>0 then a(n.i)=Spielennummer: exit for
next i

Wenn der Spielerzug erlaubt war, musst du prüfen, ob der neu gesetzt Stein Teil einer Viererkette ist. Das erfordert ein wenig logisches Denken, z.B. für die Horizontale:

b=0
for j=0 to 9
if a(j,i)=Spielennummer then
b=b+1
if b=4 then msgbox "Gewonnen":exit sub
else
b=0
end if
next j

Die übrigen Prüfungen kannst du dir selbst überlegen. Obige Zeilen habe ich auch nicht geprüft. Sie sollten aber funktionieren.

Viel Erfolg
Holger


Manuel S schrieb am 11.12.2007 16:34:26:

hi!

ich hätte ein anliegen, das betrifft ein spielchen, dass wir alle gut kennen, nämlich 4 gewinnt. ich würde gerne mit einer funktion, die ein 2-dimensionales array übergeben bekommt (8 zeilen, 10 spalten) bestimmen ob es einen sieger gibt oder nicht, also er soll nur true oder false ausgeben. und zwar wenn spieler 1 einen stein hineinwirft wird an dieser stelle 1 eingetragen, bei spieler 2 wird 2 eingetragen. wenn ein feld leer ist steht 0 drin. es muss allerdings von unten befüllt werden und kein stein sollte in der luft hängen. habt ihr vielleicht eine idee???

lg manu1588

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.12.2007 16:34:26 Manuel S
NotSolved
Blau Aw:4 gewinnt!
 12.12.2007 11:50:56 Holger
NotSolved