سلام به همگی
من چون میخوام مدار زیاد جریان نکشه (چون شارا¾ژ باتری زود تموم میشه) وقتی کلید را میزنم برنامه مربوطه را اجرا کنه در غیر این صورت به حالت خواب بره.ولی برنامه کار نمیکنه به نظرتون باید چیکار کنم
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Falling
Config Portc = Input
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As Byte , S As String * 5
Do
Powerdown
Loop
Int0_isr:
B =10
For A = 1 To 10
Print B
Next A
Return
گیرنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , _
Db7 = Portc.0 , Rs = Portc.5 , E = Portc.4
Dim S As Byte , Ss As String * 5 , B As Byte
Dim P As Byte , X As String * 5
Cls
Do
Input S
Locate 1 , 1
Lcd S
Loop
ممنون میشم
من چون میخوام مدار زیاد جریان نکشه (چون شارا¾ژ باتری زود تموم میشه) وقتی کلید را میزنم برنامه مربوطه را اجرا کنه در غیر این صورت به حالت خواب بره.ولی برنامه کار نمیکنه به نظرتون باید چیکار کنم
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Falling
Config Portc = Input
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As Byte , S As String * 5
Do
Powerdown
Loop
Int0_isr:
B =10
For A = 1 To 10
Print B
Next A
Return
گیرنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , _
Db7 = Portc.0 , Rs = Portc.5 , E = Portc.4
Dim S As Byte , Ss As String * 5 , B As Byte
Dim P As Byte , X As String * 5
Cls
Do
Input S
Locate 1 , 1
Lcd S
Loop
ممنون میشم
oo:
دیدگاه