Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

buton çalışması 16F628A

Başlatan EAelek., 15 Ocak 2020, 20:45:32

EAelek.

Merhaba Muhittin Hocam kolay gelsin burda buton uygulaması yapmaya çalışıyorum.
*1 kere butona basınca cıkıs vermesın  ya da
* sureklı bastıgım zaman yıne bısey yapmasın hatta program 2 sanıyede sonra başa dönup kesıme gırsın butonu bekleyıp sorgulasın ,bırakılınca tetıklenmeyı beklesın
*2 sanıye için de çift tetık gelırse yukseltme  4 defa cıkıs versın daha sonra dongu her gelen çift tetıkle 4 defa azaltma yapsın döngu bu sekılde devam etsın
 ısısde yapıyor uygulama da çalışmıyor hocam bordda bide confıg ayarlarından mı bılemedım.

Device 16F628A
Xtal 4
All_Digital true               
TRISA=0  
TRISB=1
PORTA=0 
PORTB=0

Dim  btn  As  PORTB.0
Dim  yuk  As  PORTB.6
Dim  asa  As  PORTB.5
Dim  led  As  PORTB.4

Dim a As Byte
Dim b As Byte
Dim s As Byte

a=0
s=0
b=0

baslai:
If btn=1 Then GoTo  basla
GoTo baslai

basla:
led=1
a=Counter btn, 2000
s=ERead 0

If a=1 And s<4  Then GoTo yukselt
If a=1 And s>=4 And s<9  Then GoTo azalt 
led=0

yukselt:
DelayMS 100
yuk=1:led=1
DelayMS 1100
yuk=0:led=0
DelayMS 100
b=ERead 0
b=b+1
EWrite 0,[b]
DelayMS 100
GoTo baslai

azalt:
DelayMS 100
asa=1:led=1
DelayMS 1100
asa=0:led=0
DelayMS 100
b=ERead 0
b=b+1
If b=8 Then b=0
EWrite 0,[b]
DelayMS 100
GoTo baslai