elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  SerialPort y Modem ?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: SerialPort y Modem ?  (Leído 2,192 veces)
TrashAmbishion


Desconectado Desconectado

Mensajes: 756


Ver Perfil
SerialPort y Modem ?
« en: 27 Enero 2013, 23:43 pm »

Lo que espero es un Ok del Modem mas recibo un 65 alguna idea, quizas sea por el tipo de lectura que estoy haciendo....Salu2

Disculpen por repetir el Topic si pudieran borrar el otro estaria agradecido...gracias

Código
  1.  
  2. Imports System.IO.Ports
  3.  
  4. Public Class Form1
  5.  
  6.    Private mySerialPort As New SerialPort
  7.    Private comBuffer As Byte()
  8.    Private Delegate Sub UpdateFormDelegate()
  9.    Private UpdateFormDelegate1 As UpdateFormDelegate
  10.  
  11.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  12.        Try
  13.            AddHandler mySerialPort.DataReceived, AddressOf mySerialPort_DataReceived
  14.            CommPortSetup()
  15.        Catch ex As Exception
  16.            MessageBox.Show(ex.Message)
  17.        End Try
  18.    End Sub
  19.  
  20.    Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
  21.        'Handles serial port data received events
  22.        UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
  23.        Dim n As Integer = mySerialPort.BytesToRead 'find number of bytes in buf
  24.        comBuffer = New Byte(n - 1) {} 're dimension storage buffer
  25.        mySerialPort.Read(comBuffer, 0, n) 'read data from the buffer
  26.  
  27.        Me.Invoke(UpdateFormDelegate1) 'call the delegate
  28.    End Sub
  29.  
  30.    Private Sub UpdateDisplay()
  31.        Label2.Text = CStr(comBuffer(0))
  32.    End Sub
  33.  
  34.    Private Sub CommPortSetup()
  35.        With mySerialPort
  36.            .PortName = "COM3"
  37.            .BaudRate = 9600
  38.            .DataBits = 8
  39.            .Parity = Parity.None
  40.            .StopBits = StopBits.One
  41.            .Handshake = Handshake.None
  42.        End With
  43.        Try
  44.            mySerialPort.Open()
  45.        Catch ex As Exception
  46.            MessageBox.Show(ex.Message)
  47.        End Try
  48.    End Sub
  49.  
  50.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  51.        mySerialPort.WriteLine("AT+VCID")
  52.    End Sub
  53. End Class
  54.  
  55.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
C# System.IO.Port SerialPort
Hacking Mobile
hoofmen 8 23,392 Último mensaje 31 Mayo 2009, 10:33 am
por Jubjub
Configuración serialPort en C#
.NET (C#, VB.NET, ASP)
Meta 0 2,447 Último mensaje 7 Diciembre 2008, 05:32 am
por Meta
Trabajando con Puerto COM - SerialPort !! Dudita !
.NET (C#, VB.NET, ASP)
TrashAmbishion 0 2,529 Último mensaje 24 Enero 2013, 01:18 am
por TrashAmbishion
Problemita usando el SerialPort ?
.NET (C#, VB.NET, ASP)
TrashAmbishion 0 1,731 Último mensaje 5 Junio 2013, 00:26 am
por TrashAmbishion
Lectura de MiFare con SerialPort
.NET (C#, VB.NET, ASP)
Blakmaller 0 2,101 Último mensaje 24 Noviembre 2014, 14:54 pm
por Blakmaller
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines