Nokia Pic

[Abago]

Codigo:
dim chksum1,chksum2 as integer "declaramos checksums como enteros
chksum1=0
chksum2=0

for b=1 to len(trama) step 2 "bucle fo desde 1 hasta el final de la cadena contando de 2 en 2
  chksum1=chksum1 Xor cint(TRAMA(b-1))      "pares
  chksum2=chksum2 Xor cint(TRAMA(b))  "impares
  if b = len(trama) - 1 then chksum1=chksum1 Xor cint(TRAMA(b+1))      "caracter par de fin de trama
next 

Creo que así debería funcionar....

he puesto el if, para si se da el caso de que la trama sea impar, no se pierda el checksum del último caracter....

[Sispic]

Xor es un operador basico como + , - , and , or .....  fijate en la calculadora de windows .

1 Xor 1 = 0
0 Xor 0 = 0
1 Xor 0 = 1
0 Xor 1 = 1

11110000 Xor 11110101 = 00000101

Buen ejemplo Abago , solo una aclaración .
Los chksum tienen que ser bytes y las tramas siempre son pares .

[Abago]

En caso de solo ser tramas pares, con omitir el if yas ta...
??? se podrá trabajar con valores byte en VB????
Yo la verdad, es que en HEX nunca he trabajado en vb, así que tendré que tirar de manual, porque ahora ya no tengo la cabeza para pensar tanto.... llevo ya 22 horas trabajando, y estoy completamente bloqueado....

[wofer]

Para resetear el movil poniendo como dice sispic:

Ejemplo para resetear el movil :
   1E-00-0C-D1-00-07-00-01-00-03-00-01-60-00-72-D5
   1E-00-0C-40-00-06-00-01-64-03-01-60-77-24

.....entre trama y trama,debo dejar un periodo de tiempo para transmitir,o se envia todo a piñon?

Eske para resetear el movil le tengo ke enviar las 2 tramas anteriores varias veces seguidas ya ke sino no me hace caso.

Estoy utilizando el logomanager conectado al movil y a un programa ke recibe en hex para averiguar las tramas ke le envia el logomanager,pero lo unico ke consigo ver (aparte de "5555555555......"etc ke envia al principio)es 1E1E1E1E1E1E....las tramas ke le envia para resetear o enviar mensages no aparecen......¿teneis idea de ke puedo estar haciendo mal?

[Sispic]

Codigo:
"-------------------------------------------------------------
Version:  " Get HW&SW version
          " 1E-00-0C-D1 -00-07-00-01 -00-03-00-01 -60-00-72-D5
"-------------------------------------------------------------
TRAMA[0]=$1E:TRAMA[1]=$00:TRAMA[2]=$0C:TRAMA[3]=$D1
TRAMA[4]=$00:TRAMA[5]=$07:TRAMA[6]=$00:TRAMA[7]=$01
TRAMA[8]=$00:TRAMA[9]=$03:TRAMA[10]=$00:TRAMA[11]=$01
TRAMA[12]=$60:TRAMA[13]=$00:TRAMA[14]=$72:TRAMA[15]=$D5
Len=15 : gosub MandaTrama
return
"--------------------------------------------------------
M_ACK: "1E-00-0C-7F -00-02-D2-07-C0-7A
"--------------------------------------------------------
TRAMA[0]=$1E:TRAMA[1]=$00:TRAMA[2]=$0C:TRAMA[3]=$7F
TRAMA[4]=$00:TRAMA[5]=$02:TRAMA[6]=$D2:TRAMA[7]=$07:TRAMA[8]=$C0:TRAMA[9]=$7A
LEN=9 : gosub MandaTrama
return
"--------------------------------------------------------
E_ON: "1E-00-0C-40- 00-06-00-01 -64-01-01-60 -77-26
"--------------------------------------------------------
TRAMA[0]=$1E:TRAMA[1]=$00:TRAMA[2]=$0C:TRAMA[3]=$40
TRAMA[4]=$00:TRAMA[5]=$06:TRAMA[6]=$00:TRAMA[7]=$01
TRAMA[8]=$64:TRAMA[9]=$01:TRAMA[10]=$01:TRAMA[11]=$60
TRAMA[12]=$77:TRAMA[13]=$26
LEN=13 : gosub MandaTrama
return

Codigo:
"-------------------------------------------------------------------------------------------
PideBateria: "nivel de bateria - 1E-00-0C-40-00-06-00-01-7E-17-01-60-6D-30
"-------------------------------------------------------------------------------------------
error=0 : Bateria=0
gosub Version     : gosub EsperaBuffer
gosub M_ACK       : gosub EsperaBuffer
gosub E_ON        : gosub EsperaBuffer

TRAMA[0]=$1E:TRAMA[1]=$00:TRAMA[2]=$0C:TRAMA[3]=$40:TRAMA[4]=$00:TRAMA[5]=$06:TRAMA[6]=$00
TRAMA[7]=$01:TRAMA[8]=$7E:TRAMA[9]=$17:TRAMA[10]=$01:TRAMA[11]=$60:TRAMA[12]=$6D:TRAMA[13]=$30
Len=13 : gosub MandaTrama

TRAMA[1]=$0C:TRAMA[2]=$00:TRAMA[5]=$3A:TRAMA[6]=$01
Len=9:gosub Respuesta
if error = 0 then
  for a= 10 to 65
    gosub recibe : TRAMA[a]=DATO
  next a
  Len=65
  gosub CalcChksums
  gosub Chksums?
  if error.1 = 1 then goto Sal_PideBateria      " error chksums

    if TRAMA[38] <> " " then Bateria = (TRAMA[38]-$30)*100
    Bateria = Bateria+(TRAMA[39]-$30)*10
    Bateria = Bateria+TRAMA[40]-$30
    TRAMA[0]=$1E:TRAMA[1]=$00:TRAMA[2]=$0C:TRAMA[3]=$40
  return "ok

endif

Sal_PideBateria:
error.4=1
return
" posibles respuestas  "100" " 75"  " 50"  " 25"

Lo mejor es esperar que termine de transmitir la respuesta de cada orden que le mandes , y lo mejor es enviar etas tres ordenes antes que cualquier otra .

manda Version   ,  EsperaBuffer
manda M_ACK    ,  EsperaBuffer
manda  E_ON     ,  EsperaBuffer
mada tu TRAMA  ,  procesar respuesta

[pic27]

Esta trama se expuso en la 1ª página de este artículo, teorícamente, el 43-06-09-09-09-F9 es el nº del scsm.
Todavía no he conseguido averiguar cómo se calcula.
En mi trama, también llama al +34609090909, he calculado el empaquetado con y sin "+" y no hay forma.

mi trama :

43-06-09-09-09-f9-00-00-00-00  (10 caracteres)

si empaqueto el:34609090909 da:"33 9A 0D 96 83 E5 60 39 58 0E"

y si empaqueto: +34609090909 da:AB 19 CD 06 CB C1 72 B0 1C 2C 07 (11 caractres , no vale)

Si quito el +34 queda: 609090909 y da:"36 58 0E 96 83 E5 60 39" osea, que no hay forma, incluso creo que los calculé al reces.

Creo haber ententido de una traducción, que el nº de smsc lo componen 10 caracteres, los primeros el nº y lo completan con 00 hasta alcanzar los 10

¿que hago mal? gracias.


"Este es el ejemplo que se puso"

91-  " numero SMSC tipo . ejemplo : 0x81-unknown 0x91-international 0xa1-national

43-06-09-09-09-F9-  --> " paquete con el numero SMSC  [ SMS = Centro de mensajes ] " en este caso +34609090909
00-00-00-00-11-00-00-00-
05- " Longitud del mensaje  en  7 bit chars

[Sispic]

Creo que te haces un lio , mira este ejemplo :

Se van rellenado los niebles del octeto con el valor del numero en decimal invirtiendolos(niebles) , los  que queden vacios su valor será 0xF .

SMS=01 nºTelefono=303132   -> 6 numeros
queda el paquete en 6 bytes así
10-03-13-23-FF-FF
-----------------------------------------------------------
SMS=34  nºTelefono= 123456789 -> 9 numeros
queda el paquete en 6 bytes así
43-21-43-65-87-F9        

No valgo mucho para explicaciones y si no lo ves claro lo repasamos sin problema .

[Pictero]

disculpenme mi falta de inteligencia, pero tnego dos preguntas, como hago para ver los dos graficos de las conecciones, y que son las tramas de las que hablan en el articulo del pic que no entiendo como es que se hace para mandar la informacion hacia el telefono mediante el pic, es usando la usart?, y si es asi como hago para mandar esos datos desde el pic hacia el telefono?

[pic27]

Las tramas son un conjunto de caracteres que se le envian (en este caso destinado a algunos mod. nokia) para obtener del movil todo tipo de información, enviar mensajes, recibir datos, vamos todo lo que se te ocurra.
Estas tramas se sacan de programas que ya hacen eso, tales como el Logomanager ect.
La trasmisión es a 115200 n 8 1 (fBUs)  ó a 9600 o 8 1 para Mbus, pero las tramas son distintas .
Te consejo que primero hagas las pruebas con el pc y las tengas muy claras antes de meterte en el pic.
Para llegar a esta velocidad con el pic y el esquema de conexionado están en las primeras páginas de este proyecto.

Para llegar a 115200 con el pc, yo estoy aprendiebo VB, por lo que voy un poco mareado.
Ah, por cierto, qBasic ni llega a 115200 ni a odd con 8 bits (que yo sepa)

Ala, que se sea leve. saludos

[wofer]

Sispic...podrias contretar lo de la Xor basandote en el ejemplo ke pusiste para pedir un numero de la agenda?:

1E 00 0C 03 00 09 00 01 00 01
03-   " 2 = MEMORIA , 3 = SM - memoria SiM    
01-   " Indice

00 01 46 00

57    "XOR sobre los números impares de la trama
0A    "XOR sobre los números pares     "     "

.....eske no entiendo exactamente lo ke hay ke hacer.

Saludos!!

[Sispic]

wofer en una pajina mas atras lo comentaron tambien .

http://miarroba.com/foros/ver.php?pag=4&temaid=960789&foroid=168219

[wofer]

Vale,vale....ya esta claro.Gracias sispic,es muy sencillo,lo ke pasa eske me habia encabezonado con ke tenia ke hacer un checksum y de ahi no salia.

Por cierto,teneis alguna trama para ke el movil realice una llamada aun numero de telefono?Hasta el momento solo he conseguido mandar mensages y kiero hacerme una alarma la cual la pueda activar o desactivar con una simple llamada perdida.

Saludos!!

[Sispic]

Yo no dispongo de ninguna , se que algun compañero ha conseguido capturar algo pero así se ha quedado .

[lovando]

Disculpen mi ignorancia

Como hacen para que el PIC envie estas tramas, las guardan en la eeprom?? o en otra memoria???...lo digo porque se ven que son bastantes y para variadas operaciones....no se si el 16F84 aguante con tantas tramas por enviar...cual pic usan, el 877??

Gracias

[doppel]

Hola !!!
realmente muy interesante el proyecto! ...felicitaciones
buscando por la red algo como para mi telefono que es un motorola..encontre esta pagina que tiene accesorios de cables de comunicacion de datos y de todo un poco para telefonos moviles de todas las marcas!

http://members.tripod.com.ar/mundocelular/equipment/cables.htm

espero les sirva!
saludos
Doppel - Argentina