COM Port öffnet sich nicht im Visual Basic

[Falk B. (falk)]

Hallo Allerseits,

ich hab hier Windows XP mit einem nicht ganz taufrischen Visual Basic 
6.0.
Naja, ist halt so.
Ich will mit dem seriellen Port kommunizieren, dazu nutze ich XMCommCRC, 
die frei Version von MSComm32.

Geht aber NICHT! Ich kann keinen von COM1-COM16 öffnen. Im System hab 
ich einen virtuellen COM-Port von einem FT232. Normale Terminalprogramme 
laufen problemlos!

Was ist das faul?

MFG
Falk

[Rufus Τ. F. (rufus)]

Dein hier nicht geposteter Quelltext enthält in Zeile 42 einen 
Zuweisungsfehler.

[Peter (Gast)]

>dazu nutze ich XMCommCRC, die frei Version von MSComm32.

Den Quatsch brauchst Du nicht! Öffne einfach eine Datei mit dem Namen 
"Com1", "Com2", "Com3", "LPT1" etc. mittels dem OPEN #xy Kommando (am 
besten Binary Read_Write) dann lese+schreibe auf diese Datei... That's 
it!

[Einhart P. (einhart)]

Moin Falk,

was spricht gegen mscomm32? Damit habe ich eigentlich kein Problem.

Gruß
Einhart

[Volker Z. (vza)]

Falk Brunner schrieb:
> Was ist das faul?

Faul ist das Du keine Fehlermeldung(Fehlernummer) und kein Quelltext 
zeigst.

Möchtest du hier ein Ratequiz eröffnen?

[Falk B. (falk)]

@  Einhart Pape (einhart)

>was spricht gegen mscomm32?

Die Tatsache, dass weiß der Geier warum die in meinem Visual Basic nicht 
drin war. Und wenn man eine aus dem Internet runterlädt und nutzen will, 
meckert es wegen angeblich nicht vorhandender Lizenzen rum. Da soll es 
wohl auf diversen neueren Developer CDs eine .reg Datei geben, die das 
per Registry Einträgen patcht. Hab ich aber nicht, auch nicht gefunden, 
weil wohl offiziell nicht frei verfügbar.

@  Rufus Τ. Firefly (rufus) (Moderator) Benutzerseite

>Dein hier nicht geposteter Quelltext enthält in Zeile 42 einen
>Zuweisungsfehler.

Jaja ;-)

Ich hab das Beispiel von einer Seite genommen, das COM1-16 abklappert. 
Immer ist ERROR <>0 :-(

http://www.activevb.de/tutorials/tut_com/com.html

@  Peter (Gast)

>>dazu nutze ich XMCommCRC, die frei Version von MSComm32.

>Den Quatsch brauchst Du nicht! Öffne einfach eine Datei mit dem Namen
>"Com1", "Com2", "Com3", "LPT1" etc. mittels dem OPEN #xy Kommando (am
>besten Binary Read_Write) dann lese+schreibe auf diese Datei... That's
>it!

Soll mir recht sein, wenn das auch geht. Hast du ein Beispiel dafür, man 
muss ja auch die Baudrate etc. einstellen.

MFG
Falk

[Einhart P. (einhart)]

Das mit dem gelegentlichen Lizengemecker hatte ich auch bei einigen 
Rechnern. Die .reg-Datei hat dann geholfen.

Gruß
Einhart

[Falk B. (falk)]

@  Einhart Pape (einhart)

>Das mit dem gelegentlichen Lizengemecker hatte ich auch bei einigen
>Rechnern. Die .reg-Datei hat dann geholfen.

Hab ich aber nicht, auf der CD ist sie nicht. Ist ne aaalte VB6.0.

[Einhart P. (einhart)]

Hast du aber doch ;-) nur nicht gefunden PM

[Falk B. (falk)]

Also, ich hab mal probiert.

Wenn man den COM Port als Datei per Open öffnet kann man schreiben. 
Allerdings scheint es nicht möglich zu sein, dabei die Einstellungen zu 
ändern, ala

Open "COM4,9600,N,8,1"

Hat nicht funktioniert, es wird nur die im Windows vereinbahrte 
Standardeinstellung genutzt. Oder kennt jemand die richtige Syntax?

Der zweite Versuch mit der originalen MSComm ging soweit, als dass mir 
ein Vögelchen ein Liedchen gezwitschert hat, worauf die bösen 
Lizensgeister verschwunden sind. Dennoch ist ein COM-Port Zugriff immer 
noch nicht möglich, genauso wie mit dem XMCommCRC. :-(

Was kann Visual Baisc daran hindern? Zugriffsrechte unter XP? Mein 
User-Account ist eingeschränkt, aber auch mit Adminrechten geht es 
nicht.

Firewall? Glaub ich nicht am COM-Port.

Virenscanner? Avira? Hmm?

MSComm inkompatibel mit virtuellen UARTs bzw. deren Treibern?

Was sonst?

MFG
Falk

[Einhart P. (einhart)]

Hallo Falk,

ich hatte dir heute morgen eine Mail mit einem Codebeispiel geschickt. 
Dein Code mit if Error ... funktioniert bei mir auch nicht.

Gruß
Einhart

[Falk B. (falk)]

@ All

Hier des Rätsels Lösung.

Mein Quelltext ist der, "eigentlich" aus einem Tutorial kopiert.

Private Sub CONNECT_Click()
   Dim i As Integer
     'If CONNECT.Caption = "&Connect" Then
         'MSComm1.CommPort = COM_SEL.ListIndex + 1
       For i = 1 To 16
       MSComm1.CommPort = i
       On Error Resume Next
       MSComm1.PortOpen = True     ' Port oeffnen, ohne Abbruch bei Fehler
         If Error = 0 Then           ' Port available
           CONNECT.Caption = "&Disconnect"
           COM_SEL.Enabled = False '
           MsgBox "COM " + Str(i) + " available!"
       Else
           MsgBox "COM " + Str(i) + " not available! Error code"
       End If
       MSComm1.PortOpen = False
       Next
   'Else        ' close port
    '   XMCommCRC.PortOpen = False
     '  CONNECT.Caption = "&Connect"
     '  COM_SEL.Enabled = True
   'End If
End Sub

Der Einhart hat mir die Lösung geschickt. Diese Zeile

If MSComm1.PortOpen Then

Aber wieso steht es dann falsch in dem Tutorial? Jaja, man soll nicht 
alles glauben was im Internet steht, aber eine SOOO einfache Sache 
falsch machen?
Hmmm.

http://www.activevb.de/tutorials/tut_com/com.html

AHHHHHH, ICH DEPP!!!!!

Dort steht

If Err = 0 Then

Ich hab da irgendwie ein

If Error = 0 Then

draus gemacht. Und wie es scheint liefert der Vergleich mit einer nicht 
deklarierten Variable immer False.

ARGGGGGGGGGGHHHHHH

Naja, wenigstens geht es jetzt.

Nochmal vielen Dank an Einhart, der mir zweimal zu 100% geholfen hat!

MFG
Falk

P S Und ich schreibe jetzt 100 mal. Man soll Beispielquelltext immer zu 
100% kopieren und nicht abschreiben! :-0

P P S To err is human ;-)

[VB6.0 (Gast)]

Falk Brunner schrieb:
> AHHHHHH, ICH DEPP!!!!!
>
> Dort steht
>
> If Err = 0 Then
>
> Ich hab da irgendwie ein
>
> If Error = 0 Then
>
> draus gemacht. Und wie es scheint liefert der Vergleich mit einer nicht
> deklarierten Variable immer False.


Hallo,

dafür gibt es in VB die "Option Explicit" . Damit wäre dieser Fehler 
sofort aufgefallen...

Gruss Gast

[Anfänger (Gast)]

Schau dir mal die RSAPI.DLL an, funktioniert wunderbar und ist 
erklärt... (falls es noch aktuell ist o der mal Probleme auftauchen)