Giới thiệu, phân tích, thiết kế đề tài

PHẦN II : GIỚI THIỆU ĐỀ TÀI I Đề tài Lập trình Web ngôn ngữ Visual Basic 6.0 II Nhiệm vụ đề tài Tạo mô điện thoại di động, với tính năng, tác vụ nguyên lý hoạt động dựa theo loại máy điện thoại di động có thực, với yêu cầu người sử dụng mạng dùng điện thoại thật PHẦN III : PHÂN TÍCH VÀ THIẾT KẾ ĐỀ TÀI I Phân tích đề tài Xác định mục tiêu chương trình Nhiệm vụ chương trình tạo website, mô điện thoại di động, với đầy đủ tính năng, tác vụ điện thoại thật Thêm vào đó, website phải có trang hướng dẫn thật đầy đủ, chi tiết tính năng, tác vụ, với mục tiêu người sử dụng bình thường, đọc qua hướng dẫn, dễ dàng sử dụng điện thoại mô điện thoại thật Xác định cách thực chương trình Do nhiệm vụ đề tài lập trình Web với ngôn ngữ lập trình Visual Basic 6.0, yêu cầu phải nắm vững kiến thức Visual Basic 6.0, điều lệnh, toán tử, cấu trúc tuyển, cách làm việc với biến, với file … Ngoài phải nắm vững kiến thức đó, chúng em phải tìm hiểu thêm khái niệm Internet để tiện cho việc triển khai ứng dụng sau Do yêu cầu đề tài tạo mô điện thoại di động, mà người sử dụng sử dụng mạng Vấn đề đặt phải tìm công cụ mà Visual Basic 6.0 cung cấp để tạo mô điện thoại với khả đồ họa tương tác cao với người sử dụng mạng Sau tìm hiểu công cụ, đối tượng mà Visual Basic 6.0 cung cấp, hỗ trợ để phát triển ứng dụng Internet, chúng em định chọn ActiveX Control làm công cụ để xây dựng chương trình (điện thoại mô phỏng) Với ActiveX Cotrol, chúng em tạo giao diện người sử dụng đáp ứng khả đồ họa cao tương tác với người sử dụng Thêm vào đó, chúng em dùng Microsoft Frontpage nhằm tạo dễ dàng việc tạo trang hướng dẫn người sử dụng dùng tính xây dựng điện thoại mô phỏng, Các công cụ dùng để xây dựng chương trình  Visual Basic 6.0  ActiveX Control Visual Basic 6.0  Microsoft Frontpage I Thiết kế đề tài Phần thiết kế chia làm phần : thiết kế giao diện xây dụng tính tác vụ điện thoại mô Thiết kế giao diện Giao diện chương trình chuỗi trang html, với trang trình bày với người sử dụng kích hoạt chương trình Trên trang thiết kế sẵn liên kết, lái người sử dụng đến trang khác tùy theo mối liên kết mà họ chọn Theo liên kết này, bạn đến trang hướng dẫn sử dụng điện thoại mô Trang chia làm frame, với frame trang khác nhau, trình bày nội dung khác Người sử dụng lần theo mối liên kết frame thứ (trình bày trang tính năng) để xem hướng dẫn chi tiết cách sử dụng tính trình bày frame thứ ba Khi user xem hướng dẫn chi tiết đó, họ trực tiếp kiểm nghiệm cách hoạt động tính xây dựng điện thoại mô frame thứ hai trang Trang trình bày cấu trúc tính xây dựng điện thoại mô Trang hướng dẫn sử dụng, trình bày thật chi tiết cách dùng tính mô Trang trình bày điện thoại mô người sử dụng dùng trực tiếp điện thoại thật Xây dựng tính điện thoại mô Những tính năng, tác vụ điện thoại mô xây dựng dựa loại máy điện thoại di động có thực, máy Motorola Cd928 Do xây dựng dựa máy có thực nên tính nguyên lý hoạt động phải bảo đảm máy thật Những tính máy tích hợp menu, menu (1) Phone Book (1) (2) Call Related Features (3) Messages (4) (5) Phone Setup Network Selection (6) Accessory Setup Những tính menu có chức cuộn tròn theo nguyên lý máy Motorola Cd928  (1) ,….: trình tự menu Menu Phone Book Phone Book Personal Number - Find Entry By Name Enter Name - Find Entry By Location - Add Entry - Call Number - Modify Name Or Number - Erase Name And Number Enter Location - Call Number - Modify Name Or Number - Erase Name And Number - Add To Phone Memory - Add To SIM Card Memory - Check Capacity - Check Phone Capacity - Check SIM Capacity - Prevent Access Fixed Dialling One-Touch Dial Setting -View Fixed Dial List -Setup Fixed Dialling _ Enter PIN2 - To Phone Memory - To SIM Memory - To Fixed Dial List - No Memory Restrictions - To SIM Card Memory - To Phone Memory - To Phone & SIM Memory - On - Off - Edit Entry - Add Entry - Erase Entry Phone Book Danh bạ điện thoại điện tử Là nơi bạn lưu tên số điện thoại mục riêng lẻ Personal Number Là menu dùng cho việc tạo quản lý danh sách số điện thoại cá nhân bạn Find Entry by Name Tùy chọn dùng để chọn số điện thoại từ danh sách có thứ tự tên lưu danh bạ điện thoại Find Entry by Location Tùy chọn dùng để chọn số điện thoại từ danh sách có thứ tự vị trí lưu danh bạđiện thoại Call Number Gọi cho số điện thoại vừa tìm thấy Modify Name Or Number Dùng cho việc thay đổi tên số điện thoại mục vừa tìm thấy Erase Name And Number Xoá tên số điện thoại mục vừa tìm thấy Add Entry Tùy chọn dùng để thêm mục vào danh bạ điện thoại Add To Phone Memory Thêm mục vào nhớ điện thoại Add To SIM Card Memory Thêm mục vào nhớ thẻ SIM Check Capacity Kiểm tra khả chứa lại danh bạ điện thoại Check Phone Capacity Kiểm tra sức chứa nhớ điện thoại Check SIM Capacity Kiểm tra sức chứa nhớ thẻ SIM Prevent Access Tùy chọn dùng cho việc ngăn ngừa truy xuất đến danh sách số điện thoại lưu danh bạ điện thoại No Memory Restrictions Không giới hạn truy xuất đến nhớ To SIM Card Memory Giới hạn việc truy xuất đến danh sách số điện thoại lưu nhớ thẻ SIM To Phone Memory Giới hạn việc truy xuất đến danh sách số điện thoại lưu nhớ điện thoại To Phone & SIM Memory Giới hạn việc truy xuất đến danh sách số điện thoại lưu nhớ thẻ SIM nhớ điện thoại Fixed Dialling Tính cho phép giới hạn việc sử dụng điện thoại cách gọi số có số hay tiền tố trùng với số hay tiền tố lưu danh sách số cố định View Fixed Dial List Tuỳ chọn dùng để xem mục lưu danh sách số cố định Setup Fixed Dialling Dùng để thiết lập tùy chọn cho mục gọi số cố định On Cho phép dùng tính gọi số cố định Off Không cho phép dùng tính gọi số cố định Edit Entry Hiệu chỉnh mục (tên, số điện thoại) danh sách số cố định Add Entry Thêm mục (tên, số điện thoại) vào danh sách số cố định Erase entry Xoá mục (tên, số điện thoại) từ danh sách số cố định One-Touch Dial Setting Tính cho phép định danh sách quay số với phím To Phone Memory Những số điện thoại lưu nhớ điện thoại có vị trí từ đến quay số với phím To SIM Memory Những số điện thoại lưu nhớ thẻ SIM có vị trí từ 101 đến 109 quay số với phím To Fixed Dial List Những số điện thoại lưu danh sách số cố định có vị trí từ đến quay số với phím Menu Call Related Features Call Related Features Show Battery Metter Restrict My Phone Number Call Diverting - Show ID On Next Call - Restrict ID On Next Call - Divert When - Divert Voice Calls Unavailable - Divert Fax Calls Talk and Fax - Divert All Voice Calls - Divert Data Calls - Cancel All Diverting - Detailed Diverting Call Waiting Call Barring - Bar Outgoing Calls Key Answer Only - Bar Incoming Calls - Int’l Calls - Int’l Calls Except Home - All Calls - Off - When Roaming - All Calls - Off - Cancel All Barring - Change Bar Password Call Related Features Các đặc điểm điện thoại Show Battery Meter Hiển thị đồng hồ đo lượng pin điện thoại Restrict My Phone Number Show ID On Next Call Số điện thoại bạn gửi với gọi kế, sau không gửi bạn chọn lại tính Restrict ID On Next Call Số điện thoại bạn không gửi với gọi kế, sau số điện thoại bạn gửi với gọi kế bạn chọn lại tính Call Diverting Tính dùng để chuyển gọi đến đến số điện thoại khác điện thoại bạn không hoạt động, bạn không muốn nhận gọi Divert Voice Calls Chuyển gọi Divert When Unavailable Chuyển tất gọi đến đến số điện thoại khác điện thoại bạn không hoạt động Divert All Voice Calls Chuyển tất gọi đến đến số điện thoại khác mà không theo điều kiện Detailed Diverting Tính dùng để định chuyển gọi đến đến số khác If Busy Chuyển gọi đến điện thoại bạn bận If Not Reachable Chuyển gọi đến điện thoại bạn tiếp xúc mạng If No Answer Chuyển gọi đến bạn không muốn trả lời Divert Fax Calls Tính cho phép bạn chuyển tất nhận Fax đến số điện thoại đơn Divert Data Calls Tính cho phép bạn chuyển tất nhận liệu đến số điện thoại đơn Cancle All Diverting Dùng để hủy toàn chức chuyển gọi Talk and Fax Là tính mạng cho phép bạn nói sau gửi nhận fax gọi Nó có tùy chọn : On Off Call Waiting Quy định cách mà máy báo hiệu có gọi chờ Nó có tùy chọn : On Off Call Barring Là tính mạng dùng cho việc chặn gọi Bar Outgoing Calls Chặn gọi Int’l Calls Chức chặn gọi quốc tế chọn Int’l Calls Except Home Chức chặn gọi quốc tế ngoại trừ đất nước bạn All Calls Chặn tất gọi Off Hủy bỏ chức chặn gọi cho gọi Bar Incoming Calls Chăn gọi đến When Roaming Chặn gọi đến bạn roaming All Calls Chặn tất gọi đến Off Hủy bỏ chức chặn gọi cho gọi đến Cancle All Barring Hủy toàn chức năng chặn gọi cho gọi gọi đến Change Bar Password Thay đổi mã chặn gọi Key Answer Only Chỉ định cách trả lời gọi đến cách dùng phím, hay mở nắp máy trả lời gọi đến End If If Left(tbnhap.Text, 6) = "Stored" Then tbnhap.Text = "Menu" Exit Sub End If If tbnhap.Text = "Range 1-24" Then cancle = False danhso = True tbnhap.Text = "Enter Time" & vbCrLf Exit Sub End If If tbnhap.Text = "Invalid Format" Then cancle = False danhso = True tbnhap.Text = "Enter Date" & vbCrLf Exit Sub End If If tbnhap.Text = "Not Match" Then danhso = True tbnhap.Text = "Unlock Code" & vbCrLf Exit Sub End If If tbnhap.Text = " Not Match" Then danhso = True tbnhap.Text = "Old Code" & vbCrLf Exit Sub End If If tbnhap.Text = "Not Match." Then danhso = True tbnhap.Text = "Enter PIN2 Code" & vbCrLf Exit Sub End If If tbnhap.Text = " Not Match." Then danhso = True tbnhap.Text = "Enter Barring Password" & vbCrLf Exit Sub End If If tbnhap.Text = "Finding" Then tbnhap.Text = "Failed" Exit Sub End If If tbnhap.Text = "Failed" Then tbnhap.Text = "Network Selection" Exit Sub End If If tbnhap.Text = "Enter Digit" Then tbnhap.Text = "New Code" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = "Invalid Code" Then tbnhap.Text = "Current Code" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = " Invalid Code" Then tbnhap.Text = "Current PIN2 Code" & vbCrLf danhso = True End If If tbnhap.Text = "Invalid Password" Then tbnhap.Text = " Current Password" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = " Enter Digit" Then tbnhap.Text = "New Barring Password" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = "Enter 4-8 Digit" Then tbnhap.Text = "New PIN2 Code" & vbCrLf danhso = True End If If tbnhap.Text = "Enter Digit" Then tbnhap.Text = "New Security Code" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = " Failed" Then tbnhap.Text = "Enter Security Code" & vbCrLf danhso = True Exit Sub End If If tbnhap.Text = "Invalid Time" Then tbnhap.Text = "Enter Time" & vbCrLf danhso = False cancle = False Exit Sub End If If tbnhap.Text = "Invalid Date" Then tbnhap.Text = "Enter Date" & vbCrLf cancle = False danhso = False Exit Sub End If If tbnhap.Text = "Sending" Then If cancall = True Then tbnhap.Text = "Connecting Failed" Image2.Visible = False cancall = False Else tbnhap.Text = " Connected" End If Exit Sub End If If tbnhap.Text = " Connected" Then Image2.Visible = False tbnhap.Text = "Completed" Exit Sub End If If tbnhap.Text = "Deleted" Then tbnhap.Text = "Messages" cancle = True danhso = False Exit Sub End If If tbnhap.Text = "Invalid Msg Number" Then tbnhap.Text = "Messages" cancle = True danhso = False Exit Sub End If 'xu ly lam muc available network If tbnhap.Text = "Wait " Then tbnhap.Text = "Scanning" Exit Sub End If If tbnhap.Text = "Scanning" Then Open filename5 For Random As #1 Len = Len(networks) Get #1, 1, networks tam1 = tbnhap.Text = networks.mang st = tbnhap.Text Close #1 Exit Sub End If If tbnhap.Text = "Register" Then tbnhap.Text = "Completed" Exit Sub End If If tbnhap.Text = "Registerring" Then tbnhap.Text = "Failed" Exit Sub End If End Sub 'THU TUC SAP THU TU Private Sub sapthutu() Dim news As entry Dim news1 As entry Dim j As Integer Dim k As Integer Dim banghi As Byte Dim ch As String Dim ch1 As String Dim so As String Dim vitri As Integer Open filename For Random As #1 Len = Len(news) Open filename For Random As #2 Len = Len(news1) banghi = LOF(1) \ Len(news) For j = To banghi Get #1, j, news ch = news.name so = news.number vitri = news.location For k = j - To Step -1 Get #2, k, news1 ch1 = news1.name If StrComp(ch, ch1) = Or StrComp(ch, ch1) = Then Exit For End If news.name = news1.name news.number = news1.number news.location = news1.location Put #1, k + 1, news Next k news.name = ch news.number = so news.location = vitri Put #1, k + 1, news Next j Close #1 Close #2 End Sub 'CHUYEN MOT MUC Private Sub menu_downswitchentry() Dim news As entry Dim banghi As Byte Select Case prevent Case Open filename For Random As #1 Len = Len(news) Case 2, Open filename2 For Random As #1 Len = Len(news) End Select banghi = LOF(1) \ Len(news) menucon = True vitri = vitri + If vitri = Then Get #1, vitri, news tbnhap.Text = news.name & vbCrLf & news.number Else vitri = banghi Get #1, vitri, news tbnhap.Text = news.name & vbCrLf & news.number End If Close #1 End Sub 'THU TUC KIEM TRA BO NHO Private Sub check(so As Boolean) Dim news As entry Dim banghi As Byte Dim j As Integer Dim max As Integer Dim max1 As Integer Open filename For Random As #1 Len = Len(news) banghi = LOF(1) \ Len(news) For j = To banghi Get #1, j, news If news.location < 100 Then max = max + Else max1 = max1 + End If Next j If so = Then tbnhap.Text = (100 - max) & " Unused Locations" Else tbnhap.Text = (155 - max1) & " Unused Locations" End If Close #1 End Sub 'DI CHYEN GIUA DANH SACH CAC MANG UU TIEN Private Sub preferredlist(so As Integer, chuoi As String) Dim networks As netselect Dim banghi As Byte Dim j As Integer Open filename6 For Random As #1 Len = Len(networks) Open filetam For Random As #2 Len = Len(networks) banghi = LOF(1) \ Len(networks) If banghi = Then networks.mang = chuoi Put #2, 1, networks Else For j = To banghi If so j Then Get #1, j, networks Put #2, j, networks Else networks.mang = chuoi Put #2, j, networks Exit For End If Next j Do While j banghi Then networks.mang = st Put #2, banghi + 1, networks End If Close #1 Close #2 Kill filename6 Name filetam As filename6 End Sub 'THU TUC DI CHUYEN MOT MANG UU TIEN DEN VI TRI MOI Private Sub movenew(oldlo As Integer, newlo As Integer) Dim networks As netselect Dim i As Integer Dim banghi As Integer Dim chuoi As String Open filename6 For Random As #1 Len = Len(networks) Open filetam For Random As #2 Len = Len(networks) banghi = LOF(1) \ Len(networks) If oldlo = newlo Then Close #1 Close #2 tbnhap.Text = "Completed" Exit Sub End If If newlo >= banghi Then For i = To oldlo - Get #1, i, networks Put #2, i, networks Next i Get #1, oldlo, networks chuoi = networks.mang For i = oldlo + To banghi Get #1, i, networks Put #2, i - 1, networks Next i networks.mang = chuoi Put #2, banghi, networks.mang End If If oldlo < newlo And newlo < banghi Then For i = To oldlo - Get #1, i, networks Put #2, i, networks Next i Get #1, oldlo, networks chuoi = networks.mang For i = oldlo + To newlo Get #1, i, networks Put #2, i - 1, networks Next i networks.mang = chuoi Put #2, newlo, networks.mang i = newlo + Do While i newlo Then For i = To newlo - Get #1, i, networks Put #2, i, networks Next i Get #1, oldlo, networks Put #2, newlo, networks For i = newlo To oldlo - Get #1, i, networks Put #2, i + 1, networks Next i i = oldlo + Do While i