Bài 9 : Visual Basic 6: Quảng cáo du lịch

Nội dung text: Bài 9 : Visual Basic 6: Quảng cáo du lịch

1. 1 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ BÀI 9 NGÀY 24.9.2010 SOẠN THEO THẦY TUẤN (NGÀY HƠN LỄ ĐỨC&THY) BÀI NÀY DÀI VÀ KHĨ VÌ CĨ NHIỀU CHI TIẾT MỚI, ÚT BỈNH TOAN BỎ CUỘC MẤY LẦN NHƯNG SỰ HẤP DẪN ĐỘC ĐÁO CỦA NĨ LÀM ÚT BỈNH QUAY TRỞ LẠI SAU KHI MẤT 3 NGÀY TỰ TÌM TỊI NGHIÊN CỨU, QUẢ LÀ TỰ HỌC RẤT KHĨ SONG ĐEM LẠI SỰ THÍCH THÚ KHI TỰ MÌNH GIẢI QUYẾT ĐƯỢC BÀI TỐN HĨC BÚA. CÁCH THỂ HIỆN THỜI GIỜ TRONG TEXTBOX VÀ THỂ HIỆN ĐỒNG LOẠT NỘI DUNG TRÊN NHIỀU TEXTBOX KHI NHẤP LÊN NÚT OPTIONBUTTON, ĐĨ LÀ NÉT ĐỘC DÁO TRONG BÀI NÀY. VISUAL BASIC KHƠNG CHO BẠN HIỂN THỊ TIẾNG VIỆT CĨ DẤU KHI DÙNG BẢNG MÃ UNICODE MÀ PHẢI DÙNG VNI WINDOWS . CHÍNH VÌ LÝ DO NÀY KHI BẠN VÀO CHƯƠNG TRÌNH VB BẠN PHẢI LUƠN NHỚ CHỌN BẢNG MÃ VNI WINDOWS VÀ CHỌN FONT VNI . ÚT BỈNH CĨ CHỈ DẪN CÁCH TÌM TÀI LIỆU ĐỂ NHẬP VÀO TRONG GOOGLE VÀ CÁCH CHUYỂN ĐỔI MÃ TỪ UNICODE SANG VNI WINDOWS GIÚP BẠN KHỎI GỎ TỨNG KÝ TỰ VÀO CODE. 1.MỞ FORM1: Nhấp Shortcut Chương trình tại Desktop > Trong Tab New, mặc định chọn Standard EXE, nhấp nút Open > Hiện ra Form1, bạn nới rộng Cửa Sổ Thiết Kế > Nhấp Phải lên Form1 > Chọn Properties > Bên Phải hiện ra Cửa sổ Properties-Form1, bạn nhập: Name: Baibon. BackColor: Màu xanh. Caption: CHUONG TRÌNH QUANG CAO DU LICH. WindowState: 2-Maximized. 2. TẠO 5 LABEL DÙNG LÀM TIÊU ĐỀ: QUẢNG CÁO DU LỊCH htpp://utbinh.com
2. 2 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ BẢNG THUỘC TÍNH CỦA NHỮNG ĐIỀU KHIỂN LABEL SỐTT NAME ALIGNMENT BACKCOLOR CAPTION FONT FORECOLOR DU LỊCH “GIỒNG VNI- ƠNG TỐ” KÍNH 1 LblTieude 2-Center Màu dâu AVO,Size Xanh đậm CAHỊ QUÝ 14 KHÁCH Thơng báo giá tiền VNI- 2 LblGiatien 2-Center Màu tím của các phương AVO,Size Xanh đậm tiện 14 VNI- 3 LblXehoi 1-Left Justify Màu xanh Xe Hơi BRUSH, Xanh đậm Size 20 VNI- 4 LblXelua 1-Left Justify Màu xanh lơ Xe Lửa BRUSH, Xanh đậm Size 20 VNI- 5 LblMaybay 1-Left Justify Màu vàng Máy bay BRUSH, Xanh đậm Size 20 Chú ý: Để tạo nhanh các Label cĩ cùng kích cở bạn Copy > Paste ,hiện ra 1 Label mới gĩc Trái trên, bạn rê đặt vào vị trí thích hợp và nhập các thuộc tính vào. QUẢNG CÁO DU LỊCH htpp://utbinh.com
3. 3 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ 3. TẠO 7 NÚT OPTIONBUTTON: Dùng để xác định địa danh của 7 địa điểm . Nút này cĩ tính chất loại trừ nghĩa là khi bạn chọn nút nào thì sẽ làm mất tiêu điểm của nút mà bạn chọn trước đĩ. BẢNG THUỘC TÍNH CỦA 7 OPTIONBUTTON FORECOLOR CAPTION FONT SỐTT NAME BACKCOLOR Xanh đâm 1 OptHue Màu dâu HUẾ VNI-AVO,Size 16 Xanh đâm 2 OptSaigon Màu cam SÀI GỊN VNI-AVO,Size 16 3 OptHanoi Màu vàng HÀ NỘI VNI-AVO,Size 16 Xanh đâm 4 OptHalong Màu xanh HẠ LONG VNI-AVO,Size 16 Xanh đâm 5 OptDalat Màu xanh chuối ĐÀ LẠT VNI-AVO,Size 16 Xanh đâm 6 OptNhatrang Màu dâu NHA TRANG VNI-AVO,Size 16 Xanh đâm 7 OptVungtau Màu tím VŨNG TÀU VNI-AVO,Size 16 Xanh đâm 4. TẠO 1 NÚT COMMANDBUTTON: Dùng để thốt khỏi chương trình với các thuộc tính: Name: CmdThoat BackColor: Tím nhạt. Caption: THỐT Font: VNI-AVO, Size 20. Style: 1-Grapical. QUẢNG CÁO DU LỊCH htpp://utbinh.com
4. 4 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ 5. TẠO 6 TEXTBOX: 1 Dùng để hiện giờ hoặc ngày tháng hiện tại. 1 dùng để giới thiệu tiêu đề. 1 dùng để giới thiệu về địa danh. 3 dùng để thơng báo tiền của các phương tiện. Nhấp ĐK Timer để tạo Biểu tượng Đồng hồ trên Form1. BẢNG THUỘC TÍNH CỦA 6 TEXTBOX SỐTT NAME ALIGMENT BACKCOLOR FONT TEXT 0-Left Justify Xĩa chữ Text 1 TxtTimer Màu trắng VNI-AVO,Size 12 2-Center Xanh đâm 2 OptTieude Màu nâu VNI-AVO,Size 12 OptThongbao 0-Left Justify Xanh đâm 3 Màu trắng VNI-AVO,Size 12 MultiLine: True 2-Center Xanh đâm 1 OptXehoi Màu nâu VNI-AVO,Size 12 2-Center Xanh đâm 1 OptXelua Màu nâu VNI-AVO,Size 12 2-Center Xanh đâm 1 OptMaybay Màu nâu VNI-AVO,Size 10 QUẢNG CÁO DU LỊCH htpp://utbinh.com
5. 5 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ 6.VIẾT CODE CHO CHƯƠNG TRÌNH 1. VIẾT CODE CHO ĐIỀU KHIỂN CmdThoat Nhấp đúp lên nút THỐT > Hiện ra Bảng Project1-Baibon(Code), nhập End > Kiểm tra kết quả: Nhấp nút Start trên Thanh cơng cụ (Hoặc phím F5) > Hiện ra Form bạn vừa tạo, nhấp nút THỐT, đã trở lại trước đĩ. Private Sub CmdThoat_Click() End End Sub 2. VIẾT CODE CHO ĐIỀU KHIỂN CĨ TÊN OptDalat Chú Ý: Trong bài thực tập này bạn phải nhập một đoạn văn bản khá dài mơ tả từng địa danh. Để khỏi đánh máy văn bản bạn cĩ thể áp dụng như sau: Vào Google nhập từ khĩa của Địa danh cần mơ tả + wikipedia , xong nhấp Enter > Nhấp lên Trang Web cần tìm > Copy nội dung dán vào Trang Web > Mã đang dùng chọn Unicode > Đổi sang chọn VNI-WIN > Nhấp nút Đổi sang > Văn bản đã được chuyển đổi sang VNI-WINDOWS > Copy văn bản này > Vào Word chọn mã VNI WINDOWS và Font VNI > Dán văn bản vào . Bạn phải Copy từng hàng của văn bản vừa dán vào > Dán vào Code đang chờ nhập mơ tả địa danh ( Chương trình VB yêu cầu phải làm như vậy là trong lúc nhập văn bản khơng được xuống hàng. Bạn muốn xuống hàng phải đĩng lại bằng dấu ngoặc kép). Nhấp đúp lên nút ĐÀ LẠT > Hiện ra Bảng Project1-Baibon(Code), nhập: Private Sub OptDalat_Click(Index As Integer) TxtTieude = "Bạn đang đi lên Thành Phố Đà Lạt" TxtThongbao = "Đà lạt nằm trên cao nguyên trung bộ cách Saigon 300 km . Đà Lạt được khám phá vào năm 1893 bời Bác Sĩ Alexandre Yersin. Đà lạt cò 2500 biệt thự với những kiểu dáng khác nhau .Đà Lạt là điểm hẹn của du khách vào mùa hè và những ngày lễ.Đà Lạt có những địa điểm nổi bật như: Thác Cam Ly, thác Prenn, Hồ Tuyền Lâm,Thiền viện Trúc Lâm, Dinh Bảo đại, Tu viện Saint Domaine De Maria, Chùa Linh Sơn, Nhà thờ Đà Lạt, Hồ Than Thở, thung lủng Tình Yêu " TxtXehoi = "50.000 đồng" TxtXelua = "Không có" TxtMaybay = "300.000 đồng" End Sub QUẢNG CÁO DU LỊCH htpp://utbinh.com
6. 6 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ GIẢI THÍCH : Tất cả các lệnh trong thủ tục này đều là lệnh gán, nơi thể hiện là các TextBox, nên bạn lấy thuộc tính Name của các TextBox tương ứng để gán những kiến thức cần thiết . Các thủ tục sau cũng tương tự như vậy. Giống như trong Access liên hệ Bảng này với Bảng kia qua Khóa chính (Ở đây lấy thuộc tính name làm Khóa Chính) Dòng văn bản mà bạn nhập vào để gán vào cho 1 TextBox đều được gỏ liên tục không xuống hàng và bằng Bảng Mã VNI Windows. KIỂM TRA: Nhấp Nút Start hoặc Phím F5 > Hiện ra Form1 > Nhấp Nút ĐÀ LẠT > Tất cả TextBox đều hiện ra nội dung của nó > Nhấp Nút THOÁT để trở về trước đó. Nhấp Menu File > Chọn Save Project As Nhấp Menu File > Nhấp Save Baibon Frm As > QUẢNG CÁO DU LỊCH htpp://utbinh.com
7. 7 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ Nhấp Menu File > Nhấp Make Project As > Close, đĩng chương trình lại. Mở lại chương trình:Nhấp Menu File > chọn Open Project > Nhấp Project1 > Nhấn nút Open > Nhấn Baibon trong cửa sổ bên Phải > Hiện ra Form bạn Đang thiết kế. 3. VIẾT CODE CHO ĐIỀU KHIỂN CĨ TÊN OptHalong: Nhấp đúp lên nút HA LONG > Hiện ra Bảng Project1-Baibon(Code), nhập: Private Sub OptHalong_Click(Index As Integer) TxtTieude = "Bạn đang đi đến Hạ Long" TxtThongbao = "Vịnh Hạ Long (vịnh nước nơi rồng đáp xuống) là một vịnh nhỏ thuộc phần bờ Tây vịnh Bắc Bộ tại khu vực biển Đông Bắc Việt Nam, bao gồm vùng biển đảo thuộc thành phố Hạ Long, thị xã Cẩm Phả và một phần của huyện đảo Vân Đồn.Là trung tâm của một khu vực rộng lớn có những yếu tố ít nhiều tương đồng về địa chất, địa mạo, cảnh quan, khí hậu và văn hóa, với vịnh Bái Tử Long phía Đông Bắc và quần đảo Cát Bà phía Tây Nam, vịnh Hạ Long giới hạn trong diện tích khoảng 1.553km² bao gồm 1.960 hòn đảo lớn nhỏ, phần lớn là đảo đá vôi, trong đó vùng lõi của Vịnh có diện tích 334km² quần tụ dày đặc 775 hòn đảo[1]. Lịch sử kiến tạo địa chất đá vôi của Vịnh đã trải qua khoảng 500 triệu năm với những hoàn cảnh cổ địa lý rất QUẢNG CÁO DU LỊCH htpp://utbinh.com
8. 8 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ khác nhau; và quá trình tiến hóa carxtơ đầy đủ trải qua trên 20 triệu năm với sự kết hợp các yếu tố như tầng đá vôi dày, khí " TxtXehoi = "200.000 đồng" TxtXelua = "Tới Hà Nội 800.000 đ đi xe tiếp 200.000 đ" TxtMaybay = "1.300.000 đ đến Hà Nội, đi xe tiếp 200.00 đ" End Sub 4. VIẾT CODE CHO ĐIỀU KHIỂN CĨ TÊN OptHanoi: Nhấp đúp lên nút HA NOI > Hiện ra Bảng Project1-Baibon(Code), nhập: Private Sub OptHanoi_Click(Index As Integer) TxtTieude = "Bạn đang đi ra Hà Nội" TxtThongbao = "Hà Nội là thủ đô của Việt Nam là thành phố có diện tích lớn nhất và có dân số đứng thứ hai sau Thành phố Hồ Chí Minh.Nằm giữa đồng bằng sông Hồng trù phú, Hà Nội đã sớm trở thành một trung tâm văn hóa, kinh tế, chính trị và tôn giáo ngay từ những buổi đầu của lịch sử Việt Nam. Năm 1010, Lý Công Uẩn, vị vua đầu tiên của nhà Lý, quyết định xây dựng kinh đô mới ở vùng đất này với cái tên Thăng Long. Trong suốt thời kỳ của các triều đại Lý, Trần, Lê, Mạc, kinh thành Thăng Long là nơi buôn bán, trung tâm văn hóa, giáo dục của cả miền Bắc. Khi Tây Sơn rồi nhà Nguyễn lên nắm quyền trị vì, kinh đô được chuyển về Huế và Thăng Long bắt đầu mang tên Hà Nội từ năm 1831.dưới thời vua Minh Mạng. Năm 1902, Hà Nội trở thành thủ đô của Liên bang Đông Dương" TxtXehoi = "200.000 đ" TxtXelua = "800.000 đ" TxtMaybay = "1.3000.000 End Sub QUẢNG CÁO DU LỊCH htpp://utbinh.com
9. 9 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ Nhấp Nút Save. 5. VIẾT CODE CHO ĐIỀU KHIỂN CĨ TÊN OptHue – OptNhatrang – OptSaigon – OptVungtau giống các bước trên nên Út Bỉnh khơng đưa vào bài viết này vì sẽ quá dài, chỉ nhập Code vào để khi bạn kiểm tra lại trên File EXE sẽ hiện ra nội dung đầy đủ. HUẾ Private Sub OptHue_Click(Index As Integer) TxtTieude = "Xin mời bạn tham khảo về Thành phố HUẾ" TxtThongbao = "Huế là một thành phố ở miền Trung Việt Nam và là tỉnh lị của tỉnh Thừa Thiên-Huế. TP Huế là một trong những trung tâm kinh tế, văn hoá, du lịch, khoa học, y tế chuyên sâu, giáo dục đào tạo đa ngành, đa lĩnh vực, chất lượng cao của miền trung và cả nước. Là kinh đô của Việt Nam dưới triều Nguyễn, Huế có nhiều đền chùa, thành quách, lăng tẩm, kiến trúc gắn liền với cảnh quan thiên nhiên." TxtXehoi = "200.000 đ" TxtXelua = "800.000 đ" TxtMaybay = "1.300.000 đ" End Sub NHA TRANG Private Sub OptNhatrang_Click(Index As Integer) TxtTieude = "Bạn đang đi vào Thành phố biển Nha Trang" TxtThongbao = "Nha Trang là một thành phố ven biển và là trung tâm chính trị, kinh tế, văn hóa, khoa học kỹ thuật và du lịch của tỉnh Khánh Hòa, Việt Nam. Trước khi trở thành phần đất của Việt Nam, Nha Trang thuộc về Chiêm Thành. Các di tích của người Chăm vẫn còn tại nhiều nơi ở Nha Trang. Nha Trang được Thủ tướng chính phủ Việt Nam công nhận là đô thị loại 1 vào ngày 22 tháng 4 năm 2009. Đây là một trong 6 đô thị loại 1 trực thuộc tỉnh của Việt Nam" TxtXehoi = "60.000 đ" TxtXelua = "250.000 đ" TxtMaybay = "400.000 đ" End Sub SAIGON Private Sub OptSaigon_Click(Index As Integer) TxtTieude = "Bạn đang đi vào Sài Gòn" TxtThongbao = "Nằm trong vùng chuyển tiếp giữa miền Đông Nam Bộ và Đồng bằng sông Cửu Long, Thành phố Hồ Chí Minh ngày nay bao gồm 19 quận và 5 huyện, tổng diện tích 2.095,01 km². Theo kết quả điều tra dân số chính thức vào thời điểm 0 giờ ngày 1 tháng 4 năm 2009 thì dân số thành phố là 7.162.864 người (chiếm 8,34% dân số Việt Nam), mật độ trung bình 3.419 người/km². Tuy nhiên nếu tính những người cư trú không đăng ký thì dân số thực tế của thành phố vượt trên 8 triệu người. Giữ vai trò quan trọng trong nền kinh tế Việt Nam, Thành phố Hồ Chí Minh chiếm 20,2 % tổng sản phẩm và 27,9 % giá trị sản xuất công nghiệp của cả quốc gia. " TxtXehoi = "Đi trong trung tâm thành phố 1 giờ 100.000 đ" TxtXelua = "Không có" TxtMaybay = "Không có" End Su QUẢNG CÁO DU LỊCH htpp://utbinh.com
10. 10 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ VŨNG TÀU Private Sub OptVungtau_Click(Index As Integer) TxtTieude = "Bạn đang đi đến Thành phố Vũng Tàu" TxtThongbao = "Vũng Tàu là thành phố thuộc tỉnh Bà Rịa - Vũng Tàu, ở vùng Đông Nam Bộ Việt Nam. Vũng Tàu là tỉnh lỵ của tỉnh Bà Rịa - Vũng Tàu[1]. Cho tới thời điểm này, vẫn chưa có quyết định nào thay đổi tỉnh lị nhưng thời gian gần đây, tỉnh này có xu hướng di dời các cơ quan chính quyền của tỉnh về thị xã Bà Rịa và nhiều giao dịch hành chính mới được diễn ra tại đây. Vũng Tàu là một thành phố ven biển, một địa điểm du lịch nổi tiếng của Việt Nam." TxtXehoi = "30.000 đ" TxtXelua = "Không có" TxtMaybay = "Không có" End Sub 6. VIẾT CODE CHO ĐIỀU KHIỂN CĨ TÊN Timerdongho Nhấp đúp lên biểu tượng đồng hồ > Hiện ra Bảng Project1-Baibon(Code), nhập: Private Sub TimerDongho_Timer() TxtTimer.Text = Format(Now, "long Date") & " " & Format(Now, "Long Time") End Sub Nhấp Phải lên biểu tượng Đồng hồ > Chọn Properties > Nhập theo Hình: Nhấp Nút Start hoặc Phím F5 hiện ra Ngày tháng năm và giờ hiện tại > Nhấp Nút Save. Giải thích: Thủ tục của Hàm Timer cĩ dùng Hàm Format() để thể hiện ngày giờ . Muốn hiện trên TextBox thì dùng TextBox. Muốn thể hiện trên Label thì dùng Label. Trong bài này dùng TextBox: o Hàm Format(Now, “Long Date”) sẽ cho xuất hiện Ngày,Tháng. o Hàm Format(Now, “Long Time”) sẽ cho xuất hiện Giờ,Phút,Giây QUẢNG CÁO DU LỊCH htpp://utbinh.com
11. 11 Bài 9 : VISUAL BASIC 6: QUẢNG CÁO DU LỊCH ___ o Ký tự & dùng để nối. o “ “ là khoảng trắng để giá trị của 2 hàm nằm cách nhau. o Format là định dạng. Now cho biết giá trị hiện tại. Bạn cĩ thể dùng đối thứ 2 của Hàm Format() bằng những giá trị như trong Bảng, giá trị thể hiện sẽ khác nhau: Bạn cĩ thể thử tất cả giá trị này để thấy kết quả. Khi chạy chương trình ngày giờ định dạng sẽ hiện trên TextBox khi Form vừa xuất hiện. CHAY THỬ CHƯƠNG TRÌNH: Nhấp Nút Start trên Thanh cơng cụ hoặc Phím F5 để chạy chương trình và nhấp tùng Nút OptionButton để thấy được nội dung của từng nút cùng giá tiền của từng phương tiện . Nhấp Nút THỐT để ra khỏi chương trình. SAVE: Nhớ luơn luơn Save lại với 3 Định dạng là : Project – Form và Make Project EXE bằng cách nhấp Menu File và chọn từng định dạng. Mời xem kết quả thực tập: QUẢNG CÁO DU LỊCH htpp://utbinh.com