Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
AllDigital
Dim dta As Byte
Dim bfr As Byte
TRISA = 0xff 'inp
TRISB = 0x00 'out
main:
If PORTA.4 = 1 Then
Read 0, dta
PORTB = dta
Endif
scan:
'SwA on
If PORTA.0 = 1 Then
bfr.0 = 0
PORTB.0 = 1
Write 0, PORTB
Endif
'SwA off
If PORTA.1 = 1 Then
bfr.0 = 0
PORTB.0 = 0
Write 0, PORTB
Endif
'SwB on
If PORTA.2 = 1 Then
bfr.1 = 0
PORTB.1 = 1
Write 0, PORTB
Endif
'SwA off
If PORTA.3 = 1 Then
bfr.1 = 0
PORTB.1 = 0
Write 0, PORTB
Endif
Goto scan
Thanks.. It really help and i'm really appreciate it.