PUBLIC z AS Integer 'Zähler für die Zahl der Züge
PUBLIC w AS String 'Variable wer aktuell an der Reihe ist X oder O
PUBLIC SUB Form_Open()
ME.TEXT = "Sprint, wer setzt den letzten Stein. Ein Spiel für 2"
ME.Center
Button3_Click
END
SUB gewonnen()
'nach jedem Setzen wird geprüft ob die Gewinnkriterien erfüllt sind
DIM a AS Integer
a = 0
IF TextBox1.Text = "" THEN a = a + 1
IF TextBox2.Text = "" THEN a = a + 1
IF TextBox3.Text = "" THEN a = a + 1
IF TextBox4.Text = "" THEN a = a + 1
IF TextBox5.Text = "" THEN a = a + 1
IF TextBox6.Text = "" THEN a = a + 1
IF TextBox7.Text = "" THEN a = a + 1
IF TextBox8.Text = "" THEN a = a + 1
IF TextBox9.Text = "" THEN a = a + 1
IF TextBox10.Text = "" THEN a = a + 1
IF TextBox11.Text = "" THEN a = a + 1
IF TextBox12.Text = "" THEN a = a + 1
IF TextBox13.Text = "" THEN a = a + 1
IF TextBox14.Text = "" THEN a = a + 1
IF TextBox15.Text = "" THEN a = a + 1
IF TextBox16.Text = "" THEN a = a + 1
IF TextBox17.Text = "" THEN a = a + 1
IF TextBox18.Text = "" THEN a = a + 1
IF TextBox19.Text = "" THEN a = a + 1
IF TextBox20.Text = "" THEN a = a + 1
IF TextBox21.Text = "" THEN a = a + 1
IF TextBox22.Text = "" THEN a = a + 1
IF TextBox23.Text = "" THEN a = a + 1
IF TextBox24.Text = "" THEN a = a + 1
IF TextBox25.Text = "" THEN a = a + 1
IF TextBox26.Text = "" THEN a = a + 1
IF TextBox27.Text = "" THEN a = a + 1
IF TextBox28.Text = "" THEN a = a + 1
IF TextBox29.Text = "" THEN a = a + 1
IF TextBox30.Text = "" THEN a = a + 1
IF TextBox31.Text = "" THEN a = a + 1
IF TextBox32.Text = "" THEN a = a + 1
IF TextBox33.Text = "" THEN a = a + 1
IF TextBox34.Text = "" THEN a = a + 1
IF TextBox35.Text = "" THEN a = a + 1
IF TextBox36.Text = "" THEN a = a + 1
IF TextBox37.Text = "" THEN a = a + 1
IF TextBox38.Text = "" THEN a = a + 1
IF TextBox39.Text = "" THEN a = a + 1
IF TextBox40.Text = "" THEN a = a + 1
IF a = 0 THEN TextArea1.Text = w & " hat gewonnen"
END
SUB wechsel ()
INC z
IF z = 1 OR z = 3 OR z = 5 OR z = 7 OR z = 9 OR z = 11 OR z = 13 THEN
w = "X"
TextArea1.Text = "Am Zug ist O"
ENDIF
IF z = 2 OR z = 4 OR z = 6 OR z = 8 OR z = 10 OR z = 12 OR z = 14 THEN
w = "O"
TextArea1.Text = "Am Zug ist X"
ENDIF
TextArea2.Text = "Zug " & Str(z)
END
PUBLIC SUB TextBox1_DblClick()
IF TextBox1.Text = "" THEN
wechsel
TextBox1.Text = w
TextBox2.Text = "B"
TextBox3.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Feld schon belegt"
ENDIF
END
PUBLIC SUB TextBox10_DblClick()
IF TextBox10.Text = "" THEN
wechsel
TextBox10.Text = w
TextBox2.Text = "B"
TextBox3.Text = "B"
TextBox4.Text = "B"
TextBox9.Text = "B"
TextBox11.Text = "B"
TextBox15.Text = "B"
TextBox16.Text = "B"
TextBox17.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox11_DblClick()
IF TextBox11.Text = "" THEN
wechsel
TextBox11.Text = w
TextBox5.Text = "B"
TextBox3.Text = "B"
TextBox4.Text = "B"
TextBox10.Text = "B"
TextBox12.Text = "B"
TextBox16.Text = "B"
TextBox17.Text = "B"
TextBox18.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox12_DblClick()
IF TextBox12.Text = "" THEN
wechsel
TextBox12.Text = w
TextBox4.Text = "B"
TextBox5.Text = "B"
TextBox6.Text = "B"
TextBox13.Text = "B"
TextBox11.Text = "B"
TextBox17.Text = "B"
TextBox18.Text = "B"
TextBox19.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox13_DblClick()
IF TextBox13.Text = "" THEN
wechsel
TextBox13.Text = w
TextBox7.Text = "B"
TextBox5.Text = "B"
TextBox6.Text = "B"
TextBox12.Text = "B"
TextBox14.Text = "B"
TextBox20.Text = "B"
TextBox18.Text = "B"
TextBox19.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox14_DblClick()
IF TextBox14.Text = "" THEN
wechsel
TextBox14.Text = w
TextBox7.Text = "B"
TextBox8.Text = "B"
TextBox6.Text = "B"
TextBox13.Text = "B"
TextBox20.Text = "B"
TextBox19.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox15_DblClick()
IF TextBox15.Text = "" THEN
wechsel
TextBox15.Text = w
TextBox9.Text = "B"
TextBox10.Text = "B"
TextBox16.Text = "B"
TextBox22.Text = "B"
TextBox21.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox16_DblClick()
IF TextBox16.Text = "" THEN
wechsel
TextBox16.Text = w
TextBox9.Text = "B"
TextBox10.Text = "B"
TextBox11.Text = "B"
TextBox15.Text = "B"
TextBox17.Text = "B"
TextBox21.Text = "B"
TextBox22.Text = "B"
TextBox23.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox17_DblClick()
IF TextBox17.Text = "" THEN
wechsel
TextBox17.Text = w
TextBox12.Text = "B"
TextBox10.Text = "B"
TextBox11.Text = "B"
TextBox16.Text = "B"
TextBox18.Text = "B"
TextBox24.Text = "B"
TextBox22.Text = "B"
TextBox23.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox18_DblClick()
IF TextBox18.Text = "" THEN
wechsel
TextBox18.Text = w
TextBox12.Text = "B"
TextBox13.Text = "B"
TextBox11.Text = "B"
TextBox17.Text = "B"
TextBox19.Text = "B"
TextBox24.Text = "B"
TextBox25.Text = "B"
TextBox23.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox19_DblClick()
IF TextBox19.Text = "" THEN
wechsel
TextBox19.Text = w
TextBox12.Text = "B"
TextBox13.Text = "B"
TextBox14.Text = "B"
TextBox18.Text = "B"
TextBox20.Text = "B"
TextBox24.Text = "B"
TextBox25.Text = "B"
TextBox26.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox2_DblClick()
IF TextBox2.Text = "" THEN
wechsel
TextBox2.Text = w
TextBox1.Text = "B"
TextBox3.Text = "B"
TextBox9.Text = "B"
TextBox10.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox20_DblClick()
IF TextBox20.Text = "" THEN
wechsel
TextBox20.Text = w
TextBox13.Text = "B"
TextBox14.Text = "B"
TextBox19.Text = "B"
TextBox25.Text = "B"
TextBox26.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox21_DblClick()
IF TextBox21.Text = "" THEN
wechsel
TextBox21.Text = w
TextBox15.Text = "B"
TextBox16.Text = "B"
TextBox22.Text = "B"
TextBox27.Text = "B"
TextBox28.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox22_DblClick()
IF TextBox22.Text = "" THEN
wechsel
TextBox22.Text = w
TextBox15.Text = "B"
TextBox16.Text = "B"
TextBox17.Text = "B"
TextBox23.Text = "B"
TextBox21.Text = "B"
TextBox27.Text = "B"
TextBox28.Text = "B"
TextBox29.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox23_DblClick()
IF TextBox23.Text = "" THEN
wechsel
TextBox23.Text = w
TextBox18.Text = "B"
TextBox16.Text = "B"
TextBox17.Text = "B"
TextBox22.Text = "B"
TextBox24.Text = "B"
TextBox30.Text = "B"
TextBox28.Text = "B"
TextBox29.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox24_DblClick()
IF TextBox24.Text = "" THEN
wechsel
TextBox24.Text = w
TextBox18.Text = "B"
TextBox19.Text = "B"
TextBox17.Text = "B"
TextBox23.Text = "B"
TextBox25.Text = "B"
TextBox30.Text = "B"
TextBox31.Text = "B"
TextBox29.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox25_DblClick()
IF TextBox25.Text = "" THEN
wechsel
TextBox25.Text = w
TextBox18.Text = "B"
TextBox19.Text = "B"
TextBox20.Text = "B"
TextBox24.Text = "B"
TextBox26.Text = "B"
TextBox30.Text = "B"
TextBox31.Text = "B"
TextBox32.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox26_DblClick()
IF TextBox26.Text = "" THEN
wechsel
TextBox26.Text = w
TextBox19.Text = "B"
TextBox20.Text = "B"
TextBox25.Text = "B"
TextBox31.Text = "B"
TextBox32.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox27_DblClick()
IF TextBox27.Text = "" THEN
wechsel
TextBox27.Text = w
TextBox21.Text = "B"
TextBox22.Text = "B"
TextBox28.Text = "B"
TextBox33.Text = "B"
TextBox34.Text = "B"
TextBox35.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox28_DblClick()
IF TextBox28.Text = "" THEN
wechsel
TextBox28.Text = w
TextBox21.Text = "B"
TextBox22.Text = "B"
TextBox23.Text = "B"
TextBox27.Text = "B"
TextBox29.Text = "B"
TextBox34.Text = "B"
TextBox35.Text = "B"
TextBox36.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox29_DblClick()
IF TextBox29.Text = "" THEN
wechsel
TextBox29.Text = w
TextBox24.Text = "B"
TextBox22.Text = "B"
TextBox23.Text = "B"
TextBox28.Text = "B"
TextBox30.Text = "B"
TextBox37.Text = "B"
TextBox35.Text = "B"
TextBox36.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox3_DblClick()
IF TextBox3.Text = "" THEN
wechsel
TextBox3.Text = w
TextBox1.Text = "B"
TextBox2.Text = "B"
TextBox4.Text = "B"
TextBox9.Text = "B"
TextBox10.Text = "B"
TextBox11.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox30_DblClick()
IF TextBox30.Text = "" THEN
wechsel
TextBox30.Text = w
TextBox24.Text = "B"
TextBox25.Text = "B"
TextBox23.Text = "B"
TextBox29.Text = "B"
TextBox31.Text = "B"
TextBox37.Text = "B"
TextBox38.Text = "B"
TextBox36.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox31_DblClick()
IF TextBox31.Text = "" THEN
wechsel
TextBox31.Text = w
TextBox24.Text = "B"
TextBox25.Text = "B"
TextBox26.Text = "B"
TextBox30.Text = "B"
TextBox32.Text = "B"
TextBox37.Text = "B"
TextBox38.Text = "B"
TextBox39.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox32_DblClick()
IF TextBox32.Text = "" THEN
wechsel
TextBox32.Text = w
TextBox25.Text = "B"
TextBox26.Text = "B"
TextBox31.Text = "B"
TextBox38.Text = "B"
TextBox39.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox33_DblClick()
IF TextBox33.Text = "" THEN
wechsel
TextBox33.Text = w
TextBox27.Text = "B"
TextBox34.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox34_DblClick()
IF TextBox34.Text = "" THEN
wechsel
TextBox34.Text = w
TextBox28.Text = "B"
TextBox27.Text = "B"
TextBox33.Text = "B"
TextBox35.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox35_DblClick()
IF TextBox35.Text = "" THEN
wechsel
TextBox35.Text = w
TextBox27.Text = "B"
TextBox29.Text = "B"
TextBox34.Text = "B"
TextBox28.Text = "B"
TextBox36.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox36_DblClick()
IF TextBox36.Text = "" THEN
wechsel
TextBox36.Text = w
TextBox28.Text = "B"
TextBox30.Text = "B"
TextBox37.Text = "B"
TextBox35.Text = "B"
TextBox29.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox37_DblClick()
IF TextBox37.Text = "" THEN
wechsel
TextBox37.Text = w
TextBox29.Text = "B"
TextBox31.Text = "B"
TextBox30.Text = "B"
TextBox38.Text = "B"
TextBox36.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox38_DblClick()
IF TextBox38.Text = "" THEN
wechsel
TextBox38.Text = w
TextBox30.Text = "B"
TextBox32.Text = "B"
TextBox37.Text = "B"
TextBox31.Text = "B"
TextBox39.Text = "B"
TextBox40.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox39_DblClick()
IF TextBox39.Text = "" THEN
wechsel
TextBox39.Text = w
TextBox31.Text = "B"
TextBox38.Text = "B"
TextBox32.Text = "B"
TextBox40.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox4_DblClick()
IF TextBox4.Text = "" THEN
wechsel
TextBox4.Text = w
TextBox3.Text = "B"
TextBox5.Text = "B"
TextBox10.Text = "B"
TextBox11.Text = "B"
TextBox12.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox40_DblClick()
IF TextBox40.Text = "" THEN
wechsel
TextBox40.Text = w
TextBox38.Text = "B"
TextBox39.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox5_DblClick()
IF TextBox5.Text = "" THEN
wechsel
TextBox5.Text = w
TextBox4.Text = "B"
TextBox6.Text = "B"
TextBox13.Text = "B"
TextBox11.Text = "B"
TextBox12.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox6_DblClick()
IF TextBox6.Text = "" THEN
wechsel
TextBox6.Text = w
TextBox7.Text = "B"
TextBox5.Text = "B"
TextBox12.Text = "B"
TextBox13.Text = "B"
TextBox14.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox7_DblClick()
IF TextBox7.Text = "" THEN
wechsel
TextBox7.Text = w
TextBox6.Text = "B"
TextBox8.Text = "B"
TextBox13.Text = "B"
TextBox14.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox8_DblClick()
IF TextBox8.Text = "" THEN
wechsel
TextBox8.Text = w
TextBox7.Text = "B"
TextBox14.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB TextBox9_DblClick()
IF TextBox9.Text = "" THEN
wechsel
TextBox9.Text = w
TextBox2.Text = "B"
TextBox3.Text = "B"
TextBox10.Text = "B"
TextBox15.Text = "B"
TextBox16.Text = "B"
gewonnen
ELSE
TextArea1.Text = "Schon belegt"
ENDIF
END
PUBLIC SUB Button1_Click()
DIM msg AS String
msg = "Sprint: Spielregeln\n"
msg = msg & "Mit der Maus markiert der erste Spieler ein freies Feld.\n"
msg = msg & "Das Feld wird mit X gekennzeichnet.\n"
msg = msg & "Die benachbarten Felder werden automatisch mit B belegt.\n"
msg = msg & "Danach ist der Spielpartner dran.\n"
msg = msg & "Er bekommt O zugeordnet und klickt ein freies Feld an.\n"
msg = msg & "Gesetzt wird abwechselnd.\n"
msg = msg & "Sieger ist, wer das letzte Zeichen einsetzen kann."
Message.Info( msg ,"OK")
END
PUBLIC SUB Button2_Click()
DIM msg AS String
msg = "Fragen zum Spiel\n"
msg = msg & "Gibt es ein Spiel mit weniger als 8 Zügen?\n"
msg = msg & "Gibt es ein Spiel mit mehr als 13 Zügen?\n "
msg = msg & "Gibt es für den Spieler, der beginnen darf,\n"
msg = msg & "eine optimale Gewinnstrategie?\n"
msg = msg & "Wo wurde dieses Spiel das erste Mal gespielt?\n"
msg = msg & "Wo wurde dieses Spiel das erste Mal beschrieben?\n"
msg = msg & "Antworten per email an: rho54@gmx.de"
Message.Info( msg ,"OK")
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
z = 0
TextArea1.Text = "Am Zug ist X"
TextArea2.Text = "Zug 0"
END
PUBLIC SUB Button4_Click()
ME.Close
END