Jak zacząć przesyłanie danych przez RS485 w Bascom? Konfiguracja i instrukcje

Input zmienna;

Print zmienna;

' rs485 dla atmega8 - testowy nadajnik

$regfile = "m8def.dat"

$crystal = 1000000
$baud = 9600

Config Portd.2 = Output

Config Serialin = Buffered , Size = 15

Declare Sub Odbior

Dim Lok As Bit
Dim Test As Bit
Dim Zn As String * 1
Dim I As Integer
Dim Adr_s As String * 5
Dim Adres As Byte
Dim Il_zn As Byte

Kierunek Alias Portd.2
Enable Interrupts
Reset Kierunek
Test = 1

Do
         Wait 2
         Gosub Nadaj
Loop
End                                                         'end program

Nadaj:
      Set Kierunek
      Waitms 1
      Print "{010}d"
      Waitms 1
      Reset Kierunek
Return

' rs485 dla atmega8 - testowy odbiornik

$regfile = "m8def.dat"

$crystal = 8000000
$baud = 9600

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5

Config Pind.2 = Output
Config Portc.5 = Output                               ' diodki
Config Portc.4 = Output
      Portc.5 = 0
      Portc.4 = 0
Config Serialin = Buffered , Size = 15

Declare Sub Odbior

Dim Zn As String * 1
Dim I As Integer
Dim Adr_s As String * 5
Dim Text As String * 4
Dim Adres As Byte
Dim Il_zn As Byte


Kierunek Alias Portd.2                                      'zmienia kierunek transmisji

Enable Interrupts


Cls
Reset Kierunek
Lcd "komunikacja"
Lowerline : Lcd "rs485 czekam..."

Do
   Wait 1
   Call Odbior
   Waitms 500
   Reset Portc.5
Loop
End                                                         'end program

Sub Odbior:
   Cls
   Zn = Inkey()
   If Zn = Chr(10) Then
      Zn = Inkey()
      If Zn = "d" Then
         Lcd "doszlo d :)"
         Set Portc.4
      Else
         Lcd "doszedl 1 znak"
      End If
      Set Portc.5
   Else
      Lcd "nie doszlo"
   End If
End Sub