سلام
اینم یه سورس برای کار با چند تا ماژول srf02 با پروتکل سریال
البته این برای دو تا ژوله شما میتونین بیشترش کنین
$regfile = "m8def.dat" : $crystal = 12000000 : $baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2 : Cursor Off : Cls
Dim A As Byte , B As Byte , C As Word
Dim D As Byte
Dim E As Byte
Dim F As Word
Enable Interrupts
Open "comd.3:9600,8,n,1" For Output As #1
Open "comd.2:9600,8,n,1" For Input As #2
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
Home : Lcd "Range1=" : Lcd C : Lcd "Cm "
Printbin #1 , 0
Waitms 50
Printbin #1 , 84
D = Waitkey(#2)
E = Waitkey(#2)
F = D * 256
F = F + E
Home Lower : Lcd "Range2=" : Lcd F : Lcd "Cm "
Loop
End