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