Forum:	cPOS
Téma:	basPhone.bas
--------------------

E-P-S:
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:
Hab's mit eingebunden, vielen Dank.
Bei Beschwerden werde ich die Mails an dich weiterleiten. :twisted: 
Wal

E-P-S:
Es ändert sich ja so nix :-)
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"