Dim Kullanımı ve Diziler

[ECYavuz]

Dim CardC(52)

For I = 1 To 52
If I <= 13 Then CardC(I) = 1
If I <= 26 And I > 13 Then CardC(I) = 2
If I <= 39 And I > 26 Then CardC(I) = 3
If I > 39 Then CardC(I) = 4
Next

Kodları ile yapılmak istenen Dizi'ye değer ataması işlemi daha farklı biçimde nasıl yapılabilir.

Saygılar...

 

[ECYavuz]

Kimseden bir yan&#305;t gelmedi&#287;ine g&#246;re Bu Ba&#351;ka bir y&#246;ntem yoktur... anlam&#305;na m&#305; geliyor..

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki gibi olabilir.

Dim CardC(52)
 
For I = 1 To 13
CardC(I) = 1
CardC(I + 13) = 2
CardC(I + 26) = 3
CardC(I + 39) = 4
Next

Yada sonuca y&#246;nelik bir &#231;&#246;z&#252;m olarak,

Dim CardC(52)
 
For I = 1 To 52
CardC(I) = Int((I / 13.1)) + 1
Next

 

[ECYavuz]

Sn. Levent Bey &#231;ok te&#351;ekk&#252;rler...