buton

[mamek]

arkadaslar ben basicde porta.1 deki butona basınca portbdeki ledler yazsın yine aynı butona basınca ledler sonsun bidaha basınca sadece ilk 4 led yansın  istiyorum.basicde yeniyim yardımcı olursanzı sevinirim.

[picmanya]

aratırsanız bu türden yüzlerce örnek görürsünüz burda ve internette

[mamek]

lutfen yardım edin bulamadım.benım istediğim 1 butona basınca her basışta 2 den fazla işi sırasıyla yaptırmak.3gundur bunua uğrasıyorum.örnekler felan indirdim aradğımı bulamadım lütfen yardım edin

[izzethoca]

umarım bu işini görür

TRISA=%00000001
TRISB=0
PORTA=0
PORTB=0

BILGI VAR BYTE
bilgi = 0
basla 
if porta.0 = 1 then bilgi = bilgi +1 : gosub led_yak
if bilgi = 4 then bilgi = 0 
goto basla
led_yak:
if bilgi = 0 then portb=0
if bilgi = 1 then portb=%11111111
if bilgi = 2 then portb=0
if bilgi = 3 then portb=%00001111
return 
end

[mamek]

işlemleri sırasıyla yapmıyor neden olabilir?

[mamek]

YARDIM EDECEK YOKMU ARKDASLAR

[izzethoca]

dostum yukarıdaki programı denedinmi
bende sorunsuz çalışıyor

[OG]

TRISA=%11111111      '' PORTA.0 1K lık dirençle +5V a bağlanacak
TRISB=0

PORTA=0
PORTB=0


X VAR Byte

''''''''''''''''''''''''''
basla:
    GoSub buton_bas

    PORTB=%11111111

    GoSub buton_birak

    GoSub buton_bas

    PORTB=%00000000
    
    GoSub buton_birak
    
    GoSub buton_bas

    PORTB=%00001111
    
    GoSub buton_birak
    
GoTo basla



'''''''''''''''''''''''''''''''
buton_bas:
    If PORTA.0 = 1 Then buton_bas        '' butona basılmasını bekle
Return


buton_birak:
    For x = 1 To 100
        pause 1
        If PORTA.0 = 0 Then buton_birak     '' Buton sıçramasını önlemek için
    Next  
Return