ENLACE DE VISUAL BASIC CON PLC



Asignatura: INTEGRACION DE SISTEMAS AUTOMATICOS Fecha: 17 DE FEBRERO DE 2014
Nombre De La Práctica: ENLACE DE VISUAL BASIC CON RSLOGIX 500
Alumno(a) o Equipo:


Grupo:Práctica __2___de _____ Duración____2____ Horas


Competencia a desarrollar: Implementar sistemas de medición y control bajo los estándares establecidos para el correctofuncionamiento de procesos industriales




Objetivo de la Unidad Temática: El alumno describirá los elementos de la arquitectura de los diferentes sistemas de control por computadora, paradeterminar el sistema de una aplicación especifica.
-Control digital directo
-Control supervisorio
-Control distribuido

Equipo, Material, y Herramienta Didáctica requerida:
Computadora
SoftwareLabVIEW
Software RSLogix 500
Software RSLogix Emulate
Software RSLinx Classic
Software Visual Basic


Descripción de la práctica: Realizar un programa en RSLogix 500 para enlazarlo con VisualBasic para poder realizar el control de los tiempos establecidos en un contador del PLC para aumentar o disminuir los valores de dicho contador.










Dibujo o esquema (en caso queaplique)
CODIGO DE VISUAL BASIC
Private Sub Boton1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Num1.LinkTopic = "RsLinx|PLC1"
Num1.LinkItem = "B3:0/0"
Num1.LinkMode =vbLinkManual
Num1.LinkPoke

End Sub

Private Sub Boton1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Num0.LinkTopic = "RsLinx|PLC1"
Num0.LinkItem = "B3:0/0"
Num0.LinkMode= vbLinkManual
Num0.LinkPoke

End Sub

Private Sub Foco1_Change()
If Val(Foco1.Text) = 1 Then
Foco1.BackColor = vbBlue
Foco1.ForeColor = vbBlue
Else
Foco1.BackColor = vbWhiteFoco1.ForeColor = vbWhite
End If
End Sub

Private Sub Foco2_Change()
If Val(Foco2.Text) = 1 Then
Foco2.BackColor = vbGreen
Foco2.ForeColor = vbGreen
Else
Foco2.BackColor = vbWhite
Foco2.ForeColor =...