none
vb datorecibe

    Debate general

  • buena mu pregunta es si alguien puede ayudarme ,estoy intentado hacer que al recibir un dato por el puerto serial me salte un

    tiempo y no logro que se active . aquí parte del código:

    PrivateSubSerialPort1_DataReceived(ByValsender AsObject, ByVale AsSystem.IO.Ports.SerialDataReceivedEventArgs) HandlesSerialPort1.DataReceived

           

    Try


               

    Dimaz AsString= SerialPort1.ReadLine

               

    Ifaz > 1 Then


                    Textpeso.Text = (Val(az) + Val(Textmenos.Text) - Val(Textmas.Text))

                    pesoultimo.Text = Val(Textpeso.Text)

                   

    IfVal(pesoultimo.Text) > 10 Then


                       

    IfVal(pesoultimo.Text) < 100 Then


     

                            Timer3.Enabled =

    True


                       

    Else


                            Textpeso.Text = 0

                       

    EndIf


                   

    EndIf


               

    EndIf


     

           

    Catchex AsException


                MsgBox(ex.Message)

           

    EndTry

    sábado, 17 de diciembre de 2016 17:11