۱۷-اسفند-۱۳۹۰, ۲۰:۰۰:۵۲
سلام به همگي
يه سوالي داشتم اگه ممكنه كمكم كنيد
من ميخوام وقتي عددي رو ميفرستم در گيرنده 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
به نظرتون بايد چه تغييري بايد در برنامم ايجاد كنم؟ به نظرم بايد از لچ استفاده كنم درسته؟
ممنون ميشم