There was some talk about VL53L0X. I posted some picaxe code on gcb forum and a mmotte converted it.Cool. Did anyone get further?
I find it difficult to convert picaxe to gcb. This vid is my version of picaxe VL53L0X code converted to gcb
I find it difficult to convert picaxe to gcb. This vid is my version of picaxe VL53L0X code converted to gcb
Code:
#chip mega328p, 16
#option Explicit
#include <glcd.h>
#include <uno_mega328p.h >
#define GLCD_TYPE GLCD_TYPE_ILI9341
'Pin mappings for SPI - this GLCD driver supports Hardware SPI and Software SPI
#define GLCD_DC DIGITAL_8 ' Data command line
#define GLCD_CS DIGITAL_10 ' Chip select line
#define GLCD_RESET DIGITAL_9 ' Reset line
#define GLCD_DI DIGITAL_12 ' Data in | MISO - Not used therefore not really required
#define GLCD_DO DIGITAL_11 ' Data out | MOSI
#define GLCD_SCK DIGITAL_13 ' Clock Line
;now rename colours to make it easier to set up sprite data
#define bk ILI9341_BLACK
#define re ILI9341_RED
#define gr ILI9341_GREEN
#define bl ILI9341_BLUE
#define wh ILI9341_WHITE
#define pu ILI9341_PURPLE
#define ye ILI9341_YELLOW
#define cy ILI9341_CYAN
#define dg ILI9341_D_GRAY
#define lg ILI9341_L_GRAY
#define si ILI9341_SILVER
#define ma ILI9341_MAROON
#define ol ILI9341_OLIVE
#define li ILI9341_LIME
#define aq ILI9341_AQUA
#define te ILI9341_TEAL
#define na ILI9341_NAVY
#define fu ILI9341_FUCHSIA
'GLCD selected extension font set. ASCII characters 31-254, the extended font uses 1358 bytes of program memory
#define GLCD_EXTENDEDFONTSET1
GLCDfntDefaultsize = 1
GLCDRotate ( Landscape_Rev )
GLCDfntDefaultsize = 3
GLCDCLS ILI9341_BLUE
;set up v53l0x
#define HI2C_BAUD_RATE 400
#define HI2C_DATA PORTC.5
#define HI2C_CLOCK PORTC.4
HI2CMode Master
;main Get Distance-------
dim ptr,buffer(13) as byte
HI2CStart ;software restart
HI2CSend(0x52)
HI2CSend(0x89)
HI2CSend(0x01)
HI2CStop
wait 200 ms
do
HI2CStart ;Sys Range Start
HI2CSend(0x52)
HI2CSend(0x00)
HI2CSend(0x01)
HI2CStop
HI2CStart
HI2CSend(0x52)
HI2CSend(0x14)
HI2CReStart
HI2CSend(0x53) ;indicate a read operation
For ptr =1 to 12
HI2CReceive buffer(ptr), ACK
next
HI2CReceive buffer(13), NACK
HI2CStop
GLCDfntDefaultsize = 3
GLCDDrawString 0,0,"Error "+str((buffer(2) and 0x78)/8)+" ",wh
GLCDDrawString (0,40,"Distance: ",wh)
GLCDfntDefaultsize = 5
GLCDDrawString (0,120, str(buffer(11)*256+buffer(12))+" mm ",wh)
loop
Last edited by a moderator: