PDA

View Full Version : سوال: پورت USB در VB.Net



حسین نوابی
دوشنبه 11 خرداد 1388, 22:52 عصر
سلام دوستان عزیز . چگونه می توانم استپ موتور را با USB راه اندازی کنم؟:عصبانی++:

mehrdadjj
شنبه 16 خرداد 1388, 18:12 عصر
با کدهای زیر سرو کار داری

Dim WithEvents serialport As New IO.Ports.SerialPort
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim MyIndex As Integer = 0

Dim st(50) As String

For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1

st(MyIndex) = My.Computer.Ports.SerialPortNames(i)

Next

If serialport.IsOpen Then

serialport.Close()

End If

Try

With serialport

.PortName = st(0)

.BaudRate = 96000

.Parity = Parity.None

.DataBits = 8

.StopBits = StopBits.One

.Handshake = Handshake.RequestToSend

.DtrEnable = True

.RtsEnable = True

.NewLine = vbCrLf

End With

serialport.Open()

Catch ex As Exception

End Try

serialport.WriteLine

System.Threading.Thread.Sleep(200)