Buscando programa de comunicación VB con Siemens S7_200PLC
Dim rcv() como byte
Dim s1(8) como entero
Dim s2(2) como entero
Dim s3(8) como entero
Dim s4(6)como entero
Dim q1 como entero
Dim q2 como entero
'Inicialización
Sub Form_Load()
privado con MSComm1
.CommPort = 1
.Settings = "9600,n8,1 "
.InputMode = comInputModeBinary
.RTreshold = 1
.InputLen = 0
.OutBufferCount = 0
.InBufferCount = 0
Terminar con
Si no es MSComm1.PortOpen entonces
MSComm1.PortOpen = True
Si no es MSComm1 .PortOpen Entonces
.PortOpen = True
Finalizar si
Fin Sub
Sub Timer1_Timer() privado
Llamar a enviar 'Enviar
End Sub
Sub cheque privado1_Click(Indexar como entero)
q2 = 0
Para i = 1 A 0 Paso -1
q2 = q2 + Check1(i).Value * 2 ^ i
Siguiente i
Fin Sub
Privado Sub Check2_Click(Indexar como entero)
q1 = 0
Para i = 7 a 0 Paso - 1
q1 = q1 + Check2(i) .Valor * 2 ^ i
Siguiente i
End Sub
Sub privado enviar()
'Si q1 = 255, entonces salir Sub
rcvlenth = -1
sdata = Array(1, 3, 0, 0) 'Contenido de datos
sdata(0) = q1
sdata(1) = q2
Dim nByte() As Byte
ReDim nByte(UBound(sdata) + 5) As Byte 'Longitud del mensaje: longitud de datos + 4
nByte(0) = 0 'Carácter inicial
nByte(1) = UBound(sdata) + 1
fcs = nByte(1) 'Varianza de excepción suma de comprobación
Para i = 2 Para UBound(sdata) + 2
nByte( i) = sdata(i - 2)
Si s2( i) = 1 Luego Forma2(i).RellenoC
olor = vbRed Else Shape2(i).FillColor = vbBlue
Siguiente i
Para i = 0 a 1
Si s2(i).FillColor = vbBlue
Siguiente i
Llamar a dtob3
Llamar a dtob4
Para i = 0 a 7
Si s3( i) = 1 Luego Shape3(i).FillColor = vbBlue
Siguiente i
End Sub
'Decimal a binario
Privado Sub dtob1()
Atenuar q como entero
Atenuar m como entero
Atenuar r como entero
Atenuar i como entero