ATNEL tech-forum

Re: Obsługa wyświetlacz 4x20 po RS485

2013-09-15T11:59:00+01:00

Witam moim zdaniem robisz to okrężną drogą.

Zapomnij na moment o rs485 i dopracuj ramkę z danymi.
A jak transmisja będzie działać to dołożysz sterowanie kierunkiem przepływu danych.
Zrób testy z rs232.
[syntax=basic4gl]Dim Serial_flaga As Byte
Dim Paczkadanych(2) As Byte 'zmienna balicowa do odebrania
Dim Adres As Byte
Dim Komenda As Byte
Config Serialin = Buffered , Size = 20 'miejsce na 10 nie odebrancyh transmisji
Enable Interrupts
Enable Urxc

Do
Serial_flaga = Ischarwaiting()
If Serial_flaga = 1 Then
Inputbin Paczkadanych(1) , 2
Adres = Paczkadanych(1) , 1
Komenda = Paczkadanych(2) , 1

Cls
Lcd "adres=" ; Adres
Lowerline
Lcd "komenda" ; Komenda
End If
Waitms 200
Loop
End
End[/syntax]

Część nadawcza:
[syntax=basic4gl]$sim
$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600
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
Enable Interrupts
Enable Utxc

Do

adres = 100' to tak do testu zeby cos było w tych zmiennych
komenda=99

If Adres <> Adres_1 Then
Set Flag1
End If
If Komenda <> Komenda_1 Then
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
Printbin Paczkadanych(1) , 2
Flag1 = 0
Flag2 = 0
End If

Loop
End[/syntax]

Statystyki: Napisane przez pikczu — 15 wrz 2013, o 11:59

Re: Obsługa wyświetlacz 4x20 po RS485

2013-09-15T06:26:33+01:00

Chyba pisze ze sobą ale może ktoś kiedyś przeczyta

udało mi się przesłać odliczanie 1s do drugiego układu ale na poczatku wyświetlają się jakieś śmieci i nie umiem się tego pozbyć a i te śmieci przesuwają mi cały wynik o jeden

[syntax=basic4gl]$regfile = "m8def.dat" 'Master
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 40
$baud = 9600

Config Com1 = 9600 , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0 ' MUST MATCH THE SLAVE

Dim S As String * 8 , S1 As String * 8
Dim S3 As Word

Config Print0 = Portd.2 , Mode = Set ' use portd.2 for the direction
Rs485dir Alias Pind.2
Config Rs485dir = Output

'Rs485dir = 0 ' go to receive mode
Rs485dir = 1

S = "08.03.11"
S1 = "13:12:58"
S3 = 0
Do

Gosub Rs485_send
Loop
End

Rs485_send:
Rs485dir = 1
Print S
Print S1
Print S3
S3 = S3 + 1

Wait 1

Return[/syntax]

[syntax=basic4gl]$regfile = "m8def.dat" ' slave
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 40
$baud = 9600

Config Com1 = 9600 , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0 ' MUST MATCH THE SLAVE

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

Cursor Off

Dim S As String * 9 , S1 As String * 9
Dim S3 As String * 9

Config Print0 = Portd.2 , Mode = Reset ' use portd.2 for the direction
Rs485dir Alias Pind.2
Config Rs485dir = Output
Rs485dir = 0

' go to receive mode
'Rs485dir = 1 ' go to send mode

cls
Lcd "RS485 receiving"
Wait 1
Cls
Do

Gosub Rs485_read
Loop
End

Rs485_read:

'S = " "
'S1 = " "
'S = Inkey()

Input S
Input S1
Input S3

Locate 1 , 1 : Lcd "S : " ; S
Locate 2 , 1 : Lcd "S1: " ; S1
Locate 3 , 1 : Lcd "S3: " ; S3

Waitms 500
Return[/syntax]

S wyswietla chr(240)08.03.1 a powinno być 08.03.11
S1 wyświetla chr(240)13:12:5 a powinno być 13:12:58
S3 wyświetla chr(240) (tu wyswietla A=a+1)

ale nie umiem się pozbyć tego chr(240) jakiś krzaczek

program zaczerpnołem z innej strony i tam użytkownik forum miał ten sam problem i poradzono mu że ma być tak jak poniżej i ma ustawić kierunek przesyłania ale ja tak mam:

[syntax=basic4gl]Config Print0 = Porte.2 , Mode = Set ' use portd.2 for the direction
Rs485dir Alias Pine.2 ' Pine.2 instead of Porte.2
Config Rs485dir = Output[/syntax]

ale ja tak mam

Statystyki: Napisane przez endurasek — 15 wrz 2013, o 06:26

Re: Obsługa wyświetlacz 4x20 po RS485

2013-09-14T16:56:25+01:00

Nadal potrzebuje pomocy program komunikuje się ale wysyła wszystko w jednej kratce i pod koniec tekstu "test" pojawiają się śmieci na ekranie
Nadajnik:
[syntax=basic4gl]$regfile = "m8def.dat"

$crystal = 8000000
$baud = 9600

Config Portd.2 = Output

Config Serialin = Buffered , Size = 15

Kierunek Alias Portd.2
Enable Interrupts

Do

Set Kierunek
Waitms 1
Print "Test"
Waitms 1
Reset Kierunek
Loop[/syntax]

Odbiornik
[syntax=basic4gl]$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

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

Config Pind.2 = Output

Config Serialin = Buffered , Size = 15

Dim Zn As String * 10

Kierunek Alias Portd.2 'zmienia kierunek transmisji

Enable Interrupts

Cls
Reset Kierunek
Lcd "komunikacja"
Lowerline : Lcd "rs485 czekam..."
Cls
Do
Wait 1
Zn = Inkey()
Locate 1 , 1
Lcd "doszlo " ; Zn

Loop[/syntax]

Statystyki: Napisane przez endurasek — 14 wrz 2013, o 16:56

Re: Obsługa wyświetlacz 4x20 po RS485

2013-09-13T15:50:05+01:00

http://ep.com.pl/files/4539.pdf

http://ep.com.pl/files/4556.pdf

Statystyki: Napisane przez matrix — 13 wrz 2013, o 15:50

Obsługa wyświetlacz 4x20 po RS485

2013-09-12T19:19:41+01:00

Witam
na innych forach nie uzyskałem pomocy może tu mi się poszczęści raz jeszcze.

Problem jest następujący, zbudowałem dwa układy na Atmeg8 + RS485 .
Pierwszy układ ma za zadnie wysyłać zmienną w moim przypadku jest to:
[syntax=basic4gl]$regfile = "m8def.dat"

$crystal = 8000000
$baud = 19200

'------------------------pierwsza próba----------------------------------------
'Config Portd.2 = Output
'Kierunek Alias Portd.2
'Config Serialin = Buffered , Size = 15
' set kierunek
'-------------------------------------------------------------------------------

'------------------------druga próba--------------------------------------------

$hwstack = 42 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "modbus.lbx"
Config Print0 = Portd.2 , Mode = Set
Kierunek Alias Portd.2
Config Kierunek = Output
Kierunek = 1
'-------------------------------------------------------------------------------

Dim A As Integer

A = 1

Do

Print A
Wait 1
A = A + 1

Loop[/syntax]

i tu chyba jest w porządku bo jak podepne wyświetlacz to sobie odlicza "1s" no i ma wysłać wynik do układu slave w moim przypadku jest to atmega8+rs485+wyświetlacz. I jego zadaniem jest wyświetlenie zmiennej A

slave

[syntax=basic4gl]$regfile = "m8def.dat"

$crystal = 8000000
$baud = 19200

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

'----------------------------------pierwsza proba-------------------------------
'Config Serialin = Buffered , Size = 15
'Config Pind.2 = Output
'Kierunek Alias Portd.2
'Reset Kierunek
'-------------------------------------------------------------------------------

'------------------------------------druga proba--------------------------------
$hwstack = 42 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "modbus.lbx"
Config Print0 = Portd.2 , Mode = Set
Kierunek Alias Portd.2
Config Kierunek = Output
Kierunek = 0 ' go to receive mode
'-------------------------------------------------------------------------------

'zmienia kierunek transmisji

Enable Interrupts

Dim A As Integer

Cls
Cursor Off

Do

Input A
Waitms 100

Locate 1 , 1
Lcd A

Loop 'end program
End[/syntax]

No ale tak się nie dzieje bo na wyświetlaczu zostanie pokazana tylko jedna zmienna i to ta która została wysłana w momencie włączenia wyświetlacza. Znaczy się nie ma odświeżania ;(. NI by pętla powinna załatwić sprawę ale tak nie jest.
Co do poniektórych problem może być błahy ale i tak proszę o pomoc.

Przede wszystkim używaj znacznika syntax do wstawiania kodów ... SunRiver ...

Statystyki: Napisane przez endurasek — 12 wrz 2013, o 19:19