Hi again
i tried RPcoyls program, and it seems that it finds the right comport (3),however i cant get the temp to display
here´s the program, all that happends is that the label1 disapears...
please help
Private Sub Timer1_Timer()
Dim n As Long
Dim str As String
Dim i As Long
For n = 1 To 16 ' com ports
' close any open ports
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
On Error Resume Next
MSComm1.CommPort = n
On Error Resume Next
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If MSComm1.CommID > 0 Then
For i = 1 To 100 ' keep looking
str = ""
str = MSComm1.Input
' finds the port sending out the correct string.
If InStr(str, "Tmp") > 0 And InStr(str, "@") > 0 Then GoTo jump:
Label2.Caption = n
Next i
End If
Next n
jump:
Label3.Caption = str
End Sub