Giao diện trước khi chạy chương trình
Hình 3.3. Giao diện của chương trình điều khiển 3.2.1. Chương trình trong Visual Basic
Dim n, n1, n2, t As Integer Dim X As Integer
Private Sub Tmr3_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
End Sub
Private Sub Tmr4_Timer()
Label2.Caption = Right(Label2.Caption, 1) + Left(Label2.Caption, Len(Label2.Caption) - 1)
End Sub
Private Sub CmdExit_Click() End
End Sub
n1 = n1 + 1 If n1 = 1 Then Tmr1.Enabled = True Tmr1.Interval = HScroll1.Value Else Tmr1.Enabled = True End If End Sub
Private Sub cmdSTOP_Click() Tmr1.Enabled = False
DlPortWritePortUchar &H304, 0 End Sub
Private Sub HScroll1_Change() Tmr1.Interval = HScroll1.Value End Sub
Private Sub tmr1_Timer() If n <= 7 Then
If Opt1.Value = True Then X = 17
DlPortWritePortUchar &H304, X End If
If Opt2 = True Then X = 34
DlPortWritePortUchar &H304, X End If
If Opt3 = True Then X = 68
DlPortWritePortUchar &H304, X End If
X = 136
DlPortWritePortUchar &H304, X End If
If Opt5 = True Then X = 85
DlPortWritePortUchar &H304, X End If
If Opt6 = True Then X = 170
DlPortWritePortUchar &H304, X End If
If Opt7 = True Then X = 102
DlPortWritePortUchar &H304, X End If
If Opt8 = True Then X = 153 DlPortWritePortUchar &H304, X End If n = n + 1 n2 = n2 + 1 Else n = 0 n2 = 0 End If End Sub 3.2.2. Chạy thử chương trình
Kết quả chạy thử
Hình 3.4. Kết quả chạy thử
Chương trình trên điều khiển 2 động cơ trong hệ toạ độ phẳng. Để điều khiển mũi hàn đi lên, đi xuống , sang trái, sang phải ta chỉ cần nhấn vào 4 option trên. Khi nhấn vào một trong 4 option ở trên và nhấn nút start máy tính sẽ xuất tín hiệu từ cổng song song qua khe cắm mở rộng ISA để cấp tín hiệu điều khiển cho các transistor để điều khiển chiều quay của động cơ. Đồng thời các led hiện thị các trạng thái làm việc của các động cơ. Khi nhấn nút stop máy tính sẽ điều khiển ngừng cấp tín hiệu ở chân IOW của khe ISA các transistor sẽ khoá lại và động cơ được dừng. Để thay đổi tốc độ nhơ thay đổi độ rộng xung nhờ bộ timer và thanh cuộn. Tương tự mũi hàn đi theo đường thẳng khi nhấn vào 4 nút option phía dưới.
Do thời gian cũng như trình độ và vấn đề điều khiển sử dụng trong công nghiệp có nhiều vấn đề nên chương trình trên em mới chỉ đưa ra phương pháp điều khiển mũi hàn theo từng hướng và đường thẳng. Vấn đề điều khiển trong công nghiệp như : nhiễu, hãm, khả năng điều khiển từ xa, đảo chiều …em chưa giải quyết đựơc, cũng như chưa điều khiển được mũi hàn đi theo một cung tròn
KẾT LUẬN
Qua thời gian thực hiện, dưới sự hướng dẫn tận tình của thầy giáo TS.Hoàng Xuân Bình cùng sự giúp đỡ rất nhiệt tình của các bạn trong lớp, em đã cố gắng hoàn thành đồ môn học theo yêu cầu và thời gian quy định. Trong đồ án em đã thực hiện được những công việc sau :
- Tổng quan về công nghệ hàn điện
- Thiết kế trang bị điện - điện tử điều khiển cho máy hàn tự động - Viết chương trình điều khiển máy hàn tự động trong hệ toạ độ phẳng Mặc dù đã rất cố gắng, nhưng do kiến thức và thời gian có hạn nên có những phần em chưa làm được. Em cũng không tránh khỏi những điều thiếu sót, nhầm lẫn khác, em rất mong được sự chỉ bảo của thầy