ATNEL tech-forum

Re: Procedura odbioru bajtów przez RS232

2014-07-11T20:02:49+01:00

Widzę że autor już zdążył zapomnieć o swoim problemie bo ani "bee" ani "mee" na nasze odpowiedzi.

Statystyki: Napisane przez pikczu — 11 lip 2014, o 20:02

Re: Procedura odbioru bajtów przez RS232

2014-06-09T20:41:32+01:00

Niveasoft napisał(a):

Funkcja Ischarwaiting nie działa gdy włączymy buforowanie w Config serialinn.

Nie zgodzę się z tobą nie działa jak używasz software uart.
Jak używasz Hardware Uart działa bo sama nazwa mówi is char waiting -czyli jeśli znak czeka gdzie w buforze.
I dokładnie jest to zademonstrowane w przykładzie do ischarwaitng
[syntax=basic4gl]-----------------------------------------------------------------------------------------
'name : rs232buffer.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : example shows the difference between normal and buffered
' serial INPUT
'micro : Mega161
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m161def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 9600 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'first compile and run this program with the line below remarked
Config Serialin = Buffered , Size = 20

Dim Na As String * 10

'the enabling of interrupts is not needed for the normal serial mode
'So the line below must be remarked to for the first test
Enable Interrupts

Print "Start"
Do
'get a char from the UART

If Ischarwaiting() = 1 Then 'was there a char?
Input Na
Print Na 'print it
End If

Wait 1 'wait 1 second
Loop

'You will see that when you slowly enter characters in the terminal emulator
'they will be received/displayed.
'When you enter them fast you will see that you loose some chars

'NOW remove the remarks from line 11 and 18
'and compile and program and run again
'This time the chars are received by an interrupt routine and are
'stored in a buffer. This way you will not loose characters providing that
'you empty the buffer
'So when you fast type abcdefg, they will be printed after each other with the
'1 second delay

'Using the CONFIG SERIAL=BUFFERED, SIZE = 10 for example will
'use some SRAM memory
'The following internal variables will be generated :
'_Rs_head_ptr0 BYTE , a pointer to the location of the start of the buffer
'_Rs_tail_ptr0 BYTE , a pointer to the location of tail of the buffer
'_RS232INBUF0 BYTE ARRAY , the actual buffer with the size of SIZE[/syntax]

Statystyki: Napisane przez pikczu — 9 cze 2014, o 20:41

Re: Procedura odbioru bajtów przez RS232

2014-06-07T22:03:58+01:00

Niveasoft napisał(a):

PS. Uart może być też buforowany

Ja bym powiedział że MUSI być buforowany.

Statystyki: Napisane przez pikczu — 7 cze 2014, o 22:03

Re: Procedura odbioru bajtów przez RS232

2014-06-06T23:05:26+01:00

Możliwości jest wiele a rozwiązań tyle co programistów.
Można użyć znaków ASCII co może być czytelne dla oka i łatwe do testowania z terminala poprzez wklepywanie kolejnych znaków.
czyli w pętli głównej piszesz:

[syntax=basic4gl]If Ischarwaiting() > 0 Then 'calls _gotchar and use URXC

Char_ = Waitkey() 'get char from buffer
'could be as well inkey
If Char_ = 13 Or Len(uart_command) > 20 Then ' check for ENTER of more then 20 characters
Call Uartrx '

Print '
Print Prompt; 'promt if you want
Uart_command = ""
Else
Uart_command = Uart_command + Chr(char_) 'buffor building very important part

Print Chr(char_) ; 'this is echo

End If

End If[/syntax]

Można tez użyc petli while -wend przykład dla drugiego portu
[syntax=basic4gl]While Ischarwaiting(#1) > 0 '

Char_1 = Inkey(#1) 'get char from buffer

If Char_1 = 13 Or Len(uart_command_1) > 10 Then ' check for ENTER of more then 20 characters
Call Uartrx_1 '
'Print '
'Print Prompt; 'promt if you want
Uart_command_1 = ""
Else
Uart_command_1 = Uart_command_1 + Chr(char_1) 'buffor building

'Print Chr(char_); 'this is echo
End If
Wend[/syntax]

powyższe załatwia odbiór znaków ascii trzeba to teraz jakoś rozróżnić i zareagować.
Pasuje po grupować te znaki w jakieś komendy:

[syntax=basic4gl]Uartrx:

Lcount = Split(uart_command , Getcommands(1) , " ") 'This choping coomand after space

Debug Chr(13)
Debug "lcount= " ; Lcount
Debug "uart_command= " ; Uart_command
Debug "Getcommands(1)= " ; Getcommands(1)
Debug "Getcommands(2)= " ; Getcommands(2)
Debug "Getcommands(3)= " ; Getcommands(3)

Print " "; 'command>> az 0 0 'printing proper spaces
Select Case Getcommands(1)

Case Azimut 'az

Print #1 , Impuls1 ; " " ; Impuls2 ; " " ; "77" ; Chr(13);

Case Calibrate 'calib

Debug "case calibrate"

Select Case Getcommands(2)

Case Imp1

Print " Curent impuls1 value=" ; Impuls1

Impuls1 = Val(getcommands(3))

Print "New value= " ; Impuls1

Case Imp2

Print " Curent impuls2 value=" ; Impuls2

Impuls2 = Val(getcommands(3))

Print "New value= " ; Impuls2

Case Else

Print Prompt ; Uart_command ; Notincommands '

Print Prompt ;

Getcommands(1) = ""
Getcommands(2) = ""
Getcommands(3) = ""
End Select
Case Ccw
Portk.7 = 1
Portk.6 = 0

Case Cw
Portk.7 = 0
Portk.6 = 1
Case _stop

Portk.7 = 0
Portk.6 = 0

Case Help '?

Debug "case help"

Print

Print " calib = calibrate impuls1 and impuls2 "

Print " cw = clockwise rotation "

Print " ccw = counter clockwise rotation "

Print " imp1 = impuls1 "

Print " imp2 = impuls2 "

Print " ? = list all commands "

Print " az = get current azimut "

Print " reboot = reboot system"

Print " stop = stop rotor "

Case Reboot
Print

Print " Wait rebooting "

Start Watchdog

Case Test_on
Print " AZ test started "
Set Teston

Case Test_off
Print " tu cos tam cos tam"

Case Else

Print Prompt ; " " ; Uart_command ; " " ; Notincommands
Print Prompt

Getcommands(1) = ""
Getcommands(2) = ""
Getcommands(3) = ""
End Select
Getcommands(1) = ""
Getcommands(2) = ""
Getcommands(3) = ""

Return[/syntax]

Żeby było jeszcze prościej i dla potomnych dla komend można zastosować stałe i łatwo sobie je edytować.

Każde z wczesniej opisanych select CASE mozna sobie teraz łatwo edytować bez żmudnego przewijania w kodzie.
Zmieniając stałe poniżej.
[syntax=basic4gl]Const Prompt = "Command>> "
Const Calibrate = "calib"
Const Cw = "cw"
Const Ccw = "ccw"
Const Imp1 = "imp1"
Const Imp2 = "imp2"
Const Help = "?"
Const Azimut = "az"
Const Reboot = "reboot"
Const Notincommands = " error "
Const _stop = "stop"
Const Test_on = "teston"
Const Test_off = "testoff"[/syntax]

Rozwiązanie z printbin
Przydała by się tablica żeby odebrać dane ciurkiem.
Podzielić na w bajty itp.

[syntax=basic4gl]Dim Serial_flaga As Byte
Dim Paczkadanych(2) As Byte 'your array
Dim Adres As Byte
Dim Komenda As Byte
Config Serialin = Buffered , Size = 20 'buf space for data
Enable Interrupts
Enable Urxc

Do
Serial_flaga = Ischarwaiting()' as before in previous exaple we using ischarwaiting
If Serial_flaga = 1 Then
Inputbin Paczkadanych(1) , 2
Adres = Paczkadanych(1) , 1
Komenda = Paczkadanych(2) , 1

Loop
End[/syntax]

Część nadawcza:

[syntax=basic4gl]Dim Flag1 As Bit
Dim Flag2 As Bit
Dim Paczkadanych(2) As Byte
Dim Adres_1 As Byte
Dim Komenda_1 As Byte
Dim Adres As Byte
Dim Komenda As Byte

Config Serialout = Buffered , Size = 20 ' buff space for char out
Enable Interrupts
Enable Utxc

Do

If Adres <> Adres_1 Then ' send only new data
Set Flag1
End If
If Komenda <> Komenda_1 Then' send only new data
Set Flag2
End If
Adres_1 = Adres
Komenda_1 = Komenda
Paczkadanych(1) , 1 = Adres_1
Paczkadanych(2) , 1 = Komenda_1

If Flag1 = 1 Or Flag2 = 1 Then ' if flags set send data
Printbin Paczkadanych(1) , 2' simple transmission
Flag1 = 0
Flag2 = 0
End If

Loop
End[/syntax]

To są wycinki najważniejszych fragmentów można z tego posklejać co nie co.
Paweł

Statystyki: Napisane przez pikczu — 6 cze 2014, o 23:05

Re: Procedura odbioru bajtów przez RS232

2014-06-04T18:33:55+01:00

Można wykorzystać polecenia prinbin oraz inputbin lub serin i serout. Musisz doczytać.

Statystyki: Napisane przez matrix — 4 cze 2014, o 18:33

Re: Procedura odbioru bajtów przez RS232

2014-06-04T15:38:23+01:00

Doszedłem do wniosku, że zacznę jednak od podstawowej komunikacji pomiędzy procesorami, czyli tylko i wyłącznie odbiór wysyłanych znaków z wykorzystaniem zwykłego LCD, w projekcie mam zastosowany LCD 3,5 cyfry. Myślę, że przyczyną jest właśnie obsługa tego wyświetlacza, która rozwala mi komunikację. Ale to się okaże. Dziękuję za pomocne odpowiedzi.

Statystyki: Napisane przez maryushr — 4 cze 2014, o 15:38

Re: Procedura odbioru bajtów przez RS232

2014-06-04T15:26:27+01:00

No ale widzisz - właśnie O TO CHODZI, bo gdy ktoś nie widzi własnych błędów - tylko szuka ich u producentów a to oprogramowania a to części elektronicznych to nawet ciężko coś takiej osobie z takim nastawieniem podpowiadać - bo z góry i tak jest to skazane na porażkę ....

Wystarczy jednak zmiana nastawienia i łatwiej się rozmawia bo DOKŁADNIE jak mówisz .... tzn piszesz wyżej

---------------------

wracając więc do meritum .... proponuję ci po pierwsze odchudzić i napisać ten kod od nowa - taki testowy - tylko do odbierania danych i np ich wyświetlania na LCD albo nawet do odsyłania przez UART - wersja testowa. Bo generalnie cały program to niezły tzw bajzelek (bez obrazy) ale i to rozumiem bo każdy się uczy ...

polecenie Ischarwaiting możesz umieścić w pętli głównej i oczekiwać na nadlatujące znaki ale ....

ALE MUSISZ pamiętać o tym, że nie możesz wykonywać żadnych dłuższych operacji pomiędzy tym sprawdzaniem bo od razu rozwali ci to właśnie ten odbiór

druga sprawa - potestuj sobie to NAJPIERW na terminalu czyli komunikacja z kompem przez RS232 - od tego się zaczyna naukę tworzenia komunikacji RS232, bo jak ty to odpalasz od razu na dwóch prockach - to jak widzę nie masz ŻADNEJ kontroli nad tym co się dzieje ....

a gdybyś chciał mieć - to co za problem wpiąć się pinem RX jakiejś przejściówki w jedną albo drugą linię transmisyjną pomiędzy prockami i podsłuchiwać na terminalu co się dzieje - nie sądzisz że będzie łatwiej ...

tylko .... no właśnie - tylko ZAPOMNIJ wtedy o przesyłaniu jakichś tam bajtów o wartości = 1 bo to kompletnie bez sensu do testów z terminalem, a dla ciebie żadna różnica jeśli będziesz np przesyłał kod ASCII znaku 1 czyli bajt o wartości 49 i już na terminalu będziesz mógł podglądać jak procki między sobą gadają ...

jeśli wydaje ci się to mało zrozumiałe z tym ASCII to zajrzyj proszę tutaj:

http://mirekk36.blogspot.com/2014/06/ja ... ascii.html

Statystyki: Napisane przez mirekk36 — 4 cze 2014, o 15:26

Re: Procedura odbioru bajtów przez RS232

2014-06-04T15:17:08+01:00

maryushr napisał(a):

Wolałbym się skupić bardziej nad kodem programu, niż nad tym co zakładam, a czego nie zakładam, bo nie ma to wpływu na poprawność działania tego programu.

Rozumiem że kolega pisze program na żywca bez żadnych założeń... a tu Mirek dobrze mówi, bo czasami jak sobie wbijesz że u Ciebie na bank dobrze że coś gdzieś źle to nigdy nie zauważysz swojego błędu... a jak Ci sarkastycznie Mirek zasugerował skoro wszystkim to działa i piszą w tym języku od lat a Tobie nagle nie działa to raczej ty masz coś źle... więc pomyśl nad swoimi założeniami, weź kartke, rozrysuj co i jak, dopasuj kod do narysowanych kwadracików i po nitce do kłębka znajdziesz co masz źle... tak tak... masz... bo zazwyczaj błąd jest po naszej stronie....
A jak na chwilę obecną masz ciemność i wszystko wydaje Ci się ok to może lepiej wykorzystać pogodę, pójść na spacer, dotlenić to co się przydaje przy programowaniu i wrócić do tematu wieczorem...

Statystyki: Napisane przez eMCe2 — 4 cze 2014, o 15:17

Re: Procedura odbioru bajtów przez RS232

2014-06-04T14:50:37+01:00

mirekk36 napisał(a):

No ale widać, że zakładasz - że jest możliwa w ogóle pierwsza opcja .... więc przy takim podejściu to jeszcze dłuuuuuuuuuuga droga przed kolegą ...

Wolałbym się skupić bardziej nad kodem programu, niż nad tym co zakładam, a czego nie zakładam, bo nie ma to wpływu na poprawność działania tego programu. Ale skoro już temat został podjęty, to im dłuższa droga tym więcej można się nauczyć i zagłębić w tematykę, nikt przecież nie jest fenomenalny. Jedyne co się traci, to czas, a pogoda ładna, zamiast siedzieć przy komputerze można pójść na spacer lub robić coś innego. Tak, czy inaczej cel wymaga osiągnięcia, a droga może być długa

Statystyki: Napisane przez maryushr — 4 cze 2014, o 14:50

Re: Procedura odbioru bajtów przez RS232

2014-06-04T13:17:17+01:00

maryushr napisał(a):

Wolałbym żeby była to odpowiedź druga, bo błędy można poprawić.

No ale widać, że zakładasz - że jest możliwa w ogóle pierwsza opcja .... więc przy takim podejściu to jeszcze dłuuuuuuuuuuga droga przed kolegą ...

Statystyki: Napisane przez mirekk36 — 4 cze 2014, o 13:17

Re: Procedura odbioru bajtów przez RS232

2014-06-04T12:28:33+01:00

mirekk36 napisał(a):

Skoro NIC koledze nie funkcjonuje to można byłoby wysnuć DWA wnioski, tylko dwa wnioski:

1. albo te polecenia nigdy nie działały i nie działają w Bascomie, a wszyscy którzy ich używają i piszą że są ok - to kłamią w żywe oczy łącznie z autorem Bascoma

2. albo kolega coś źle robi ... i to totalnie źle robi ....

Wolałbym żeby była to odpowiedź druga, bo błędy można poprawić.
Zamieszczam kod programu:
[syntax=basic4gl]$crystal = 8000000
$baud = 2400

Config Timer1 = Timer , Prescale = 8
Load Timer1 , 1000
Enable Timer1
On Timer1 Wykonaj
Config Pind.6 = Output
Dim L As Byte
Dim P As Byte
Dim Licz As Byte
Dim I As Byte
Dim Bufor As Byte
Dim Ulamek As Byte
Dim Dana As Byte
Dim Dana1 As Byte
Dim Dana5 As Byte
Dim D As Byte
Dim X As Byte
Dim A As Byte , B As Byte
Dim A1 As Byte , B1 As Byte
Dim Licz1 As Word
Dim Flag1 As Bit
Dim Flag As Bit
Config Pinb.4 = Output
Config Pinb.3 = Output
Config Pinb.2 = Output
Config Pinb.0 = Output
Config Pind.7 = Output
Clk_4094 Alias Portd.7
Clk1_4094 Alias Portb.0
Clk2_4094 Alias Portb.2
Data_4094 Alias Portb.4
Strobe_4094 Alias Portb.3
Enable Interrupts
Flag1 = 1
Flag = 0
Portd.6 = 0
Ulamek = 0
Do

L = Ischarwaiting()
If L = 1 Then
P = Inkey()
End If

X = P
If X < 100 Then
If X >= 10 Then
X = X \ 10
A = X
X = P
X = X Mod 10
B = X
Else
A = 0
B = X

End If
End If
If X >= 100 Then
X = X - 100
X = X \ 10
A = X
X = P
X = X - 100
X = X Mod 10
B = X
End If

If Flag1 = 1 Then
Flag1 = 0
Licz = 0
If P >= 100 Then
Dana5 = Lookup(a , Wys)
End If
If P < 100 Then
Dana5 = Lookup(a , Wys1)
End If
Dana1 = Lookup(b , Wys1)
Bufor = Ulamek
Dana = Lookup(bufor , Wys)

Portd.6 = 0
End If
Loop

Wykonaj:

Load Timer1 , 500
Incr Licz
If Licz = 15 Then
Flag = 0
Licz = 0
Toggle Portd.6
Dana5 = Not Dana5
Dana = Not Dana
Dana1 = Not Dana1
For I = 0 To 7
Data_4094 = Dana5.i
Clk2_4094 = 1
Clk2_4094 = 0
Data_4094 = Dana.i
Clk_4094 = 1
Clk_4094 = 0
Data_4094 = Dana1.i
Clk1_4094 = 1
Clk1_4094 = 0

Next I

Strobe_4094 = 1
Strobe_4094 = 0
Flag = 1
End If
Return

Wys:
Data 247 , 145 , 235 , 187 , 157 , 190 , 254 , 147 , 255 , 191

Wys1:
Data 119 , 17 , 107 , 59 , 29 , 62 , 126 , 19 , 127 , 63

Wys2:
Data 0 , 0 , 297[/syntax]

Kody wklejamy przy pomocy syntax=basic4gl - Różowo-zielony J.

Statystyki: Napisane przez maryushr — 4 cze 2014, o 12:28

Re: Procedura odbioru bajtów przez RS232

2014-06-04T11:57:59+01:00

maryushr napisał(a):

Wypróbowałem już wszystkie możliwości i poza jednokrotnym odbiorem komendami waitkey, input, czy inputbin nic nie działa. Nawet komenda ischarwaiting nie funkcjonuje, a powinna. Dodam, że w programie mam przerwanie od licznika timer1.

Statystyki: Napisane przez mirekk36 — 4 cze 2014, o 11:57

Re: Procedura odbioru bajtów przez RS232

2014-06-04T11:35:48+01:00

Statystyki: Napisane przez maryushr — 4 cze 2014, o 11:35

Re: Procedura odbioru bajtów przez RS232

2014-06-04T08:49:42+01:00

moze to cos pomoze

http://avrhelp.mcselec.com/index.html?c ... rialin.htm

Statystyki: Napisane przez eMCe2 — 4 cze 2014, o 08:49

Re: Procedura odbioru bajtów przez RS232

2014-06-04T02:13:52+01:00

Jeśli ma oczekiwać i zarazem nie blokować to chyba przerwanie było by odpowiednie. Popatrz do help w polskiej wersji, tam coś jest napisane, poza tym pamiętam że tam nawet jakies przykłady były.

Statystyki: Napisane przez k_mirek — 4 cze 2014, o 02:13

Procedura odbioru bajtów przez RS232

2014-06-03T23:22:27+01:00

Chciałbym się doradzić w jaki sposób w Bascomie mogę zrealizować procedurę odbierającą dane przez port szeregowy. Mam połączone dwie atmegi8 (1 Tx -> 2 Rx), gdy w pierwszej wciskam przycisk powinna wysłać bajt, a druga powinna go odebrać, przetworzyć i czekać na wysłanie kolejnego bajtu. O ile z wysyłaniem nie ma problemów, o tyle mam zagwozdkę z systematycznym ich odbieraniem. Stosowałem komendy Waitkey oraz Inputbin, ale one po odebraniu bajtu kończą swoje działanie i kolejne dane nie są już odbierane. Potrzebuję procedurę, która będzie czekała na nadchodzącą transmisję i jednocześnie nie będzie blokowała pracy programu, po odebraniu bajtu przypisze go odpowiedniej zmiennej. Czy ktoś zechce mi pomóc?

Statystyki: Napisane przez maryushr — 3 cze 2014, o 23:22