BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH BÁO CÁO TỔNG KẾT ĐỀ TÀI KHOA HỌC VÀ CÔNG NGHỆ CẤP BỘ NGHIÊN CỨU VÀ CHẾ TẠO THIẾT BỊ HỖ TRỢ DẠY & HỌC THỰC HÀNH SỬA CHỮA TIVI MÀU KIỂM SOÁT BẰNG MÁY TÍNH S K C 0 9 MÃ SỐ: B2009 - 22 - 40 S KC 0 Tp Hồ Chí Minh, tháng 11 năm 2010 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC SƢ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH  BÁO CÁO TỔNG KẾT ĐỀ TÀI KHOA HỌC VÀ CÔNG NGHỆ CẤP BỘ NGHIÊN CỨU VÀ CHẾ TẠO THIẾT BỊ HỖ TRỢ DẠY & HỌC THỰC HÀNH SỬA CHỮA TIVI MÀU KIỂM SOÁT BẰNG MÁY TÍNH Mã số: B2009-22-40 Chủ nhiệm đề tài: GV.ThS Nguyễn Thanh Bình Tp Hồ Chí Minh, tháng 11 năm 2010 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC SƢ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH  BÁO CÁO TỔNG KẾT ĐỀ TÀI KHOA HỌC VÀ CÔNG NGHỆ CẤP BỘ NGHIÊN CỨU VÀ CHẾ TẠO THIẾT BỊ HỖ TRỢ DẠY & HỌC THỰC HÀNH SỬA CHỮA TIVI MÀU KIỂM SOÁT BẰNG MÁY TÍNH Mã số: B2009-22-40 Xác nhận quan chủ trì đề tài (ký, họ tên, đóng dấu) Chủ nhiệm đề tài (ký, họ tên) Tp Hồ Chí Minh, tháng 11 năm 2010 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 DANH SÁCH NHỮNG THÀNH VIÊN THAM GIA NGHIÊN CỨU ĐỀ TÀI Họ tên Nguyễn Thanh Bình Đơn vị công tác Khoa Điện – Điện tử ĐH Sư phạm Kỹ thuật Tp.HCM Nguyễn Phương Quang TT e-Learning ĐH Sư phạm Kỹ thuật Tp.HCM Nội dung nghiên cứu Thiết kế thi công phần cứng TvPanTutor Viết phần mềm điều khiển Xây dựng sở liệu Pan Thiết kế bố cục, lập trình giao diện đồ họa cho TvPanTutor CÁC ĐƠN VỊ PHỐI HỢP CHÍNH Tên đơn vị nước Cty TNHH Sản xuất – Thương mại Thiết bị Công nghiệp Đại Cát Cty TNHH Thương mại – Kỹ thuật Thái Bình TvPanTutor Nội dung phối hợp nghiên cứu Tư vấn thiết kế phần cứng TvPanTutor Tư vấn thiết kế phần mềm TvPanTutor Họ tên người đại diện đơn vị GĐ Nguyễn Đăng Tiến GĐ Phạm Xuân Quốc i Đề tài NCKH cấp Bộ Mã số: B2009-22-40 MỤC LỤC Trang           Trang bìa Trang bìa phụ Danh sách thành viên tham gia nghiên cứu đề tài đơn vị phối hợp Mục lục Danh mục bảng Danh mục hình Danh mục chữ viết tắt Thông tin kết nghiên cứu tiếng Việt Thông tin kết nghiên cứu tiếng Anh Tóm tắt đề tài i ii vi vii ix x xi xii Chƣơng Mở đầu Tình hình nghiên cứu 2 Tính cấp thiết Mục tiêu nghiên cứu Cách tiếp cận .7 Phương pháp nghiên cứu Đối tượng phạm vi nghiên cứu Nội dung nghiên cứu 10 Chƣơng Khảo sát nguyên lí hoạt động Tivi màu 11 1.1 Tổng quan tuyền hình màu .11 1.1.1 Sự khác biệt truyền hình trắng đen truyền hình màu 12 1.1.2 Ba màu sắc tự nhiên 13 1.1.3 Nguyên tắc truyền hình màu 13 1.1.3.1 Phân tích ảnh thành màu 13 1.1.3.2 Biến đổi ảnh đơn sắc thành tín hiệu R – G – B 13 1.1.3.3 Quá trình điều chế R – G – B thành tín hiệu video tổng hợp 13 1.1.3.4 Quá trình giải mã tín hiệu màu máy thu 15 1.1.3.5 Quá trình tổng hợp tín hiệu màu .16 1.1.3.6 Quá trình điều chế tín hiệu màu đài truyền hình 16 1.1.3.7 Đặc điểm sóng truyền hình 17 1.2 Đèn hình màu 17 1.2.1 Cấu tạo hình 17 1.2.2 Ba katot KR, KG, KB 18 1.2.3 Sợi đốt Heater 18 1.2.4 Lưới G1 18 1.2.5 Lưới G2 (Lưới gia tốc) 18 1.2.6 Lưới G3 (Lưới hội tụ) 18 1.2.7 Các chi tiết bên 18 1.3 Khối nguồn 19 1.3.1 Sơ đồ khối tổng quát nguồn tivi 19 1.3.2 Sơ đồ đầu vào mạch nguồn 20 1.3.3 Khái niệm nguồn xung 20 1.3.4 Các mạch nguồn xung .20 1.3.4.1 Mạch tạo dao động 20 TvPanTutor ii Đề tài NCKH cấp Bộ Mã số: B2009-22-40 1.3.4.2 Mạch hồi tiếp để giử ổn định điện áp 22 1.3.4.3 Các mạch bảo vệ 23 1.4 Khối quét dọc .23 1.4.1 Nhiệm vụ khối quét dọc 23 1.4.2 Sơ đồ khối tổng quát 23 1.5 Khối quét ngang 24 1.5.1 Nhiệm vụ khối quét ngang 24 1.5.2 Sơ đồ khối tổng quát 24 1.6 Bộ kênh trung tần 25 1.6.1 Nguyên lí thu sóng truyền hình 25 1.6.2 Nhiệm vụ nguyên lí hoạt động kênh 26 1.6.3 Tính chất mạch cộng hưởng 27 1.6.4 Mạch cộng hưởng cao tần kênh 27 1.6.5 Sơ đồ khối kênh 28 1.6.6 Mạch điều khiển kênh .28 1.6.7 Mạch dừng dò kênh nhớ kênh 29 1.6.8 Bộ kênh số 30 1.6.9 Nhiệm vụ mạch khuếch đại trung tần 31 1.7 Chuyển mạch AV/TV 31 1.8 Mạch xử lí tín hiệu chói 32 1.8.1 Nhiệm vụ khối xử lí tín hiệu chói 32 1.8.2 Các mạch khối xử lí tín hiệu chói .32 1.9 Mạch giải mã màu 33 1.9.1 Nhiệm vụ mạch giải mã màu .33 1.9.2 Nguyên lí mạch giải mã màu NTSC 33 1.9.3 Nguyên lí mạch giải mã màu hệ PAL 34 1.10 Mạch khuếch đại công suất sắc 35 1.10.1 Nhiệm vụ mạch khuếch đại công suất sắc 35 1.10.2 Sơ đồ mạch nguyên lí mạch khuếch đại công suất sắc .36 1.11 Khối âm .37 1.11.1 Quá trình điều chế âm 37 1.11.2 Quá trình xử lí tín hiệu chói .38 1.11.3 Mạch xử lí tiếng đa hệ tách sóng nhiều tần 38 1.12 Khối xử lí .39 1.12.1 Nhiệm vụ khối xử lí 39 1.12.2 Mạch xử lí Analog .39 1.12.3 Mạch xử lí Digital 40 1.12.4 Nhiệm vụ IC nhớ 41 Chƣơng Xây dựng sở liệu Pan Tivi màu 42 2.1 Mô đun nguồn 42 2.2 Mô đun ngang – dọc .43 2.3 Mô đun Tuner – Vi xử lí 46 2.4 Mô đun âm 50 Chƣơng Thiết kế phần cứng 52 3.1 Phần cứng tivi 53 3.1.1 Yêu cầu thiết kế chung 53 TvPanTutor iii Đề tài NCKH cấp Bộ Mã số: B2009-22-40 3.1.1.1 Yêu cầu .53 3.1.1.2 Thiết kế .53 3.1.1.3 Sơ đồ nguyên lí tivi màu 53 3.1.2 Mô đun nguồn 53 3.1.2.1 Yêu cầu .53 3.1.2.2 Thiết kế .53 3.1.2.3 Sơ đồ nguyên lí 53 3.1.3 Mô đun ngang – dọc 53 3.1.3.1 Yêu cầu .53 3.1.3.2 Thiết kế .53 3.1.3.3 Sơ đồ nguyên lí 53 3.1.4 Mô đun vi xử lí - tuner .53 3.1.4.1 Yêu cầu .53 3.1.4.2 Thiết kế .53 3.1.4.3 Sơ đồ nguyên lí 53 3.1.5 Mô đun âm .54 3.1.5.1 Yêu cầu .54 3.1.5.2 Thiết kế .54 3.1.5.3 Sơ đồ nguyên lí 54 3.2 Phần cứng điều khiển pan 54 3.2.1 Yêu cầu 54 3.2.2 Thiết kế 54 Chƣơng Thiết kế phần mềm vi điều khiển Card giao tiếp máy tính .57 4.1 Khảo sát số hoạt động họ vi điều khiển 8051 .58 4.1.1 Sơ lược hoạt động truyền liệu họ vi điều khiển 8051 58 4.1.1.1 Giới thiệu 58 4.1.1.2 Thanh ghi điều khiển truyền liệu nối tiếp 58 4.1.1.3 Các kiểu truyền liệu nối tiếp 59 4.1.1.4 Khởi tạo truy xuất ghi truyền liệu nối tiếp .59 4.1.1.5 Truyền liệu nối tiếp hệ thống nhiều vi điều khiển .60 4.1.1.6 Tốc độ truyền liệu nối tiếp 61 4.1.2 Sơ lược hoạt động ngắt 8051 61 4.2 Thiết lập qui ƣớc truyền liệu .62 4.2.1 Về giao tiếp Master Slave .62 4.2.2 Qui ước khung liệu 62 4.3 Yêu cầu phần mềm vi điều khiển 63 4.4 Thiết kế phần mềm vi điều khiển 63 4.4.1 Chương trình 63 4.4.2 Chương trình ngắt cổng nối tiếp 64 4.4.3 Các chương trình tạo Pan 66 4.4.4 Các chương trình giải Pan .67 Chƣơng Thiết kế phần mềm điều khiển máy tính .69 5.1 Yêu cầu 70 5.2 Thiết kế 70 Chƣơng Kết nghiên cứu, kết luận hƣớng phát triển .74 6.1 Kết đạt .75 TvPanTutor iv Đề tài NCKH cấp Bộ Mã số: B2009-22-40 6.2 Kết luận 77 6.3 Kiến nghị 77 6.4 Hướng phát triển .78       Tài liệu tham khảo 79 Phụ lục A: Bản vẽ kỹ thuật .80 Phụ lục B: Mã nguồn chương trình vi điều khiển viết hợp ngữ 91 Phụ lục C: Mã nguồn chương trình điều khiển máy tính 94 Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 122 Bản Thuyết minh đề tài phê duyệt .129 TvPanTutor v Đề tài NCKH cấp Bộ Mã số: B2009-22-40 DANH MỤC BẢNG Bảng 4.1 Thanh ghi điều khiển Port nối tiếp (SCON) 59 Bảng 4.2 Các kiểu truyền liệu nối tiếp 59 Bảng 4.3 Thiết lập tốc độ Baud 61 Bảng 4.4 Thanh ghi điều khiển ngắt IE 62 Bảng 5.1 Cơ sở liệu Pan 73 TvPanTutor vi Đề tài NCKH cấp Bộ Mã số: B2009-22-40 DANH MỤC HÌNH Hình 0.1 Tổng quát kỹ thuật truyền hình màu 12 Hình 0.2 Phổ tín hiệu Video tổng hợp 12 Hình 1.1 Tổng quát kỹ thuật truyền hình màu 12 Hình 1.2 Phổ tín hiệu Video tổng hợp 12 Hình 1.3 Quá trình phân tích hình ảnh màu thành hình ảnh đơn sắc Camera 13 Hình 1.4 Quét ảnh màu xanh lá, tạo tín hiệu G 14 Hình 1.5 Điều chế tín hiệu R - G - B thành tín hiệu Video tổng hợp 14 Hình 1.6 Giải mã tổng hợp tín hiệu màu máy thu hình 15 Hình 1.7 Điều chế tín hiệu phát đài truyền hình 16 Hình 1.8 Máy thu hình xa đài phát không thu tín hiệu chiều cong trái đất 17 Hình 1.9 Sơ đồ đèn hình màu .17 Hình 1.10 Sơ đồ khối tổng quát khối nguồn ti vi màu 19 Hình 1.11 Sơ đồ mạch đầu vào khối nguồn 20 Hình 1.12 Nhiễu cao tần bám theo nguồn điện loại bỏ sau qua mạch lọc nhiễu 20 Hình 1.13 Mạch tạo dao động có nhiệm vụ tạo xung điện điều khiển đèn công xuất đóng mở .21 Hình 1.14 Cấu tạo mạch dao động nghẹt nguồn xung 21 Hình 1.15 Mạch hồi tiếp so quang - giữ cho điện áp cố định hai trường hợp điện áp vào thay đổi cao áp chạy 22 Hình 1.16 Mạch bảo vệ đèn công xuất nguồn nguồn bị chập phụ tải 23 Hình 1.17 Sơ đồ khối quét dọc Ti vi màu .24 Hình 1.18 Sơ đồ tổng quát khối quét ngang 25 Hình 1.19 Sóng truyền hình, an ten máy thu hình 26 Hình 1.20 Sơ đồ khối kênh 26 Hình 1.21 Mạch cộng hưởng cao tần RF kênh .27 Hình 1.22 Sơ đồ khối kênh .28 Hình 1.23 Mạch điều khiển kênh 29 Hình 1.24 Mạch dừng dò kênh nhớ kênh 29 Hình 1.25 Mạch điều khiển kênh Digital 30 Hình 1.26 Mạch khuếch đại trung tần 31 Hình 1.27 Sơ đồ tổng quát chuyển mạch A-V 31 Hình 1.28 Sơ đồ tổng quát mạch xử lý tín hiệu màu chói .32 Hình 1.29 Các mạch khối xử lý tín hiệu chói 33 Hình 1.30 Sơ đồ tổng quát khối giải mã màu 33 Hình 1.31 Sơ đồ nguyên lý mạch giải mã NTSC 34 Hình 1.32 Sơ đồ nguyên lý mạch giải mã hệ PAL .35 Hình 1.33 Mạch khuếch đại công suất sắc đồng thời mạch ma trận 35 Hình 1.34 Mạch khuếch đại công suất sắc mạch ma trận .36 Hình 1.35 Mạch khuếch đại công suất sắc vừa khuếch đại tín hiệu R-Y, G-Y, B-Y vừa trộn với tín hiệu Y 36 Hình 1.36 Mạch khuếch đại công suất sắc khuếch đại ba tín hiệu màu R,G,B có thành phần chói trộn sẵn 37 Hình 1.37 Quá trình điều chế tín hiệu đài phát 38 vii TvPanTutor Đề tài NCKH cấp Bộ Mã số: B2009-22-40 ComboBoxComPort.Text = ComPort TxtPhut.Text = time TxtMarkMinus.Text = MarkMinus 'TxtSemiComp.Text = SemiComp 'TxtIC.Text = IC 'lấy tên Com Port có hệ thống Dim s As String For Each s In SerialPort.GetPortNames Dim x As Double = -1 x = ComboBoxComPort.FindStringExact(s, x) If x = -1 Then ComboBoxComPort.Items.Add(s) End If Next s ComboBoxComPort.Sorted = True End Sub Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click Me.Close() End Sub Private Sub TxtPhut_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtPhut.TextChanged, TxtMarkMinus.TextChanged 'chỉ nhập số If sender.text.Length > Then For i As Integer = To sender.Text.Length - If Asc(sender.Text.Substring(i, 1)) < Asc("0") Or Asc(sender.Text.Substring(i, 1)) > Asc("9") Then MsgBox("Phải nhập số.", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Thông báo") sender.Text = "" sender.Focus() End If Next i End If End Sub Private Sub BtnThayDoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThayDoi.Click obj = "time" 'FrmLogIn dùng chung cho time & mark FrmLogIn.ShowDialog() End Sub Private Sub BtnThayDoiDiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThayDoiDiem.Click obj = "mark" FrmLogIn.ShowDialog() End Sub Phụ lục C: Mã nguồn phần mềm điều khiển máy tính 116 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Private Sub CheckBoxChangePass_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxChangePass.CheckedChanged TxtOldPass.Text = "" TxtNewPass.Text = "" TxtConfirm.Text = "" If CheckBoxChangePass.Checked = True Then TxtOldPass.Enabled = True TxtOldPass.Focus() TxtNewPass.Enabled = True TxtConfirm.Enabled = True LblOldPass.Enabled = True LblNewPass.Enabled = True LblConfirm.Enabled = True Else TxtOldPass.Enabled = False TxtNewPass.Enabled = False TxtConfirm.Enabled = False LblOldPass.Enabled = False LblNewPass.Enabled = False LblConfirm.Enabled = False End If End Sub Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click If CheckBoxChangePass.Checked = True Then 'nếu có thay đổi pass If TxtOldPass.Text = GiaiMaPass(PassDaMaHoa) Then 'nhập pass cũ If TxtNewPass.Text = TxtConfirm.Text Then 'ghi file cấu hình WriteSetting(ComboBoxComPort.Text, TxtPhut.Text, TxtMarkMinus.Text, MaHoaPass(TxtNewPass.Text)) Me.Close() ComPort = ComboBoxComPort.Text time = TxtPhut.Text MarkMinus = TxtMarkMinus.Text 'SemiComp = TxtSemiComp.Text 'IC = TxtIC.Text PassDaMaHoa = MaHoaPass(TxtNewPass.Text) ElseIf TxtNewPass.Text TxtConfirm.Text Then MsgBox("Mật xác nhận mật không giống nhau!", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, "Lỗi mật khẩu") TxtNewPass.SelectAll() TxtNewPass.Focus() End If ElseIf TxtOldPass.Text GiaiMaPass(PassDaMaHoa) Then 'nhập pass cũ sai MsgBox("Mật cũ nhập không xác!" & vbNewLine & "Nếu không muốn thay đổi mật bỏ chọn mục" & 117 Phụ lục C: Mã nguồn phần mềm điều khiển máy tính Đề tài NCKH cấp Bộ Mã số: B2009-22-40 vbNewLine & "Thay đổi mật chương trình", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, "Lỗi mật khẩu") TxtOldPass.SelectAll() TxtOldPass.Focus() End If ElseIf CheckBoxChangePass.Checked = False Then 'nếu ko thay đổi pass WriteSetting(ComboBoxComPort.Text, TxtPhut.Text, TxtMarkMinus.Text, PassDaMaHoa) Me.Close() ComPort = ComboBoxComPort.Text time = TxtPhut.Text MarkMinus = TxtMarkMinus.Text 'SemiComp = TxtSemiComp.Text 'IC = TxtIC.Text End If End Sub Private Sub TxtOldPass_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtOldPass.GotFocus, TxtNewPass.GotFocus, TxtConfirm.GotFocus If sender Is TxtOldPass Then TxtOldPass.SelectAll() ElseIf sender Is TxtNewPass Then TxtNewPass.SelectAll() ElseIf sender Is TxtConfirm Then TxtConfirm.SelectAll() End If End Sub End Class ModuleBoard: Imports System.IO.Ports Imports System.Text Imports System.Threading Module ModuleBoard Public PanCode As String = "" Public SelValue As Integer Public Operations As Integer = Public RightOperations As Integer = Public Sub CreatePan(ByVal DataArrLst As ArrayList) SendData(Convert.ToInt16(Microsoft.VisualBasic.Right(DataArrLst(i) , 8), 2)) Thread.Sleep(5) Next i End Sub Public Sub SolvePan(ByVal Data As String) 'gởi địa vi điều khiển SendAdd(Val(Microsoft.VisualBasic.Left(Data, 2))) Thread.Sleep(5) Phụ lục C: Mã nguồn phần mềm điều khiển máy tính 118 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 'gởi địa port If Microsoft.VisualBasic.Mid(Data, 4, 1) = "0" Then SendData(&HA) Thread.Sleep(5) ElseIf Microsoft.VisualBasic.Mid(Data, 4, 1) = "1" Then SendData(&HB) Thread.Sleep(5) ElseIf Microsoft.VisualBasic.Mid(Data, 4, 1) = "2" Then SendData(&HC) Thread.Sleep(5) End If 'gởi giá trị port SendData(Convert.ToInt16(CPL(Microsoft.VisualBasic.Right(Data, 8)), 2)) Thread.Sleep(5) End Sub Public Sub SendAdd(ByVal value As Byte) Dim sp As New SerialPort("COM1", 2400, Parity.Mark, 8, StopBits.One) Dim mahoa As New UTF8Encoding sp.Encoding = mahoa sp.Open() Dim x As Byte() = {value} sp.Write(x, 0, 1) sp.Close() End Sub Public Sub SendData(ByVal value As Integer) Dim sp As New SerialPort("COM1", 2400, Parity.Space, 8, StopBits.One) Dim mahoa As New UTF8Encoding sp.Encoding = mahoa sp.Open() Dim x As Byte() = {value} sp.Write(x, 0, 1) sp.Close() End Sub Public Function BinToDec(ByVal BinValue As String) As String Dim ReturnDec As Integer = For i As Integer = To BinValue.Length - ReturnDec = ReturnDec + Val(BinValue(i)) * (2 (BinValue.Length - i - 1)) Next i Return ReturnDec.ToString End Function Public Function CPL(ByVal BinValue As String) As String Dim result As String = "" Phụ lục C: Mã nguồn phần mềm điều khiển máy tính ^ 119 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Next i Return result End Function Public Function HexToDec(ByVal HexValue As String) As String Dim ReturnDec As Integer = Dim Hex As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"} Dim Dec As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15"} For i As Integer = To HexValue.Length - For j As Integer = To 15 If HexValue(i) = Hex(j) Then ReturnDec = ReturnDec + Val(Dec(j)) * (16 ^ (HexValue.Length - i - 1)) End If Next j Next i Return ReturnDec.ToString End Function Public Function DecToHex(ByVal DecValue As String) As String Dim ReturnHex As String = "" Dim Hex As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"} ReturnHex = Hex(DecValue \ 16) + Hex(DecValue Mod 16) Return ReturnHex End Function End Module ModuleFile: Module ModuleFile Public FileName As String = "" 'Tên file, tên dự án Public FilePath As String = "" 'Đường dẫn file dự án Public NoOfPan As Integer = 'Số lượng Pan dự án Public SelectedPAN As New ArrayList 'StringArray lưu Pan chọn Public QueryDataToSend As New ArrayList 'StringArray lưu DataToSend (tạo Pan) ứng với Pan chọn Public QueryPanCode As New ArrayList 'StringArray lưu PanCode ứng với Pan chọn Public DatabaseFile As String = My.Application.Info.DirectoryPath + "\database.mdb" Public TimeLimit As Boolean = False End Module ModuleGetDatabase: Imports System.Data.OleDb Module ModuleGetDatabase 'Các chương trình để truy xuất sở liệu 'Truy xuất data Column định record tương ứng với PAN_Name lưu vào arraylist định Phụ lục C: Mã nguồn phần mềm điều khiển máy tính 120 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Public Sub GetDataInColumn(ByVal ColumnToGet As String, ByVal ArrayListToSave As ArrayList) ArrayListToSave.Clear() 'xóa trước lưu Dim myAccessConnection As OleDbConnection Dim dbReader As OleDbDataReader myAccessConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DatabaseFile) myAccessConnection.Open() For j As Integer = To SelectedPAN.Count - Dim dbCmd As New OleDbCommand("SELECT ColumnToGet & " FROM PAN1 WHERE PAN1.PAN_Name=" SelectedPAN(j) & "'") Catch ex As Exception MsgBox(ex.Message) End Try Next j myAccessConnection.Close() End Sub PAN1." & "'" & & 'Hàm tìm data column định tương ứng với PAN_Name trả chuỗi Public Function GetCorrespondingData(ByVal PAN_Name As String, ByVal ColumnToGet As String) As String Dim StringFound As String = "" Dim myAccessConnection As OleDbConnection Dim dbReader As OleDbDataReader myAccessConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DatabaseFile) myAccessConnection.Open() Dim dbCmd As New OleDbCommand("SELECT PAN1." & ColumnToGet & " FROM PAN1 WHERE PAN1.PAN_Name=" & "'" & PAN_Name & "'") Try dbCmd.Connection = myAccessConnection dbReader = dbCmd.ExecuteReader(CommandBehavior.SingleResult) Do While (dbReader.Read()) StringFound = dbReader.GetString(0) Loop Catch ex As Exception MsgBox(ex.Message) End Try myAccessConnection.Close() Return StringFound End Function 'Hàm chuyển ArrayList thành String dạng "Item1, Item2 " Public Function ArrLstToString(ByVal ArraylistSource ArrayList) As String Dim StrDestination As String = "" Dim soItem As Integer = ArraylistSource.Count Phụ lục C: Mã nguồn phần mềm điều khiển máy tính As 121 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 For i As Integer = To soItem - StrDestination = StrDestination + ArraylistSource(i).ToString + ", " Next i StrDestination = Microsoft.VisualBasic.Left(StrDestination, StrDestination.Length 2) Return StrDestination End Function 'convert ArrayList thành String Array CHƯA SỬ DỤNG Public Function ArrLstToStrArr(ByVal ArraylistSource ArrayList) As Array Dim StrArray As String() CType(ArraylistSource.ToArray(GetType(String)), String()) Return StrArray End Function End Module As = ModuleSetting: Imports System.Xml Module ModuleSetting Public ComPort As String Public time As String Public pass As String Public SettingFile As String = My.Application.Info.DirectoryPath + "\" + "setting.xml" Public PassDaMaHoa As String = "" Public ComPort As String = "" Public time As String = "" Public MarkMinus As String = "" Public obj As String = "" Public Sub WriteSetting(ByVal strComPort As String, ByVal strTime As String, ByVal strMarkMinus As String, ByVal strPass As String) Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter(SettingFile, System.Text.Encoding.UTF8) myXmlTextWriter.Formatting = System.Xml.Formatting.Indented myXmlTextWriter.WriteStartDocument(False) myXmlTextWriter.WriteComment("Cau hinh chuong trinh Thuc Tap Ky Thuat Truyen Hinh") myXmlTextWriter.WriteStartElement("setting") myXmlTextWriter.WriteElementString("ComPort", strComPort) myXmlTextWriter.WriteElementString("time", strTime) myXmlTextWriter.WriteElementString("MarkMinus", strMarkMinus) myXmlTextWriter.WriteElementString("pass", strPass) myXmlTextWriter.WriteEndElement() myXmlTextWriter.Flush() myXmlTextWriter.Close() End Sub End Module Phụ lục C: Mã nguồn phần mềm điều khiển máy tính 122 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 PHỤ LỤC D HƢỚNG DẪN SỬ DỤNG PHẦN MỀM ĐIỀU KHIỂN TRÊN MÁY TÍNH Để mở cửa sổ giúp đỡ, người dùng bấm phím F1 bấm vào nút Giúp đỡ Thiết lập cấu hình: Mặc định chạy phần mềm, chương trình tự tìm tập tin cấu hình thư mục chương trình Nếu chạy lần đầu, chương trình không tìm thấy tập tin cấu hình, phần mềm tự tạo tập tin cấu hình với thông số mặc định Để phần mềm hoạt động theo mong muốn, trước sử dụng yêu cầu người sử dụng phải thiết lập số thông số sau: - Trong Tab Kết nối, comboBox Com port liệt kê cổng COM mà chương trình tìm thấy hệ thống, chọn cổng COM mà phần cứng kết nối đến Thiết lập cổng COM - Trong Tab Chế độ kiểm tra, người dùng thiết lập thời gian cho phép làm kiểm tra Để thay đổi thời gian này, bấm vào nút Thay đổi nhập mật yêu cầu (mặc định “admin”) Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 123 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Thiết lập thời gian kiểm tra - Trong Tab Chấm điểm, người dùng thay đổi số điểm bị trừ cho thao tác sai Để thay đổi bấm vào nút Thay đổi nhập mật yêu cầu Thiết lập cách chấm điểm - Trong Tab Mật khẩu, người dùng thay đổi mật quản lý chương trình Khi cần thay đổi mật phải nhập mật cũ, mật xác nhận lại mật vào ô tương ứng Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 124 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Thiết lập mật - Khi thiết lập xong cấu hình bấm OK để lưu lại cấu hình Tạo dự án mới: Tạo dự án qua bước - Bước 1: Người dùng đặt tên cho dự án chọn thư mục lưu file dự án Tạo dự án – bước - Bước 2: Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 125 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Người dùng chọn Pan mong muốn để đưa vào dự án cách bấm đúp chuột vào danh sách bên trái để đưa vào danh sách bên phải Hiện phần mềm cho phép chọn tối đa Pan dự án Tạo dự án – bước - Bước 3: Người dùng chọn ba chế độ: + Chỉ lưu dự án trở lại cửa sổ File dự án có tên tên dự án thêm phần mở rộng “.ttth” lưu vào thư mục chọn bước + Vào chế độ Thực hành không giới hạn thời gian làm + Vào chế độ Kiểm tra có giới hạn thời gian làm Tạo dự án – bước Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 126 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Mở dự án lƣu trƣớc đó: Để mở dự án lưu trước đó, người dùng bấm vào nút Mở cửa sổ tìm đến thư mục lưu file dự án có phần mở rộng “.tvpt” Tiếp theo giống bước bước phần tạo dự án Mở dự án lưu Thao tác giải Pan: Khi cửa sổ giải Pan tải, trước tiên phần mềm gởi liệu Pan mà người dùng chọn bước tạo dự án xuống vi điều khiển để tạo Pan Thao tác giải Pan hai chế độ Thực hành Kiểm tra hoàn toàn giống nhau, khác chỗ vào chế độ Kiểm tra thời gian bị giới hạn phần Cấu hình Khi thời gian kết thúc việc giải Pan bị vô hiệu hóa xuất kết hình Các thao tác giải Pan bao gồm: - Xác định linh kiện gây Pan - Có thể tham khảo thêm mạch nguyên lý Board cửa sổ giải Pan Do mạch nguyên lý có kích thước lớn nên cần dùng cuộn lên xuống trái phải để tìm đến khu vực cần xem Có thể dùng nút cuộn chuột để phóng ảnh (cuộn lên để phóng lớn, cuộn xuống để thu nhỏ) Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 127 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Cửa sổ giải Pan - Sau xác định linh kiện bị lỗi, tiến hành khai báo cửa sổ giải Pan cách chọn tên linh kiện danh sách linh kiện chọn lỗi cho linh kiện danh sách lỗi, sau bấm nút Xác nhận Phần này phía bên trái cửa sổ giải Pan Chọn linh kiện & lỗi Mọi thao tác giải Pan phần mềm ghi nhận lại thể hình nhằm phục vụ cho việc kiểm tra lại thao tác cần Khung ghi nhận thao tác Khi Pan giải đúng, phần mềm thông báo tên linh kiện loại khỏi danh sách tên linh kiện phần mềm gởi liệu giải Pan xuống vi điều khiển Ở cạnh cửa sổ có khung thông tin số thao tác thực Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 128 Đề tài NCKH cấp Bộ Mã số: B2009-22-40 Thông tin thao tác Nếu chế độ Kiểm tra thời gian làm lại thể góc bên phải cửa sổ Thông tin thời gian Khi hoàn thành, bấm vào nút Hoàn thành việc giải Pan bị vô hiệu hóa Khi bấm vào nút Hoàn thành, chương trình tổng kết đưa kết khung text ghi nhận thao tác Kết Trong trình thao tác, cần xem lại danh sách Pan chọn, người dùng bấm phím F12 Nhằm phục vụ cho việc xem lại hoạt động sinh viên nên để thoát khỏi cửa sổ giải Pan, người dùng phải nhập mật (đã thiết lập phần cấu hình) Sau thoát khỏi cửa sổ giải Pan, phần mềm ghi lại thông tin hoạt động sinh viên (được thể khung text phía cửa sổ giải Pan) thành tập tin văn thô “.txt” có tên tên dự án cộng thêm “_Thaotac” lưu thư mục với file dự án Giáo viên mở tập tin xem lại cần Phụ lục D: Hướng dẫn sử dụng phần mềm điều khiển máy tính 129