Hi,
When I try to simulate the attached code in the BASCOM built-in simulator, two interrupt buttons appear correctly on the interrupt tab: OC2A and OC3A. After starting the simulation and clicking on OC2A, the variable v2 increments, but nothing happens when I click on OC3A. It works correctly with the ATmega1284p processor. Am I doing something wrong?

(Compiler build 2.0.8.7.003)
Thanks, Mirek

[code:1:7a485b8199]$sim

$version 1 , 0 , 54
$regfile = "m328pbdef.dat"
'$regfile = "m1284def.dat"


$crystal = 20000000

$hwstack = 72
$swstack = 72
$framesize = 40


Config Timer2 = Timer , Compare A = Disconnect , Compare B = Disconnect , Prescale = 1 , Clear Timer = 1
Compare2a = 10


Config Timer3 = Timer , Compare A = Disconnect , Compare B = Disconnect , Prescale = 1 , Clear Timer = 1
Compare3a = 10

Dim V2 As Byte
Dim V3 As Byte


On Compare2a Tmr2
Enable Compare2a


On Compare3a Tmr3
Enable Compare3a


Enable Interrupts

Do

Loop

Tmr2:
Incr V2
Return


Tmr3:
Incr V3
Return


[/code:1:7a485b8199]

[b:7a485b8199][color=red:7a485b8199](BASCOM-AVR version : 2.0.8.7 )[/b:7a485b8199][/color:7a485b8199]

your mistake is that you use COM1 but PC0 and PC1 are for the second USART1. Thus use config COM2 instead.
Always check the I/O multiplexing chapter 3 in the datasheet. Then check the column of the package which is the most left column Then look up the hardware resource like USARTn and 0,TXD means TX pin for the fist UART which is COM1 in BASCOM. Then also check the PIN column which is PA0 and PA1.

Here is the documentation for the VB10A sensor: https://en.surertech.cn/viewfilebizce/1982625602085134336/surertech%20Specification-VB10A-V3.0.pdf

I have my simple test board. The sensor's TxD is directly connected to PC1, and the sensor's RxD is connected to PC0.
When I connected the sensor to the PC via the UART-USB adapter, I got the data as in the screenshot.
The LCD display itself works very well. The libraries and description on this page are great: https://www.ne.jp/asahi/shared/o-family/ElecRoom/AVRMCOM/ColorLCD/AVRColorLCD.html

It seems that there is something wrong with my UART configuration, because even a simple print does not send data to the PC.

[code:1:720ccff545]Config PORTC.0 = Output
Config PORTC.1 = input
'configure the USART
Config Com1 = 460800 , Mode = Asynchroneous , Parity = None , Databits = 8 , Stopbits = 1
Config Serialin1 = Buffered , Size = 10
Config Serialout1 = Buffered , Size = 10

dim a as byte

$lib "glcd-ST7735S_1R8_128x160.lib"
Config Graphlcd = Color , Cs1 = Porte.5 , Rst = Porte.6 , A0 = Porte.7 , Si = Portf.0 , Sclk = Portf.1
Initlcd
Cls
Setfont Color8x8
Const Yellow = &B1111_1100
Const Green = &B0001_1100
Const Black = &B0000_0000
waitms 10

lcdat 1,1, " TEST VB10A ", Yellow , Black
lcdat 12,1, " UART ", green , Black
ENABLE INTERRUPTS
A = 1
do
lcdat 32,12, a, green , Black
Print "znak :" ; A
incr a
waitms 500
loop
$include "color8x8.font"[/code:1:720ccff545]

You upgraded from AVR64da64.
- from what
- did you had working code before
- did you test the UART using the terminal emulator? do you get data?
- is it your own hardware or did you use some ready board? is there a circuit
- please make samples simple as possible and leave out as much hardware as possible especial LCD displays that not everybody has
- ideal is to use a second UART that debugs information. with the cheap USB-COM devices it is simple to add an additional COM port.

Please post a link to the sensor's data sheet.

JC

Hi,
I recently upgraded to an AVR64da64 and am trying to read data from a VB10A sensor. Unfortunately, my test program isn't reading any information. Could someone explain what I'm doing wrong?

[code:1:e41f5594b7]$regfile = "AVRX64da64.dat"
$crystal = 24000000
$hwstack = 256
$swstack = 256
$framesize = 64
$baud1 = 460800

Config Porta = &B1111_0011
Porta = &B0000_1100

Config Portb = &B0111_1111
Portb = &B1000_0000

Config Portc = &B1111_1000
Portc = &B0000_0100

Config Portd = &B0000_0000
Portd = &B0000_0000

Config PortE = &B1110_0011
PortE = &B0000_0110

Config PortF = &B010_0011
PortF = &B110_0000

Config PortG = &B1111_1110
PortG = &B0000_0001

'The AVRX series have more oscillator options
Config Osc = Enabled , Frequency = 24mhz

'set the system clock and prescaler
Config Sysclock = Int_osc , Prescale = 1

config portc.2 = input
Config Xpin = portc.2, Pullup = Pullup
config portb.7 = input
Config Xpin = portb.7, Pullup = Pullup

Config PORTC.1 = Output
Config PORTC.0 = input

sw_4 alias pinc.2
sw_2 alias pinb.7


'------------------- TFT ---------------------------
Const Portrait = 0
Const Rotate_180 = 1

'configure the USART
Config Com1 = 460800 , Mode = Asynchroneous , Parity = None , Databits = 8 , Stopbits = 1
Open "COM1:" For Binary As #1
Config Serialin1 = Buffered , Size = 10

'dimension a variable
Dim znak As Byte
Dim ramka(4) As Byte
Dim Idx As Byte
Dim Dystans As Word
Dim kontrol As Byte
Dim suma_kontrol As word


$lib "glcd-ST7735S_1R8_128x160.lib"
Config Graphlcd = Color , Cs1 = Porte.5 , Rst = Porte.6 , A0 = Porte.7 , Si = Portf.0 , Sclk = Portf.1
Initlcd
Cls
Setfont Color8x8
Const Red = &B1110_0000
Const Yellow = &B1111_1100
Const Orange = &B1110_1100
Const Green = &B0001_1100
Const White = &B1111_1111
Const Black = &B0000_0000
Const Blue = &B0000_0011
Const Magenta = &B1110_0011
waitms 10

led_lcd alias portf.5
led_lcd=0

waitms 50

lcdat 1,1, " TEST VB10A ", Yellow , Black
lcdat 12,1, " UART ", green , Black
idx=0
ENABLE INTERRUPTS

do
If Ischarwaiting(#1) > 0 Then
znak = Inkey(#1)
If Idx = 0 Then
If znak = &H5C Then
Idx = 1
ramka(1) = znak
End If
Else
Incr Idx
ramka(idx) = znak
End If

If Idx = 4 Then
suma_kontrol = ramka(2) + ramka(3)
kontrol = Low(suma_kontrol)
kontrol = Not kontrol
If kontrol = ramka(4) Then
Dystans = ramka(3)
Shift Dystans , Left , 8
Dystans = Dystans + Ramka(2)
lcdat 32,1, hex(ramka(1)); " "; hex(ramka(2)); " ";hex(ramka(3)); " ";hex(ramka(4)); " " , orange , Black
lcdat 42,1, "D= "; dystans; " mm ", red, black
end if
Idx = 0
end if
end if
waitms 5
loop
$include "color8x8.font"[/code:1:e41f5594b7]

Hello!

Finally I had an ocassion to test it :lol:

In the lib there is one error:

[code:1:9fba150818]
;This routine is called when the LCD must be initialized
[_Init_LCD]
.EQU cu_rs = 3 ; PD.3 = cu register select line
.EQU cu_en = 4 ; PD.4 = cu enable line
.EQU cu_en2= 2 ; PD.5 = cu enable line 2
.EQU cu_wr = 6 ; PD.6 = cu write
[/code:1:9fba150818]

[b:9fba150818].EQU cu_en2= 2 must be .EQU cu_en2= 5[/b:9fba150818]

2x LCDs are working fine.

To be continued :lol:

Regards,
Przemek

Yes that is a relief. As you might have understood i migrated the server. It was a lot of work and all was tested using a different domain name. but after migration still some things were broken.
That is because i tried to update all software. For this forum and some other components that was not possible. At least not yet.
Now i need to recover.

working

test