VISUAL BASIC 6.0
2. Chương trình truyền thơng trong Visual Basic 6.0 Dim c As Boolean
Dim a As Boolean Dim b As Boolean Dim varmaso As String Dim DB As DAO.Database Dim RS As DAO.Recordset Private Sub Cmdgx_Click() If b = True Then
MsgBox "DANG GOI XE, XIN VUI LONG CHO" Exit Sub
End If
If a = True Then
MsgBox "DANG LAY XE, XIN VUI LONG CHO" Exit Sub
End If
If c = True Then
If Shape3(0).BorderStyle = 0 And Shape3(0).BackStyle = 0 Then Shape3(0).BorderStyle = 1
Shape3(0).BackStyle = 1 End If
RS.MoveFirst
Do While Not RS.EOF
If RS!maso = varmaso Then If RS!tinhtrang = True Then
MsgBox "VI TRI NAY DA CO XE, KHONG THE GOI XE DUOC" Exit Sub
Else RS.Edit
Trang 92 Exit Do End If End If RS.MoveNext Loop
MSComm1.Output = Chr(Val(Text2.Text)) + "G" + Text3.Text b = True
c = False Else
MsgBox "XIN VUI LONG NHAP VAO MA SO XE" Exit Sub
End If End Sub
Private Sub Cmdlx_Click() If a = True Then
MsgBox "DANG LAY XE, XIN VUI LONG CHO" Exit Sub
End If
If b = True Then
MsgBox "DANG GOI XE, XIN CHO" Exit Sub
End If
If c = True Then
If Shape3(0).BorderStyle = 1 And Shape3(0).BackStyle = 1 Then Shape3(0).BorderStyle = 0
Shape3(0).BackStyle = 0 End If
RS.MoveFirst Do While Not RS.EOF (adsbygoogle = window.adsbygoogle || []).push({});
If RS!maso = varmaso Then If RS!tinhtrang = False Then
MsgBox "VI TRI NAY CHUA CO XE, KHONG THE LAY XE DUOC" Exit Sub Else RS.Edit RS!tinhtrang = False RS.Update Exit Do End If End If RS.MoveNext Loop
MSComm1.Output = Chr(Val(Text2.Text)) + "L" + Text3.Text a = True
c = False Else
MsgBox "XIN VUI LONG NHAP VAO MA SO XE" Exit Sub
End If End Sub
Private Sub Command3_Click()
varmaso = InputBox(" NHAP VAO MA SO XE", "TIM VI TRI XE ", 13) RS.MoveFirst
Do While Not RS.EOF
If RS!maso = varmaso Then Text1 = RS!maso Text2 = RS!tang Text3 = RS!vitri c = True Exit Sub End If RS.MoveNext
Trang 94 Loop
MsgBox " KHONG CO MA SO NAY" End Sub
Private Sub Form_Load() c = False a = False b = False Label3.Caption = " " MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputLen = 0 MSComm1.RThreshold = 2 MSComm1.InputMode = comInputModeBinary MSComm1.PortOpen = True Timer1.Enabled = True
Set DB = OpenDatabase(App.Path & "\LV97.mdb") Set RS = DB.OpenRecordset("lau", dbOpenDynaset) End Sub
Private Sub Mnuthoat_Click() Set DB = Nothing
Set RS = Nothing End
End Sub
Private Sub MSComm1_OnComm() Dim nhan( ) As Byte
Dim i, j As Integer
nhan( ) = MSComm1.Input j = nhan(1)
i = nhan(0) If j = 1 Then
Shape1.Top = 6960 - 1080 * i Shape3(0).Top = 6480 - 1080 * i End If
If j = 2 Then
Label3.Caption = "THANG MÁY ĐANG CHẠY XUỐNG" Shape1.Top = 6960 - 1080 * i
Shape3(0).Top = 6480 - 1080 * i End If
If j = 3 Then
Label3.Caption = "ĐANG GỞI XE VÀO Ơ BÊN TRÁI" Shape3(0).BackStyle = 0 Shape3(0).BorderStyle = 0 Shape3(i + 3).BackStyle = 1 Shape3(i + 3).BorderStyle = 1 End If If j = 4 Then
Label3.Caption = "ĐANG GỞI XE VÀO Ơ BÊN PHẢI" Shape3(0).BackStyle = 0 Shape3(0).BorderStyle = 0 Shape3(i).BackStyle = 1 Shape3(i).BorderStyle = 1 End If If j = 5 Then
Label3.Caption = "ĐANG LẤY XE Ở Ơ BÊN TRÁI" Shape3(0).BackStyle = 1 Shape3(0).BorderStyle = 1 Shape3(i + 3).BackStyle = 0 Shape3(i + 3).BorderStyle = 0 End If If j = 6 Then
Trang 96 Shape3(0).BackStyle = 1 Shape3(0).BorderStyle = 1 Shape3(i).BackStyle = 0 Shape3(i).BorderStyle = 0 End If If i = 0 Then (adsbygoogle = window.adsbygoogle || []).push({});
If a = True Then a = False If b = True Then b = False End If
End Sub
Private Sub Timer1_Timer()
MSComm1.Output = "*" + "*" + "*" End Sub
Private Sub Timer2_Timer() Dim U As String Dim V As String U = Left(Label2.Caption, 1) V = Right(Label2.Caption, Len(Label2.Caption) - 1) Label2.Caption = V + U End Sub
Private Sub Timer3_Timer() Dim U As String Dim V As String U = Right(Label6.Caption, 1) V = Left(Label6.Caption, Len(Label6.Caption) - 1) Label6.Caption = U + V End Sub
Private Sub Timer4_Timer() Label8.Caption = Date Label9.Caption = Time End Sub
CHƯƠNG IV: KẾT LUẬN
Qua 16 tuần làm luận văn,em nhận thấy mình rút ra được nhiều kinh nghiệm về thi cơng phần cứng cũng như lập trình PLC. Về phần cứng , khi thi cơng em khơng gặp trở ngại gì nhưng do chưa cĩ kinh nghiệm thiết kế nên việc thiết kế mơ hình chưa được đẹp và chính xác theo yêu cầu. Về lập trình PLC em nhận thấy việc áp dụng lập trình thực tế trên mơ hình khơng đơn giản như em nghĩ, mình phải dựa vào điều kiện cụ thể của cơ khí phần cứng mà cĩ phương án lập trình cho phù hợp. Việc thiết kế và thi cơng mơ hình khơng chính xác cũng gây khĩ khăn trong việc lập trình. Nhưng qua đĩ em rút ra thêm được nhiều kinh nghiệm lập trình cho riêng mình.
Việc giao tiếp giữa PLC và máy tính cũng là một đề tài hay. Thơng qua máy tính, người kỹ sư cĩ thể biết được hoạt động cụ thể, điều khiển được bãi giữ xe, khắc phục được các sự cố.
Em nhận thấy đề tài bãi giữ xe tự động là một đề tài hay, khả năng áp dụng trong thực tế rất cao trong tình hình phát giao thơng ngày càng phát triển như ngày nay. Nhất là ở các đơ thị lớn như thành phố Hồ Chí Minh. Khi mà đời sống con ngưịi ngày càng được nâng cao, diện tích dất ngày càng bị thu hẹp, điều kiện kinh tế cho phép mọi người dùng ơtơ làm phương tiện đi lại thì việc xây dựng các bãi giữ xe tự động như thế này càng nên được thực hiện. nĩ giài quyết được vấn đề đậu xe, giảm diện tích xây dựng mà vẫn đảm bảo đủ chổ đậu xe cần thiết.
Do thời gian và kinh phí làm luận văn nên em khơng thực hiện được việc quét card để tính tiền tự động. Nếu áp dụng mơ hình mơ hình bãi giữ xe tự động trong thực tế, em nghĩ chúng ta nên xây dựng mơ hình bãi giữ xe dạng trịn hay hay dạng tầng với nhiều tầng hơn, thang máy cĩ thể dịch chuyển để đưa xe đến nhiều tầng, nhiều ơ được xây dựng kề nhau. Xây dựng cơ sở dữ liệu để lưu vị trí xe vào các ơ, thực hiện việc quét card để tính tiền tự động, thực hiện việc bán vé xe theo tháng, dung cơ sở dữ liệu để trừ tiền dần, lắp đtặ hệ thống camera để quan sát…. Như thế bãi giữ xe sẽ hồn tồn tự động và hồn chỉnh hơn.
Trang 98
TÀI LIỆU THAM KHẢO:
TỰ HỌC LẬP TRÌNH VISUAL BASIC 6.0 MỘT CÁCH HIỆU QUẢ VÀ NHANH NHẤT – ĐẬU QUANG TUẤN , NHÀ XUẤT BẢN TRẺ
LẬP TRÌNH GHÉP NỐI MÁY TÍNH TRONG WINDOWS – NGƠ DIÊN TẬP, NHÀ XUẤT BẢN KHOA HỌC VÀ KỸ THUẬT
TỰ ĐỘNG HỐ VỚI SIMATIC S7-200 – NGUYỄN DOÃN PHƯỚC, PHAN XUÂN MINH, NHÀ XUẤT BẢN NƠNG NGHIỆP
MỤC LỤC
Trang
NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN ... 1
NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN ... 2
LỜI CẢM ƠN ... 3
CHƯƠNG I: GIỚI THIỆU CHUNG CÁC VẤN ĐỀ LIÊN QUAN TỚI BÃI GIỮ XE TỰ ĐỘNG ... 4
I.GIỚI THIỆU VỀ BÃI GIỮ XE TỰ ĐỘNG ... 4
II.CÁC PHƯƠNG PHÁP TRUYỀN ĐỘNG CỦA THANG MÁY ... 6
1. Truyền động theo kiểu khơng cĩ hộp số ... 6
2.Truyền động theo kiểu cĩ hộp số ... 7
III.CÁC YÊU CẦU ĐỐI VỚI THANG MÁY ... 12
1.An tồn ... 12
2.Độ tin cậy ... 13 (adsbygoogle = window.adsbygoogle || []).push({});
3.Độ chính xác dừng tầng ... 13
4.Tăng tốc và giảm tốc ... 13
5.Hạn chế tiếng ồn ... 14
IV.MÂM TRƯỢT VÀ HỆ THỐNG NÂNG XE ... 15
CHƯƠNG II:GIỚI THIỆU VỀ PLC S7-200 214 VÀ PHẦN MỀM VISUAL BASIC 6.0 TRONG TRUYỀN THƠNG NỐI TIẾP ... 16
A.GIỚI THIỆU CHUNG VỀ THIẾT BỊ ĐIỀU KHIỂN LẬP TRÌNH PLC ... 16
B.GIỚI THIỆU VỀ THIẾT BỊ LẬP TRÌNH PLC SIMATIC S7-200 ... 20
I.CẤU TRÚC PHẦN CỨNG CỦA S7-200 214 ... 20
1.Cấu trúc bộ nhớ ... 23
2.Thực hiện chương trình... 29
3.Cấu trúc chương trình của S7-200 ... 29
II.NGƠN NGỮ LẬP TRÌNH CỦA S7-200 ... 32
1.Phương pháp lập trình ... 32
2.Các tốn hạng giới hạn cho phép của CPU 214 ... 34
3.Một số lệnh cơ bản ... 35
3.1.Lệnh vào/ra ... 35
3.2.Các lệnh ghi xố giá trị cho tiếp điểm ... 37
3.3.Các lệnh logic đại số Boolean ... 38
3.4.Các lệnh tiếp điểm đặc biệt ... 41
3.5.Các lệnh so sánh ... 41
3.6.Lệnh nhảy và lệnh gọi chương trình con ... 43
3.7.Các lệnh can thiệp vào thời gian vịng quét ... 45
3.8.Các lệnh điều khiển Timer ... 45
3.9.Các lệnh điều khiển Counter ... 48
Trang 100
3.12.Truyền thơng nối tiếp trong PLC S7-200 ... 55
C. GIỚI THIỆU PHẦN MỀM VISUAL BASIC 6.0 TRONG TRUYỀN THƠNG NỐI TIẾP ... 58
I.ĐIỀU KHIỂN TRUYỀN THƠNG ... 58
II.CÁC ĐẶC TÍNH CỦA THÀNH PHẦN MSCOMM ... 59
1.SETTINGS ... 61 (adsbygoogle = window.adsbygoogle || []).push({});
2.COMPORT... 62
3.PORTOPEN ... 62
4.XUẤT DỮ LIỆU ... 63
5.NHẬP DỮ LIỆU ... 64
CHƯƠNG III:THI CƠNG VÀ ĐỀU KHIỂN MƠ HÌNH BÃI GIỮ XE TỰ ĐỘNG ... 66
I.THI CƠNG MƠ HÌNH ... 66
1.Sơ đồ khối của mơ hình ... 66
2.Các thiết bị dùng trong mơ hình ... 67
3.Hình ảnh thực tế của mơ hình bãi giữ xe tự động ... 68
II. LƯU ĐỒ GIẢI THUẬT VÀ CHƯƠNG TRÌNH ĐIỀU KHIỂN TRONG PLC... 69
1.Lưu đồ giải thuật... 69
2.Bảng qui ước ... 80
3.Chương trinh PLC viết ở dạng LADDER ... 81
III. GIAO DIỆN VÀ CHƯƠNG TRÌNH TRUYỀN THƠNG TRONG VISUAL BASIC 6.0 ... 92
1.Giao diện giám sát bãi giữ xe tự động ... 92
2.Chương trình truyền thơng trong Visual Basic 6.0 ... 94
CHƯƠNG IV: KẾT LUẬN ... 100