for a=4 to 29 step 5 ' 4. satırdan başlayarak beşer artııyor. for b=4 to 20 step 4 '4. sütundan başlayarak dörder artıyor. cells(a,b)=sayiuret(99,1) cells(a+1,b)=sayiuret(99,1) cells(a+1,b-1)="+" ' bu satır yeni eklendi. next bnext a
for a=4 to 29 step 5 ' 4. satırdan başlayarak beşer artııyor. for b=4 to 20 step 4 '4. sütundan başlayarak dörder artıyor.YenidenSayiUret: cells(a,b)=sayiuret(99,1) cells(a+1,b)=sayiuret(99,1) If cells(a,b)<=cells(a+1,b) then GoTo YenidenSayiUret End If cells(a+1,b-1)="-" next bnext a
[linkler sadece üyelerimize görünmektedir.] Hocam çalışmalarınız güzel ve faydalı. Bu çalışmaları ayrıca video haline getirip paylaşmayı düşünüyor musunuz?
İlginiz için teşekkür ederim. Daha önce birkaç başarısız denemem oldu. Videoda o an bir şeyler unutulabiliyor. 5 dakikalık videonun en az 60 dakikalık hazırlığı olmalı. Bu şekilde daha pratik olduğunu düşünüyorum, ancak zamanla ihtiyaç olursa öyle bir çalışma da yapabilirim.
Şu an 640 kişi ve 60 üye var.