Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MSCOMM
Autor: Martin
Datum: 18.12.01 19:42
Hallo Noura, Ich hoffe du hast die Schnittstelle richtig initialisiert. MsComm1.Settings=9600,n,8,1 Üblicherweise stimmt diese Einstellung. Sonst probierte einfach andere Werte aus, wie 19200 - vielleicht steht auch in deinem Benutzerhandbuch von deinem Gerät etwas dazu beschrieben. Zum probieren baue dir einfach einen Button auf deine Form mit folgendem Code hinterlegt: Private Sub Command1_Click() MsgBox MSComm1.Input End Sub Wenn du glaubst, daß nun Daten kommen drücke einfach den Button und du siehst was über die Schnittstelle reinkommt. So kannst du am wenigsten falsch machen und wenn dies funktioniert kannst du diese Daten noch in eine Textdatei schreiben. Falls du die Steuerzeichen im Ascii-Code anzeigen möchtest habe ich eine nützliche Funktion für dich. Die Sonderzeichen werden als nummerischer Wert zwischen zwei "!" ausgegeben. Public Function DispAscii(Quelle As String) As String Dim i As Integer Dim Char As String For i = 1 To Len(Quelle) Char = Mid$(Quelle, i, 1) If UCase(Char) >= "A" And UCase(Char) <= "Z" Then DispAscii = DispAscii & Char Else If Char >= "0" And Char <= "9" Then DispAscii = DispAscii & Char Else DispAscii = DispAscii & "!" & Asc(Char) & "!" End If End If Next i End Function mfG Martin

MSCOMM	91	Noura	18.12.01 17:09
Re: MSCOMM	59	Martin	18.12.01 19:42
Hilfe!	58	Noura	19.12.01 09:46
Re: Hilfe!	48	Ralf	19.12.01 16:52
Re: Hilfe!	49	Martin	20.12.01 21:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen