سلام به همگی
یه سوالی داشتم اگه ممکنه کمکم کنید
من میخوام وقتی عددی رو میفرستم در گیرنده led مخصوص به همون عدد روشن شود که بفهمم آن عدد ارسال شده است(مثلا از 1 تا 30)
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Low Level
Config Portc = 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 Byte , S As String * 5
Do
Powerdown
Loop
End
Int0_isr:
B = Pinc
For A = 1 To 10
Print "mnt" ; B
Next A
Wait 1
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
Cursor Off
Dim A As String * 10 , Ss As String * 10 , B As Byte
Dim P As Byte , X As String * 10 , S As String * 10
Cls
Do
Input S
S = Mid(s , 2 , 5)
Ss = Left(s , 3)
If Ss = "mnt"then
A = Mid(s , 4 , 3)
P = Val(a)
Locate 1 , 1 : Lcd A ; " "
Wait 2
Cls
End If
Loop
به نظرتون باید چه تغییری باید در برنامم ایجاد کنم؟ به نظرم باید از لچ استفاده کنم درسته؟
ممنون میشم
یه سوالی داشتم اگه ممکنه کمکم کنید
من میخوام وقتی عددی رو میفرستم در گیرنده led مخصوص به همون عدد روشن شود که بفهمم آن عدد ارسال شده است(مثلا از 1 تا 30)
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Low Level
Config Portc = 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 Byte , S As String * 5
Do
Powerdown
Loop
End
Int0_isr:
B = Pinc
For A = 1 To 10
Print "mnt" ; B
Next A
Wait 1
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
Cursor Off
Dim A As String * 10 , Ss As String * 10 , B As Byte
Dim P As Byte , X As String * 10 , S As String * 10
Cls
Do
Input S
S = Mid(s , 2 , 5)
Ss = Left(s , 3)
If Ss = "mnt"then
A = Mid(s , 4 , 3)
P = Val(a)
Locate 1 , 1 : Lcd A ; " "
Wait 2
Cls
End If
Loop
به نظرتون باید چه تغییری باید در برنامم ایجاد کنم؟ به نظرم باید از لچ استفاده کنم درسته؟
ممنون میشم
oo:
دیدگاه