Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Lời nói đầu Trong xà hội phát triển ngày nay, thông tin thực trở thành nguồn tài nguyên quan trọng Xà hội phát triển dẫn đến thông tin phong phú đa dạng Với phơng pháp thủ công truyền thống đáp ứng đợc yêu cầu đặt Để xử lý thông tin cách nhanh chóng, xác hiệu quả, công nghệ thông tin đà cung cấp cho biện pháp công cụ cần thiết giải vấn đề cách dễ dàng Công nghệ thông tin đà đạt đợc thành đáng khích lệ, mang lại lợi nhuận đáng kể cho kinh tế Nhà nớc đà quan tâm đầu t coi công nghệ thông tin nghành mũi nhọn đợc u tiên hàng đầu để đa nghành phát triển ngang hàng với nớc khu vực nh giới Tuy công nghệ thông tin non trẻ nhng đến đà đáp ứng đợc ứng dụng hầu hết lĩnh vực Đến công nghệ thông tin đà thực thâm nhập vào lĩnh vực đời sống kinh tế xà hội, với phơng thức hoàn toàn mẻ nhanh chóng xác hiệu Nó đà giúp giải toán cách dễ dàng Trong đề tài em đề cập đến Ngôn ngữ lập trình Visual Basic toán tìm đờng ngắn Chơng trình đợc xây dựng ngôn ngữ Visual Basic ngôn ngữ tơng đối Việt nam, dễ sử dụng đợc nhiều ngời biết đến Với thời gian cho phép em đà hoàn thành đề tài Song trình thiết kế phân tích hệ thống chơng trình không tránh khỏi số hạn chế em mong đợc góp ý giúp đỡ thầy cô giáo, bạn để chơng trình đợc hoàn thiện Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Em xin cảm ơn thầy giáo Ths Vũ Văn Nam đà hớng dẫn giúp đỡ tận tình em thời gian qua Xin cảm ơn thầy giáo, cô giáo Khoa Công Nghệ Thông Tin trờng Đại Học Vinh bạn lớp 40E đà góp nhiều ý kiến cho chơng trình Vinh, Ngày 18/04/2004 Sinh viên thực Nguyễn Văn Nhẫn Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Lý chọn đề tài: Trong trờng Đại học đợc học số ngôn ngữ lập trình mang tính lý thuyết nhiều ứng dụng nh Pascal, C, Assembly, Trong sống nhiều toán quản lý, tính toán đòi hỏi xác, tính đắn cần phải có tính thẩm mỹ cao Để đáp ứng đợc điều đó, em thấy cần tìm hiểu thêm số ngôn ngữ lập trình môi trờng Windows mà chúng hỗ trợ nhiều trình thiết kế giao diện chơng trình Visual Basic số ngôn ngữ Visual Basic ngôn ngữ mới, hỗ trợ mạnh cho ngời lập trình, hỗ trợ, kết nối đợc với nhiều ngôn ngữ khác Ngoài phần lập trình với sở liệu, tính đồ họa Visual Basic đợc ứng dụng rộng rÃi Em định chọn đề tài với hy vọng nghiên cứu hiểu biết Visual Basic đặc biệt phần sở liệu đồ hoạ Những kiến thức học đợc, nghiên cứu đợc hành trang sau trờng Để thể phần kiến thức nghiên cứu đợc, em cài đặt chơng trình thể toán Tìm đờng ngắn nhất, toán đợc ứng dụng phổ biến rộng rÃi, đặc biệt lĩnh vực giao thông vận tải Một mạng lới giao thông đô thị ngời cần di chuyển từ điểm tới điểm phơng án đờng để tiết kiệm vấn đề mà hầu nh ngời phải lựa chọn Trong thực tế toán tìm đờng ngắn đợc ứng dụng toán chọn phơng pháp tiết kiệm để đa hệ động lực từ trạng thái xuất phát đến trạng thái đích, hay toán lập lịch thi công công đoạn công trình thi công lớn Bài toán tìm đờng ngắn đà đợc nhiều tác giả viết nhiều ngôn ngữ khác nh Pascal, C, Nhng thể đồ hoạ đợc đề cập đến Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Chơng trình tìm đờng ngắn hai nút giao thông hy vọng giúp ích phần nhỏ ứng dụng thực tế Bên cạnh em hy vọng kiến thức em thu nhặt đợc phần tài liệu nhỏ cho bạn khoá sau Chơng trình minh họa phát triển thành chơng trình lớn vừa thể hệ thống đờng vừa có dẫn cụ thể để chạy mạng để phục vụ du lịch Em xin chân thành cảm ơn Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Chơng Tìm hiểu Visual Basic 1.1 Tổng quan ngôn ngữ Visual Basic Visual Basic sản phẩm hÃng Microsoft đà trải qua nhiều phiên Visual Basic 6.0 Enterprise Edition phiên đợc u chuộng Visual Basic chơng trình 32 bit chạy đợc môi trờng Windows ấn Enterprise yêu cầu cấu hình máy phần cứng phải có khoảng 300Mb đĩa cứng trống Một chíp Pentum 166 Mhz trở lên 32 Mb Ram Chúng ta thấy yêu cầu phần cứng nh ngày máy tính đáp ứng yêu cầu Visual Basic ngôn ngữ mạnh tơng đối khác với ngôn ngữ lập tr×nh trun thèng nh C, C++,… Visual Basic lËp tr×nh làm việc đối tợng Nó hỗ trợ ngời lập trình phơng diện, nói cung cấp phơng tiện để lập trình tự động Visual Basic lập trình thứ cần Visual Basic hỗ trợ ngời lập trình tạo Form, thuộc tính, phơng thức để ngời lập trình việc chọn lựa Ngoài u việt Visual Basic kết nối đợc với ngôn ngữ khác nh Access, SQL,Đây tính chất mà ngôn ngữ lập trình khác Nó tạo thuận lợi vô cho ngời lập trình lập trình quản lý hay lập trình liên quan đến web Khi làm việc với phần mềm việc bỏ qua phần trang trí Nó thu hút chó ý cđa ngêi sư dơng Nã khiÕn chóng ta háo hức muốn tìm hiểu tính ứng dụng Tuy nhiên để làm chủ đợc đồ hoạ chắn không đơn giản Đặc biệt ngôn ngữ trớc đây.Visual Basic đà phần khắc phục đợc điều Nó hỗ trợ đồ họa vô nhiều Hỗ trợ phơng thức, thuộc tính, điều khiển câu lệnh cụ thể Đặc biệt Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp phơng thức, thuộc tính đối tợng làm cho dễ trang trí, dễ điều khiển chỉnh sửa Khi nói đồ họa phải nói Visual Basic có đầy đủ câu lệnh đồ họa nh ngôn ngữ khác Nhng vợt trội đồ họa phơng thức, thuộc tính điều khiển Nó giúp ngời học lập trình dễ học thiết kế chơng trình dễ trang trí, dễ chỉnh sửa đa dạng 1.2 Cài đặt Visual Basic Khởi động Windows Đa đĩa CD ROM chứa Visual Basic 6.0 vào ổ đĩa CD Double Click vào biểu tợng My computer Double Click vào biểu tợng ổ đĩa CD- Rom bạn Double Click vào biểu tợng SETUP.EXE để chạy chơng trình cài đặt Bạn trả lời tất câu hỏi chơng trình setup, cài đặt thành phần phụ, sau bạn chọn ô Microsoft Visual Basic 6.0 chơng trình tự động cài đặt biểu tợng Visual Basic 6.0 nhóm chơng trình Visual stadio 6.0 tạo Lúc việc cài đặt đà hoàn thành, bạn lựa chọn trở Windows khởi động lại máy tính 1.3 Khởi ®éng Visual Basic 6.0 Chóng ta cã thĨ khëi ®éng nhiều cách Double Click vào biểu tợng Visual Basic desktop ( click vào biểu tợng sau nhấn Enter ) Vào Start, chọn Run nhập đờng dẫn đến Visual Basic Nếu bạn đờng dẫn bấm nút Browser để tìm Vµo Start, chän Program, chän Microsoft visual 6.0, chän tiÕp Microsoft Visual Basic 6.0 Sau khởi động môi trờng Visual Basic đợc nạp xuất Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp ta thiết kế chơng trình môi trờng Hình Cửa sổ sau khởi động Visual Basic Trong m«i trêng Visual Basic cã rÊt nhiỊu mơc tuỳ theo chơng trình bạn Đối với làm quen với Visual Basic làm quen với mơc Standard exe Chän Standard exe, nhÊn enter hc click ok cửa sổ làm việc xuất Lúc bạn bắt đầu thiết kế đợc Toolbox Title bar Tool bar Visual Basic toán tìm đờng ngắn Project explorer Nguyễn Văn Nhẫn 40E3 tin Form Menu bar Kho¸ ln tèt nghiƯp Properties window Hình Cửa sổ bắt đầu tạo project 1.4 Giíi thiƯu cưa sỉ Visual Basic chän Standard exe 1.4.1Title bar ( Thanh tiêu đề ) Thông báo tên project form bạn làm việc 1.4.2Menu bar (Thanh Menu) Chøa c¸c Menu nh File, Edit, View, Project, Format, Run, Query, Tool, Window, Help … - Menu File: Gồm lệnh liên quan đến tập tin nh New project, Open project, Add project, Remove project, Save project, Save project as, Save Form, Make exe, … Chóng ta nạp lu trình ứng dụng Visual Basic Ngoài Menu cung cấp lệnh truy xuất in nhằm in nội dung mô tả chơng trình Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp - Menu Edit: Gåm c¸c lƯnh nh Undo, Redo, Cut, Copy, Paste, Remove, Delete để chép, cắt dán văn để điều khiển đồ họa trình ứng dụng - Menu View: Gồm lệnh cho phép ta điều chỉnh cách nhìn cửa sổ Code trình ứng dụng, thủ tục khác cã thĨ xu©t hiƯn cưa sỉ code, cịng nh công cụ - Menu Project: Với menu thêm biểu mẫu, Modul, điều khiển Active X hay c¸c tËp tin kh¸c - Menu Format: Với menu này, khoá điều khiển, định kích cỡ, thứ tự xếp ®iỊu khiĨn trªn biĨu mÉu - Menu Debug: Chóng ta thi hành câu lệnh chơng trình Visual Basic, xem giá trị liệu dừng chơng trình nơi - Menu Query: Cho phép thiết kế chạy vấn tin - Menu Tools: Bạn xác định phơng thức Visual Basic hành động cách thay đổi giá trị Menu Tools - Menu Add- ins: Dùng để nạp công cụ điều khiển khác nh: Active X, hỗ trợ thiết kÕ tr×nh øng dơng cao cÊp Visual Basic - Menu Window: Visual Basic toán tìm đờng ngắn Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Với menu bạn xếp lại cửa sổ hình Visual Basic - Menu Help: Cung cấp trợ giúp 1.4.3 Thanh công cụ (Tools bar ): Thanh chứa biểu tợng nhỏ giúp ngời dùng thực nhanh mà vào mục menu Add standard exe Tạo Project nhấp mũi tên xuống bạn chọn công cụ khác Add Form: Thêm form cho project, nhấp mũi tên xuống bạn chọn công cụ khác Menu Editor: Dùng để thiết kế menu chơng trình biểu mẫu hành  Open project: Më mét Project  Save Project: Lu Project Cut: Cắt bỏ câu lệnh đối tợng đà chọn Copy: Sao chép đối tợng câu lệnh đà chọn Find: mở hộp thoại find để thực việc tìm kiếm Undo: Lấy lại hành động trớc Redo: lấy lại hành động sau Start: Chạy chơng trình sau bạn đà thiết kế chạy thử Break: tạm ngng chơng trình chạy End: chấm dứt chơng trình chạy Project explorer: để thấy Project, form,…cã thĨ thÊy c¸c t chän  Tools box: Xt hộp công cụ phía bên trái hình Visual Basic toán tìm đờng ngắn 10 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp từ trạng thái xuất phát đến trạng thái đích, hay toán lập lịch thi công công đoạn công trình thi công lớn Một toán mà ngày cần giải toán lựa chọn đờng truyền tin với chi phí nhỏ mạng thông tin Nói chung có vô nhiều toán thực tế cần phải giải áp dụng đợc toán tìm đờng ngắn tiết kiệm đợc nhiều thứ nh tiền bạc nh thời gian công sức Hiện có nhiều phơng pháp để giải toán nh Mặc dầu vậy, thông thờng, thuật toán đợc xây dựng dựa sở lý thuyết đồ thị tỏ thuật toán có hiệu Trong chơng nghiên cứu thuật toán Dijkstra Trong trờng hợp trọng số cung không âm thuật toán Dijkstra giải toán tìm đờng ngắn từ đỉnh S đến đỉnh lại đồ thị Thuật toán Dijkstra làm việc hữu hiệu nhiều thuật toán khác Thuật toán đợc xây dựng dựa sở gán cho đỉnh nhÃn tạm thời NhÃn đỉnh cho biết cận độ dài đờng ngắn từ S đến Các nhÃn đợc biến đổi theo thủ tục lặp, mà bớc lặp có nhÃn tạm thời trở thành nhÃn cố định Nếu nhÃn đỉnh trở thành nhÃn cố định cho ta cận mà độ dài đờng ngắn từ đỉnh S đến Thuật toán đợc mô tả cụ thể nh sau: Procedure Dijkstra; (*Đầu vào: Đồ thị có hớng G = (V,E) với n đỉnh sV đỉnh xuất phát, a[u,v], u, v ∈ V, ma trËn träng sè Gi¶ thiÕt: a[u,v] ,u, vV Đầu ra: khoảng cách từ đỉnh S đến tất đỉnh lại d[v], vV Visual Basic toán tìm đờng ngắn 32 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Truoc[v], v∈V, ghi nhËn ®Ønh ®i tríc v ®êng ®i ng¾n nhÊt tõ s ®Õn v *) Begin (*khëi t¹o*) For v∈V Begin D[v]:= a[s,v]; Truoc[v]:= s; End; D[s]:= 0; T:= V\{s}; (* T tập đỉnh có nhÃn tạm thời *) (* Bớc lặp *) While T Begin Tìm đỉnh u T thoả mÃn d[u]= {d[z] : z T}; T:= T\{u}; (*cố định nhÃn đỉnh u *) For v T (*gán nhÃn lại cho đỉnh T*) If d[v] > d[u] +a[u,v] then Begin D[v] := d[u] + a[u,v]; Truoc[v] := u; End; End; End; Chó ý: - NÕu cần tìm đờng ngắn từ s đến đỉnh t kết thúc thuật toán đỉnh t trở thành có nhÃn cố định Visual Basic toán tìm đờng ngắn 33 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp - Đờng ngắn xuất phát từ đỉnh dễ dàng mô tả lại thuật toán cho trờng hợp đồ thị cho danh sách kề Để giảm bớt khối lợng tính toán việc xác định u bớc lặp, sử dụng thuật toán Heapsort để thu đợc thuật toán với độ phức tạp tính toán O(m log n) Chơng Chơng trình tìm đờng ngắn hai nút giao thông đồ đờng - Mô đồ thành phố Phần I Khảo sát hệ thống Visual Basic toán tìm đờng ngắn 34 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp 6.1.1 Yêu cầu hệ thống Trong thực tế có lúc phải lựa chọn nh tham gia giao thông đờng bộ, đờng thuỷ, chí đờng hàng không, buộc phải lựa chọn để có hành trình tiết kiệm Đối với ngời làm công nghệ thông tin nh phải lựa chọn đờng truyền tin với chi phí nhỏ mạng thông tin Chính mà yêu cầu hệ thống phải nắm bắt xác thông tin mạng giao thông từ tổ chức thành liệu vào liệu vẽ đợc đồ Cung cấp cho ngời sử dụng số thông tin cần thiết đặc biệt giải đợc toán đặt Để vẽ đợc đồ tìm đờng ngắn hai nút mạng giao thông cần thực công việc sau: - Thu thập thông tin cấn thiết mạng giao thông Chẳng hạn nh tên đờng, chiều dài, chiều rộng, tọa độ đỉnh hai đầu mút đờng - Quản lý tổ chức đợc liệu thu thập đợc - Từ thông tin thu thập đợc phải đa đợc thông tin cần thiết cho ngời sử dụng 6.1.2 Lựa chọn hệ quản trị sở liệu Việc lựa chọn hệ quản trị sở liệu cần dựa yêu cầu sau đây: - Phải có công cụ lập trình mạnh, cho phép ngời lập trình xây dựng hệ thống chơng trình hoàn chỉnh nhanh chóng mềm dẻo - Phải xây dựng đợc ngân hàng liệu thích ứng với mô hình thông tin phong phú đa dạng đáp ứng nhu cầu đòi hỏi thực tiễn ứng Visual Basic toán tìm đờng ngắn 35 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp dụng Phải có công cụ hiệu để tránh tranh chấp xung đột liệu - Để đáp ứng đợc yêu cầu lựa chọn ngôn ngữ Visual Basic 6.0 làm công cụ lập trình để giải toán Ưu điểm ngôn ngữ Visual Basic công cụ lập trình mạnh đợc sử dụng rộng rÃi nớc ta Nó ngôn ngữ kết nối với ngôn ngữ khác Việc sử dụng tiện lợi môi trờng Windows môi trờng không lạ ngời sử dụng máy tính Một số nguyên tắc công việc tìm đờng ngắn hai nút giao thông đồ: Về nguyên tắc dù quản lý máy tính nhng mô hình hoạt động phải dựa vào phơng thức quản lý truyền thống tức phải dựa vào thuật toán tìm đờng ngắn đồ thị, không nên tách rời với phơng thức truyền thống Vì phải quản lý số liệu tơng đối lớn nhiều vấn đề khác nên phải tổ chức chơng trình liệu cách hợp lý truy cập, xử lý nhanh chóng, đáp ứng đuợc với yêu cầu ngời sử dụng Đối tợng phơng pháp nghiên cứu: Dựa vấn đề đà nêu chơng trình tập trung vào phần là: 1/ Tìm hiểu thuật toán tìm đờng ngắn nhất, tìm hiểu ngôn ngữ VB để ứng dụng đợc vào chơng trình, từ việc tìm hiểu mà đa đợc yêu cầu cho hệ thống máy vi tính 2/ Mô hình hoá hoạt động hệ thống dựa vào biểu đồ phân cấp chức 3/ Xây dựng biểu đồ liệu, thiết kế tập sở liệu mối quan hệ chúng Visual Basic toán tìm đờng ngắn 36 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp 4/ Cài đặt chơng trình dựa vào ngôn ngữ Visual Basic 6.0 đồng thời đánh giá phát triển chơng trình Phần II: Phân tích, thiết kế hệ thốngvà xây dựng mô hình liệu 6.2.1 Xác Định phân tích luồng thông tin Các luồng thông tin mà hệ thống cần đáp ứng: Thực chất luồng thông tin mà hệ thống ứng dụng để đáp ứng Các yêu cầu thông tin chủ yếu nhà quản lý cán nghiệp vụ lĩnh vực mà hệ thống đa Cụ thể nhà quản giao Visual Basic toán tìm đờng ngắn 37 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp thông đa Tuy nhiên, việc phân tích cụ thể hoá, đánh giá bổ sung đóng vai trò vô quan trọng định hiệu hệ thống ứng dụng Các yêu cầu phân loại thông tin thành: - Các thông tin đợc lu trữ thành sở liệu lớn, trình tra cứu thông tin phơng pháp thủ công đòi hỏi nhiều thời gian, công sức thực tế nhiều thực yêu cầu, - Ngoài có nhiều phơng pháp phân loại khác, phụ thuộc tính chất đặc điểm hệ thống để lựa chọn phơng pháp hợp lý 6.2.2 Thiết kế hệ thống 6.2.2.1Những chức chính: + Hệ thống: - Mở sở liệu - Thoát khỏi chơng trình + Cập nhật thông tin hệ thống : - Cập nhật thông tin đờng - Cập nhật thông tin đoạn - Cập nhật toạ độ điểm + Xem đồ: - Bản đồ + Trợ giúp: - Lời cảm ơn - Hớng dẫn sử dụng chơng trình 6.2.2.2 Đặc tả chức hệ thống + Hệ thống Visual Basic toán tìm đờng ngắn 38 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp - Mở sở liệu: Mở tệp liệu để chơng trình làm việc với sở liệu - Thoát khỏi chơng trình: Sau làm việc xong thoát khỏi chơng trình + Cập nhật thông tin hệ thống - Cập nhật thông tin đờng: Cập nhật thông tin tên đờng, chiều dài đờng số điểm Bên cạnh việc cập nhật thông tin phải sửa, xoá bỏ thông tin, ghi thông tin vào file sở liệu đợc - Cập nhật thông tin đoạn: Cập nhật thông số đoạn cụ thể nh số thứ tự đoạn tọa độ hai đầu đoạn Vừa cập nhật thông tin cho hệ thống vừa xoá, sửa huỷ ghi thông tin đợc - Cập nhật thông tin điểm: Cập nhật số thứ tự điểm tọa độ điểm Bên cạnh phải xoá bỏ, sửa đổi thông tin đợc, ghi thông tin vào file sở liệu + Xem đồ - Xem đồ: Mọi yêu cầu hệ thống đợc thể đồ tức đồ phải vào liệu vẽ thành đồ cách xác ngời sử dụng cần xem thông tin đờng nào, cần từ đâu đến đâu phải thể đợc đờng tối u Phải cung cấp thông tin cho ngời sử dụng + Trợ giúp - Lời cảm ơn : Lời cảm ơn tác giả thầy giáo đà hớng dẫn để hoàn thành chơng trình Cảm ơn tới tất thầy cô giáo bạn bè đà động viên giúp đỡ Visual Basic toán tìm đờng ngắn 39 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp - Hớng dẫn sử dụng chơng trình: Các thông tin liên lạc tác giả cần thiết Các hớng dẫn cụ thể sử dụng chơng trình, nh nâng cấp chơng trình 6.2.3 Biểu đồ thiết kế A Biểu đồ phân cấp chức năng: Chuơng trình vẽ đồ Hệ thống Mở sở DL Cập nhật thông tin HT Dữ liệu Thoát CT Th ôn g tin Vẽ đồ Nhập Điểm Vẽ đồ Trợ giúp Lời cảm ơn thông tin Hướng dẫn SD Nhập Đoạn Nhập Đường B Biểu đồ luồng liệu Biểu đồ mức ngữ cảnh: Chương trình vẽ đồ đáp ứng YC YC cung cấp tt Visual BasicNgười quản lý ngắn toán tìm đờng 40 Nguyễn Văn Nhẫn 40E3 tin Kho¸ ln tèt nghiƯp Trong CSDL chØ cã c¸c TABLE nh sau - DIEM Gåm cã: sè thø tù, täa ®é x, täa ®é y - DOAN Gåm cã: số thứ tự, điểm đầu, điểm cuối, độ dài, chiều - DUONG Gồm có: số thứ tự, tên đờng, chiều dài, số đoạn Visual Basic toán tìm đờng ngắn 41 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp 6.2.4 Thiết kế File liệu - Tệp DIEM Chức năng: Dùng để lu thông tin vỊ täa ®é cđa ®iĨm STT FIELD NAME STT X Y TYPE Autonumber Long Long DiÔn giải Thứ tự Tọa độ x Tọa độ y - Table DOAN Chức năng: Lu thông tin đoạn STT FIELD NAME STT Dau Cuoi Dai Motchieu TYPE AutoNumber Long Long Long Yes/No DiÔn giải Số thứ tự Đỉnh đầu Đỉnh cuối Độ dài cạnh Có phải đờng chiều không 6.2.5 Phân tích công cụ ngôn ngữ 6.2.5.1 Phân tích liệu việc kết nối với dự liệu Để xây dựng đợc chơng trình vấn đề phải có liệu Chơng trình phải nhập đợc liệu, hay nói cách khác phải cập nhật đợc thông tin hệ thống Không có cập nhật vào sở liệu mà xóa liệu, sửa ®ỉi d÷ liƯu … Visual Basic cho phÐp ta kÕt nối với Microsoft Acess 97 tệp sở liệu ta tạo Microsoft Acess 97, kho liệu Nh vấn đề đặt để kết nối Visual Basic sở liệu ? Rất may cho Visual Basic cung cấp công cụ để kết Visual Basic toán tìm đờng ngắn 42 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp nối Data, Adodc Trong chơng trình kết nối sở liệu với Form thông qua Adodc Sau tạo form cập nhật thông tin ta kết nối với sở liệu thông qua Adodc, để kết nối đợc Form phải có Adodc Thuộc tính Connectionstring Adodc phải đờng dẫn đến tệp sở liệu muốn có đợc kết nối ta click chuột vào thuộc tính sau làm theo chØ dÉn cđa VB, nh vËy ta chóng ta ®· kết nối đợc Để cho cho chơng trình có tính linh hoạt tức để tệp sở liệu đâu đợc chơng trình chạy không bị lỗi thiết kế việc kết nối với liệu động Lợi dụng Visual Basic cung cấp cho câu lệnh tạo đờng dẫn động ta thiết kế đoạn chơng trình đặt menu mở hệ thống gọi mở sở liệu Trong đoạn ta sử dụng câu lệnh tạo đờng dẫn động Khi cần kết nối với liệu để làm việc ta chØ viƯc click vµo menu më hƯ thèng Cơ thĨ nh sau: Private Sub open_Click() On eroror GoTo het Set cn = New ADODB.Connection Me.CommonDialog1.ShowOpen cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" _ & Me.CommonDialog1.FileName cn.open Me.nhapdl.Enabled = True Me.xembd.Enabled = True Exit Sub het: If Err.Number = -&H7FFFBFFB Then Visual Basic toán tìm đờng ngắn 43 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp MsgBox "sai duong dan hoac ten tep " Else MsgBox Err.Number & Err.Description End If End Sub Đoạn chơng trình më tõng b¶ng mét kÕt nèi víi tõng Adodc thÓ : Public Sub mobang(adoctrl As Adodc) Set Myrs = New ADODB.Recordset Myrs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic Set adoctrl.Recordset = Myrs Set Myrs = Nothing End Sub: Khi cÇn kÕt nối với Adodc form ta gäi nh sau: Private Sub toadodiem_Click() sqlstr = "select * from diem" Call mobang(frmnhdiem.Adodc1) frmnhdiem.Show End Sub 6.2.5.2 Mét vµi ph©n tÝch vỊ thiÕt kÕ Form ThiÕt kÕ Form cËp nhật thông tin nh nào? Đây vấn đề đơn giản nhng khó khăn, Form phải thể đợc chức phải đảm bảo đợc tính mỹ thuật Muốn đảm bảo đợc tính mỹ thuật khả trang trí ngời Nhng Form tối thiểu phải có số đối tợng chẳng hạn nh có lới DataGrid Lới dùng để thị thông tin sở liệu ta Cách thức thiết kế nó, ta vẽ lên Form DataGrid Trên form đà có Adodc Adodc đà kết nối với sở liệu, ®ã ta chØ viƯc kÕt nèi líi víi Adodc KÕt nối cách Thuộc tính Datasource ta chọn Adodc Nh Visual Basic toán tìm đờng ngắn 44 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp đến ta thử chạy chơng trình thông tin tệp sở liệu đợc thị lên Form Để trang trí cho đẹp ta dựa vào thuộc tính DataGrid để đổi tên nó, đổi tên Caption, tức ®ỉi tiªu ®Ị cđa nã Cịng cã thĨ chän Font chữ, kiểu chữ, màu Khi Form đà đợc nh muốn nhập liệu ta nhập vào đâu ? Để nhập đợc liệu có thông tin cần nhập ta thiết kế nhiêu Textbox Textbox dùng để nhập thông tin vào Để tiện cho việc nhập thông tin nh để trang trí trớc textbox ta đặt Label Caption Label ta viết thông tin dẫn Textbox Việc nhớ tên Textbox nh Label đặt lại tên cho chúng th«ng qua thc tÝnh Name Properties cđa chóng ViƯc cập nhật thông tin phải thêm vào nút thêm, xóa, sửa, ghi, huỷ, thoát Ta thêm nút cách dùng công cụ CommandButton công cụ vẽ vào form nút Sau dùng Properties để sửa đổi tên, nh Caption nút Lúc Form bề đà hoàn chỉnh Việc trang trí màu sắc cho Form nh đối tợng khác Form tuỳ sở thích ngời Visual Basic đà cung cấp cho thc tÝnh ta chØ viƯc chän c¸c tham sè cho thuộc tính Có thể nói công việc bên nh đà đợc, công việc quan trọng khó phải lập trình viết hàm để đáp ứng kiện Chẳng hạn nh ấn nút ghi Visual Basic biết lấy liệu Textbox ghi vào tệp sở liệu Dới Form nhập tọa độ điểm mạng lới giao thông (Form nhập thông tin đoạn ) Visual Basic toán tìm đờng ngắn 45 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp ( Form nhập thông tin đờng ) Form Form vẽ đồ Trên Form thể toàn ý tởng ban đầu Để lấy đợc liệu phải có Adodc Adodc kết nối với sở liệu Nh đà tìm hiểu qua phần đồ họa Visual Basic cho phép làm đồ họa Form Picture box, hay Image việc ta phải thiết kế Form Dữ liệu đà đợc kết nối với Form làm để lấy liệu vẽ đợc lên Form bắt buộc phải lập trình Visual Basic công cụ làm mét viƯc thĨ nh vËy Chóng ta sÏ viÕt thủ tục vẽ, bắt buộc phải vẽ ta phải vẽ thủ tục Khi cho chơng trình chạy ta gặp vấn đề ®ã lµ sù kiƯn Form_Active() chØ cho phÐp ta gäi lần thủ tục vẽ, mà thực tế sở liệu có nhiều điểm cần phải vẽ Vậy làm theo cách thông thờng đọc liệu đến đâu vẽ đến đó, làm đợc Giải pháp để giải vấn đề Visual Basic cho phÐp sư dơng m¶ng Chóng ta sÏ tạo mảng động, chạy chơng trình toàn liệu đợc đẩy vào mảng động Sau ta gọi thủ tục vẽ lần ta vẽ đợc toàn liệu Để đồ đợc đẹp thuận tiện sử dụng ta vẽ đầu đoạn, cuối đoạn nút nhỏ Các nút ảnh ta phải vẽ Image Làm để tạo ®ỵc nhiỊu Image nh vËy ? Khi ta thiÕt kÕ ta phải vẽ Image, làm ®Ĩ vÏ ®Õn ®©u nã tù sinh Image đến ý tởng giải thuật hoàn toàn giống nh ta vẽ điểm Toàn lệnh vẽ nút bắt buộc phải viết thủ tục Visual Basic toán tìm đờng ng¾n nhÊt 46 ... tìm hiểu thêm số ngôn ngữ lập trình môi trờng Windows mà chúng hỗ trợ nhiều trình thiết kế giao diện chơng trình Visual Basic số ngôn ngữ Visual Basic ngôn ngữ mới, hỗ trợ mạnh cho ngời lập trình, ... ngôn ngữ Visual Basic 6.0 làm công cụ lập trình để giải toán Ưu đi? ??m ngôn ngữ Visual Basic công cụ lập trình mạnh đợc sư dơng rÊt réng r·i ë níc ta Nã lµ ngôn ngữ kết nối với ngôn ngữ khác Việc... thông tin đi? ??m Visual Basic toán tìm đờng ngắn 49 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt nghiệp Form Nhập thông tin đoạn Visual Basic toán tìm đờng ngắn 50 Nguyễn Văn Nhẫn 40E3 tin Khoá luận tốt