Autor
|
Tema: Problema con comunicacion puerto serie y comandos at (Leído 2,942 veces)
|
rod00x3
Desconectado
Mensajes: 21
|
La razon por la cual solicito su ayuda es la siguiente, tengo un pequeño modem capas de enviar y resivir SMS, claro se comunica con datos AT, cree una pequeña aplicacion en visual basic 6, para enviarle y resivir parametros con el modem, las pruebas iniciales se realizaron con un dispositivo diferente, y fueron exitosas, el problema se da cuando coloco el moden real, la aplicacion tiene un comportamiento muy extraño, ejemplo cuando envio un comando no me responde nada, pero al resetear el equipo veo su arranque, en la aplicacion aproposito no sierro el puerto, abro una hiperterminal y se ejecutan los comandos que he enviado, los comandos los ejecuto desde la hiperterminal y todo funciona perfectamente, el ejemplo en el que me base para trabajar es de este link http://www.youtube.com/results?search_query=visual+basic+6.0+%2B+comunicaci%C3%B3n+serial+rs485&oq=Visual+Basic+6.0+%2B+Comunicaci%C3%B3n+Serial+rs4&gs_l=youtube-reduced.1.0.33i21.2335223.2346498.0.2348326.14.12.2.0.0.0.365.1792.8j2j0j2.12.0...0.0...1ac.1.P7skQUPC7VsPero ya no se que mas hacer o que puede ser el problema?? alguien tiene alguna idea??
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Este es un código pequeño: La clase clsComm: http://pastebin.com/4djTCJyfhttp://foro.elhacker.net/programacion_visual_basic/mscomm_manejar_el_celular_desde_la_pc-t320786.0.html;msg1586274#msg1586274 Option Explicit Private WithEvents obj_clscom As clsCom ' ' ///////////////////////////////////////////////////////////// ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) // ' // // ' // Web: http://InfrAngeluX.Sytes.Net/ // ' // // ' // |-> Pueden Distribuir Este codigo siempre y cuando // ' // no se eliminen los creditos originales de este codigo // ' // No importando que sea modificado/editado o engrandecido // ' // o achicado, si es en base a este codigo // ' ///////////////////////////////////////////////////////////// ' // http://infrangelux.sytes.net/Blog/index.php?option=com_content&view=article&id=6:artwait&catid=2:catprocmanager&Itemid=8 ' ///////////////////////////////////////////////////////////// Private Declare Function WaitMessage Lib "user32" () As Long Enum eTime Horas = 3600 Minutos = 60 Segundos = 1 End Enum Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False) Dim vDateE As Date vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time) Do While vDateE > Time Call WaitMessage If Not UseAllProc Then DoEvents Loop End Sub Private Sub Form_Load() Set obj_clscom = New clsCom With obj_clscom .ComPort = 4 .ComSettings = "57600,N,8,1" ' 57600 bps, sin paridad, 8 bits de data, 1 bit de stop .TimerDelay = 1000 ' 1000ms = 1 Segundo para chequear si entro data .TimerEnabled = True If .InitCom Then Call .WriteCom("AT" & vbCr) ' wait() Call .WriteCom("AT+CMGF=1" & vbCr) ' wait() Call .WriteCom("AT+CMGS=" & Chr(34) & "0445526651140" & Chr(34) & vbCr) ' // Segun el protocolo lo que nos retorna es +CMGS: <Num. Identificador> ' wait() Call .WriteCom("Espero una jalada en mi cel, aun que ya no tengo credito xP" & Chr(26)) ' 26 = Ctrl+Z ( Segun el protocolo AT ) End If End With End Sub Private Sub Form_Unload(Cancel As Integer) Set obj_clscom = Nothing End Sub Private Sub obj_clscom_DataReceived(ByVal strData As String) Debug.Print strData If InStr(1, strData, "+CMGS:") > 0 Then If InStr(1, strData, "OK") > 0 Then Dim str_Ret() As String str_Ret() = Split(Replace(Replace(strData, vbCr, ""), "OK", ""), " ") Call obj_clscom.WriteCom("AT+CMSS=" & Val(str_Ret(1)) & vbCr) End If End If End Sub
Dulces Lunas!¡.
|
|
« Última modificación: 10 Enero 2013, 21:37 pm por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
rod00x3
Desconectado
Mensajes: 21
|
Gracias siempre me respondes y te lo agradezco.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema de comunicación linux a windows por vpn
Redes
|
JP0NZ3
|
0
|
1,519
|
18 Junio 2014, 04:52 am
por JP0NZ3
|
|
|
Problema con puerto serie 'MSComm' en VB6.0
Programación Visual Basic
|
Trolko
|
4
|
4,489
|
20 Junio 2014, 00:05 am
por Trolko
|
|
|
Problema al abrir puerto serie virtual con .NET
.NET (C#, VB.NET, ASP)
|
SARGE553413
|
1
|
4,672
|
17 Julio 2014, 19:44 pm
por Eleкtro
|
|
|
Problema leer/escribir puerto serie (C++ WINAPI)
Programación C/C++
|
SARGE553413
|
9
|
6,067
|
20 Agosto 2014, 11:36 am
por Eternal Idol
|
|
|
Problema comunicación Puerto Serie
Programación Visual Basic
|
malith
|
2
|
1,831
|
30 Agosto 2015, 14:45 pm
por malith
|
|