Daha iyi bir yöntem arıyorum

[Maxim]

bir sayı kadar led yanıp sönecek temel işleyiş bu
sayımız 1-9 arası ve 0
sıfır 10 kere yanıp sönüyor

sayı 3 ise led 3 kere
sayı 7 ise 7 kere yanıp sönecek

diyelim sayı 3

oradan gosub ile başka bir etikete dallanıyorum
orada select case komutunu kullanıyorum

Blink:
Select Say

Case 1
High CIKIS
GoSub Bekle

Case 2
High CIKIS
GoSub Bekle
High CIKIS
GoSub Bekle

Case 3
High CIKIS
GoSub Bekle
High CIKIS
GoSub Bekle
High CIKIS
GoSub Bekle

endselect
return


ayrıca birde bekle etiketine dallanma var

Bekle:
DelayMS 200
Low CIKIS
DelayMS 200
Return


bu yöntem haliyle çok yer kaplıyor
sayı 8 olabilir 9 olabilir
aynı şeyleri 9 kere takrar ediyorsun

mutlaka daha akılcı bir çözümü olması lazım

[jun]

sayıları bir değişkende tutup for döngüsüyle yapılabilir diye düşünüyorum

[ete]

SAY0]=10
SAY[1]=1
SAY[2]=2
SAY[3]=3
...
SAY[9]=9

BASLA:
           GOSUB SAYDIR

            GOTO BASLA

SAYDIR:
           TEMP=SAY[SAYI]
           FOR X=1 to TEMP
             HIGH CIKIS
             GOSUB BEKLE
             LOW CIKIS
             GOSUB BEKLE
           NEXT
           RETURN
Ete

[Maxim]

hocam teşekkürler
tam olmasada programın kapladığı yer neredeyse yarıya düştü böylece.