vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Abfragen über die serielle Schnittstelle mit VB 
Autor: Dario
Datum: 27.10.03 20:51
Hallo,

ich habe ein Problem beim Abfragen von Informationen eines Mobilfunktelefons über die serielle Schnittstelle mit VB. Und zwar möchte ich die Signalstärke eines Mobilfunktelefons mit dem Befehl AT+CSQ über die COM-Schnittstelle abfragen. Wenn ich das mit einem Termialprogramm mache, erhalte ich als Beispiel folgenden Wert:

at+csq
+CSQ: 10,99
OK

Das ist wunderbar. Nun möchte ich aber diesen Wert mit VB abfragen, um das Resultat in regelmässigen Abständen in eine Datei zu speichern.

Habe das mit folgendem Code versucht: 

        ' Aufbau der Verbindung zu COM1
        With MSComm1
                .Settings = "115200,N,8,1"
                .CommPort = 1
                .InputLen = 0
                .InputMode = comInputModeText
                .PortOpen = True
        End With
 
        ' Befehl für Abfrage
        MSComm1.Output = "AT+CSQ" & Chr(13)
 
        ' Auflesen des Eingangpuffers
        Do
                dummy = DoEvents
                Text1.Text = Text1.Text & MSComm1.Input
        Loop Until MSComm1.InBufferCount > 2
 
        ' Schliessen der Verbindung zu COM1
        MSComm1.PortOpen = False
Als Ergebnis wird mir aber leider nur immer "at+csq" (entspricht der ersten Zeile im Terminalprogramm) ausgegeben und leider nicht der Wert.

Kann mir jemand sagen weshalb das so ist und mir eine Lösung des Problems geben? Ich wäre sehr dankbar, denn wir brauchen dieses Messverfahren unbedingt für eine wissenschaftliche Abschlussarbeit und die Zeit drängt.

Besten Dank für die Aufmerksamkeit.

Freundliche Grüsse
Michel Philipp
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Abfragen über die serielle Schnittstelle mit VB1.273Dario27.10.03 20:51
Re: Abfragen über die serielle Schnittstelle mit VB519flashgod28.10.03 00:18
Re: Abfragen über die serielle Schnittstelle mit VB525Dario28.10.03 07:41
Re: Abfragen über die serielle Schnittstelle mit VB533bigmaeck28.10.03 08:01
Re: Abfragen über die serielle Schnittstelle mit VB469Dario30.10.03 21:31
Die Lösung des Problems!481Dario03.11.03 16:25
Re: Die Lösung des Problems!481bigmaeck03.11.03 16:36

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel