Comunicar Dispositivos de Forma Serial Bidireccionall
Click here to load reader
-
Upload
john-fredy-martinez-cardona -
Category
Documents
-
view
1.099 -
download
2
description
Transcript of Comunicar Dispositivos de Forma Serial Bidireccionall
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
COMUNICAR DISPOSITIVOS DE FORMA SERIAL
ENVIA Y RECIBE DATOS DESDE PC A MICROCONTROLADOR BIDIRECCIONAL
Se debe montar el circuito mostrado, pero utilizando los leds en conexión negada (comun +5v).
Realizar el programa en visual basic, el programa en basic para el pic, enlazar con interface rs232
y verificar resultados.
CIRCUITO EN PROTEUS
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
PROGRAMA EN VISUAL BASIC
FORMULARIO
CÓDIGO FUENTE
Option Explicit Dim SALE As String Private Sub Form_Load() PTO.PortOpen = True End Sub Private Sub Label4_Click() End Sub Private Sub O0_0_Click() SALE = Chr(&H10) LED0.FillColor = vbBlack End Sub Private Sub O0_1_Click() SALE = Chr(&H0) LED0.FillColor = vbGreen End Sub Private Sub O1_0_Click() SALE = Chr(&H11) LED1.FillColor = vbBlack
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
End Sub Private Sub O1_1_Click() SALE = Chr(&H1) LED1.FillColor = vbGreen End Sub Private Sub O2_0_Click() SALE = Chr(&H12) LED2.FillColor = vbBlack End Sub Private Sub O2_1_Click() SALE = Chr(&H2) LED2.FillColor = vbGreen End Sub Private Sub O3_0_Click() SALE = Chr(&H13) LED3.FillColor = vbBlack End Sub Private Sub O3_1_Click() SALE = Chr(&H3) LED3.FillColor = vbGreen End Sub Private Sub PTO_OnComm() Dim rx As Variant If PTO.CommEvent = 2 Then rx = PTO.Input If (Asc(rx) And 1) Then SALIDA0.FillColor = vbYellow Else SALIDA0.FillColor = vbBlack If (Asc(rx) And 2) Then SALIDA1.FillColor = vbYellow Else SALIDA1.FillColor = vbBlack If (Asc(rx) And 4) Then SALIDA2.FillColor = vbYellow Else SALIDA2.FillColor = vbBlack If (Asc(rx) And 8) Then SALIDA3.FillColor = vbYellow Else SALIDA3.FillColor = vbBlack End If End Sub Private Sub SALIR_Click() End End Sub Private Sub Timer1_Timer() PTO.Output = SALE End Sub
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
PROGRAMA EN BASIC (PIC SIMULATOR IDE)
PROGRAMA PARA ENLAZAR VISUAL BASIC CON PROTEUS
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
FUNCIONAMINETO DEL PROGRAMA Se activa desde Visual Basic el LED D1
Se activa desde Proteus-Isis el pulsador 3 y se ve indicado en el formulario de Visual Basic.
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
Se activan los demás LED y se desactiva el LED1
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
Se activan los demás pulsadores.
REDES Y COMUNICACIONES COMUNICACIÓN SERIAL
JOHN FREDY MARTINEZ CARDONA MANTENIMIENTO ELECTRÓNICO
CONFIGURACION DEL PUERTO COMPIM DE ISIS
CONFIGURACION DEL PIC EN ISIS