com Schnittstelle prüfen

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    com Schnittstelle prüfen

    Ich verwende einen usb / Seriell Adapter, wo ich ein Gerät (Datenlogger) angeschlossen habe.

    Da es vorkommt, dass beim Anschließen des Adapters inkl. Gerät sich irgendeinen freie Com-Nummer nimmt, möchte ich mit VB6 dies herausfinden, welche Com-Schnittstelle das Gerät benutzt.

    Wie kann ich dies mit vb6 realisieren.

    Vielen Dank für jede Antwort

    Hier Ausschnitte aus einem meiner Projekte (Stopuhr), welches alle Ports nach dem Atmega "abklappert"
    Ich habe es mal schnell ein wenig kommentiert. Überflüssiges muss natürlich entfernt werden.

    Visual Basic-Quellcode

    1. Private Sub PortAuf()
    3. Dim X As Integer
    4. If MSComm1.PortOpen Then MSComm1.PortOpen = False 'Wenn Port offen, dann schließen
    6. With MSComm1 'Einstellungen
    7. .Settings = "19200,n,8,1"
    8. .InBufferSize = 256
    9. .DTREnable = False
    10. .RTSEnable = False
    11. End With
    13. On Error Resume Next
    14. For X = 1 To 16 'alle 16 Ports durchgehen
    15. Err.Clear 'evtl Fehler löschen
    16. MSComm1.CommPort = X
    17. MSComm1.PortOpen = True 'Port öffnen
    18. If Err.Number = 0 Then 'Wenn Port geöffnet werden konnte, prüfen, ob sich die Stopuhr daran befindet
    19. If isStoppuhr Then
    20. SBar.Panels(2).Text = "Stopuhr an COM" & X 'Statusbarmeldung anzeigen
    21. For i = 0 To 3 'Buttons zum schließen, Uhrstarten usw aktivieren (müssen natürlich vorhanden sein)
    22. Command1(i).Enabled = True
    23. Next i
    24. MSComm1.Output = "160" 'Kommando an die Stoppuhr senden, damit sie weiß, dass der PC da ist
    25. log_Oeffnen 'Log datei Öffnen, wenn es diese Sub nicht gibt, dann natürlich alles dazu entfernen
    26. mnuVerbindung.Caption = "Trennen" 'Menü umbenennen von Verbinden in Trennen(Muss es natürlich geben)
    27. mnuSpezial.Enabled = True 'Weitere Menüs aktivieren
    28. tmrEmpfang.Enabled = True 'Timer zum Empfangsbuffer auslesen aktivieren (sollte vorhanden sein)
    29. On Error GoTo 0 '
    30. Exit Sub
    31. End If
    33. End If
    34. MSComm1.PortOpen = False
    35. Next X
    37. SBar.Panels(2).Text = "Stopuhr nicht gefunden"
    38. On Error GoTo 0
    40. End Sub
    42. Private Function isStoppuhr() As Boolean
    43. Dim lzeit As Long
    44. Dim s As String
    45. MSComm1.Output = "0" '0 an Stopuhr senden(Der Atmega sendet darauf sein Programmname und Version)
    46. lzeit = GetTickCount + 750 'Uhr hat 3/4 Sekunde Zeit zum antworten 'Gettickcount api muss eingebunden werden
    47. Do While GetTickCount < lzeit
    48. Loop
    49. If MSComm1.InBufferCount > 0 Then 'Wenn Empfangsbuffer nicht leer
    50. s = MSComm1.Input 'diesen einlesen
    51. If Left$(s, 7) = "Stopuhr" Then 'Und auf Startmeldung prüfen
    52. isStoppuhr = True
    53. End If
    54. End If
    56. End Function
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Vielen Dank für die Antwort.

    Der Code funktioniert auch, nur was mir da noch fehlt bzw. nicht verstehe ist, wie ich herausfinden kann, dass am offenen Com-Port es sich um mein Gerät (Datenlogger) handelt, da es ja vorkommen kann, dass mehrere Geräte an verschiedenen Com Ports angeschlossen sind.

    Ich konnte da leider keinen passenden Parameter finden.

    Hoffe da kann mir nochmals jemand weiterhelfen.

    Vielen Dank

Facebook
Telefonspende