Printable View
Hi,
Used this
LOOP:
HSEROUT["at+cpms=",34,"SM",34,13]
HSERIN [WAIT("OK")]
HSEROUT["AT+CMGR=1",13,10]
HSERIN [WAIT("OK")]
HSERIN 5000,POR,[WAIT("OK"),STR myarray\62]
POR:
if myarray[0]="0"then
'0791539126010000240C91539166392101000080707081934 1400453FA1B0E
goto success
endif
goto LOOP
success:
High PortD.2
End
And it stops in the.
at+cpms="SM"
+CPMS: 1,15,1,15,1,15
OK
and dont continue :(
Are you supposed to wait for an OK, then get the actual response, and then another OK?
Or just wait for the response and an OK?
And one more thing...are you sure your phone is even capable of what you want? And if it is, are you absolutely sure that your circuit is communicating properly with said device?
Wouldn't it be a kick to find out that all of this was being done on some sort of 'simulator' or something? :pQuote:
Originally Posted by Ioannis
Hi,
Its supposed to send:
at+cpms="SM" 'and get:
+CPMS: 1,15,1,15,1,15
OK
then its supposed to send:
AT+CMGR=1 ' and get:
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
By put the code like this
.................................................
LOOP:
HSEROUT["at+cpms=",34,"SM",34,13]
HSERIN 2000,IP,[WAIT("OK")]
IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 2000,LI,[WAIT("OK")]
LI:
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
POR:
if myarray[0]="0"then
'pdu sms in the phone 0791539126010000240C915391663921010000807070819341 400453FA1B0E
goto success
endif
goto LOOP
success:
High PortD.2
End
.......................
Its give on hterminal the good info
at+cpms="SM"
+CPMS: 1,15,1,15,1,15
OK
AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
But still cand find the myarray[0]="0" to high the led
So, you send:
at+cpms="SM"
HSEROUT["at+cpms=",34,"SM",34,13]
Then the phone sends:
+CPMS: 1,15,1,15,1,15
OK
HSERIN 2000,IP,[WAIT("OK")]
(But all you're checking for is the OK, not the rest of the items. How do you know the items are actually there?)
Then you send:
AT+CMGR=1
HSEROUT["AT+CMGR=1",13,10]
And the phone sends:
+CMGR: 1,,23
HSERIN 2000,LI,[WAIT("OK")]
(Where's the OK?)
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
(Where's the OK that the line is supposed to start off with? I see it at the end, not at the beginning.)
It looks to me like you need to rethink your code...a bunch. The order in which you are sending and receiving items to and from the phone doesn't match up with the order in which the phone is actually going to receive and send those items, at least not the way you've written your program.
Hi,
The HSEROUT["at+cpms=",34,"SM",34,13] is to change the momory of the cell phone and phone send back comfirmaction on the change +CPMS: 1,15,1,15,1,15
OK
The HSERIN 2000,IP,[WAIT("OK")] is to for the above ok and then goto next step
The IP: HSEROUT["AT+CMGR=1",13,10] is the next step and reads the pdu sms phone send back the comfirmaction AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E (my message)
OK (the ok by the phone)
HSERIN 2000,LI,[WAIT("OK")] whaits for the above ok and goto
LI:
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
here i have some ??? because i dont have a ok input from the cell phone
Then if myrray zero posiction are zero like its in pda array next goto so sucess if not goto lop
POR:
if myarray[0]="0"then
'pdu sms in the phone 0791539126010000240C915391663921010000807070819341 400453FA1B0E
goto success
endif
goto LOOP
success:
High PortD.2
End
And you've just answered your own question and/or fixed your own...if you knew where to look for it...or if you could see the forest through the trees.
Where are you filling myvar and where are you getting the last OK? And when are you going to reorder your code to match what you want?
Hi ,
Big mess please give me some hellp
Hi,
The HSEROUT["at+cpms=",34,"SM",34,13] is to change the momory of the cell phone and phone send back comfirmaction on the change +CPMS: 1,15,1,15,1,15
OK
The HSERIN 2000,IP,[WAIT("OK")] is to for the above ok and then goto next step
The IP: HSEROUT["AT+CMGR=1",13,10] is the next step and reads the pdu sms phone send back the comfirmaction AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E (my message)
OK (the ok by the phone)
HSERIN 2000,LI,[WAIT("OK")] whaits for the above ok and goto
LI:
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
here i have some ??? because i dont have a ok input from the cell phone
Then if myrray zero posiction are zero like its in pda array next goto so sucess if not goto lop
POR:
if myarray[0]="0"then
'pdu sms in the phone 0791539126010000240C915391663921010000807070819341 400453FA1B0E
goto success
endif
goto LOOP
success:
High PortD.2
End
Anything yet? Do you understand the format of the HSERIN command? The time-out, the WAIT, the rest?Quote:
Originally Posted by camolas
Hi,
Nothing me head is exploding.......... :( i put HSERIN [STR myarray\62] and nothing ...........
Thanks for STILL caring
AND your code is flawed because the timeouts in the HSERIN, I believe, are used incorrectly in this case.Quote:
Originally Posted by camolas
Think about it...
What direction does the code go if you don't receive the OK?
What direction does the code go if you DO receive the OK?
Hi,
In this case the with the HSERIN [STR myarray\62] i send this (only 1 time it stop looping)
at+cpms="SM"
+CPMS: 1,15,1,15,1,15
OK
AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
What time out shell i put? i have tryed 500,1000,2000,5000
on 1st Hserin to IP and the secund to LI
Can you please put me the good command line? please.....
Quote:
Originally Posted by skimask
Zero BYTE ARRAY ? Is that right? Seems like an Array of "no" bytes . . . seems to me, a standard byte var is an array of 1, MyVarArray[1] or MyVarArray var BYTE . . . did I miss something here ?
LOOK AT YOUR CODE!!! READ YOUR CODE!!!Quote:
Originally Posted by camolas
Have you looked at your code lately? Have you read it?
Are you just assuming it will work because you wish it to be true?
If this line times out, where does the flow of the code go?Code:LOOP:................
HSERIN 2000,IP,[WAIT("OK")]
If this line doesn't time out, where does the flow of the code go?
If this line times out, where does the flow of the code go?Code:IP:..................
HSERIN 2000,LI,[WAIT("OK")]
If this line doesn't time out, where does the flow of the code go?
If this line times out, where does the flow of the code go?Code:LI:
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
If this line doesn't time out, where does the flow of the code go?
And what is the phone going to send first? The OK or the string you wish to put in the array?
I'm out....
http://en.wikipedia.org/wiki/What_we...to_communicate
Hi,
The array is [62] byte the 0 byte in the array is 0 as you can see here "0791539126010000240C91539166392101000080707081934 1400453FA1B0E"
by
Quote:
Originally Posted by Joe S.
Ok
Thanks for the hellp skimask i will try and hope that some one give me a litle push to this pbp newbi.
Yep! :D It's just referencing the first byte of the array, not a one byte array (which could just be nothing more than an 8 BIT array :) )Quote:
Originally Posted by Joe S.
At least THAT part of the program is done correctly.
I pushed, prodded, pulled, pointed, highlighted, high-fived, colorized, colon-ized, smelt it and dealt it...Quote:
Originally Posted by camolas
All of your answers (assuming your hardware is working correctly), every single one of them, including the fixes, are in the posts above...
Cant get it, but thanks any way (learning Inglish and Pbp at the same is not easy)
Your grasp of English is fine as far as I can tell, not perfect, but much much better than my grasp of any other language besides English, so in that respect, you are light years ahead of me. It's your grasp of the obvious that escapes me...Quote:
Originally Posted by camolas
i try hard to, please tell me how to.....pleazzzzzzzzz
Quote:
Originally Posted by skimask
Re-Read Post #54...Quote:
Originally Posted by camolas
What does this statement mean to you?
How is this statement going to act? There are 3 ways this statement can end up...Code:HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
Hi, that a whait for a ok 2s if dont came goto POR if came then store the "file" to mydata.
AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
Its beter like this i think HSERIN 2000,POR,[WAIT("+CMGR: 1,,23"),STR myarray\62] ??
LOOP:................
HSERIN 2000,LOOP,[WAIT("OK")] Like this?
IP:..................
HSERIN 2000,IP,[WAIT("OK")] Like this ?
I do not at home the pic/gsm...... to test it only tomorow
Thanks for caring :)
You haven't answered any questions yet...only skirted the issue.Quote:
Originally Posted by camolas
What do each of those lines in Post #54 and that last post do? And in what sequence?
That's the issue...
What does this statement mean to you?
Code:
HSERIN 2000,POR,[WAIT("OK"),STR myarray\62]
That mins to me that code whaits for a ok 2s if dont came gos to POR if it came then store the "file" to mydata. (have answered on the before post alredy)
After realise that a change the code like i posted in the before post.
Please give me you feedback on this.
..............................................
LOOP:
HSEROUT["AT+CPMS=",34,"SM",34,13]
HSERIN 2000,LOOP,[WAIT("OK")]
IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 2000,IP,[WAIT("OK")]
IT:
HSERIN 2000,IT,[WAIT("+CMGR: 1,,23"),STR myarray\62]
POR:
if myarray[0]="0"then
'0791539126010000240C91539166392101000080707081934 1400453FA1B0E
goto success
endif
goto LOOP
success:
High PortD.2
End
...............
Here you have to skip two bytes: HSERIN 2000,IT,[WAIT("+CMGR: 1,,23"),STR myarray\62]
Why? because the string is on the next line as you show. So the phone is sending two more bytes after the 1,,23 and these bytes are.... surprise invisible!! They are 13 and 10. That's why your string appears on the next line. So correct the line as this:
HSERIN 2000,IT,[WAIT("+CMGR: 1,,23"),skip 2, STR myarray\62]
Now you will not lose your first and precious "0" byte!
As for the timeouts, I cannot tell you if 100, 200, 500 or 5000 are enough, as each phone has its own respond times. Some phones have even 15 sec to start responding after reset, or 50sec to erase all messages!
You can test it with timer, but that is another big issue...
Ioannis
Hi,
Thanks a lot men with out the all hellping and caring people and i do not made to this point.
Tomorow i will test it and post it.
Thanks a lot :)
OK that makes sense, since you only posted snippets, I wasn't sure you had set up a 62 byte array, and if you did post it all, then woops, I missed it.Quote:
Originally Posted by camolas
EDIT: Yep you did, post 26.
Hi,
Code stop working at this last line:
HSERIN 5000,IT,[WAIT(13,10), STR myarray\62] or using this line HSERIN 5000,IT,[WAIT("+CMGR: 1,,23"),skip 2, STR myarray\62]
is the same
If i put the command line success: High PortD.2 (to see where code stops) on the next line
IT:
HSERIN 5000,IT,[WAIT(13,10), STR myarray\62]
success: High PortD.2
Nothing but if a only put
HSERIN 5000,IT,[WAIT(13,10)]
success: High PortD.2
Led lights so the code is good before that line and specialy the " , STR myarray\62]" command , please give me you input on this.
Thanks
Why not try pulling just part of the string first...like the first few characters and make sure you can get those correctly before you try grabbing the whole thing...
And if your 13,10 is actually 13,10, then you're ok...but what if your 13,10 is actually 10,13?
Hi,
If i compriend you i have to try a small array like:
............................
myarray var byte[4]
............................
HSERIN 5000,IT,[WAIT(13,10), STR myarray\4]
The 13,10 situaction as i said i put after that this line command
..............
success:
High PortD.2
..............
and it works sow i bealive that is no problem on that.
Yes, yes, and, yes, so...Quote:
Originally Posted by camolas
And how much of your 'program' are you leaving out? I get the feeling that you're not showing everything and that something else is screwing up this whole operation.
Tha small array do not work i mod the line from HSERIN 5000,IT,[WAIT(13,10), STR myarray\4] to:
IT:
HSERIN 5000,IT,[WAIT("OK")]
success:
High PortD.2
End
to get the last ok aftar the phone sends the pdu array was i use to see if the others hserout/hserin lines , and try to with the all pda array and with the 1sts 4 bytes and and nothing i have seen the hterminal and the code stops at last OK dont go back to IT: thats strange.....
Code:
@ Device HS_OSC ' High Speed Crystal
define OSC 20 ' Check the spelling of OSC, must be in capital letter
Include "modedefs.bas" ' Include serial modes
' Define LCD registers and bits
Define LCD_DREG PORTB 'Lcd D 4-bit parallel register starts at PortB.4 to PortB.7
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 2
Define LCD_EREG PORTB
Define LCD_EBIT 3
Define LCD_COMMANDUS 2000 ' Command Delay (uS)
Define LCD_DATAUS 50 ' Data Delay (uS)
DEFINE OSC 20 'Define oscilator frequency
DEFINE LCD_LINES 4 'Number lines on LCD
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
myarray var byte[4]
TrisD.2=0
TrisC.6=0
TrisC.7=1
B0 var byte
High portD.2
Pause 500
Low portD.2
Pause 500
High portD.2
Pause 500
Low portD.2
Pause 500
LOOP:
HSEROUT["AT+CPMS=",34,"SM",34,13]
HSERIN 5000,LOOP,[WAIT("OK")]
' have add success:High PortD.2 and works
IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 5000,IP,[WAIT("OK")]
' have add success:High PortD.2 and works
IT:
HSERIN 5000,IT,[WAIT("OK")] ' from here stops and dont go to IT: , have puted HSERIN 5000,IT,[WAIT(13,10), STR myarray\4] tha same resolt and have puted HSERIN 5000,IT,[WAIT(13,10)] works led ligth and final have puted HSERIN 5000,IT,[WAIT("OK")] wait for the last OK afther pdu array and do not work and do not goto IT
success:
High PortD.2
End
Hterminal gives this:
AT+CPMS="SM"
+CPMS: 1,15,1,15,1,15
OK
AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
Quote:
Originally Posted by skimask
If that's true, then the line failed, because a timeout would've actually gone back to IP: and then, after NOT receiving the 2nd "OK" would've failed.Code:IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 5000,IP,[WAIT("OK")] ' have add success:High PortD.2 and works
The only way it'll go back to IT: is if the line times out. If it gets the "OK" successfully, it won't go to IT:, it'll go to the next line.Code:IT:
HSERIN 5000,IT,[WAIT("OK")] ' from here stops and dont go to IT: ,
See what I'm getting at here? You are contradicting yourself. Either you don't have enough tests in the loops, or you are seeing something that isn't actually happening because it's being covered up by something that is happening, or the other way around. OR...you don't understand how the time outs and labels are supposed to work.
Quote:
You type:
AT+CPMS="SM"
It responds:
+CPMS: 1,15,1,15,1,15
OK
You type:
AT+CMGR=1
It responds:
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
OK
Correct?
IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 5000,IP,[WAIT("OK")] ' have add success:High PortD.2 and works
success:High PortD.2
Let me say ti see if i now woh it works, if the ok dont come in 5s it will go to IP and do it again (wait for ok)??
And as i get i light the led in my experience.
IT:
HSERIN 5000,IT,[WAIT("OK")] ' from here stops and dont go to IT: ,
success:High PortD.2
Yes that is what i think sow why das it dont goto to the next line success:High PortD.2
or go back to IT (the code stops here)
You type:
AT+CPMS="SM"
It responds:
+CPMS: 1,15,1,15,1,15
'one line space down
OK
You type:
AT+CMGR=1
It responds:
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
'one line space down
OK
Ok, fine, so the first part seems to be working...Quote:
Originally Posted by camolas
It probably is STOPPING RIGHT THERE! It's just looping around timing out. BUT...YOU have no way to tell what it's doing, because you have absolutely no 'indicator' there to blip and LED, make a sound or anything.Quote:
IT:
HSERIN 5000,IT,[WAIT("OK")] ' from here stops and dont go to IT: ,
success:High PortD.2
Yes that is what i think sow why das it dont goto to the next line success:High PortD.2
or go back to IT (the code stops here)
And one line space down...hmmm...would that be a 13,10 or a 13,10,10?Quote:
It responds:
+CPMS: 1,15,1,15,1,15
'one line space down
OK
Same thing...Quote:
It responds:
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E
'one line space down
OK
Hi,
"And one line space down...hmmm...would that be a 13,10 or a 13,10,10?"
I only send the 13,10 but outputs in hterminal as 13,10,10 (10 is line feed)but as i have used the wait on last ok to turn leed on and it did not do the problem as i think is not in there.
Thanks
Code is now full working :) for people that want to do a sms controled......... thanks to all you that haved hellp me and care for starts as me.
Many thanks 2u
Code:@ Device HS_OSC ' High Speed Crystal
define OSC 20 ' Check the spelling of OSC, must be in capital letter
Include "modedefs.bas" ' Include serial modes
' Define LCD registers and bits
Define LCD_DREG PORTB 'Lcd D 4-bit parallel register starts at PortB.4 to PortB.7
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 2
Define LCD_EREG PORTB
Define LCD_EBIT 3
Define LCD_COMMANDUS 2000 ' Command Delay (uS)
Define LCD_DATAUS 50 ' Data Delay (uS)
DEFINE OSC 20 'Define oscilator frequency
DEFINE LCD_LINES 4 'Number lines on LCD
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
myarray var byte[62]
TrisD.2=0
TrisC.6=0
TrisC.7=1
High portD.2
Pause 500
Low portD.2
Pause 500
High portD.2
Pause 500
Low portD.2
Pause 500
High portD.2
Pause 500
Low portD.2
Pause 500
LOOP:
HSEROUT["AT+CPMS=",34,"SM",34,13]
HSERIN 5000,LOOP,[WAIT("OK")]
IP:
HSEROUT["AT+CMGR=1",13,10]
HSERIN 5000,IP,[WAIT("+CMGR: 1,,23"),skip 2, STR myarray\62]
'079153 9 126010000240C915391663921010000807070819341400453FA1B0E
IF myarray[6]="9" then
goto success
endif
goto IP:
success:
High PortD.2
End
Are you just typing to fast to care or what's up?Quote:
Originally Posted by camolas
'Code is no full working', while not proper English (and again, your grasp of English is obviously thousands of times better than my grasp of anything but English) means to me that it's NOT working.
'Code is now full working' (again, while it's not proper English) means that it IS working.
Which one is it?