SoloCodigo

¡HOLA!
Yo tomo valores de 4 termocuplas, espero ayudarte:

Option Explicit

Dim nVAL001, nVAL002, nVAL003, nVAL004 As Long
Dim nValPro As Single
Dim VALRECI As String
Dim nCon001 As Long
Dim nConEve As Long
Dim nSuiEve As Long

Private Sub cAbP_Click()
    If MSComm1.PortOpen = True Then
    Else
        MSComm1.PortOpen = True
        SB11.Panels(1).Text = "Se abrió el puerto COM1"
    End If
End Sub

Private Sub cCeP_Click()
    If MSComm1.PortOpen = False Then
    Else
        MSComm1.PortOpen = False
        SB11.Panels(1).Text = "Se cerró el puerto COM1"
    End If
End Sub


Private Sub cSalir_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Top = 0
    Me.Left = 0
    nConEve = 0
    nSuiEve = 0
    nCon001 = 0
    SB11.Panels(1).MinWidth = Me.Width
    SB11.Panels(1).Text = ""
    cAbP.Caption = "Abrir Puerto COM1" & vbCrLf & "RS232"
    cCeP.Caption = "Cerrar Puerto COM1" & vbCrLf & "RS232"
    '----------------------------------------------------------------------------------
    'Configuración de control MSComm
    MSComm1.InputLen = 0   'Leer todo el buffer
    MSComm1.RThreshold = 1 'Recibir
    MSComm1.SThreshold = 1 'Enviar
    MSComm1.CommPort = 1   'Puerto COM1
    MSComm1.Settings = "2400,N,8,1"  'Yo trabajo a esta veloidad
    '----------------------------------------------------------------------------------
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
End Sub

Private Sub Form_Resize()
    If Me.WindowState = 1 Then
    Else
        SB11.Panels(1).MinWidth = Me.Width
    End If
End Sub


Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
    Case comEvReceive
        nConEve = nConEve + 1
        'Aquí tomo los valores del puerto por cada evento...
        VALRECI = MSComm1.Input
        If Val(VALRECI) = 1 Then
            nConEve = 0
            nSuiEve = 1
        Else
            If nSuiEve = 0 Then
            Else
                Select Case nConEve
                Case 1
                    nVAL001 = Val(VALRECI)
                Case 2
                    nVAL002 = Val(VALRECI)
                Case 3
                    nVAL003 = Val(VALRECI)
                Case 4
                    nVAL004 = Val(VALRECI)
                    nValPro = (nVAL001 + nVAL002 + nVAL003) / 3
                    nValPro = Round(nValPro, 2)
                    nVAL001 = 0
                    nVAL002 = 0
                    nVAL003 = 0
                    nVAL004 = 0
                    nSuiEve = 0
                End Select
            End If
        End If
    End Select
End Sub


Si necesitas más ayuda: arm_saq@yahoo.com