ايران ويج

$regfile = "M16def.dat"
$crystal = 4000000

Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , _
Db7 = Pinb.3 , Rs = Pinb.4 , E = Pinb.5
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd "* ETRmodern *"
Waitms 500
Dim Bb As Bit
Dim I As Integer
Config Debounce = 10
Config Pind.7 = Input

Dim J As String * 37
Enable Interrupts

Config Pind.3 = Input
Set Portd.3
Pin_ir Alias Pind.3

Config Int1 = Falling
On Int1 Isr_int1

Dim Cnt_ir As Integer


Declare Sub Flag


'***************************************************************
Main:

Cnt_ir = 0
Home
Lcd "GET TIME REM COD"

Enable Int1

Do
Debounce Pind.7 , 1 , Flag , Sub
Loop

'isr for infrared sensor
Isr_int1:

Bitwait Pin_ir , Set

Bb = Pin_ir
Incr Cnt_ir
J = J + Str(bb)

Return


End 'end program
'*****************************************************

Sub Flag

Disable Int1
Cls
Lcd "BIT NUMBERS :" ; Cnt_ir ; " "
For I = 0 To Cnt_ir
Locate 2 , 1
Lcd I ; "= " ; Mid(j , I , 1)
Wait 1
Next I
Enable Int1
End Sub Flag