Welcome to EDAboard.com

Welcome to our site! EDAboard.com is an international Electronic Discussion Forum focused on EDA software, circuits, schematics, books, theory, papers, asic, pld, 8051, DSP, Network, RF, Analog Design, PCB, Service Manuals... and a whole lot more! To participate you need to register. Registration is free. Click here to register now.

Register Log in

Send AT command to mobile phone

Status
Not open for further replies.

potetojb

Member level 3
Joined
Feb 25, 2006
Messages
64
Helped
1
Reputation
2
Reaction score
0
Trophy points
1,286
Location
Johor,Malaysia
Activity points
1,943
i want send the AT to Sony ericsson T610 from VB 6 use serial or USB data cable..

can u help me.. give idea or something
 

adelmon

Junior Member level 1
Joined
Apr 22, 2005
Messages
17
Helped
8
Reputation
16
Reaction score
4
Trophy points
1,283
Activity points
1,554
You need to be able to read/write to the comport(RS232) of a computer from VB6.
There are lots of components and sample codes around the net.
After you are able to use the serial port from VB6 all you have to do is to send the command string to the modem with a carriage return at the end.

as example;

AT<cr>
 

potetojb

Member level 3
Joined
Feb 25, 2006
Messages
64
Helped
1
Reputation
2
Reaction score
0
Trophy points
1,286
Location
Johor,Malaysia
Activity points
1,943
thank

adelmon

u have related website for i study about it.
i search about it in yahoo but cant find..
 

potetojb

Member level 3
Joined
Feb 25, 2006
Messages
64
Helped
1
Reputation
2
Reaction score
0
Trophy points
1,286
Location
Johor,Malaysia
Activity points
1,943
thank
adelmon..

now i try to send the at command using vb.. that my program.
but i have problem i dont know why the msg cant display in text.. i thing have some problem.

this program dont error bit just not display the output

can u check the program for me.
i realy new in vb6
Private Sub Command1_Click()
Dim sms As String
Dim buffer$

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.Handshaking = comNone

MSComm1.PortOpen = True

'echo off
MSComm1.Output = "ATE0" & Chr$(13)

Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
buffer$ = ""

'Report Mobile Equipment Error ( enable )
MSComm1.Output = "AT+CMEE=1" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
buffer$ = ""

'Received read message
MSComm1.Output = "AT+CMGR=1" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "+CMGR: 1,,159")
buffer$ = ""

sms = MSComm1.Input
Text1.Text = sms

Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")

MSComm1.PortOpen = False



End Sub


if i use hyperterminal the output like this

'if use hyperterminal the command output like below
'AT CMGR = 1
'+CMGR: 1,,159
'07910621000010F5240B910621671663F1000060104222334423A0C2E030088232834E19C8049A06
'9BC2AAF3B87482905569D5E8CC06750A625A0F0AB7C32037B90E62D7D761103B3C4F83C46190B8EE '9E87D7207A1A5E9683CEE97619E41E8741F2F43A4D0785C5F3FA18949E97C96190FBBC0E83DCE230
'485C77CFCB20F739CC9E97C9A0B0FB3C07A5C5F575BB0C729FCB6A50985E6783D2F3B03B0D72A75D
'E8301A1446875D

thank
 

Status
Not open for further replies.

Part and Inventory Search

Welcome to EDABoard.com

Sponsor

Top