B4R Question String.split into an array..how?

[jimseng]

I am receiving a comma separated string eg "100,150,175,200" from a PC via USB:
I am trying to get it into an array such as:
dim i(3) as int
dim count as int
Dim c As String = (JoinStrings(Array As String(BC.StringFromBytes(Buffer))))
from the tutorial I can split it around the comma:
For Each s() As Byte In bcx.Split(c,",")
count = count + 1
i(count) = s
R.AnalogWrite(i(count))
G.AnalogWrite(i(count))
B.AnalogWrite(i(count))
W.AnalogWrite(i(count))


next

This doesn't work (Cannot cast type). There must be a more elegant way of doing this.
Hopefully it is obvious what I am trying to do-write the values of the string to 4 pwm outputs.

How might I acheive this.

Many thanks

 

[Mark Read]

Firstly, before DonManfred or Erel gets to you, please use the code tags (left from the disk) when posting. It makes your code easier to read.

What exactly are you getting from the USB port, a string or bytes?

 

[Mark Read]

I think you were lloking here maybe? Link At this code:

Dim b() As Byte = " abc,def,ghijkl "
   Log("Substring: ", bc.SubString(b, 3)) 'Substring: c,def,ghijkl
   For Each s() As Byte In bc.Split(b, ",")
     Log("Split: ", s)
     'Split: abc
     'Split: def
     'Split: ghijkl
   Next

In this case "s" is an array and you can call each member s(0), s(1) etc.

 

[tigrot]

Use type string carefully expecially on low Ram devices. This structure uses lot of ram space.

 

[jimseng]

Wow I have been at this four hours and really don't understand.

So I am sending from a terminal something like 100,200,220,254 (Arduino serial port monitor)

All I want to do is split the string around the comma and get an integer value from it that I can write to an analogue pin
(eg

R.AnalogWrite(254)

)
log(s) returns the values "correctly"

log(s1)

returns something like 49. If done in a loop it returns 48 48 51 53

if I send a string such as 1,2,3,4 I get "Out of bounds error. Array length = 1, Index = 1"

I would have thought this would be so simple but I haven't found an example that helps me, and I have been searching for hours. I am new to this. (Can you tell?)

 

[Mark Read]

Not a problem being new, we were all new sometime. Can you post your whole code or zip it and post?

Where are you sending from and where is is going?

 

[jimseng]

Currently I am using the Arduino IDE serial port monitor to send a simple string. Next I will be using a VB.net app but I don't know where this is going. It is just a bit of fun but it might involve raspberry pi/bluetooth. I guess I should be sending bytes instead of strings but I am trying to keep it generic for now.
I am investigating RGBW LEDS for a home lighting project using the PWM outputs from the Arduino.

No animals will be harmed in the process of developing this project.

 

[tigrot]

You write log(s(1)).
Try with S(0)...

 

[Erel]

Next I will be using a VB.net app but I don't know where this is going

Don't. Start with this: https://www.b4x.com/android/forum/threads/tool-external-serial-connector.65724/#content

You cannot directly convert arrays of bytes to numbers. You must first convert it to string:

Dim bc As ByteConverter
[code]
For Each s() As Byte In bcx.Split(c,",")
count = count + 1
i(count) = bc.StringFromBytes(s)

Make sure to set #StackBufferSize to 600 or more.

Strings are the least suitable format for communication with microcontrollers. Your best option is to use B4RSerializator.

 

[jimseng]

I have been looking at the B4RSerializator but not got anywhere. I get "Out of bounds error. Array length = 150, Index = 65535 " when sending 4 bytes from my .net app.
I have tried the b4j example, which doesn't really seem any different from hyperterminal or some other serial comms. I must be approaching this badly but I see no examples that come close to what I'm after.

 

[jimseng]

I had a quick dabble within the arduino IDE and perhaps the attached sketch would demonstrate what I am trying to do. I would rather stick with B4R as it is more familiar to me. This Arduino sketch works well when sending bytes from vb.net (rather than strings). If I could achieve this in B4R I would be much happier.

 

[Erel]

I have been looking at the B4RSerializator but not got anywhere. I get "Out of bounds error. Array length = 150, Index = 65535 " when sending 4 bytes from my .net app.

It will not work. You must understand how B4RSerializator works.

1: https://www.b4x.com/android/forum/threads/72404/#content

2: https://www.b4x.com/android/forum/threads/esp-configurator-based-on-b4rserializator.81452/#content

 

[Johan Hormaza]

Try this code, it worked perfectly for me.

Sub ReceiveFileName (Buffer() As Byte)
    Dim J As Byte = 0
    Dim Anio, mes, hora, Dia, minutos As Object
    Log("Bufer File: ",Buffer)
    Log("Trim: ", bc.Trim(Buffer)) 
    For Each s() As Byte In bc.Split(Buffer, "/")
        j = j + 1

        Select J
            Case 1
                Anio = bc.stringfrombytes(s)
            Case 2
                mes = bc.stringfrombytes(s)
            Case 3
                Dia = bc.stringfrombytes(s)
            Case 4
                hora = bc.stringfrombytes(s)
            Case 5
                minutos = bc.stringfrombytes(s)
        End Select
        Log("Split: ", s, "Posicion: ", J)
    Next
    Log("Año: ",Ano," Mes: ",mes," Dia: ",Dia," Hora: ",hora," Min: ",minutos)
    DateTimes(Anio,mes,Dia,hora,minutos)
    void_loop.Enabled = True
End Sub

Sub DateTimes(Anio As Object, mes As Object, Dia As Object, Horas As Object, Minutos As Object)
.
.
.

 

[emexes]

I don't have B4R but I suspect this is what is happening:

When the For Each loop finishes, S() = "2" ie the last field of the IP address AA when split by "."

The S() array/string is a single (ie one) element/character long, being S(0) = '2'

In the Dim Port line, you are then trying to access the 4th element/character S(3) which does not exist in the single-element/character array/string.

 

[Mark Read]

Help Me!!!!!!!!!!!!
I code

Private Sub AppStart
    Serial1.Initialize(9600)
    Log("AppStart")
    If wifi.Connect("TOTOLINK_N600R") Then
        'If wifi.Connect2("3G uFi_B1D","1234567890") Then
        'If wifi.Connect2("4213b","12345668") Then
        Log("Waiting for connection.")
        Log("My ip: ", wifi.LocalIp)
        Dim bc As ByteConverter'= wifi.LocalIp
        Dim AA As String=bc.StringFromBytes(wifi.LocalIp)
            For Each s() As Byte  In bc.Split(AA,".")
            Log(s)
        Next
        Dim port As Int =10000 + Bit.ParseInt(s(3),16) '+ bc.IntsFromBytes( s(3))
        Log(port)
        server.Initialize(port, "server_NewConnection")
        server.Listen
        timer1.Initialize("timer1_Tick", 500)
        pin.Initialize(3, pin.MODE_OUTPUT)
    Else
        Return
    End If
End Sub

but error same image belows : Out of bound error. Array length =1, Index =3

This is a very old thread. It would be better to start a new thread and give more details on what you are trying to do. Normally the bytes received should be read in a separate sub. Here you should check the number of bytes you have received against the number you expect.

Even if you send the numbers (eg. 123.456.789.321) as bytes, they might not all appear at once.

Where is the data coming from? Where is it going to? What is the connection type, UDP, MQTT etc?

A quick check would be logging "AA" in your code. Does it show what you have sent?

 

[Mark Read]

I'm new to B4r so old to you but new to me.

Welcome to the forum. I am glad that you managed to solve your problem. ?

However, this is what I meant by starting a new thread for your question. Now you have a solution which other people could be interested in but you cannot mark the thread as [Solved] as it is not yours. Others will probably not find your solution. ?