Private Sub ButSend_Click
Dim serveuuid As String = "49535343-fe7d-4ae5-8fa9-9fafd205e455" 'UUID for RN4870 transparent service
Dim rxuuid As String = "49535343-8841-43f4-a8d4-ecbe34729bb3" 'UUID for RN4870 transparent rx
Dim n As Int=0
Dim dat As Byte
Do While n <6
If n=0 Or n=3 Then dat=84: If n=1 Then dat=69: If n=2 Then dat=83 : If n=4 Then dat=32
manager.WriteData(serveuuid,rxuuid,Array As Byte (dat))
Log(n)
n = n+1
Loop
End Sub