RS232 med VB

ja.

Du skal bruge Microsoft Comm Control 6.0

den finder du ved add components

lidt test kode

Dim Gdone As Boolean

Private Sub CmdStart_Click()
Dim Tyty As String
On Error Resume Next 'If Err.Number = 8005 Then 'The port is already open
    Gdone = False
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
    Tyty = ""
   
    Do
        Tyty = MSComm1.Input
        If Tyty <> "" Then
         
          List1.AddItem Tyty ' Tilføjer indputtet til en listbox
       
        End If
            DoEvents ' lav andre ting imens
    Loop Until Gdone = True
   
End Sub

Private Sub CmdStop_Click()
Gdone = False
MSComm1.PortOpen = False
End Sub

denne skal selvfølgelig være

Private Sub CmdStop_Click()
Gdone = True
MSComm1.PortOpen = False
End Sub

hvordan går det. ?

Det går sådan at jeg er på job ca 18 timer om dagen så jeg når ikke rigtigt at få set på det VB ...  :-(  lidt noget øv..!

har du stadig ikke set på det ?

nej for nu er der ikke noget firma at lave det for mere.. de gik konkurs..