DAFLO programming Forum
Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming


 

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Tic Tac Toe für 2 Spieler



 
Neues Thema eröffnen   Neue Antwort erstellen    DAFLO programming Forum Foren-Übersicht -> RapidBatch
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
daos06
Forum-Administrator



Geschlecht: Geschlecht:männlich
Anmeldungsdatum: 05.08.2006
Beiträge: 135
Wohnort: Austria

BeitragVerfasst am: 12.08.2006, 20:01    Titel: Tic Tac Toe für 2 Spieler Antworten mit Zitat

Leider hat es noch keinen Computergegner, vll. progge ich es mal.

Code:
%Anfang

rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '120|100|200|150'
letdialog 'myDialog', 'caption', 'Tic Tac Toe'

rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'GROUP', '80|0|10|90'
letdialog 'myDialog:myWidget1', 'enabled', '0'

rem --- creating code for widget "myWidget2"
newdialog 'myDialog:myWidget2', 'GROUP', '40|20|140|15'
letdialog 'myDialog:myWidget2', 'enabled', '0'

rem --- creating code for widget "myWidget3"
newdialog 'myDialog:myWidget3', 'GROUP', '40|50|140|15'
letdialog 'myDialog:myWidget3', 'enabled', '0'

rem --- creating code for widget "myWidget4"
newdialog 'myDialog:myWidget4', 'GROUP', '125|0|10|90'
letdialog 'myDialog:myWidget4', 'enabled', '0'

rem --- creating code for widget "myWidget5"
newdialog 'myDialog:myWidget5', 'BUTTON', '45|10|35|15'
letdialog 'myDialog:myWidget5', 'enabled', '0'

rem --- creating code for widget "myWidget6"
newdialog 'myDialog:myWidget6', 'BUTTON', '90|10|35|15'
letdialog 'myDialog:myWidget6', 'enabled', '0'

rem --- creating code for widget "myWidget7"
newdialog 'myDialog:myWidget7', 'BUTTON', '135|10|35|15'
letdialog 'myDialog:myWidget7', 'enabled', '0'

rem --- creating code for widget "myWidget8"
newdialog 'myDialog:myWidget8', 'BUTTON', '45|40|35|15'
letdialog 'myDialog:myWidget8', 'enabled', '0'

rem --- creating code for widget "myWidget9"
newdialog 'myDialog:myWidget9', 'BUTTON', '90|40|35|15'
letdialog 'myDialog:myWidget9', 'enabled', '0'

rem --- creating code for widget "myWidget10"
newdialog 'myDialog:myWidget10', 'BUTTON', '135|40|35|15'
letdialog 'myDialog:myWidget10', 'enabled', '0'

rem --- creating code for widget "myWidget11"
newdialog 'myDialog:myWidget11', 'BUTTON', '45|70|35|15'
letdialog 'myDialog:myWidget11', 'enabled', '0'

rem --- creating code for widget "myWidget12"
newdialog 'myDialog:myWidget12', 'BUTTON', '90|70|35|15'
letdialog 'myDialog:myWidget12', 'enabled', '0'

rem --- creating code for widget "myWidget13"
newdialog 'myDialog:myWidget13', 'BUTTON', '135|70|35|15'
letdialog 'myDialog:myWidget13', 'enabled', '0'

rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]

[x] = '1'
repeat
rem Dialog starten
rundialog [event] = '0'



rem Ereignis auswerten
if [event] = 'click_myDialog:myWidget5'
   deldialog 'myDialog:myWidget5'
   newdialog 'myDialog:myWidget5', 'Label', '45|10|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget5', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget5', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget5', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget5', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget5', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget5', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget5', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget5', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget5', 'caption', ' X'
      [x] + '1'
    endif
    getdialog [a] = 'myDialog:myWidget5', 'caption'
endif 

if [event] = 'click_myDialog:myWidget6'
   deldialog 'myDialog:myWidget6'
   newdialog 'myDialog:myWidget6', 'Label', '90|10|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget6', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget6', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget6', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget6', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget6', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget6', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget6', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget6', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget6', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [b] = 'myDialog:myWidget6', 'caption'
endif

if [event] = 'click_myDialog:myWidget7'
   deldialog 'myDialog:myWidget7'
   newdialog 'myDialog:myWidget7', 'Label', '135|10|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget7', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget7', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget7', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget7', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget7', 'caption', ' X' 
      [x] + '1'
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget7', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget7', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget7', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget7', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [c] = 'myDialog:myWidget7', 'caption'
endif

if [event] = 'click_myDialog:myWidget8'
   deldialog 'myDialog:myWidget8'
   newdialog 'myDialog:myWidget8', 'Label', '45|40|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget8', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget8', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget8', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget8', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget8', 'caption', ' X' 
      [x] + '1'
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget8', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget8', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget8', 'caption', ' O' 
      [x] + '1'
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget8', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [d] = 'myDialog:myWidget8', 'caption'
endif

if [event] = 'click_myDialog:myWidget9'
   deldialog 'myDialog:myWidget9'
   newdialog 'myDialog:myWidget9', 'Label', '90|40|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget9', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget9', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget9', 'caption', ' X' 
      [x] + '1'
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget9', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget9', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget9', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget9', 'caption', ' X' 
      [x] + '1'
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget9', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget9', 'caption', ' X'
      [x] + '1'
    endif
    getdialog [e] = 'myDialog:myWidget9', 'caption'
endif

if [event] = 'click_myDialog:myWidget10'
   deldialog 'myDialog:myWidget10'
   newdialog 'myDialog:myWidget10', 'Label', '135|40|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget10', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget10', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget10', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget10', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget10', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget10', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget10', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget10', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget10', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [f] = 'myDialog:myWidget10', 'caption'
endif

if [event] = 'click_myDialog:myWidget11'
   deldialog 'myDialog:myWidget11'
   newdialog 'myDialog:myWidget11', 'Label', '45|70|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget11', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget11', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget11', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget11', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget11', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget11', 'caption', ' O' 
      [x] + '1'
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget11', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget11', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget11', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [g] = 'myDialog:myWidget11', 'caption'
endif

if [event] = 'click_myDialog:myWidget12'
   deldialog 'myDialog:myWidget12'
   newdialog 'myDialog:myWidget12', 'Label', '90|70|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget12', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget12', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget12', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget12', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget12', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget12', 'caption', ' O' 
      [x] + '1'
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget12', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget12', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget12', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [h] = 'myDialog:myWidget12', 'caption'
endif

if [event] = 'click_myDialog:myWidget13'
   deldialog 'myDialog:myWidget13'
   newdialog 'myDialog:myWidget13', 'Label', '135|70|35|15'
   If [x] = '1'
      letdialog 'myDialog:myWidget13', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '2'
      letdialog 'myDialog:myWidget13', 'caption', ' O'
      [x] + '1'
   elseIf [x] = '3'
      letdialog 'myDialog:myWidget13', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '4'
      letdialog 'myDialog:myWidget13', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '5'
      letdialog 'myDialog:myWidget13', 'caption', ' X'
      [x] + '1' 
   elseIf [x] = '6'
      letdialog 'myDialog:myWidget13', 'caption', ' O'
      [x] + '1' 
   elseIf [x] = '7'
      letdialog 'myDialog:myWidget13', 'caption', ' X'
      [x] + '1'   
   elseIf [x] = '8'
      letdialog 'myDialog:myWidget13', 'caption', ' O'
      [x] + '1'   
   elseIf [x] = '9'
      letdialog 'myDialog:myWidget13', 'caption', ' X'
      [x] + '1'
   endif
   getdialog [i] = 'myDialog:myWidget13', 'caption'
endif             




If [a] = ' X' & [b] = ' X' & [c] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [d] = ' X' & [e] = ' X' & [f] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [g] = ' X' & [h] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [a] = ' X' & [d] = ' X' & [g] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [b] = ' X' & [e] = ' X' & [h] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [c] = ' X' & [f] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [a] = ' X' & [e] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [g] = ' X' & [e] = ' X' & [c] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif

If [a] = ' O' & [b] = ' O' & [c] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [d] = ' O' & [e] = ' O' & [f] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [g] = ' O' & [h] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [a] = ' O' & [d] = ' O' & [g] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [b] = ' O' & [e] = ' O' & [h] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [c] = ' O' & [f] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [a] = ' O' & [e] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [g] = ' O' & [e] = ' O' & [c] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif

If [event] = 'close_myDialog' halt

until [x] = '10'

echo 'Unentschieden!'
confirm [quit] = 'Revanche?'
    If [quit] = [true] 
      deldialog 'myDialog:myWidget5'
      deldialog 'myDialog:myWidget6'
      deldialog 'myDialog:myWidget7'
      deldialog 'myDialog:myWidget8'
      deldialog 'myDialog:myWidget9'
      deldialog 'myDialog:myWidget10'
      deldialog 'myDialog:myWidget11'
      deldialog 'myDialog:myWidget12'
      deldialog 'myDialog:myWidget13'
      goto 'Anfang'   
      If [quit] = [false]
      halt
endif


%ende

If [s] = '1' | [s] = '2'
   confirm [quit] = 'Revanche?'
   If [quit] = [true] 
      deldialog 'myDialog:myWidget5'
      deldialog 'myDialog:myWidget6'
      deldialog 'myDialog:myWidget7'
      deldialog 'myDialog:myWidget8'
      deldialog 'myDialog:myWidget9'
      deldialog 'myDialog:myWidget10'
      deldialog 'myDialog:myWidget11'
      deldialog 'myDialog:myWidget12'
      deldialog 'myDialog:myWidget13'
      reset [a]
      reset [b]
      reset [c]
      reset [d]
      reset [e]
      reset [f]
      reset [g]
      reset [h]
      reset [i]
      goto 'Anfang'
   if [quit] = [false]
      halt

end
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden MSN Messenger
Anzeige








BeitragVerfasst am: 12.08.2006, 20:01    Titel: Anzeige

Nach oben
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    DAFLO programming Forum Foren-Übersicht -> RapidBatch Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.




Powered by phpBB 2.0.23 © 2001, 2002 phpBB Group


Thema 186281-186320 | Thema 472521-472560 | Thema 791561-791600

Impressum | Datenschutz

Bei iphpbb.com bekommen Sie ein Kostenloses Forum mit vielen tollen Extras