GIAO DIỆN VÀ CHƯƠNG TRÌNH

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

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

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

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

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