Hola a todo el foro!!!!!
Hacia mucho tiempo que no entraba por aqui
Tengo el siguiente codigo en VB.Net
Necesito hacerlo en Qbasic o VB6 (sin el Control MSComm)
Es decir con la instruccion de....
Open COM "COM3:115200,N,8,1........" As #1
O con la API de Windows
Esta es una parte del codigo de VB.Net
............
Imports System.IO
Imports Microsoft.VisualBasic
Module Module1
Dim WithEvents Serial1 As System.IO.Ports.SerialPort
Public Function LeerPuerto(ByVal Puerto As String) As String
Try
Serial1 = New System.IO.Ports.SerialPort
Serial1.PortName = Puerto
Serial1.BaudRate = 115200
Serial1.DataBits = 8
Serial1.StopBits = IO.Ports.StopBits.One
Serial1.Parity = IO.Ports.Parity.None
Serial1.Open()
Serial1.Write("065FAA0C33DA0341")
Serial1.Close()
Return Respuesta
Catch
Return "False"
End Try
End Function
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Serial1.DataReceived
Dim r, l As String
Dim i As Integer
Try
r = Serial1.ReadExisting
Select Case Paso
Case 1
l = "010A0003041001210000"
Paso = 2
Serial1.Write(l)
Case 2
.........
Case 10
i = InStr(r, "[")
If i > 0 Then
Paso = 0
r = Mid(r, i + 1,
Respuesta = r
End If
End Select
Catch ex As Exception
End Try
End Sub
End Module
............
Es posible convertirlo
Muchas gracias por adelantado.
Saludos!!!!
Mostrar Mensajes
