Przyjazne Bascom Forum

Witam - chcę skorzystać z Bartka funkcji dla Atmegi 2560 dla portu com1:

Config Print0 = Portd.2 , Mode = Set
Config Pind.2 = Output 'ustaw pin jako wyjściowy

ale niestety kompilator wykazuje błąd
Error : 1 Line : 294 Unknown statement [PRINT0 "Slave T= " ; TEMP_1 ; "C "]
co może być przyczyną - proszę o pomoc.
pozdrawiam Jacek.

W swoim kodzie zamiast:

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

PRINT0 "Slave T= " ; TEMP_1 ; "C "

daj:

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

PRINT "Slave T= " ; TEMP_1 ; "C "

Witam - tak zrobiłem - pytanie czy transmisja pójdzie na com1 w A2560 czy na com2.
pozdrawiam Jacek.

Jak procek ma drugi lub więcej UART to musisz otworzyć kanał. Potem każda akcja jest związana z kanałem.
Czyli jeśli otworzysz Open "COM2:" For Binary As #2 to ten "hash #2" potem obowiązuje i żeby coś nadać drugim UARTem to piszesz Print #2 , "Test"

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

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
Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com4 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
'Open all UARTS
Open "COM2:" For Binary As #2
Open "COM3:" For Binary As #3
Open "COM4:" For Binary As #4

Więc żeby coś nadać czwartym piszesz Print #4 , "Test"
..ale to nie koniec. Potem żeby coś sprawdzić na czwartym kanale piszesz Ischarwaiting(#4) ...dalej Inkey(#4) itd...

Witam - dzięki za odpowiedzi - czyli przy przesyłaniu ascii również pisze

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

Open "com2:" for ascii as #2

czy zawsze ma być

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

Open "com2:" for binary as #2

pozdrawiam Jacek.

Wciskasz w Bascom F1 i wpisujesz polecenie OPEN a Bascom Ci wyświetli Helpa na ten temat

Dla UART sa tylko tryby RANDOM i BINARY.

Witam - dzięki - o postępach poinformuje w tym wątku.

pozdrawiam Jacek.

Witam - próbowałem z takim programem:

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

$regfile = "m2560def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 19200
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
Config Serialin0 = Buffered , Size = 100 'buforowoanie pierwszy uart
Config Serialin1 = Buffered , Size = 100 'buforowoanie drugi uart
Config Serialout0 = Buffered , Size = 100 'buforowoanie pierwszy uart
Config Serialout1 = Buffered , Size = 100 'buforowoanie drugi uart
Declare Sub Test
Open "com1:" For Binary As #1
Do
Call test
Close #1
Loop
End
Sub Test
Print #1, "test"
End Sub

i podglądem w Bascomowym terminalu porty poustawiane są tak samo w Arduino Mega jak i w terminalu - niestety nic nie przychodzi z Arduino dioda TX nic nie nadaje - gdzie robię błąd.

pozdrawiam Jacek.
P.S. jest coś nie tak z powiadomieniami bo nie przychodzą -mam zaznaczone obserwuj temat.

Typowy błąd.Kiedy używasz serialin lub serialout to musisz włączyć przerwania czyli "Enable Interrupts"
Wyrzuć też Close #1

Witam - co mam źle w programie dla A328p ( ma wysyłać przez port com na zmianę 0 i 1 co sekundę )

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

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 128
$prog &HFF , &HFF , &HDE , &HFD ' generated. Take care that the chip supports all fuse bytes.
Debug Off
'--------------------------------------------------------------------
'KONFIGURACJA LCD
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 'mirley UPT M16
Config Lcd = 20 * 4
'--------------------------------------------------------------------
'KONFIGURACJA TIMER1
Config Timer1 = Timer , Prescale = 8
Enable Timer1 : On Timer1 Przertimer1
Enable Interrupts
'--------------------------------------------------------------------
'KONFIGURACJA PORTÓW
Config Portb.5 = Output : Portb.5 = 1
Config Portd.2 = Input : Pind.2 = 1
Config Portd.3 = Input : Pind.3 = 1
Config Portd.4 = Input : Pind.4 = 1
Config Portd.7 = Output
Config Print = Portd.7 , Mode = Set
'--------------------------------------------------------------------
Deflcdchar 0 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32 'znak stopnia C
Deflcdchar 1 , 14 , 17 , 17 , 31 , 17 , 17 , 17 , 2 'litera Ą
Deflcdchar 2 , 9 , 10 , 12 , 8 , 24 , 8 , 15 , 32 ' litera Ł
Deflcdchar 3 , 4 , 4 , 10 , 10 , 10 , 17 , 17 , 31 ' ikona delty
'--------------------------------------------------------------------
'KONFIGURACJA PORTU COM
$baud = 57600
Config Serialin = Buffered , Size = 100
Config Serialout = Buffered , Size = 100
'--------------------------------------------------------------------
Config Portd.7 = Output
Config Print = Portd.7 , Mode = Set
'--------------------------------------------------------------------
'ALIASY PORTÓWa
Arduino_led Alias Portb.5 'LED na płytce Arduino
'--------------------------------------------------------------------
'ZMIENNE KOMUNIKACJI
Dim Ile_elementow As Byte '
Dim Znak_ As Byte
Dim Uart_komenda As String * 20 'musi byc wystarczjaco dlugie
Dim Getcommands(10) As String * 10 'tablica na pociete komendy
'--------------------------------------------------------------------
'ZMIENNE CZASU
Dim Dziel(6) As Byte
Dim Flaga10ms As Bit
Dim Flaga100ms As Bit
Dim Flaga500ms As Bit
Dim Flaga1s As Bit
Dim Flaga2s As Bit
Dim Flaga10s As Bit
'--------------------------------------------------------------------
Dim A As Bit
'--------------------------------------------------------------------
'DEKLARACJE PODPROGRAMÓ
Declare Sub Wyswietl
Declare Sub Mruganie
'--------------------------------------------------------------------
Cursor Off Noblink
Wait 2
Cls
Call Wyswietl
'--------------------------------------------------------------------
'PĘTLA GŁÓWNA
Do
If Flaga10ms = 1 Then 'co 10 ms
Flaga10ms = 0 'wyzeruj Flaga10ms
End If
If Flaga100ms = 1 Then 'co 100ms
Flaga100ms = 0
Call Wyswietl 'wyzeruj Flaga100ms
End If
If Flaga500ms = 1 Then 'co 50ms
Flaga500ms = 0 'wyzeruj Flaga500ms
End If
If Flaga1s = 1 Then 'co1s
Flaga1s = 0
Toggle A
Print A
Call Mruganie 'wyzeruj Flaga1s '
End If
If Flaga2s = 1 Then 'co2s
Flaga2s = 0 'wyzeruj Flaga2s
End If
If Flaga10s = 1 Then 'co10s
Flaga10s = 0 'wyzeruj Flaga10s
End If
Loop
End
'--------------------------------------------------------------------
'Wyświetlanie
Sub Wyswietl
Locate 1 , 1 : Lcd "A: " ; A
End Sub
'--------------------------------------------------------------------
'MRUGANIE DIODĄ LED CO 1 SEKUNDĘ
' CO BY BYŁO WIDAĆ ŻE UKŁAD ŻYJE
Sub Mruganie
Toggle Arduino_led
End Sub
'--------------------------------------------------------------------
' podprogram przerwań Timer1
Przertimer1:
Timer1 = 45536 'wstawienie do Timer1 wartości 45536
Incr Dziel(1) 'zwiększaj dzielnik 1
If Dziel(1) = 1 Then 'jeśli dzielnik 1 zwiększy się 1 razy
Dziel(1) = 0 'wyzeruj dzielnik 1
Set Flaga10ms 'ustaw Flaga10ms
Incr Dziel(2) 'zwiększaj dzielnik 2
If Dziel(2) = 10 Then 'jeśli dzielnik 2 zwiększy się 10 razy
Dziel(2) = 0 'wyzeruj dzielnik 2
Set Flaga100ms 'ustaw Flaga100ms
Incr Dziel(3) 'zwiększaj dzielnik 3
If Dziel(3) = 5 Then 'jeśli dzielnik 3 zwiększy się 5 razy
Dziel(3) = 0 'wyzeruj dzielnik 3
Set Flaga500ms 'ustaw Flaga500ms
Incr Dziel(4) 'zwiększaj dzielnik 4
If Dziel(4) = 2 Then 'jeśli dzielnik 4 zwiększy się 2 razy
Dziel(4) = 0 'wyzeruj dzielnik 4
Set Flaga1s 'ustaw Flaga1s
Incr Dziel(5) 'zwiększaj dzielnik 5
If Dziel(5) = 2 Then 'jeśli dzielnik 5 zwiększy się 2 razy
Dziel(5) = 0 'wyzeruj dzielnik 5
Set Flaga2s 'ustaw Flaga2s
Incr Dziel(6) 'zwiększaj dzielnik 6
If Dziel(6) = 5 Then 'jeśli dzielnik 6 zwiększy się 5 razy
Dziel(6) = 0 'wyzeruj dzielnik 6
Set Flaga10s ' Ustaw Flaga10s
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
Return 'powrót
'' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

a co mam źle w programie dla A2560 ma odbierać to co wyśle A328p

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

$regfile = "m2560def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
'$baud = 19200
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
Config Serialin1 = Buffered , Size = 100 'buforowoanie pierwszy uart
Config Serialin2 = Buffered , Size = 100 'buforowoanie drugi uart
Config Serialout1 = Buffered , Size = 100 'buforowoanie pierwszy uart
Config Serialout2 = Buffered , Size = 100 'buforowoanie drugi uart
'-------------------------------------------------------------------
' SP9DR Pawel Labendz
' T6963C graphic display support demo 240 * 128
'First we define that we use a graphic LCD
'--------------------------------------------------------------------
'The dataport is the portname that is connected to the data lines of the LCD
'The controlport is the portname which pins are used to control the lcd
'CE, CD etc. are the pin number of the CONTROLPORT.
' For example CE =5 because it is connected to PORTC.5
'mode 8 gives 240 / 8 = 30 columns , mode=6 gives 240 / 6 = 40 columns
'The connections of the LCD used in this demo
'LCD pin connected to
' 1 GND GND 'black
'2 +5V +5V 'red
'3 nc not connected 'yellow
'4 C/D PORTC.0 'brown
'5 /RD PORTC.1 'green
'6 /WR PORTC.2 'blue
'7-14 DBA PORT A0-A7
'15 /CE PORTC.3 'blue
'16 RESET PORTC.4 'white
'17 NC not connected
'18 MD2 GND 'green
'19 FS PORTC.5 'white
'20 NC not connected
'--------------------------------------------------------------------
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 4 , Cd = 5 , Wr = 2 , Rd = 3 , Reset = 6 , Fs = 7 , Mode = 6
'--------------------------------------------------------------------
'KONFIGURACJA TIMER1
Config Timer1 = Timer , Prescale = 8
Enable Timer1 : On Timer1 Przertimer1
'Enable Interrupts
'--------------------------------------------------------------------
'KONFIGURACJA PORTÓW
Config Print = Portd.1 , Mode = Set 'Port RS485Dir
Config Portd.1 = Output
Config Portk.0 = Output : Portk.0 = 1
'--------------------------------------------------------------------
'ALIASY PORTÓW
Led_live Alias Portk.0 'LED pokazująca że układ żyje
'--------------------------------------------------------------------
'ZMIENNE CZASU
Dim Dziel(6) As Byte
Dim Flaga10ms As Bit
Dim Flaga100ms As Bit
Dim Flaga500ms As Bit
Dim Flaga1s As Bit
Dim Flaga2s As Bit
Dim Flaga10s As Bit
'--------------------------------------------------------------------
Dim A As Byte
Declare Sub Wyswietl
Declare Sub Mruganie
Enable Interrupts
Open "com2:" For Binary As #1
Cursor Off Noblink
Waitms 500
Cls
Locate 1 , 1 : Lcd "A: " ; A
Do
If Ischarwaiting() <> 0 Then
A = Inkey()
Locate 1 , 1 : Lcd "A: " ; A
End If
If Flaga10ms = 1 Then 'co 10 ms
Flaga10ms = 0 'wyzeruj Flaga10ms
Call Wyswietl
End If
If Flaga100ms = 1 Then 'co 100ms
Flaga100ms = 0 'wyzeruj Flaga100ms
End If
If Flaga500ms = 1 Then 'co 50ms
Flaga500ms = 0 'wyzeruj Flaga500ms
End If
If Flaga1s = 1 Then 'co1s
Flaga1s = 0 'wyzeruj Flaga1s '
Call Mruganie
End If
If Flaga2s = 1 Then 'co2s
Flaga2s = 0 'wyzeruj Flaga2s
End If
If Flaga10s = 1 Then 'co10s
Flaga10s = 0 'wyzeruj Flaga10s
End If
Loop
End
Sub Wyswietl
End Sub
Sub Mruganie
Toggle Led_live
End Sub
'--------------------------------------------------------------------
' podprogram przerwań Timer1
Przertimer1:
Timer1 = 45536 'wstawienie do Timer1 wartości 45536
Incr Dziel(1) 'zwiększaj dzielnik 1
If Dziel(1) = 1 Then 'jeśli dzielnik 1 zwiększy się 1 razy
Dziel(1) = 0 'wyzeruj dzielnik 1
Set Flaga10ms 'ustaw Flaga10ms
Incr Dziel(2) 'zwiększaj dzielnik 2
If Dziel(2) = 10 Then 'jeśli dzielnik 2 zwiększy się 10 razy
Dziel(2) = 0 'wyzeruj dzielnik 2
Set Flaga100ms 'ustaw Flaga100ms
Incr Dziel(3) 'zwiększaj dzielnik 3
If Dziel(3) = 5 Then 'jeśli dzielnik 3 zwiększy się 5 razy
Dziel(3) = 0 'wyzeruj dzielnik 3
Set Flaga500ms 'ustaw Flaga500ms
Incr Dziel(4) 'zwiększaj dzielnik 4
If Dziel(4) = 2 Then 'jeśli dzielnik 4 zwiększy się 2 razy
Dziel(4) = 0 'wyzeruj dzielnik 4
Set Flaga1s 'ustaw Flaga1s
Incr Dziel(5) 'zwiększaj dzielnik 5
If Dziel(5) = 2 Then 'jeśli dzielnik 5 zwiększy się 2 razy
Dziel(5) = 0 'wyzeruj dzielnik 5
Set Flaga2s 'ustaw Flaga2s
Incr Dziel(6) 'zwiększaj dzielnik 6
If Dziel(6) = 5 Then 'jeśli dzielnik 6 zwiększy się 5 razy
Dziel(6) = 0 'wyzeruj dzielnik 6
Set Flaga10s ' Ustaw Flaga10s
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
End If 'koniec warunku
Return 'powrót
'' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

podłączyłem UNO z Mega drucikami podłączenie krosowane na lcd od A2560 cały czas jest 0.

pozdrawiam Jacek.
P.S. w terminalu Bascoma jest wszystko tak jak należy raz jest 0 raz jest 1.

Przyjazne Bascom Forum

RS485

RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485

Re: RS485