hossein8018
28-01-2013, 21:05
سلام به همگي
اين برنامه براي ارتباط بين دو ماژول مخابراتی است ولی powerdown آن کار نمیکنه باید چه تغییری در برنامه بدهم
ممنون میشم
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Low Level
Config Portc = Input
Config Portd.2 = Input
Config Portb.0 = Output
Config Portd.4 = Output
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As String * 5 , D As Byte
Do
Reset Portd.4
Powerdown
Print "return from power down"
Loop
End
Int0_isr:
Set Portd.4
B = Pinc
A = Str(b)
For D = 1 To 10
Print "hoss" ; A ; Chr(13);
Waitms 50
Next
Return
End
اين برنامه براي ارتباط بين دو ماژول مخابراتی است ولی powerdown آن کار نمیکنه باید چه تغییری در برنامه بدهم
ممنون میشم
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Low Level
Config Portc = Input
Config Portd.2 = Input
Config Portb.0 = Output
Config Portd.4 = Output
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As String * 5 , D As Byte
Do
Reset Portd.4
Powerdown
Print "return from power down"
Loop
End
Int0_isr:
Set Portd.4
B = Pinc
A = Str(b)
For D = 1 To 10
Print "hoss" ; A ; Chr(13);
Waitms 50
Next
Return
End