ATNEL tech-forum

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-25T22:45:07+01:00

Sprawdź to
Tylko prawdo podobnie jest tam błąd przy przypisywaniu S_temp do S ale to sobie sprawdzisz na żywym układzie.
Niestety dziś już nie mam więcej czasu więc sprawdź to co jest

[syntax=basic4gl]$regfile = "m16def.dat"
$crystal = 11059200
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 19200

Config Serialin0 = Buffered , Size = 20 'buforowoanie pierwszy uart

' Konfiguracja LCD 2X16
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6
Config Lcd = 16x2 'nowy sposob zapisu
Cursor Off
Cls

' Konfiguracja przycisków i led
Config Portb.7 = Output : Portb.7 = 1 : Podswietlenie Alias Portb.7 'Konfiguracja podswietlenia
Config Portd.2 = Input : Portd.2 = 1 : Sw Alias Pind.2 ' Konfiguracja przycisku
Config Portd.4 = Input : Portd.4 = 1 : P Alias Pind.4 ' Konfiguracja przycisku
Config Portd.3 = Output : Portd.3 = 1 : Led Alias Portd.3 'Konfiguracja LED

' Konfiguracja szyny I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit

' Zmienne zegara
Dim S As Byte : Dim M As Byte : Dim H As Byte

Dim H_str As String * 2
Dim M_str As String * 2
Dim S_str As String * 2

' Zmienne uart
Dim Bufor As Byte
Dim T_str As String * 21
Dim Tab(3) As String * 10
Dim Bcount As Byte
Dim S_temp As Byte

Enable Interrupts ' Zezwolenie na przerwania

' ===========GLÓWNA PETKA==============
Do

If S <> S_temp Then
S = S_temp
Cls
Locate 1 , 5
Lcd ; H_str ; ":" ; M_str ; ":" ; S_str ; " "
End If

' procedura odpowiada za pobranie czasu z ukladu,
' przeksztalcenie go na postac dziesietna oraz
' sformatowanie do postaci dwuznakowej
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte S , Ack
I2crbyte M , Ack
I2crbyte H , Nack
I2cstop

S = Makedec(s) : S_str = Str(s) : S_str = Format(s_str , "00")
M = Makedec(m) : M_str = Str(m) : M_str = Format(m_str , "00")
H = Makedec(h) : H_str = Str(h) : H_str = Format(h_str , "00")

If Ischarwaiting() > 0 Then
Bufor = Waitkey()

If Bufor = 13 Or Len(t_str) > 18 Then

Gosub Odczytaj_uart
Else
T_str = T_str + Chr(bufor)
Print Chr(bufor);
End If
End If
Loop

' =============PROCEDURA ODCZYTU DANYCH Z UART=====================
Odczytaj_uart:

'Cls 'tu bym nie czyscil bo to sporo czasu zajmuje

'Clear Serialin0
Bcount = Split(t_str , Tab(1) , ":")

Print Tab(1)
Print Tab(2)
Print Tab(3)

H = Val(tab(1)) ' konwersja string na wartosc liczbowa
M = Val(tab(2))
S_temp = Val(tab(3))
Tab(1) = ""
Tab(2) = ""
Tab(3) = ""

S = Makebcd(s_temp) ' konwersja wartosci liczbowej na kod BCD
M = Makebcd(m) ' konwersja wartosci liczbowej na kod BCD
H = Makebcd(h) ' konwersja wartosci liczbowej na kod BCD

I2cstart
I2cwbyte 160
I2cwbyte 2
I2cwbyte S
I2cwbyte M
I2cwbyte H
I2cstop

Return[/syntax]

Statystyki: Napisane przez pikczu — 25 kwi 2015, o 22:45

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-25T20:45:09+01:00

michał6201 To jest jeszcze źle nie mam jak przesłać filmu ale jak odpalisz symulator i zaczniesz wpisywać dane z teminala to zobaczysz że cała pamięć zapełnia się danymi z bufora
Musisz dodać kilka ważnych elementów na początek
HW stack
SW stack

Config Serialin = Buffered , Size = 20

jeszcze if stara sekunda <> nowa sekunda then
LCD .......
To po to żeby w nie wyświetlać za każdym obiegiem pętli Do ... loop bo będzie migać na wyświetlaczu.

Koniecznie trzeba czyścić bufor tzn te tab(1) ,(2),(3) bo to wypełnia cała pamięć aż do restartu procka

---------------------------------edit ------------------------
Dla zrozumienia buforowania zobacz na ten mały program jest on w helpie bascoma i demonstruje działanie bufora
[syntax=basic4gl]'-----------------------------------------------------------------------------------------
'name : rs232buffer.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : example shows the difference between normal and buffered
' serial INPUT
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 19200 ' 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

'uruchom to w symulacji programowej bez $sim w takiej konfiguracji
'******************************************************
'Config Serialin = Buffered , Size = 20
'******************************************************

Dim Nm As String * 1

'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?
Nm = Waitkey()
Print Nm '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]

Uruchom to w symulacji bez $sim i z zaremowana linia Config Serialin = Buffered , Size = 20
Wciskaj szybki klawisze na klawiaturze w oknie terminala
Później dodaj ta linie
Config Serialin = Buffered , Size = 20
Teraz uruchom ponownie w symulacji tez bez $sim i wklepuj jakieś znaki.

Statystyki: Napisane przez pikczu — 25 kwi 2015, o 20:45

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-25T19:05:47+01:00

Zrobiłem to w ten sposób i działa:
[syntax=basic4gl]$regfile = "m16adef.dat"
$baud = 19200
$crystal = 11059200

' Konfiguracja LCD 2X16
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6
Config Lcd = 16x2 'nowy sposob zapisu
Cursor Off
Cls

' Konfiguracja przycisków i led
Config Portb.7 = Output : Portb.7 = 1 : Podswietlenie Alias Portb.7 'Konfiguracja podswietlenia
Config Portd.2 = Input : Portd.2 = 1 : Sw Alias Pind.2 ' Konfiguracja przycisku
Config Portd.4 = Input : Portd.4 = 1 : P Alias Pind.4 ' Konfiguracja przycisku
Config Portd.3 = Output : Portd.3 = 1 : Led Alias Portd.3 'Konfiguracja LED

' Konfiguracja szyny I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit

' Zmienne zegara
Dim S As Byte : Dim M As Byte : Dim H As Byte

Dim H_str As String * 2
Dim M_str As String * 2
Dim S_str As String * 2

' Zmienne uart
Dim Bufor As Byte
Dim T_str As String * 10
Dim Tab(3) As String * 10
Dim Bcount As Byte

Enable Interrupts ' Zezwolenie na przerwania

' ===========GŁÓWNA PĘTKA==============
Do

Locate 1 , 5
Lcd ; H_str ; ":" ; M_str ; ":" ; S_str ; " "

' procedura odpowiada za pobranie czasu z układu,
' przekształcenie go na postać dziesiętną oraz
' sformatowanie do postaci dwuznakowej
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte S , Ack
I2crbyte M , Ack
I2crbyte H , Nack
I2cstop

S = Makedec(s) : S_str = Str(s) : S_str = Format(s_str , "00")
M = Makedec(m) : M_str = Str(m) : M_str = Format(m_str , "00")
H = Makedec(h) : H_str = Str(h) : H_str = Format(h_str , "00")

Bufor = Ischarwaiting()
If Bufor = 1 Then ' Jeśli w buforze pojawią się dane z uart,to idź do procedury odbioru danych
Gosub Odczytaj_uart

End If

Loop

' =============PROCEDURA ODCZYTU DANYCH Z UART=====================
Odczytaj_uart:

Cls
T_str = "" 'usuniecie tego co jest
Do
Bufor = Waitkey()
If Bufor = 13 Then Exit Do 'jak enter to wyjdź
T_str = T_str + Chr(bufor)

Loop

Bcount = Split(t_str , Tab(1) , ":") ' zliczanie danych

Print Tab(1)
Print Tab(2)
Print Tab(3)

H = Val(tab(1)) ' konwersja string na wartość liczbową
M = Val(tab(2))
S = Val(tab(3))

S = Makebcd(s) ' konwersja wartości liczbowej na kod BCD
M = Makebcd(m) ' konwersja wartości liczbowej na kod BCD
H = Makebcd(h) ' konwersja wartości liczbowej na kod BCD

I2cstart
I2cwbyte 160
I2cwbyte 2
I2cwbyte S
I2cwbyte M
I2cwbyte H
I2cstop

Wait 1
Cls
Return[/syntax]

Statystyki: Napisane przez michał6201 — 25 kwi 2015, o 19:05

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-23T22:22:25+01:00

michał6201 napisał(a):

Czy muszę używać select case do zapisu najpierw godziny a potem minuty?
A w konsoli mam wpisywać: godzina spacja minuta i enter?

Możesz wpisać całość i rozdzielić czym chcesz, a potem rozbić to na kawałki:
[syntax=basic4gl]Dim Tab(3) As String * 3
Split( "12:54:15" , Tab(1) , ":")
Print Tab(1)
Print Tab(2)
Print Tab(3)[/syntax]

Tak to można zrobić:
[syntax=basic4gl]Odczytaj_uart:
Cls
T_str = "" 'usuniecie tego co jest
Do
Bufor = Waitkey()
If Bufor = 13 Then Exit Do 'jak enter wyjdź
T_str = T_str + Chr(Bufor)
Loop
Split( T_str , Tab(1) , ":")
H = Val(Tab(1)) ' konwersja string na wartość liczbową
M = Val(Tab(2)) ' konwersja string na wartość liczbową
S = Val(Tab(3)) ' konwersja string na wartość liczbową
'itd.
Return[/syntax]

Statystyki: Napisane przez Krauser — 23 kwi 2015, o 22:22

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T21:58:20+01:00

Pewnie że możesz liczyć na pomoc przeczytaj cały wątek do którego podałem link.
Dziś już idę spać ale jutro chętnie Ci pomogę.

Statystyki: Napisane przez pikczu — 22 kwi 2015, o 21:58

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T21:59:04+01:00

Chyba z przemęczenia mi się wszystko miesza. Będę próbował na spokojnie zrobić zapis godziny i minuty.
Mam nadzieję, że mogę liczyć na pomoc, bo jak znam siebie to na bank nie zadziała coś.

Czy muszę używać select case do zapisu najpierw godziny a potem minuty?
A w konsoli mam wpisywać: godzina spacja minuta i enter?

Statystyki: Napisane przez michał6201 — 22 kwi 2015, o 21:53

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T21:31:28+01:00

To jest łatwe.
Czego nie rozumiesz ?
Tak jest to bufor ale nie ten co trzeba na początku.
Bo uart odbiera zawsze nawet jak ty go nie sprawdzasz a sprawdzasz go dopiero przez ischarwating -co znaczy znak czeka wiec jak cos przyjdzie a nie będzie bufora to pójdzie w siną dal i procek nawet nie zareaguje.
Dlatego ustawiasz Config Serialin = Buffered , Size = 20 , tym 20 nie sugeruj się ta wartość jest troszkę mała.

pudełko_na_klocki = Waitkey()
If pudełko_na_klocki = 13 Then Exit Do 'jak enter wyjdź
H_str = H_str + Chr(Bufor)
wierza_z_klocków=wierza_z_klocków+Chr(pudełko_na_klocki)
Czyli tak jak byś budował wierze z klocków dodając kolejno klocek za klockiem ale tylko z pudełka.

Statystyki: Napisane przez pikczu — 22 kwi 2015, o 21:31

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T21:23:38+01:00

Będę musiał na spokojnie usiąść i poczytać to co jest w tych linkach i próbować coś napisać.
Myślałem, że to będzie łatwiejsze do zrozumienia.

Przecież jest zrobiony bufor odbiorczy w procedurze odczytaj_uart

Statystyki: Napisane przez michał6201 — 22 kwi 2015, o 21:23

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T20:41:05+01:00

Użyj split do rozdzielania.
koniecznie dodaj bufor odbiorczy bo widzę że go nie ma.
Zerknij na forum topic10798.html tam jest wszytko opisane

H_str = H_str + Chr(Bufor) to budowanie bufora (nie myl z buforem config Serialin = Buffered , Size = 20)

------------------------------------edit
zobacz tu topic10798.html#p122380

Statystyki: Napisane przez pikczu — 22 kwi 2015, o 20:41

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T20:21:46+01:00

Teraz działa:)

A gdybym chciał zmienić godziny i minuty, to jak rozdzielić te dane?

I powiedz mi jeszcze co oznacza ten zapis: H_str = H_str + Chr(Bufor)

Statystyki: Napisane przez michał6201 — 22 kwi 2015, o 20:21

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T19:38:44+01:00

Wykorzystaj Print do debugowania jak w tym poprawionym (mam nadzieję) fragmencie:
[syntax=basic4gl]Odczytaj_uart:
Cls
H_str = "" 'usuniecie tego co jest
Do
Bufor = Waitkey()
If Bufor = 13 Then Exit Do 'jak enter wyjdź
H_str = H_str + Chr(Bufor)
Loop
Print H_str 'kontrolnie
'itd.

Return[/syntax]

Statystyki: Napisane przez Krauser — 22 kwi 2015, o 19:38

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T18:42:50+01:00

Niestety nie wpisuje się poprawna wartość. Np. wpisując 23, na lcd wyświetla się 71.
Ale da się już wpisywać liczbę 2-cyfrową.

Statystyki: Napisane przez michał6201 — 22 kwi 2015, o 18:42

Re: Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T18:27:17+01:00

Nie widzę w tym kodzie dołączania drugiego znaku do stringa. A wprowadzanie danych najlepiej kończyć klawiszem Enter:
[syntax=basic4gl]Odczytaj_uart:
Cls
Do
Bufor = Waitkey()
If Bufor = 13 Then Exit Do 'jak enter wyjdź
H_str = H_str + Chr(Bufor)
Loop

Bufor = Ischarwaiting()

H = Val(h_str) ' konwersja string na wartość liczbową

H = Makebcd(h) ' Konwersja na kod BCD
I2cstart ' zapis wartości
I2cwbyte 160
I2cwbyte 4
I2cwbyte H
I2cstop

Wait 1

Return[/syntax]

Statystyki: Napisane przez Krauser — 22 kwi 2015, o 18:27

Komunikacja RS232 - przesyła cyfry od 0 do 9. Bascom AVR

2015-04-22T18:10:49+01:00

Witam

Mam skonfigurowaną komunikację RS232 przez bluetooth. Od strony technicznej wszystko działa - mogę wyświetlać napisy na lcd i z procka na konsoli Putty.

Uczę się transmisji, więc proszę o wyrozumiałość.

Stworzyłem mały programik w Bascomie do wyświetlania czasu z PCF8583. Chciałem zmieniać np. godzinę wpisując ją w konsoli.

[syntax=basic4gl]$regfile = "m16adef.dat"
$baud = 19200
$crystal = 11059200

Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.2 , Db6 = Portb.3 , Db5 = Portb.4 , Db4 = Portb.5 , Wr = Portb.6

Config Lcd = 16x2 'nowy sposob zapisu
Cursor Off
Cls

Config Portb.7 = Output : Portb.7 = 1 : Podswietlenie Alias Portb.7 'Konfiguracja podswietlenia
Config Portd.2 = Input : Portd.2 = 1 : Sw Alias Pind.2 ' Konfiguracja przycisku
Config Portd.4 = Input : Portd.4 = 1 : P Alias Pind.4 ' Konfiguracja przycisku
Config Portd.3 = Output : Portd.3 = 1 : Led Alias Portd.3 'Konfiguracja LED

' Konfiguracja szyny I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit

' Zmienne zegara
Dim S As Byte : Dim M As Byte : Dim H As Byte

Dim H_str As String * 30
Dim M_str As String * 2
Dim S_str As String * 2

' Zmienne UART
Dim Dane As String * 30
Dim Kod As Byte
Dim Bufor As Byte

Enable Interrupts

' Główna pętla
Do

Locate 1 , 5
Lcd ; H_str ; ":" ; M_str ; ":" ; S_str

' procedura odpowiada za pobranie czasu z układu,
' przekształcenie go na postać dziesiętną oraz
' sformatowanie do postaci dwuznakowej
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte S , Ack
I2crbyte M , Ack
I2crbyte H , Nack
I2cstop

S = Makedec(s) : S_str = Str(s) : S_str = Format(s_str , "00")
M = Makedec(m) : M_str = Str(m) : M_str = Format(m_str , "00")
H = Makedec(h) : H_str = Str(h) : H_str = Format(h_str , "00")

Bufor = Ischarwaiting()
If Bufor = 1 Then

Gosub Odczytaj_uart

End If

Loop

Odczytaj_uart:
Cls
Do

H_str = Waitkey()
Bufor = Ischarwaiting()

H = Val(h_str) ' konwersja string na wartość liczbową

H = Makebcd(h) ' Konwersja na kod BCD
I2cstart ' zapis wartości
I2cwbyte 160
I2cwbyte 4
I2cwbyte H
I2cstop

Wait 1
Cls
Return

Loop
End[/syntax]

I teraz wygląda to tak, że mogę wprowadzić wartość godziny od 0 do 9, a jak chcę wpisać np. godzinę 22, to wpisuje się 02.
Pewnie coś źle robię, tylko co?

Z góry dziękuję za wszystkie porady.

Statystyki: Napisane przez michał6201 — 22 kwi 2015, o 18:10