Hot to enter SeekBar value in AsyncStream

[rfsingh81]

Can someone please help me solve this problem, I have a seekbar defined as Fan.

I want to send the value of the seekbar using asyncstreams. I am having errors and a big headache after trying many combinations which don't work. It may be very simple for most of you here but I still need help doing this.

Sub Fan_ValueChanged (Value As Int,UserChanged As Boolean)
   If (UserChanged=True) Then
      Log ("Value:" & Value & UserChanged) 'This triggers fine when below is commented
      AStream.Write(Value.GetBytes("UTF8")) ' compile error with this line
   End If
End Sub

 

[Erel]

What is the destination of this value? Or how are you reading it in the other side?

If you want to convert an Int to 4 bytes then you can use ByteConverter library.

You can also convert the value to string and send it as string:

Dim s As String = Value
AStream.Write(s.GetBytes("UTF8"))

 

[rfsingh81]

Thanks. This worked. The other side is a MCU so I can always make adjustments at that side. I would also like to ask, if I get a $30 from the other side (meaning 0) to $38 (meaning 8), what code I should use to assign the 0 - 8 to the seekbar?

Currently, in the new data routine, this is what I have:

Sub AStream_NewData (Buffer() As Byte)
   Dim aaya As String
   If (Buffer.Length)>=1 Then
         aaya = BytesToString (Buffer, 0, Buffer.Length, "UTF8")........

I then use aaya.CharAt(0)....aaya.CharAt(4) etc etc type statements after this to adjust my app. I now want to adjust my seekbar based on one of the value, lets say at aaya.CharAt(5)

 

[Erel]

Dim i As Int = aaya.CharAt(5)