View Full Version : سوال: پورت USB در VB.Net
حسین نوابی
دوشنبه 11 خرداد 1388, 23:52 عصر
سلام دوستان عزیز . چگونه می توانم استپ موتور را با USB راه اندازی کنم؟:عصبانی++:
mehrdadjj
شنبه 16 خرداد 1388, 19: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)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.