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