Visual Basic - Puerto comunicaciones

Life is soft - evento anual de software empresarial
 
Vista:

Puerto comunicaciones

Publicado por Javi.mogur (1 intervención) el 18/06/2003 15:04:00
Hola:
Necesito currarme una aplicación de permita volcar datos desde un PC a un automata programable y querria hacerlo en VB. Lo que necesito saber antes de empezar es si es posible en este lenguaje abrir el puerto de comunicaciones serie y mandar a través de este un mensaje con un protocolo determinado.
Gracias muchas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Puerto comunicaciones

Publicado por Imanol (6 intervenciones) el 30/12/2008 22:28:12
Buenas yo conozco sólo los autómatas de omron y esto es lo que escribo tanto en el form como con un botón el valor que tengo en una ventana text, esto escribe en el dm0082. Si necesitas mas información al respecto mándame un correo.

Private Sub Form_Load()
MSComm.CommPort = 1
MSComm.Settings = "9600,e,7,2"
MSComm.Handshaking = comXOnXoff
MSComm.PortOpen = True
End Sub

Private Sub Command2_Click()
Dim FCS As String
Dim Q As String
Dim i As Integer
EscribirDato1 = "@00WD008200" & Hex(Text8.Text) & FCS
'Cálculo del FCS
Q = 0
For i = 1 To Len(EscribirDato1)
Q = Q Xor Asc(Mid$(EscribirDato1, i, 1))
Next i
FCS = "0" + Hex$(Q): FCS = Right$(FCS, 2)
EscribirDato2 = EscribirDato1 & FCS & "*" '&Chr(13)
MSComm.Output = EscribirDato2 & Chr$(13)
End Sub

XD Imanol
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar