TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: juancho056 en 04 de Mayo de 2015, 17:49:15
-
Hola a todos!!
Estoy implementando un programa entre VB6 y un microcontrolador, lo que estoy haciendo es que envio una trama al micro y este me responde, Bien hasta ahi.
Ahora bien los que recibo por serial es
Buffer= MSComm1.Input los que seria "02030601ff02b800220500"
Necesito crear un ciclo o una funcion que me organice el vector para que quede asi
"02-03-06-01-ff-02-b8-00-22-05-00"
se que es un procedimiento de pura logica, llevo ya un rato largo y no lo logro, si alguien me puede echar una mano estare muy agradecido :mrgreen:
-
una posible solución.
Private Sub Command1_Click()
Text2.Text = sAcomodarCadena(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "02030601ff02b800220500"
End Sub
Function sAcomodarCadena(sTramas As String)
Dim sCadena As String: Dim t As Integer
For t = 1 To (Len(sTramas)) Step 2
sCadena = sCadena & Mid$(sTramas, t, 2) & "-"
Next t
sCadena = Left$(sCadena, 32)
sAcomodarCadena = sCadena
End Function
-
Hola, PalitroqueZ!!
Exactamente esa era la solucion que requeria, yo le intente y le intente... pero bueno estamos para aprender.
Muchisimas Gracias :mrgreen: ((:-))