checkbox un true özelliği

[bunalthe]

selam arkadaslar.ben basit bir oyun yazıyorum.oyunda 90 adet checkbox nesnesi yer alıyor.ve belirli süre dilimleri var.mesela 30 sn 60 sn.oyunu oynayan kişi 30 veya 60 sn de nekadar checkbox işaretleyebilecek ona bakıyor.ama ben tru olan checkboxların sayısını bir textboxa aktarmayı yapamadım....

[Revlis]

checkboxlar array şeklinde ise

sayaç diye bir değişken tanımlarsın
lbound dan ubound a kadar bir döngü hazırlarsın
her true da sayacı 1 artırırsın
döngü bitince kutuda sayacın değerini gösterirsin


oyun biraz saçma hepsini işaretlerim

[bunalthe]

ama ben döngü de yaptım.sadece

if checkbox[i].checked=true then satırında problem yasıyorum
(i döngü deişkeni...buarada ıbound ubound nedemek?=)

oyun sacma ama bu oyundan 100 puan alacagım sınıfta kimse yapamadı

[Revlis]

lbound bir dizinin en düşük index ini , ubounda en yüksek index ini verir. tabi for each daha performanslıdır.

if [true/false] then .. şeklindedir.
if checkbox(i).checked then demen yeterli ayrıca arraylarda []değil () kullanılır.

[bunalthe]

Dim Control
ForEach Control InMe.Controls
IfTypeOf Control Is CheckBox Then
If Control.value = TrueThen
TextBox1.Text = + 1
EndIf
(studio.net 2005) textbox1.text=+1 satırında hata veriyor ve burada sadece checkbox nesnesinin sayısını ogrenebiliyorum ama ben true olanların sayısını bulmalıyım???nasıl yapıcam anlamadım??

[Revlis]

TextBox1.Text += 1 olacak olmasındadır.

[bunalthe]

If Control.value = True Then satırında Public member 'value' on type 'CheckBox' not found. hatasını veriyor.ama bunu for each dögüsü dısında daha farklı bişiyle yapabilirmiiz?

[Revlis]

ingilizce derslerini aksatma derim.
checkbox da value diye bir şey yok yazıyor .
.net de CheckBox1.Checked kullanman gerekiyor. vb6 da .value

[bunalthe]

abi ingilizce dersimiz olsa keske...meslek lisesi ögrencisiiz... bunu yapabilecegim daha kısa bir yol varmı sence
=?

[Revlis]

senin kodunu sana kopyalamak gibi olmasın ama

Dim Control As Object
        TextBox1.Text = 0
        For Each Control In Me.Controls
            If TypeOf Control Is CheckBox Then
                If Control.checked Then
                    TextBox1.Text += 1
                End If
            End If
        Next

daha makbulu yok bildiğim kadarıyla.