üç taş oyunu kodları :S

Dim UcTas(3 3) As String
Private Sub Command1_Click()
Dim Sayac As Integer
For satir = 1 To 3
For sutun = 1 To 3
MSFlexGrid1.Col = sutun - 1
MSFlexGrid1.Row = satir - 1
UcTas(satir sutun) = MSFlexGrid1.Text
Next
Next
Sayac = 0
For satir = 1 To 3
For sutun = 1 To 3
'X ile dolu hücreler
'X ile dolu hücreleri arıruz
If UcTas(satir sutun) = "X" Then
'En üst satırda değilse
If satir <> 1 Then
'üst satıra boş ise
If UcTas(satir - 1 sutun) = "" Then Sayac = Sayac + 1
End If
'En alt satırda değilse
If satir <> 3 Then
'alt satıra boş ise
If UcTas(satir + 1 sutun) = "" Then Sayac = Sayac + 1
End If
'En sağ süyunda değilse
If sutun <> 3 Then
'sağ sütuna boş ise
Private Sub MSFlexGrid1_Click()
Text1.Text = MSFlexGrid1.Text
Text1.SetFocus
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer Shift As Integer)
MSFlexGrid1.Text = Text1.Text
End Sub
If UcTas(satir sutun - 1) = "" Then Sayac = Sayac + 1
End If
End If
Next
Next
MsgBox Sayac & " adet ihtimal bulunmakta!"
End Sub


insan çocukluğundan nefret ediyo be ne biçim bi ders dersin ki oyun oynuyoruz yok ben almıyım desem de ekledim lazım olur canlar

adam açılamasınıda tek tek yapmış Allahım ya çıldırcam derste neden bunları göstermedi bize ya gitti başka şeyler gösterdi aptalllllllllllllllllllllllllllllllll şey nolcak

siteye vermiş arkadaşlar notları neden kızıyonuz ya vermeseydi

vermeseydi çok güzel olurdu canım sorduğu sorulara bak ya biz programlama öğrencisiyiz matemetik profesörü felan değil bana trigonometri soramazzz aptal işte ya aptall. bi arkadaşımızın süper sözü (kendini bilio o) profesyonel.............çocuğu nolcak.

ya ben bu taşları alır adamın kafasına fırlatırım saçımı başımı yolucam ya visual basic yattı kızlar ben söyliyim kafadan yaz okulunda görüşürüz

ya o sözü kim sölediyse ben alnından öpücem ya onu

öpemezsin canım imkansız:D fotografında öpebilirisn ancak tek yol bu

acaba neden hergün öpüyorum zaten

vay bee hergün öpüyon ha yeme beniiii

yerim seni

Fotoğraflarda Öpüyor..Birisi Birisi Yiyor..Birisi Bakıyor..
Kıyamet Alameti Allah Sonumuzu Hayır etsin

benide yiyyinnnn

ya yemek dediniz de ben acıkdım senide yerim mine yawrum sen yeterki iste
bugün taş üstünde taş kalmayacak bu kodlardanda çıkmadı zaten bakalım Allah sonumuzu hayretsin!

tamam yaa arkadaşlar yenmeyen açıkta kalanlar bana gelsin ben yerim.. mine(ahretlik) ben seni yerim..

ben kimseyi yiyemiyomm dolgu kırıldı acı çekiyommm

senin yerine de yiyebilirim.

övünmek kibi olmasın çok aç gözlüyümdür. önüme geleni yerim ama tabi biraz tipe de bakarım yemeden önce