Car-PC.info

cPOS - basPhone.bas
E-P-S - Mi 05 Apr, 2006 10:46
Titel: basPhone.bas
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 - Mi 05 Apr, 2006 10:55
Titel:
Hab's mit eingebunden, vielen Dank.
Bei Beschwerden werde ich die Mails an dich weiterleiten. Twisted Evil

Wal
E-P-S - Mi 05 Apr, 2006 11:06
Titel:
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"
Alle Zeiten sind GMT + 1 Stunde
Powered by phpBB2 Plus and Kostenloses Forum based on phpBB