Sie sind hier: Startseite » Forum » Software » CarPC-Software » cPOS » cPOS » basPhone.bas
Nächstes Thema anzeigen
Vorheriges Thema anzeigen

Vorheriges Thema anzeigenDieses Thema verschickenZeige Benutzer, die dieses Thema gesehen habenDieses Thema als Datei sichernPrintable versionEinloggen, um private Nachrichten zu lesenNächstes Thema anzeigen
Du musst dich anmelden um Beiträge zu schreiben!Du musst dich anmelden um Beiträge zu schreiben!
Autor Nachricht
E-P-S
Forumkenner
Forumkenner



Anmeldung: 21.04.2005
Beiträge: 125



BeitragVerfasst: Mi 05 Apr, 2006 09:46  Titel:  basPhone.bas
Nach untenNach oben

Ich habe ein paar Änderungen an der basPhone.bas vorgenommen.

Code:

Dim ATOK As Boolean


Public Sub SendATCommand(ATCommand As String)
Dim strbuffer As String
   ATOK = False
   
   frmMain.comPhone.Output = ATCommand + vbCr
  Do
   GetPhoneData
   DoEvents
  Loop Until ATOK = True
End Sub


Desweiteren muss in die Sub GetPhoneData()noch folgende Zeilen eingebunden werden:

Code:

If InStr(strbuffer, "OK") Then
     ATOK = True
    End If

Das hat den Vorteil das AT-Befehle direkt hintereinander abgearbeitet werden können.
So wie es jetzt ist, kommt es stellenweise zu Überschneidungen und die Befehle werden ignoriert...



    
Wal
Developer
Developer


Alter: 57
Anmeldung: 11.11.2004
Beiträge: 1128
Wohnort: Obernburg/Odw., Bayern


BeitragVerfasst: Mi 05 Apr, 2006 09:55  Titel:  (Kein Titel)
Nach untenNach oben

Hab's mit eingebunden, vielen Dank.
Bei Beschwerden werde ich die Mails an dich weiterleiten. Twisted Evil

Wal



    
E-P-S
Forumkenner
Forumkenner



Anmeldung: 21.04.2005
Beiträge: 125



BeitragVerfasst: Mi 05 Apr, 2006 10:06  Titel:  (Kein Titel)
Nach untenNach oben

Es ändert sich ja so nix Smile
Nur an der stelle wo du AT-Befehle ans Handy schickst halt nicht mehr

Code:

frMain.comPhone.Output =


sondern
Code:

SendATCommand("AT+CPBR=1")


Beispiel:
frSetting->Command13_Click()

nichtmehr
Code:

frMain.comPhone.Output = "AT+CPBR=1" & vbCr

sondern
Code:

SendATCommand("AT+CPBR=1")



den "vbCr" setz ich automatisch dahinter.


Die AT-Befehle die ich ausprobiert haben antworten immer mit "OK"



    
Beiträge der letzten Zeit anzeigen:      
Du musst dich anmelden um Beiträge zu schreiben!Du musst dich anmelden um Beiträge zu schreiben!
Vorheriges Thema anzeigenDieses Thema verschickenZeige Benutzer, die dieses Thema gesehen habenDieses Thema als Datei sichernPrintable versionEinloggen, um private Nachrichten zu lesenNächstes Thema anzeigen

Nächstes Thema anzeigen
Vorheriges Thema anzeigen
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen
 

CarTFT
Forenspecials



Forensicherheit - Alle Zeiten sind GMT + 1 Stunde -
Powered by phpBB2 Plus, phpBB Styles, based on phpBB © 2001/6 phpBB Group :: FI Theme ::

[ Zeit: 5.9165s ][ Queries: 47 (0.6510s) ][ GZIP Ein - Debug Ein ]
carTFT.com