if komutu süresi ne kadar

[isikyasar]

Merhaba Arkadaşlar,
Takıldığım bir husus oldu. 16f84 ile basit bir sistem düşünüyorum.

basla:

  For say=0 To 20000  ' buradaki 20000 değerini kaç yapmalıyım ki. pic in toplamda işleme süresi 5 saniye olsun
        PORTB=14
        If PORTA.1=0 Then
        GoTo dur
        End If
  Next
 
  GoTo basla

[Maxim]

böyle kod olmaz
öncelikle neden 5saniye beklemen gerekiyor onu bilmek lazım.
butona basma zamanınının tam yakalanması şart ise kesme kullanılabilir

[isikyasar]

programı icra eden asıl kodları eklemedim.program bir yerden sonra sadece sensör kontrolü için "porta.1"i bekliyor.5 saniyelik zaman içinde "port.a" da bir değişiklik olursa hemen kod başka yere dallanıyor.

sensor_kontrol:

For say=0 To 20000  ' buradaki 20000 değerini kaç yapmalıyım ki. pic in toplamda kodu işleme süresi 5 saniye olsun
        PORTB=14
        If PORTA.1=0 Then
        GoTo dur
        End If
  Next

goto ana_dongu

[Maxim]

işlemci hızına bağlı bu
proteusta deneyerek bulabilirsin istediğin zamanı

[isikyasar]

For say=0 To 49000 ile yaklaşık olarak 5 saniyeye yaklaştım.

sanırım işimi görür gibi. bakalım neler olacak. olmassa OG hocam dediğin gibi kesme kullanıcam.