PIC Vietnam - View Single Post - Điều khiển động cơ bước loại 2 pha đơn cực

**mini_2440** · 04-03-2011, 09:58 AM

đây là đoạn code điều khiển từ vb:

Private Sub Form_Load()
With congcom
.CommPort = 1
.Settings = "9600,N,8,1"
.InBufferSize = 1024
.InputLen = 0
.RThreshold = 0
.SThreshold = 1
.OutBufferSize = 512
.InputMode = comInputModeText
.PortOpen = True
End With
j = 0
End Sub

Private Sub Timer1_Timer()
congcom.Output = Text1(j).Text
j = j + 1
If j = 20 Then
j = 0
Timer1.Enabled = False
Else
End If
End Sub

////////////// chạy tốt - nhập thông số cho động cơ bước chạy 4 hành trình /////////////
///////////// mỗi hành trình có 5 tham số khởi động [CHIỀU][SỐ VÒNG][SỐ BƯỚC][TỐC ĐÔ][THỜI GIAN DỪNG]

04-03-2011, 09:58 AM	#10
mini_2440 Đệ tử 1 túi Tham gia ngày: Mar 2011 Bài gửi: 21 :	đây là đoạn code điều khiển từ vb: Private Sub Form_Load() With congcom .CommPort = 1 .Settings = "9600,N,8,1" .InBufferSize = 1024 .InputLen = 0 .RThreshold = 0 .SThreshold = 1 .OutBufferSize = 512 .InputMode = comInputModeText .PortOpen = True End With j = 0 End Sub Private Sub Timer1_Timer() congcom.Output = Text1(j).Text j = j + 1 If j = 20 Then j = 0 Timer1.Enabled = False Else End If End Sub ////////////// chạy tốt - nhập thông số cho động cơ bước chạy 4 hành trình ///////////// ///////////// mỗi hành trình có 5 tham số khởi động [CHIỀU][SỐ VÒNG][SỐ BƯỚC][TỐC ĐÔ][THỜI GIAN DỪNG]