16f877 (lcd ekranda) 5 buton led kontrolü

[biotec]

Device = 16F877
XTAL=4
ALL_DIGITAL true
LCD_DTPIN PORTB.4
LCD_RSPIN PORTB.2
LCD_ENPIN PORTB.3
TRISA=%11111111
TRISB=0
TRISC=0
ADCON1=7
LCDOUT $FE,1,"BiOTECELEKTRONiK"
PAUSE 200
LCDOUT $FE,$C0," >>>>AR-GE<<<<"
PAUSE 1500
GoSub DENE
BASLA:
LCDOUT $FE,1
LCDOUT $FE,1,"1.LED SONUK"
PAUSE 200
DENE:
If PORTA.0=1 Then
Low PORTC.0
GoSub DEME
Return
EndIf
DEME:
If PORTA.0=0 Then
LCDOUT $FE,2,"1.LED SANIYOR"
PAUSE 100
High PORTC.0
GoSub DENE
Return
EndIf
BASLAT:
LCDOUT $FE,1
LCDOUT $FE,1,"2.LED SONUK"
PAUSE 200
DENEK:
If PORTA.1=1 Then
Low PORTC.1
GoSub DEMEK
Return
EndIf
DEMEK:
If PORTA.1=0 Then
LCDOUT $FE,2,"2.LED SANIYOR"
PAUSE 100
High PORTC.1
GoSub DENEK
Return
EndIf
LCDOUT $FE,1
LCDOUT $FE,1,"3.LED SONUK"
PAUSE 200
DENEKK:
If PORTA.2=1 Then
Low PORTC.2
GoSub ORDA
Return
EndIf
DEMEKK:
If PORTA.2=0 Then
LCDOUT $FE,2,"3.LED SANIYOR"
PAUSE 100
High PORTC.2
GoSub ORDA
Return
EndIf
LCDOUT $FE,1
LCDOUT $FE,1,"4.LED SONUK"
PAUSE 200
DENEKKK:
If PORTA.3=1 Then
Low PORTC.3
GoSub DONDUR
Return
EndIf
DEMEKKK:
If PORTA.3=0 Then
LCDOUT $FE,2,"4.LED SANIYOR"
PAUSE 100
High PORTC.3
GoSub DONDUR
Return
EndIf
LCDOUT $FE,1
LCDOUT $FE,1,"5.LED SONUK"
PAUSE 200
GIT:
If PORTA.4=1 Then
Low PORTC.4
GoSub DENED
Return
EndIf
DENED:
If PORTA.4=0 Then
LCDOUT $FE,2,"5.LED SANIYOR"
PAUSE 100
High PORTC.4
GoSub GIT
Return
EndIf
GoTo BASLA
End


[Lütfen. Üye Olunuz...]

facebook paylaşım grubumuz açılmıştır..
[Lütfen. Üye Olunuz...]