input fra comport

Dim PortTimeout As Boolean


Private Sub Command2_Click()
  PortTimeout = False
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
        Do
          Data = MSComm1.Input
          If Data <> "" Then
            Text1.Text = Text1.Text & Data
        End If
          DoEvents
          If PortTimeout Then Exit Do
        Loop
 
End Sub


Private Sub Command3_Click()
PortTimeout = True ' stopper porten
MSComm1.PortOpen = false
End Sub

en lille rettelse

Dim PortTimeout As Boolean


Private Sub Command2_Click()
PortTimeout = False
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
          Do
          Data = MSComm1.Input
          If Data <> "" Then
            Text1.Text = Text1.Text & Data
        End If
          DoEvents
          If PortTimeout Then Exit Do
        Loop
  MSComm1.PortOpen = False
End Sub

Private Sub Command3_Click()
PortTimeout = True
End Sub

du skal måske også lige tømme din tekstbox, inden du starter.

Private Sub Command2_Click()
PortTimeout = False
Text1.Text =""
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

takker :)

tror det er lige sagen

//Dark kvitterer med point

ok så et svar. ;-))