User Passwort
 Passwort speichern Passwort vergessen?
 
 
 
 Alle Foren
 PDA-Dev :: Windows Mobile :: eMbedded
 Visual Basic
 Bluetooth ansprechen
Autor Vorheriges Thema Thema Nächstes Thema  

aussie_oliver

Neumitglied


2 Beiträge

Erstellt am: 17.12.2008 :  09:33:17 Uhr  Profil anzeigen  Autor eine Email senden  Antwort mit Zitat
Hallo,
ich möchte Daten von einer GPS Maus über Bluetooth von VB aus abholen. Mit einem fertigen Programm funktioniert die Schnittstelle auch. Leider bekomme ich das von VB aus nicht hin. Den richtigen Port (8) weiss ich, aber die Procedure
Private Sub Comm8_OnComm()
Dim tmpStr As String
Comm8.InputLen = 1
If Comm8.CommEvent = comEvReceive Then
While Comm8.InBufferCount > 0
tmpStr = tmpStr & Comm8.Input
Wend
Label1.Caption = tmpStr
End If
End Sub
wird erst gar nicht aufgerufen.
Das öffnen der Schnittstelle habe ich auf eine Taste gelegt
Private Sub Command1_Click()
If Comm8.PortOpen = False Then
Comm8.PortOpen = True
End If
End Sub
und die Einstellungen der Schnittstellenparameter sollten auch stimmen.
Hat vielleicht jemand ein fertiges Programmbeispiel?
Vielen Dank schon mal im voraus.
Gruss
Oliver
   

aussie_oliver

Neumitglied


2 Beiträge

Erstellt  am: 19.12.2008 :  13:26:13 Uhr  Profil anzeigen  Autor eine Email senden  Antwort mit Zitat
Wenn es jemanden interessiert, so geht's
Option Explicit
Dim GPGSV, GPGGA, GPGSA, Kennung As String
Private Sub Comm1_OnComm()
Dim sData As String
Dim Zeichen As String
If Comm1.CommEvent = comEvReceive Then
While Comm1.InBufferCount > 0
Zeichen = Comm1.Input
If Zeichen = "$" Then
Kennung = Mid(sData, 1, 6)
If Kennung = "$GPGSV" Then
GPGSV = sData
GPGSV_Display.Caption = GPGSV
End If
If Kennung = "$GPGGA" Then
GPGGA = sData
GPGGA_Display.Caption = GPGGA
End If
If Kennung = "$GPGSA" Then
GPGSA = sData
GPGSA_Display.Caption = GPGSA
End If
sData = "$"
Else
sData = sData + Zeichen
End If
Wend
End If
End Sub
Private Sub Form_Load()
' RX Ereignis jedesmal beim Empfang triggern
Comm1.RThreshold = 1
' Ein Byte einlesen
Comm1.InputLen = 1
' 4800 Baud, No Parity, 8 Data Bits, 1 Stop Bit
Comm1.Settings = "4800,N,8,1"
' Disable DTR
Comm1.DTREnable = False
' Schnittstelle auf 8 (Bluetooth) setzen
Comm1.CommPort = 8
' COM1 öffnen
Comm1.PortOpen = True
End Sub
Private Sub Form_OKClick()
Comm1.PortOpen = False
App.End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Comm1.PortOpen = False
End Sub
In der Form ist das Comm-Objekt eingefügt und 3 Labels zum darstellen der Information. Meine GPS Maus sendet nur diese 3 NMEA Strings, andere GPS Empfänger haben möglicherweise mehr.
Nun muss diese Information nur noch sinnvoll ausgewertet werden.
Gruss
Oliver
Zum Anfang der Seite
  Vorheriges Thema Thema Nächstes Thema  
Springe nach:
 
  Bookmark & Share  
 
 
 
  Tags  
   
 
 



pda-dev.de

Quicklinks: Foren-Übersicht | Developer-News | Suche | Impressum

© just-works! Software

Zum Anfang der Seite

Snitz Forums 2000