Buscador
YoReparo.com La Web 

Regístrate gratis para participar de los foros, o si ya estás registrado haz login.

leer el puerto serie vb.net 2005

comentario del autor Mar Ago 12, 2008 7:59 am
   
hola gente como va. necesito leer el puerto serie del vb.net 2005.
anteriormente hice la misma pregunta para el vb.net2003 y gracias a ustedes lo pude solucionar
nuevamente recurro a su ayuda para poder sacar este clavo
es medio raro ya q la programacion de estos 2 objetos cambian muchos
les paso el codigo del que hice en .net 2003 funciona.
******************************************haciendo doble click sobre el com*****************************
If MSComm1.InBufferCount > 0 Then
Static recibidos As String
Dim valorLeido As String
Dim aux As String
Dim i As Integer
'esto seria lo que lee en el com
aux = MSComm1.Input
For i = 1 To aux.Length
If Mid(aux, i, 1) = "=" Then
recibidos = ""
Else
recibidos = Mid(aux, i, 1) + recibidos
End If

'pruebas
If (recibidos.Length > 7) Then
recibidos = ""
Exit For
End If
Next
Dim valorPesado As Single
Dim tara As Single
Dim pesoBruto As Single
Dim Saux As String
'TODO: hacer bien!!!!

Dim decimalSeparator As String = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator
If decimalSeparator <> "." Then
Saux = recibidos.Replace(".", decimalSeparator)
Else
'RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
Saux = recibidos
'RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End If
'RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
valorPesado = Single.Parse(Saux)
'Saux = Format(valorPesado, "0.0")
Saux = valorPesado.ToString()

If String.Compare(Saux, RichTextBox1.Text) = 0 Then
Exit Sub
End If

'RichTextBox1.Text = Format(valorPesado, "0.0")
RichTextBox1.Text = valorPesado.ToString()

'peso bruto
tara = Single.Parse(TextBox4.Text)
pesoBruto = valorPesado + tara

'RichTextBox2.Text = Format(pesoBruto, "0.0")
RichTextBox2.Text = pesoBruto.ToString()

RichTextBox1.SelectAll()
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right

y en el boton conectar solo van las propiedades es decir baud, paridad etc

lo que pasa es que en l vb.net 2005 haciendo doble click sobre el dibujo del com no me crea nada
bueno gente no los molesto mas
un abrazo

SMD

Reputación



Hacer una pregunta

Boletín de Noticias

Reciba noticias de tecnología, tips de reparación y ofertas exclusivas.



Reglamento / P+F

Foros

Miembros / Expertos