[Resolvido]Dúvida em trabalho, Visual Basic

Olá pessoal, estou com uma dúvida de como implementar uma parte de um projeto que estou realizando.

É o seguinte, eu recebo um pacote de dados de 4 temperaturas distintas e eu preciso separar esse pacote e colocar as reapectivas temperaturas em Labels difetenres, por exemplo:

Eu recebo o seguinte pacote tipo string pela RS232, "A31.2B27.0C55.5D60.0"

O que eu preciso fazer é separar as temperaturas e coloca-las nos respectivos lugares
Se "A" entao colocar a temperatura 31.2 na Label.Temp1

Se "B" entao colocar a temperatura 27.0 na Label.Temp2

Se "C" entao colocar a temperatura 55.5 na Label.Temp3

Se "D" entao colocar a temperatura 60.0 naa Label.Temp4


Eu parei nesse problema no projeto e nao estou conseguindo resolver, se alguem puder me ajudar eu agradeço

Obrigado desde já!

Benvindo, Guilherme!

Segue um procedimento para o seu caso.

Sub fncExtrairTemp()
Dim k
k = "A31.2B27.0C55.5D60.0"
k = Replace(k, "A", "")
k = Replace(k, "B", "A")
k = Replace(k, "C", "A")
k = Replace(k, "D", "A")
k = Split(k, "A")
Me!temp1.Caption = k(0)
Me!temp2.Caption = k(1)
Me!temp3.Caption = k(2)
Me!temp4.Caption = k(3)
End Sub

É só chamar pelo procedimento em botão ou em qualquer outro evento

call fncExtrairTemp

A função Replace foi usada para substituir as letras A,B,C e D por um sequencia padrão com a letra A, ficando assim como resultado:

31.2A27.0A55.5A60.0

Com esta referencia "A" podemos separar os valores com a função split()

k(0) ::> posição zero (0) representa o valor 31.2
k(1) ::> posição Um (1) representa o valor 27.0
e assim vai na sequencia

Sucesso!

Olá. muito obrigado pela resposta, eu consegui entender como implementar. Só uma coisa, nesse caso eu consigo enviar o pacote com uma sequencia padrão com a letra A por exemplo assim eu nao precisaria usar a Replace para substituir as letras ?

O meu código para escrever apenas uma temperatura recebida pela porta serial em uma Label ficou assim:

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

temp = SerialPort1.ReadLine()
Me.Invoke(New EventHandler(AddressOf DoUpdate))

End Sub

Public Sub DoUpdate(ByVal sender As Object, ByVal e As System.EventArgs)

temp2.Text = temp & " °C"

End Sub


Como ficaria o código com o procedimento que voce escreveu para 4 temperaturas, separando-as ?

Obrigado desde já!

Eu tentei implementar esse procedimento ficando desse jeito:

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

temp = SerialPort1.ReadLine()
Me.Invoke(New EventHandler(AddressOf DoUpdate))


End Sub



Public Sub DoUpdate(ByVal sender As Object, ByVal e As System.EventArgs)

Dim temp As String
temp = Replace(temp, "A", "")
temp = Replace(temp, "B", "A")
temp = Replace(temp, "C", "A")
temp = Replace(temp, "D", "A")
temp = Split(temp, "A")
temp1.Text = temp(0)
temp2.Text = temp(1)
temp3.Text = temp(2)
temp4.Text = temp(3)


End Sub


Mas na função Split deu o seguite erro: "Error 1: Value of type '1-dimensional array of String' cannot be converted to 'String'."

Coloque uma caixa de mensagem na posição indicada e escreva aqui extamente como a sintaxe está montada.

Dim temp As String
msgbox temp
temp = Replace(temp, "A", "")
...


No aguardo

Obrigado, deu certo implementar como voce mandou, só fiz alguns pequenos ajustes. Obrigado. Problema Resolvido

Obrigado pelo feedback.

Altere a variavel temp para o tipo Variant

Dim temp As Variant

Sucesso!