Przyjazne Bascom Forum

Witam.
Od kilku dni borykam się z wysyłaniem i odbieraniem danych na COM1 oraz COM2, no i wielka lipka.
Konfiguracja komunikacji mam taką:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$regfile = "m2560def.dat"
$crystal = 16000000
$hwstack = 250
$swstack = 250
$framesize = 250
Config Com1 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Enable Interrupts
Open "com1:" For Binary As #1
Open "com2:" For Binary As #2

Jeden z tych portów wysyła dane z sterownika MPPT do komputera przy pomocy modułu radiowego HC-12,
a drugi COM ma za zadanie wysyłać dane do samego regulatora MPPT.
A więc moje pytanko brzmi? w jaki sposób wysłać taką komendę poniżej i co by trzeba było dopisać w programie, pewnie trzeba by użyć procedurki - serialin1 lub 2.
- częstotliwość: "S1F20.5T"
- Wypełnienie : "S1D075T"
Wysyłanie musi być w cudzysłowach.
Bardzo bym był wdzięczny za pomoc.

Trochę mało danych a i program to to nie jest tylko namiastka

Samo wysyłanie jest dość proste. Cudzysłów ma w ASCII wartość 34. Żeby coś wysłać w cudzysłowiu wystarczy dodać "{034}"
Kiedy otwierasz port Alias #1 to potem musisz tego używać.
Tak wiec na końcu komendy mogą wyglądać tak:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Print #1, "{034}S1F20.5T{034}";
'albo
Printbin #1, "{034}S1F20.5T{034}"

Ta maleńka regułka powiodła. Pierwsza linijka kodu .
Print #3, "S1F45.5T";

A co z tym odbiorem danych? Czy dobrze tak będzie.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Dim info As String * 16
Config Serialin3 = Buffered , Size = 100 , Bytematch = All
Enable Interrupts
do
If Ischarwaiting() = 1 Then
Input info
Locate 12 , 1 : Lcd Info ' wyświetlanie informacji przychodzącej
End If
Loop

Wsadź ten kod prawidlowo w znaczniki jak każdy mój inny tu na Forum.
To nie jest skomplikowane. Edytujesz wiadomość i zamiast "</>" wybierasz niżej "Select code" . Dalej z rozwijanej listy wybierasz Bascom AVR i kod będzie kolorowany i na dodatek nie trzeba go przewijać.

Ten kod odbioru ma ten sam błąd. Powinno się napisać:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

If Ischarwaiting(#3) = 1 Then
Input #3 , info ' <<< WAŻNE gdzie spodziewasz się danych #3
Locate 12 , 1 : Lcd Info ' wyświetlanie informacji przychodzącej
End If

Dodatkowo powinieneś sprawdzić jak się kończą te stringi wysyłane przez moduł bo to równie ważne. Jak Bascom będzie czekał na Enter a go nie będzie to będzie czekał w nieskończoność i program zawiśnie.
Do tego na co czeka w takim wypadku Bascom służy polecenie "Config Input"

Przyjazne Bascom Forum

Komunikacja UART

Komunikacja UART

Re: Komunikacja UART

Re: Komunikacja UART

Re: Komunikacja UART