Mouse ile Tıkla... Adını Yaz...

[ECYavuz]

Levent bey;

UserForm da:

Public Okart As Integer

şeklinde bir değişken tanımladım...

Class modüle de:

Set deger = UserForm1.Okart dedim ve

................
UserForm1.Image56.Picture = UserForm1.Controls("Image" & CardI(deger, 2)).Picture
....................

şeklinde kullanacağım... Doğrumu dur?

 

[ECYavuz]

İlginize çok teşekkürler....

 

[ECYavuz]

Pardon

CardI(deger, 2) burada deger kağıtları 2 ise computer oyuncularını tanımlıyordu... yani onları 2,3,4 diye kullanamazmıyız? illaa CardI(deger, 2oyun)...CardI(deger, 3oyun)....CardI(deger, 4oyun) diye değişken mi atamamız lazım

 

[ECYavuz]

tamam anladım CardI(deger1, 2oyun)...CardI(deger2, 3oyun)....CardI(deger3, 3oyun) şeklinde tanımlamamız gerekiyor sanırım..

 

[Levent Menteşoğlu]

Levent bey;

UserForm da:

Public Okart As Integer

şeklinde bir değişken tanımladım...

Class modüle de:

Set deger = UserForm1.Okart dedim ve

................
UserForm1.Image56.Picture = UserForm1.Controls("Image" & CardI(deger, 2)).Picture
....................

şeklinde kullanacağım... Doğrumu dur?

Aşağıdaki gibi olmalı.

Userformun kod sayfasının en üstünde

Public Okart As Integer şeklinde değişken tanımlayıp

bu değişkene userform içinde bir değer atamalısınız.

deger = UserForm1.Okart

Class modülde ise

UserForm1.Image56.Picture = UserForm1.Controls("Image" & CardI(userform1.deger, 2)).Picture

Şeklinde kullanmalısınız.

 

[ECYavuz]

Saygıdeğer ve Sevgili Admin'im Levent bey...Ben Programı eklesem, bir zahmet siz bu işlemi iki dakikada yapsanız... ben de bu gece rahat uyuyabilsem... Kötü mü olur...

 

[Levent Menteşoğlu]

tamam anladım CardI(deger1, 2oyun)...CardI(deger2, 3oyun)....CardI(deger3, 3oyun) şeklinde tanımlamamız gerekiyor sanırım..

Evet ama aşağıdaki gibi olmalı.

CardI(userform1.deger1, 2oyun)...CardI(userform1.deger2, 3oyun)....CardI(userform1.deger3, 3oyun)

 

[Levent Menteşoğlu]

9. Örneğin kendisinden önce Karo atılmış ise onunda karo atması ve elinde karo yoksa koz hangi kağıt ise onu atmasu gerekiyor...

Siz yukarıdaki işlemi halledin sonra dosyanızı ekleyin. Gerisini ben eklerim.

 

[ECYavuz]

Tamam Levent bey.... Size dönerim... Sağolun

 

[ECYavuz]

Levent bey dediğiniz gibi yaptım amaObject gerek ve daha bir sürü şey deyip hata verdi..

Ben oyun mantığınız sanırım ekranda göremeden yapmak zorunda kalacağım. hayırlısı...

 

[Levent Menteşoğlu]

Dosyanızı ekleyin.

 

[ECYavuz]

Dosya ektedir.

Teşekkür Ederim..

 

[Levent Menteşoğlu]

Ekleme yapabilmem için değişkenlere nerede atama yapılacağını bilmem gerekiyor.

 

[ECYavuz]

Bitir:
If Oyun <= 12 Then
Koz = Son * 4 + 1
Image54.Picture = Controls("Image" & CardB(Koz)).Picture
Koz = CardK(CardB(Koz))
ElseIf Oyun = 13 Then
Koz = 1
Image54.Picture = Controls("Image" & 13).Picture
ElseIf Oyun = 14 Then
Koz = 2
Image54.Picture = Controls("Image" & 26).Picture
ElseIf Oyun = 15 Then
Koz = 3
Image54.Picture = Controls("Image" & 39).Picture
ElseIf Oyun = 16 Then
Koz = 4
Image54.Picture = Controls("Image" & 52).Picture
Else
Koz = 0
Image54.Picture = Ura.Picture
End If

For I = 1 To 4
For J = 1 To Son
Cells(J, 4 + I) = CardI(J, I) & " - " & CardK(CardI(J, I))
Next J
Next I

Controls("Label" & S&#305;ra).Visible = True
Controls("TextBox" & S&#305;ra).BackColor = &HFFFF00

'**********************************************************************
'**********************************************************************
'**********************************************************************
'Oyuncular&#305;n ataca&#287;&#305; ka&#287;&#305;t burada belirleniyor.
'**********************************************************************
'**********************************************************************
'**********************************************************************

S&#305;ra = S&#305;ra + 1: If S&#305;ra > 4 Then S&#305;ra = 1



Oyun = Oyun + 1
If Oyun > 20 Then
msg1 = "OHEL Oyunu Sona Erdi... Falan Filan....."
msg = MsgBox(msg1 & vbLf & msg2, vbYesNo + vbExclamation, Ba&#351;l&#305;k)
If msg = vbNo Then Exit Sub
Oyun = 0
Comm.Visible = False
End If
OEL = El(Oyun)
If Oyun >= 13 Then
Son = 13
Else
Son = Oyun
End If

 

[ECYavuz]

Controls("Label" & S&#305;ra).Visible = True
Controls("TextBox" & S&#305;ra).BackColor = &HFFFF00

'************************************************* *********************
'************************************************* *********************
'************************************************* *********************
'Oyuncular&#305;n ataca&#287;&#305; ka&#287;&#305;t burada belirleniyor.
'************************************************* *********************
'************************************************* *********************
'************************************************* *********************

S&#305;ra = S&#305;ra + 1: If S&#305;ra > 4 Then S&#305;ra = 1

Bana o ******** alanda de&#287;er1, de&#287;er2.... atamalar&#305;n&#305; manuel bile olsa girebilece&#287;im kodu sa&#287;larsan&#305;z hemen ba&#351;lar&#305;m yazmaya...

 

[Levent Menteşoğlu]

Bu &#351;ekilde sonu&#231; alamay&#305;z. &#214;ncelikle sizin at&#305;lacak ka&#287;&#305;d&#305;n tespit edilece&#287;i mant&#305;&#287;&#305; geli&#351;timeniz gerekiyor. Bu mant&#305;&#287;&#305;n ataca&#287;&#305;m&#305;z ka&#287;&#305;d&#305; t&#305;klad&#305;ktan sonra &#231;al&#305;&#351;t&#305;r&#305;lmas&#305; gerekiyor. Dolay&#305;s&#305;yla class mod&#252;l i&#231;ine yaz&#305;lmal&#305;d&#305;r. Sonras&#305;nda bu mant&#305;&#287;&#305; class mod&#252;l i&#231;ine yerle&#351;tiririz.

 

[ECYavuz]

Okey anlad&#305;m. tamam ben For Next d&#246;ng&#252;s&#252; i&#231;inde oyun mant&#305;&#287;&#305;n&#305; size g&#246;nderece&#287;im ve siz bunu Class mod&#252;l i&#231;ine yarle&#351;tireceksiniz.

&#304;n&#351;allah do&#287;ru telaffuz etmi&#351;imdir.
G&#246;sterdi&#287;iniz sab&#305;r i&#231;in &#231;ok te&#351;ekk&#252;rler...
&#304;yi geceler...

 

[ECYavuz]

Controls("Label" & S&#305;ra).Visible = True
Controls("TextBox" & S&#305;ra).BackColor = &HFFFF00

'************************************************* *********************
'************************************************* *********************
'Oyuncular&#305;n ataca&#287;&#305; ka&#287;&#305;t burada belirleniyor.
'************************************************* *********************
'************************************************* *********************

S&#305;ra = S&#305;ra + 1: If S&#305;ra > 4 Then S&#305;ra = 1

Peki bu arada yap&#305;lacak i&#351;lemler Class mod&#252;lde olacaksa Class mod&#252;l&#252; nas&#305;l &#231;a&#287;&#305;raca&#287;&#305;z... Vay can&#305;na Amigada bu i&#351; ne kadar kolaym&#305;&#351;.. &#350;u PC bizi etti pisi...

 

[Levent Menteşoğlu]

Okey anladım. tamam ben For Next döngüsü içinde oyun mantığını size göndereceğim ve siz bunu Class modül içine yarleştireceksiniz.

İnşallah doğru telaffuz etmişimdir.
Gösterdiğiniz sabır için çok teşekkürler...
İyi geceler...

Evet bu şekilde yapmamız gerekiyor.

Sizede iyi geceler.

 

[ECYavuz]

Ben en iyisi at&#305;lacak ka&#287;&#305;tlar&#305; tabandaki Excel sayfas&#305;na bast&#305;ray&#305;m, Class mod&#252;le ve image kontrolu i&#351;ine sonra bakar&#305;z...