B4A Library IOIO board library

Cableguy said:

I'll have this a go later on after diner. Thanks for the time...

IYHO, if you were to controle up to 10 servos, would you go the I2C way using only 2 wires or connect the data in directly to the ioio board thus using 10 wires... I mean, what are the real advantages in using the complex i2c scheme to the simplicity of code using individual output pins.?

Click to expand...

Cableguy said:

This is what I got... at least there is something being trown at b4a

B4X:

An error occurred:
(Line: 0) null
java.lang.Exception: Sub pulsewidth_done signature does not match expected signature.
public static anywheresoftware.b4a.pc.RemoteObject b4a.example.main_subs_0._pulsewidth_done() throws java.lang.Exception

all I have in the done event is a log statement

[EDIT] I didn't notice at first that the event declaration had changed. In the popup help, the declaraion tells that success is a String, when in fact it expects a Boolean.
The event fires as expected, but I have yet to grasp the mechanics of servo motion. If I close the pin inside the done event, then the rotation does not reach its end... So I added a timer, and set a flag inside the done event in order to not close the pin before the rotation had ended.
It all seems to work quite well now.

Thank you @kolbe, for all you effort in this thread... hopefully, I'll become a servo expert and will pick after you, LOL

Click to expand...

Cableguy said:

[Bluetooth ]

Só I got my BT dongle and rushed to get it connected to my ioio... no luck..
it pairs ok with my Asus tablet, though it takes a while to pair, but it pairs...
in the workbench I can even see it listed.. but connection fails over and over again.
the best I got was state init. I have already turned the voltage trim all the way in each direction.
Any suggestions?

( I already have a new bundle ioio+otg cable+BT dongle in the mail )

Click to expand...

kolbe said:

Did you see post #347?

Click to expand...

Is it a BT dongle that others have shown to work?

Click to expand...

Did you pair using code 4545? Are you using the latest firmware and application on the IOIO?

Click to expand...

Also try the IOIO hello app you can download from Ytai's github downloads page.

Click to expand...

JTKEK said:

Kolbe i just change the default bluetooth name ioio to other name
can you update the library, which is can connect to custom name

Click to expand...

JTKEK said:

anyone has twi working example
can you share with me

Click to expand...

Sub humid_temp

    Try
        'get inside temp from humid sensor
        Dim readbyte(2) As Byte
        Dim writebyte(1) As Byte
 
        writebyte(0)=0xe3 'read temp register

        'chip address,7bit,write,bytes,result,bytes,pause)
        Main.twi.WriteRead("htemp",64,False,writebyte,1,readbyte,3,0)

    Catch
        common.note_trouble("Sensors  humid_temp")
        get_temp
    End Try

    If Main.parms.logs Then Log("humid temp end")
End Sub

Sub htemp_done(noerror As Boolean, success As Boolean, writebyte() As Byte, readbyte() As Byte)

    If noerror Then
        If success Then
            Dim partial=(Bit.ShiftLeft(Bit.And(readbyte(0),0xff),8)+Bit.And(readbyte(1),0xfc)) As Int
            temp2=NumberFormat2(-46.85+(175.72*(partial/65536)),1,2,2,False)
     
            'get humidity from humid sensor
            Dim readbyte(2) As Byte
            Dim writebyte(1) As Byte
     
            writebyte(0)=0xe5 'read temp register
            Main.twi.WriteRead("hhumid",64,False,writebyte,1,readbyte,3,0)
        Else
            Log("htemp_done error "&noerror&" "&success)
            get_temp
        End If
    Else
        common.note_trouble("Sensors htemp_done ERROR ")
        get_temp
    End If

    If Main.parms.logs Then Log("htemp_done end")
End Sub

JTKEK said:

[/url][/IMG] The picture below show original IOIO default bluetooth name

[/url][/IMG] The picture below show modifed IOIO bluetooth name

i just modified, the name of IOIO bluetooth
the existing library is search for IOIO (original name)

can you make an update, so that the library can work with any IOIO bluetooth name

Click to expand...

kolbe said:

Here is some working code. The hard part is figuring out how the chip you have works, the registers to use, order to access, what to send it and understanding the data you get back. You figure this out reading the spec sheets.

Below the chip address is 64. I first access register e3 and expect a 2 byte return. The done event returns the 2 bytes. I then do the same for register e5. I don't show the done event.

B4X:

Sub humid_temp

    Try
        'get inside temp from humid sensor
        Dim readbyte(2) As Byte
        Dim writebyte(1) As Byte

        writebyte(0)=0xe3 'read temp register

        'chip address,7bit,write,bytes,result,bytes,pause)
        Main.twi.WriteRead("htemp",64,False,writebyte,1,readbyte,3,0)

    Catch
        common.note_trouble("Sensors  humid_temp")
        get_temp
    End Try

    If Main.parms.logs Then Log("humid temp end")
End Sub

Sub htemp_done(noerror As Boolean, success As Boolean, writebyte() As Byte, readbyte() As Byte)

    If noerror Then
        If success Then
            Dim partial=(Bit.ShiftLeft(Bit.And(readbyte(0),0xff),8)+Bit.And(readbyte(1),0xfc)) As Int
            temp2=NumberFormat2(-46.85+(175.72*(partial/65536)),1,2,2,False)
    
            'get humidity from humid sensor
            Dim readbyte(2) As Byte
            Dim writebyte(1) As Byte
    
            writebyte(0)=0xe5 'read temp register
            Main.twi.WriteRead("hhumid",64,False,writebyte,1,readbyte,3,0)
        Else
            Log("htemp_done error "&noerror&" "&success)
            get_temp
        End If
    Else
        common.note_trouble("Sensors htemp_done ERROR ")
        get_temp
    End If

    If Main.parms.logs Then Log("htemp_done end")
End Sub

Click to expand...