Recept nul char / Bascom

albertsm · Joined: 09 Apr 2004 Posts: 5921 Location: Holland

hi Pikczu

great work on the 4D display.
I noticed the printbin code. it has been asked multiple time and is high on the to do list. so i thought it is a good idea to get it done in 2082.
if you contact support i can deliver a test version when i am done with it.
the ideas :
printbin somevar ; 2 ; othervar ,numbytes ; thirdvar
this way the optional comma can be used to specify number of bytes

other option would be to add printbinX which is incompatible with printbin. like : printbinX somevar ; numbytes
that is it, just one parameter with optional num of bytes

i think the first alternative is the best.

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Mark,
Thank you, it is all possible because of you and your team.
So thank you for all the hard work during the years.

bellon · Joined: 01 Mar 2019 Posts: 31

Hi Pikczu
After a lot of trouble with my PC (no USB port works) I had to change it and reinstall the new one!
I am testing and trying to understand your program and for that I have defined in workschop4 1 coolgauge, 1 angularmeter and 1 4dbutton and 1 leddigits.
Leddigits, coolgauge and angularmeter work. but I can not read the state of the 4dbutton. here is the call of functions that I have imagined ....
it's just ?

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Bernard
The buttons can be read by read_obj
(Which in my opinion doesn't have sense, maybe for toggle type of the button)
By calling this sub:

bellon · Joined: 01 Mar 2019 Posts: 31

Hi Pikczu
well, I use an arduino card with a processor atmega 2560. if I did not receive the command of the lcd it is because I kept your configuration "Config Serialin1" while it is "Config Serialin" !!
But something strange is happening:
If I update only the 4 digits of the LCD, the LCD switch is working very well, but if I want to update the other two gauges then the switch lcd walk randomly!
there is some function that I did not understand well:
Incr Tablica (5)
Tablica (6) = Xor_this (tablica (1))
Is Enable Interrupts absolutely necessary?
Thank you !!

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Bernard,
That part is actually a leftover from the test.
So you can delete it.

bellon · Joined: 01 Mar 2019 Posts: 31

You mean ?
Incr Tablica (5)
Tablica (6) = Xor_this (tablica (1))

and

Tablica(1) = Write_obj
Tablica(2) = Leddigits
Tablica(3) = Obj_index
Tablica(4) = Tablica(4)
Tablica(5) = 0

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Yes, also there is still some config for Xmega i have removed them.

bellon · Joined: 01 Mar 2019 Posts: 31

Hello Pikczu
Something strange happens to me ...
When I press the switch on the LCD to activate or deactivate
the update of the Leddigit (4) I see that the program can take up to 10 seconds to take into account the change of state of the switch while the rs232 command arrives immediately on my board. (as if something slowed down has function if ischarwaiting (# 1) ......
An idea ?
Sincerely Bernard

'************************* Main loop *******************************************

'Wait 5
Ack_flag = 1
State_button = 0
Digit_cnt = 0

Enable Interrupts

'lcd , "MCU Rev. = " ' ; Mcu_revid 'version of the MCU
'Call 4d_write_contrast(&H07)
'Call 4d_write_str(0 , "Hi there" , 0 )

Do

'***************************************** Mesuere la distance Ultrason ********
Mesure_us:
Set Trig
Waitus 20 '
Reset Trig

Pulsein Mesure_ultrason , Pind , 0 , 1
M = Mesure_ultrason
M = M * 12.9 'a ajuster en fonction du quartz
M = M / 100
Neige = M
Locate 1 , 8 : Lcd " "
Locate 1 , 8 : Lcd Neige 'M 'M

' Call 4d_write_obj(coolgauge , &H00 , Neige) ' mettre à jour la coolgauge

' Call 4d_write_obj(angularmeter , &H00 , Neige) 'mettre a jour l'angularmetter

Wait 1

Incr Digit_cnt

Locate 1 , 1 : Lcd State_button ; 4d_arr_rx(5) <<<<<Here, my display of control tells me the change of the switch that 10 seconds after having actuated
Locate 2 , 1 : Lcd Ack_flag ; 4d_arr_rx(1)

Waitms 500

If State_button <> 0 Then 'And Ack_flag = 1
4dbutton_idx = &H00
4d_arr_rx(5) = &H00
Call 4d_write_obj(leddigits , &H00 , Digit_cnt) 'mettre a jour les digits
' Ack_flag = 1
End If

'************************************pour test uniquement *********************
' For I = 1 To 10
' Call 4d_write_contrast(i)
' Waitms 100
' Next I

' 4d_string_tx = "12345"
' Call 4d_write_str(&H00 , 4d_string_tx , &H00)

'*******************************************************************************

'********************************* Lescture des rapports "OBJETS (07)" ***************

If Ischarwaiting(#1) = 1 Then

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Bernard,
Can you attach whole code for Bascom and 4d project ?
Remove all the wait form the code, and setup debug port then print everything what happens in to the debug this help a lot.

PS.I will be away for week I may have access to forum only from mobile.

bellon · Joined: 01 Mar 2019 Posts: 31

Hello Pikczu
The board used to test the application is an Arduino 2560 board (Atmega2560). Here is the problem:
the 4 digits of the 4D display are written as long as the switch is ON.
This works very well!
The problem is that if at the same time I write in the angularmeter a value, even fixed, then I see that the program takes a long time to take into account the change of state of the switch 4D!

In attachments, the bascom source, 4d system files, 1 prototype photo. The 2-line lcd display on the prototype is used for debugging ..... (rs232)
I have no idea .............
Thank you.
Bernard

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Bernard,
This sound strange, i will take a look in to the code.
But as mentioned im away for week, I have no access to the equipment.

bellon · Joined: 01 Mar 2019 Posts: 31

Hi
I found my mistake stupid: instead of writing * clear serialin1 "I wrote" clear serialin * of course the serial input buffer is filled ..... and it's a disaster !!
thank you for everything

Bernard

bellon · Joined: 01 Mar 2019 Posts: 31

........ false good idea, if I validate "Call 4d_write_obj (angularmeter, & H00, & H32)" the problem remains the same!
have a nice week end !

Pikczu · Joined: 22 Jan 2006 Posts: 72 Location: Dublin, Ireland

Hi Bernard,
I Could not test the code.
Google blocked my license key can't download it.

Any way issue may be with the crc so i have added
printbin #1, &h06 after the crc is calculated and is ok.
Similar i have added printbin #1, &h15 where the crc is not ok

Please check this as I could not even test this demo version wont let me do it, and i can not download my license file to test on full version.