Android Question Bosch Distance Laser GLM Serie

[Wolli013]

Does anyone here use the Bosch GLM50C or similar?
I would like to make a small app where only the measurement data is transmitted and displayed via BLE.
Does anyone have something like this running?
I have only found the Python code so far.

BOSCH-GLM-rangefinder/glm100c.py at master · philipptrenz/BOSCH-GLM-rangefinder

Python script to remote control a BOSCH GLM 100C rangefinder via its Bluetooth serial interface - philipptrenz/BOSCH-GLM-rangefinder

github.com

 

[Wolli013]

I have now made 2 buttons, but cannot switch the light on or off.

 

[Wolli013]

there is simply no data in the AStream_NewData sub.

 

[emexes]

I have now made 2 buttons, but cannot switch the light on or off.

a/ add a Log() message to the button click events, to make sure they're both being called by their respective buttons
b/ show us the code of the two button click events

 

[DonManfred]

simply no data

what Device do you own exactly?

 

[Wolli013]

what Device do you own exactly?

Bosch GLM50 C

 

[Wolli013]

a/ add a Log() message to the button click events, to make sure they're both being called by their respective buttons
b/ show us the code of the two button click events

Private Sub Button2_Click
Dim BacklightOff() As Byte = Array As Byte(0xC0, 0x48, 0x00, 0x62)
B4XPages.MainPage.SendCommand(BacklightOff)
End Sub

Private Sub Button1_Click

        'measure':          b'\xC0\x40\x00\xEE',
        'laser_on':         b'\xC0\x41\x00\x96',
        'laser_off':        b'\xC0\x42\x00\x1E',
        'backlight_on':     b'\xC0\x47\x00\x20',
        'backlight_off':    b'\xC0\x48\x00\x62'   
    
    
'Dim BacklightOn()  As Byte = Array As Byte(0xC0, 0x47, 0x00, 0x20)

'Dim BacklightOn()  As Byte = Array As Byte(0xC0, 0x40, 0x00, 0xEE)'measure
'Dim BacklightOn()  As Byte = Array As Byte(0xC0, 0x41, 0x00, 0x96)'laser_on
Dim BacklightOn()  As Byte = Array As Byte(0xC0, 0x42, 0x00, 0x1E)'laser_off
    
B4XPages.MainPage.SendCommand(BacklightOn)
End Sub

 

[Wolli013]

Public Sub SendCommand (cmd() As Byte)
    AStream.Write(cmd)

    Dim bc As ByteConverter
    Log(bc.HexFromBytes(cmd))   
End Sub

 

[DonManfred]

Dim BacklightOn()  As Byte = Array As Byte(0xC0, 0x42, 0x00, 0x1E)'laser_off
  
B4XPages.MainPage.SendCommand(BacklightOn)

If the command works you just set it to LASER OFF?

Does the Laser goes OFF when you click the Button?

I would not expect to get any measures after shutting down the device.

Effectively i would try to use the commands for
- Laser ON
Does the Laser goes ON?

- Measure
Does the sendcommand send out the right command?
Does AStream_NewData raise with data now?

 

[Wolli013]

No command works at all.
Nothing is triggered either.

 

[walterf25]

No command works at all.
Nothing is triggered either.

Let's back up a little, first, do you see the Bluetooth activated icon on your display on the device?

If so, then we have a connection to your android device.
Next step would be to make sure we are using the correct data format.

Start by sending the following command

Dim backlight_on() as byte = array as byte(0xC0, 0x47, 0x00, 0x20)

This should turn on the back light on your device's display

If this works then, you can proceed to send the measure command which is

dim measure() as byte = array as byte(0xC0, 0x40, 0x00, 0xEE)

Walter

 

[Wolli013]

Connection to the device is established.
Lighting does not work.

 

[walterf25]

No command works at all.
Nothing is triggered either.

Also if you are using the Bluetooth Chat example, try changing the following

Sub AfterSuccessfulConnection
    If AStream.IsInitialized Then AStream.Close
    'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
    AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astream")
    ConnectionState = True
    B4XPages.ShowPage("Chat Page")
End Sub

Sub AfterSuccessfulConnection
    If AStream.IsInitialized Then AStream.Close
    AStream.Initialize(serial.InputStream, serial.OutputStream, "astream")
    ConnectionState = True
    B4XPages.ShowPage("Chat Page")
End Sub

Change the Astream.InitializePrefix to Astream.Initalize, that should work.

 

[Wolli013]

Also if you are using the Bluetooth Chat example, try changing the following

Sub AfterSuccessfulConnection
    If AStream.IsInitialized Then AStream.Close
    'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
    AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astream")
    ConnectionState = True
    B4XPages.ShowPage("Chat Page")
End Sub

Sub AfterSuccessfulConnection
    If AStream.IsInitialized Then AStream.Close
    AStream.Initialize(serial.InputStream, serial.OutputStream, "astream")
    ConnectionState = True
    B4XPages.ShowPage("Chat Page")
End Sub

Change the Astream.InitializePrefix to Astream.Initalize, that should work.

Now something is arriving at NewData.
AStream_NewData = 000082
It also works display on and off.

 

[Wolli013]

This is the measurement data that is received
AStream_NewData = C055100608CF06211F3C3F0000000000000000000074

 

[walterf25]

This is the measurement data that is received
AStream_NewData = C055100608CF06211F3C3F0000000000000000000074

Take a look at the python code here that takes the received data and converts it to distance measurements.

    def measure(self):
        self.socket.send(self.cmds['measure'])
        data = self.socket.recv(1024)
        #print('received:', data)

        if self.status[data[0]] is 'ok':
            try:
                # distance to object from top of device
                distance = int(struct.unpack("<L", data[2:6])[0])*0.05
                #print(distance, 'mm')
                return distance
            except:
                #print('corrupt data received, try again')
                return -1
        else:
            return -1

Looks like it would be bytes 2 to 6, and multiply * 0.05 to convert to mm.

Walter

 

[Wolli013]

I've tried this now, but the results don't fit in the front and back. I'm doing something wrong.

Private Sub AStream_NewData (Buffer() As Byte)
    Dim bc As ByteConverter
    Dim distance As Int
    distance = bc.IntsFromBytes(Array As Byte(Buffer(2), Buffer(3), Buffer(4), Buffer(5)))(0) * 0.05
    Log("Distance: " & distance)
End Sub

 

[f0raster0]

I've tried this now, but the results don't fit in the front and back. I'm doing something wrong.

Private Sub AStream_NewData (Buffer() As Byte)
    Dim bc As ByteConverter
    Dim distance As Int
    distance = bc.IntsFromBytes(Array As Byte(Buffer(2), Buffer(3), Buffer(4), Buffer(5)))(0) * 0.05
    Log("Distance: " & distance)
End Sub

have you seen this here

Example measure:
send C04000EE ->reply 00 04 13 0E 00 00 32
Change endianness
distance in mm=0x00000E13*0,05=180mm

EDIT:
Example measure: send C04000EE --> reply 00 04 13 0E 00 00 32
Change endianness: 13 0E 00 00 --> 00 00 0E 13 distance in mm: 0x00000E13*0,05 = 180mm

It's always a good idea to utilize the nRF App to verify received data and compare it with your B4X App
and post your logs from you B4X App

 

[walterf25]

I've tried this now, but the results don't fit in the front and back. I'm doing something wrong.

Private Sub AStream_NewData (Buffer() As Byte)
    Dim bc As ByteConverter
    Dim distance As Int
    distance = bc.IntsFromBytes(Array As Byte(Buffer(2), Buffer(3), Buffer(4), Buffer(5)))(0) * 0.05
    Log("Distance: " & distance)
End Sub

Can you post the hex data you are receiving, and can you run a quick test, can you point the laser at an object with a known distance, let's say 5 meters, then send the measure command and post the returned hex data.

Walter

 

[emexes]

distance = bc.IntsFromBytes(Array As Byte(Buffer(2), Buffer(3), Buffer(4), Buffer(5)))(0) * 0.05

Sometimes I just plug bits'n'bytes together manually rather than rely on the current endiness of ByteConverter:

Dim RawInt As Int = Bit.ShiftLeft(Bit.And(Buffer(5), 0xFF), 24) + _
                    Bit.ShiftLeft(Bit.And(Buffer(4), 0xFF), 16) + _
                    Bit.ShiftLeft(Bit.And(Buffer(3), 0xFF),  8) + _
                    Bit.ShiftLeft(Bit.And(Buffer(2), 0xFF),  0)

Dim distance As Float = RawInt * 0.05

 

[walterf25]

Sometimes I just plug bits'n'bytes together manually rather than rely on the current endiness of ByteConverter:

distance = bc.IntsFromBytes(Array As Byte(Buffer(2), Buffer(3), Buffer(4), Buffer(5)))(0) * 0.05

Dim RawInt As Int = Bit.ShiftLeft(Bit.And(Buffer(5), 0xFF), 24) + _
                    Bit.ShiftLeft(Bit.And(Buffer(4), 0xFF), 16) + _
                    Bit.ShiftLeft(Bit.And(Buffer(3), 0xFF),  8) + _
                    Bit.ShiftLeft(Bit.And(Buffer(2), 0xFF),  0)

Dim distance As Float = RawInt * 0.05

Or we can do it this way too!

    Dim s As String = "0004130E000032"
    Dim data() As Byte = bc.HexToBytes(s)
    Dim raw(4) As Byte = Array As Byte(data(2), data(3), data(4), data(5))
    bc.LittleEndian = True
    Dim dist() As Short = bc.ShortsFromBytes(raw)
   
    Dim distance As Float = dist(0) * 0.05
    Log("distance in mm: " & distance)

distance in mm: 180.14999389648438