Merhabalar,
Bu kod gerçekten çok ilginç, yazıldığı modülün en başında Option Explicit yok sanırım, (büyük bir hata) sayac ifadesi de tanımlanmadığına göre data() dizisini de yerel olarak kabul ediyorum.
Kod çok daha kısa yazılabilirdi, günümüz işlemcileri çok hızlı çalıştığı için gözle görülür bir fark olmaz ancak Bu kod kac_lamba için eşitlenen değer kadar lamba mı yakıyor yoksa numarası verilen lambayı mı yakıyor bu yüzden onu anlamak güç.
Eğer eşitlenen değer kadar lamba yakılmak isteniyor ise:
Sub led_yakma(kac_lamba As Integer)
led(kac_lamba).FillColor = &HFF00&
Text1.Text = (2 ^ kac_lamba ) - 1
End Sub
yok eğer numarası verilen lamba yakılmak isteniyor ise:
Sub led_yakma(kac_lamba As Integer)
led(kac_lamba).FillColor = &HFF00&
Text1.Text = 2 ^ kac_lamba
End Sub
yazmak yeterli olsa gerek. Lamba numaralandırmanın 0 dan başladığını kabul ediyorum. (Öyle gözüküyor)
Neden böyle olduğu konusu için ikili sayı sistemleri kelimesi ile google da araştırma yapmak yeterli olacaktır.
Saygılarımla,