Regístrate gratis para participar de los foros, o si ya estás registrado haz login.
| comentario del autor | Mar Ago 12, 2008 7:59 am | |
|
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 |
||