Curso Lenguaje GO

Lector de tarjeta proximidad - Rs232

Colapsar
Este tema ha sido cerrado
X
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • facku21
    inició un tema Lector de tarjeta proximidad - Rs232

    Lector de tarjeta proximidad - Rs232

    Soy nuevo en este tema de los foros y solicitaria una ayudita

    Mi problema no es de lectura, es mas tengo comunicación con el puerto me lee los datos y me los pasa a un textbox. El problema es en el formato, creo, que me esta leyendo. Ejemplo, tengo un lector de tarjeta proximidad indala y cuando paso la tarjeta me escribe el siguiente numero, 1AFE830C80, y el numero en realidad tendría que ser 1561.

    Desde ya gracias y por favor necesitaria esta ayuda
    Paso a dejar el codigo que estoy utilizando


    Imports System
    Imports System.IO.Ports
    Imports System.Threading

    Public Class Form1
    'DECLARE A COMM PORT
    Dim WithEvents ADUport As SerialPort = New _
    System.IO.Ports.SerialPort("COM1", _
    9600, _
    Parity.None, _
    8, _
    StopBits.One)

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    'CHECK IF PORT IS OPEN AND THEN CLOSE COMM PORT
    If ADUport.IsOpen Then
    ADUport.Close()
    End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'CREATE 99 COM PORTS
    Dim PortCount As Integer
    For PortCount = 1 To 3
    ComboBox1.Items.Add("COM" & PortCount)
    Next
    'SET COMBO BOX TO COM 1 (DEFAULT)
    ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
    'CHECK IF PORT IS CLOSED AND THEN OPEN COM PORT FROM COMOBOX PORT NAMES
    ADUport.PortName = ComboBox1.SelectedItem
    If Not ADUport.IsOpen Then
    ADUport.Open()
    End If

    'CONFIGURE PORT A FOR OUTPUT
    If ADUport.IsOpen Then
    ADUport.Write("CPA11111110" + Chr(13))
    End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'SEND COMMAND TO ADU
    ADUport.Write("RD0" + Chr(13))
    'PAUSE THREAD FOR 100 Milliseconds
    Thread.Sleep(100)
    'READ BUFFER UNTIL ASCII BYTE (13) IS FOUND
    TextBox1.Text = (ADUport.ReadTo(Chr(13)))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'SEND COMMAND TO ADU TO SET PORT A 0
    ADUport.Write("SETPA0" + Chr(13))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    'SEND COMMAND TO ADU TO RESET PORT A 0
    ADUport.Write("RESPA0" + Chr(13))
    End Sub
    End Class

  • gilman
    respondió
    Re: Lector de tarjeta proximidad - Rs232

    Me obligas a cerrar el tema, ya que incumples dos normas del foro:
    1.- El código debe ir entre las etiquetas code y debidamente indentado.
    2.- El tema debe ir en el subforo correspondiente, este se llama Visual Studio .Net (Resto de Lenguajes), hay un subforo especifico para VBNet, publica tu pregunta en el foro adecuado.

    No está de más que leais las normas del foro, en mi firma encontrarás un enlace.

    Deja un comentario:

Trabajando...
X