Witam , prosty program nadajnika attiny45 i odbiornika atmega8 wszystko chodzi poprawnie ale potrzebuje do jednej linii podpiąć 3 nadajniki i nie wiem jak zmodyfikować program odbiornika tak aby na lcd 4x16 każdy był identyfikowany osobno i odczytywany w osobnej linii lcd . Lcd i reszta jest do ogarnięcia główny problem to identyfikacja każdego nadajnika osobno , nadajniki będą wysyłać informacje co 5 lub ileś tam minut , jestem początkującym w baskomie więc proszę o pomoc i wyrozumiałość . Program nadajnika i odbiornika
Nadajnik:
Nadajnik:
$regfile = "attiny45.dat"
Dim Bd(9) As Byte
Dim T As Integer
Dim T1 As Integer
Dim X As Byte
Dim Tmp As Byte
Declare Sub Read18
Config 1wire = Pinb.4
Do
1wwrite &HCC
1wwrite &H44
Waitms 250
Waitms 250
Gosub Read18
Open "comb.0:19200,8,n,1" For Output As #1
Print #1 , T ; Chr(13);
Close #1
Waitms 1000
Loop
Read18:
Waitms 250
Waitms 100
1wreset
1wwrite &HCC
1wwrite &HBE
...
Return
Odbiornik:
$regfile = "m8def.dat"
Config Lcd = 16 * 2
Dim A As String * 10
Config Pinc.1 = Input
Cursor Off
Cls
Lcd "START"
Waitms 500
Cls
Do
...
If Pinc.1 = 0 Then
Open "comc.0:19200,8,n,1" For Input As #1
Input #1 , A
Cls
Lcd "TEMP: " ; A
Close #1
End If
...
Loop