com-tester med visual basic

mener det kan klares med et mscomm komponent!

Dim X as Integer
On Error Resume Next

For X = 1 to 12
    MSComm1.CommPort = X
    MSComm1.PortOpen = True
    If Err.Number = comPortInvalid Then
        ' comm port "X" svarer ikke
    Else
        ' comm port "X" fungerer
        Combo1.AddItem "com porten " & X, 0
    End If
Next X

/hiks

det ser fint ud til at tjekke om porten er åben  men det konstaterer ikke om der er et flow fra rx til rd 

PK

Du skal bruge :

En MSComm control : oComPort
En Timer          : tmrComOut
To Tekstbox'e    : txtReceive og txtTransmit
En Knap          : cmdTransmit

Kode :

option explicit

Dim vReceive as Variant

Private Sub Form_Load()
    oComPort.CommPort = 1 'COM1 eller COM2 eller....
    oComPort.Settings = "9600,N,8,1"
    oComPort.RThreshold = 1
    oComPort.InputLen = 0
    oComPort.InBufferSize = 1024
    oComPort.OutBufferSize = 512
    oComPort.Handshaking = 0 'Ingen check af Hardwarehandshake
    oComPort.PortOpen = True
End Sub

Public Sub Receive()
   
    tmrComOut.Enabled = True
    Do
        vReceive = vReceive & oComPort.Input
        DoEvents
    Loop Until oComPort.InBufferCount = 0 And tmrComOut.Enabled = False
   
End Sub

Public Sub tmrComOut_Timer()
    tmrComOut.Enabled = False
    txtReceive.Text = vReceive
End Sub

Public Sub Transmit(sSend As String)
    oComPort.Output = sSend & vbCrLf
    DoEvents
End Sub

Private Sub oComPort_OnComm()
   
    Select Case oComPort.CommEvent
        Case "2"
          Receive
        Case Else
           
    End Select
   
End Sub

Private Sub cmdTransmit_Click()
    Transmit txtTransmit.Text
    txtTransmit.Text = ""
End Sub

bruger visual basic.net
er ikke stiv  i programmering

ser ok ud men kan du konvertere den til .net

> pkdata :Det er nok cirka hvad du kan få for 30 point, her i vb-kategorien.

du har nok ret  men når man ikke er den store programmør er det svært at vurdere hvad et spørgsmål er værd...
Men jeg vil da nødig være en fedtsyl  ;-)  hvad er det værd?
PK

Hvis du vil ha' et svar i .NET må du over i .NET-kategorien.

det er ok
har installeret visual basic  og testet din kode  og det virker  tak skal du have
PK

Der er dog et par fejl :
Timerens interval skal sættes til 100
på form_unload sæt oComPort.PortOpen = False

den første havde jeg ramt  men den anden vil jeg prøve....

PK

tnx.... Lad høre hvis der er andet jeg kan hjælpe med.