با سلام
من میخوام با استفاده از ماژول HM-T,HM-R یک برنامه ای بنویسم که چند تا متغیر داده ها رو بفرستند ولی نمی دونم چه جوری تو گیرنده داده ها رو بگیرم
یعنی از کجا بفهمم که اون متغیری که دارم می خونم کدام دادست.
نمی دونم منظورم رو گرفتید یا نه.
اینم برنامه ی فرستنده:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Word
Enable_majol Alias Portb.1
Set Enable_majol
If Pinb.0 = 1 Then
A = 800
B = 800
C = 800
D = 800
If Pinb.1 = 1 Then
A = 900
B = 900
C = 900
D = 900
If Pinb.2 = 1 Then
A = 1000
B = 1000
C = 1000
D = 1000
If Pinb.3 = 1 Then
A = 1000
B = 1000
C = 800
D = 800
If Pinb.4 = 1 Then
A = 800
B = 800
C = 1000
D = 1000
If Pinb.5 = 1 Then
A = 1000
B = 800
C = 1000
D = 800
If Pinb.6 = 1 Then
A = 800
B = 1000
C = 800
D = 1000
End If
End If
End If
End If
End If
End If
End If
Do
waitms 100
Print A
Print B
Print C
Print D
Loop
End
من میخوام با استفاده از ماژول HM-T,HM-R یک برنامه ای بنویسم که چند تا متغیر داده ها رو بفرستند ولی نمی دونم چه جوری تو گیرنده داده ها رو بگیرم
یعنی از کجا بفهمم که اون متغیری که دارم می خونم کدام دادست.
نمی دونم منظورم رو گرفتید یا نه.
اینم برنامه ی فرستنده:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Word
Enable_majol Alias Portb.1
Set Enable_majol
If Pinb.0 = 1 Then
A = 800
B = 800
C = 800
D = 800
If Pinb.1 = 1 Then
A = 900
B = 900
C = 900
D = 900
If Pinb.2 = 1 Then
A = 1000
B = 1000
C = 1000
D = 1000
If Pinb.3 = 1 Then
A = 1000
B = 1000
C = 800
D = 800
If Pinb.4 = 1 Then
A = 800
B = 800
C = 1000
D = 1000
If Pinb.5 = 1 Then
A = 1000
B = 800
C = 1000
D = 800
If Pinb.6 = 1 Then
A = 800
B = 1000
C = 800
D = 1000
End If
End If
End If
End If
End If
End If
End If
Do
waitms 100
Print A
Print B
Print C
Print D
Loop
End
دیدگاه