text:
CÔNG TY TNHH XÂY DỰNG THƯƠNG MẠI QUỐC CƯỜNG
Địa chỉ: 285 Vườn Lài, P.Phú Thọ Hòa, Q.Tân Phú, TP.HCM
ĐT: 39782004 - 39782759 * Hotline: 0988 55 88 79 - 0903 831 312
Email: qc@quoccuong.com.vn - Website: quoccuong.com.vn - bietthudep.com.vn
Theo Thuật số Phương Đông, vạn vật tồn tại và phát triển chi phối bởi quy luật Âm Dương và Ngũ Hành. Quy luật Âm Dương chúng ta tạm hiểu đó là sự tương hỗ và tồn tại của nguồn năng lượng h́nh thành nên thể chất và lý tính của mọi vật.
Ngũ Hành là quy luật ức chế và kích thích sự vật vận động và phát triển. Các con số đứng riêng rẽ hình thành nên những ý nghĩa khác nhau bao hàm sự tốt xấu, may mắn hay tai hoạ. Khi kết hợp với nhau nó cũng hình thành một ý nghĩa khác bao hàm sự tốt xấu nhưng lúc này ư nghĩa của từng con số không còn nhắc mà mang sắc thái bổ trợ , tác dụng lẫn nhau hình thành nên tính chất tốt xấu cho cả dãy số. Ví dụ : Số 1 tượng là sao Nhất Bạch thuộc hành Thuỷ, theo Hậu Thiên bát Quái thì tượng của nó tượng trưng cho quẻ Khảm chủ về công danh nghề nghiệp, tượng trưng cho trí tuệ , sự nhất quán, sự phát triển và danh tiếng. Số 8 theo Hậu Thiên bát Quái th́ì tượng của nó là sao Bát Bạch thuộc hành Thổ, tượng trưng cho quẻ Cấn chủ về kiến thức, sự thông minh, tiền bạc và lợi ích do sự ổn định mang lại. Ở vận này thì 2 số này đều vượng khí tức là tốt lành bởi hàm chứa những năng lượng vận động tích cực. Khi xét riêng rẽ phải căn cứ vào ý nghĩa hậu Thiên của từng con số, đó chính là chín sao của Huyền Không Đại quái.
Khi kết hợp lại thì có thể là 18 hoặc 81 ta sẽ đi vào phân tích xem hai số trên ý nghĩa thế nào :
- Số 81 : số 8 kết hợp với số 1 đi sau tượng trưng cho sự vận động thuận lý (tiến), như vậy hàm chứa sự tốt lành. Chia số trên thành hai nửa thì nửa trước là 8 , theo đồ hình Tiên Thiên Bát Quái tượng quẻ Khôn; nửa sau là 1 , theo đồ hình Tiên Thiên Bát Quái tượng quẻ Càn. Khôn ở trên càn ở dưới hai quẻ kết hợp với nhau thành quẻ kép Địa Thiên Thái chỉ thời vận hanh thông, vạn vật được khai mở phát triển, phúc lành đang đến. Về Ngũ Hành đó là sự tương sinh bởi Khôn Thổ sinh cho Càn Kim. Bởi vậy số 81 là số rất tốt lành về mọi mặt. Người phương Đông luôn tôn thờ số này và trong khoa học hiện đại cũng chỉ ra đó là con số vũ trụ ứng với nhiều đại lượng đo đếm trong vũ trụ. Số này có 8 là số Âm, 1 là số Dương như vậy hàm nghĩa Âm Dương cân bằng, bởi vận vật chỉ phải triển khi ở thế Âm Dương cân bằng, nếu mất cân bằng thì sẽ có xu hướng tiêu cực. Ví dụ, biển xe là 1357 là số toàn Dương nên không thể tốt được.
- Số 18 : Với luận lư tương tự như trên thì số này Càn 1 ở trên, Khôn 8 ở dưới nên tượng quẻ là Thiên Địa Bỉ chỉ thời vận động; suy vi, sự thịnh vượng nhường chỗ cho sự khó khăn suy thoái bởi theo triết lý Đông Phương, mọi vận là vô thường, vận động hết thịnh lại đến suy luôn luôn thay đổi.
- Trong dãy số thì ngũ hành của luôn được xem xét là ngũ hành chủ đạo chi phối dãy số đó bởi trong một dãy có thể tồn tại nhiều loại ngũ hành, chúng khắc chế lẫn nhau. Ngũ hành chủ đạo luôn là số cuối hoặc nếu có nhiều số cùng tồn tại thì lấy ngũ hành số đó làm chuẩn. Ví dụ 81 thuộc Thuỷ, 18 thuộc Thổ.
Các nguyên lư xem xét cho một dãy số đẹp hay xấu :
- Phải có nhiều số vượng khí như 1,8,9,0 bới các số này trong vận 8 là sinh khí, tiến khí, vượng khí sẽ đem lại nhiều may mắn tốt lành.
- Phải có sự tương sinh về ngũ hành tránh sự tương khắc, ví dụ 3388 là sự tương khắc vì 3 Bích Mộc khắc 8 Bạch Thổ.
- Ngũ hành của dãy số phải tương sinh cho mệnh người sử dụng. Ví dụ số 0915349988 ngũ hành thuộc Thổ sinh trợ cho người mệnh Thổ, Kim
- Âm dương phải cân bằng nghĩa là phải có cả số Dương, số Âm (chẵn, lẻ) hoặc lư tưởng nhất là hai loại có số lượng bằng nhau.
- Ý nghĩa quẻ kép Bát Quái kết hợp lại phải tốt lành tránh những quẻ xấu như quẻ Thiên Địa Bĩ
- Các số vận hành nên theo chiều thuận lý, theo quan niệm thông thường ta gọi là số tiến, tránh số ngược , Ví dụ : 8876.
Trong vũ trụ nói chung và trái đất nói riêng, hai khí Âm Dương vận động hình thành nên vạn vật hay thế giới vật chất được hình thành nên từ hai khí Âm và Dương. Người xưa phân chia một cách tương đối thế giới vật chất thành 5 loại vật chất biểu kiến, gọi là Ngũ Hành bao gồm : Kim, Mộc, Thuỷ, Hoả, Thổ.
Học thuyết Ngũ Hành là một trong những học thuyết cơ bản nhất của nền văn hoá thần bí Trung Hoa. Học thuyết Ngũ Hành được sáng tạo và vận dụng thể hiện một cách đầy đủ nhất và rõ ràng nhất trong tác phẩm Hoàng Đế Nội Kinh Tố Vấn. Một tác phẩm về Y Học Cổ Đại đã dùng học thuyết Ngũ Hành để vận dụng vào việc chữa bệnh. Tác phẩm này đã ra đời cách đây khoảng 3000 năm trước công nguyên. Như vậy, có thể nói học thuyết này được hình thành trước cả sự ra đời của Kinh Dịch.
Nội dung cơ bản của Học thuyết Ngũ Hành là mối liên hệ biện chứng duy vật giữa các sự vật hiện tượng trong giới tự nhiên. Năm loại vật chất này vận động, chuyển hoá và tác động lẫn nhau h́nh thành nên thế giới tự nhiên, xã hội và tư duy. Ngũ Hành vừa có tác động thúc đẩy, vừa có tác động ức chế lẫn nhau hình thành nên một vũ trụ luôn luôn vận động theo hình xuáy trôn ốc giống như quan điểm vật chất luôn vận động trong triết học Mác-Lênin. Nó có ứng dụng rộng rãi trên mọi lĩnh vực khoa học và đời sống.
Đặc tính ngũ hành được khái quát như sau :
+ Mộc : Là cây cỏ, gỗ nói chung, có tính chất sinh sôi, dài thẳng. Khí của Mộc làm cho vạn vật được tươi tốt.
+ Hoả : Là lửa, ánh sáng, có tính chất nóng hướng lên trên. Khí của Hoả làm cho vạn vật sinh trưởng, dồi dào.
+ Thổ : Là đất đai, có tính chất nuôi lớn, hoá dục. Khí của Thổ làm cho vạn vật được đầy đủ hình thể.
+ Kim : Là kim loại, có tính chất yên tĩnh, thu tàng. Khí của Kim làm cho vạn vật kết quả.
+ Thuỷ : Là nước, có tính chất hàn lạnh hướng xuống. Làm cho vạn vật tĩnh lặng, bế tàng.
Ngũ Hành tuân theo những quy luận vận động nhất định, có hai quan hệ giữa các Hành, đó là quan hệ tương sinh và tương khắc, tiêu biểu cho quá trình thúc đẩy, chuyển hoá và ức chế lẫn nhau của vật chất.
Tương sinh có nghĩa là cùng bồi bổ, thúc đẩy, trợ giúp cho nhau : Mộc sinh Hoả, Hoả sinh Thổ, Thổ sinh Kim, Kim sinh Thuỷ, Thuỷ sinh Mộc.
Ta có thể hiểu một cách đơn giản về quy luật Ngũ Hành tương sinh như sau : Cây cỏ khi bị đốt cháy sinh ra lửa, như vậy là Mộc sinh Hoả. Hoả khi bị đốt cháy sẽ biến thành tro, tro lại trở về thành đất. Như vậy là Hoả sinh Thổ. Đất đai nuôi dưỡng trong mình nó những quặng kim loại. Như vậy là Thổ sinh Kim. Kim loại khi bị nung chảy thì biến thành nước phản ảnh quy luật Kim sinh Thuỷ. Thuỷ là nước lại tưới nuôi dưỡng cây, đó là Thuỷ sinh Mộc.
Tương khắc là chế ngự khống chế lẫn nhau: Mộc khắc Thổ, Thổ khắc Thuỷ, Thuỷ khắc Hỏa, Hoả khắc Kim, Kim khắc Mộc.
Ta có thể hiểu một cách đơn giản về quy luật Ngũ Hành tương khắc như sau : Cây cỏ sống dựa vào đất, hút hết màu mỡ và tinh tuý của đất để phát triển phản ánh quy luật Mộc khắc Thổ. Đất dùng để ngăn đê, đắp đập chống lại nước. Như vậy là Thổ khắc Thuỷ. Nước dùng để dập tắt lửa phản ánh quy luật Thuỷ khắc Hoả. Lửa nấu chảy kim loại nên Hoả khắc Kim. Kim loại lại chế ra dụng cụ chặt cây cối nên Kim khắc Mộc.
Ngoài ra còn một số yếu tố khác mà những người am tường về Âm Dương Ngũ hành mới quán xét được mà trong phạm vi trang web này chúng tôi chỉ giới thiệu đại cương để bạn đọc nắm vững cơ bản.Trên đây chỉ là những mô tả rất đơn giản, thực tế Ngũ Hành tượng trưng cho loại vật chất trong vũ trụ, những quy luật tương sinh tương khắc phản ánh quá tŕnh tương tác của thế giới vật chất. Mặc dù thế giới vật chất vốn bao la, vô cùng vô tận nhưng người xưa lại có thể phân chia và phát hiện ra những quy luật chi phối, điều đó quả là kỳ diệu.


text:
Sàn nhạc sử dụng tốt nhất ở trình duyệt Firefox
Để thu âm và sử dụng sannhac một cách dễ dàng, bạn hãy cài đặt phầm mềm sau
Bắt đầu cài đặt Firefox
để duyệt web nhanh hơn
Đăng nhập
|
Đăng ký
Tên đăng nhập
Mật khẩu
Ghi nhớ
Quên mật khẩu
|
Gửi lại mail kích hoạt
Trang chủ
Phòng thu
Sàn đấu
Club
Hát Live

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Identified-Payload-Type: application/xhtml+xml

Server: Apache

Set-Cookie: viewbeat=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; Max-Age=0

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

Connection: close

Content-Type: text/html; charset=UTF-8


text:
Lập trình Visual Basic - Bài 1
Chia sẻ: Anh Dung | Ngày: | Loại File: PDF | Số trang:36
lượt xem 194
download
Lập trình Visual Basic - Bài 1
Visual Basic (Visual Basic) là sản phẩm của Microsoft, một thành phần phần của bộ Visual Studio. Chức năng: Là một ngôn ngữ lập trình dùng để xây dựng các ứng dụng chạy trên môi trường Windows. Đặc điểm: Trực quan, cung cấp các công cụ thuận lợi cho việc tạo các giao diện. Cài đặt: từ đĩa CD VB6.0, chạy file setup, thực hiện các bước theo hướng dẫn. Khởi động: Start/Programs/Microsoft Visual Basic 6.0/Microsoft V Basic 6.0 Phiếu New: standard EXE tạo mới một ứng dụng (Project)....
Bình luận(0) Đăng nhập để gửi bình luận!
Nội dung Text: Lập trình Visual Basic - Bài 1
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic BÀI 1. CƠ BẢN VỀ VISUAL BASIC I. Giới thiệu về Visual Basic Visual Basic (Visual Basic) là sản phẩm của Microsoft, một thành phần phần của bộ Visual Studio. Chức năng: Là một ngôn ngữ lập trình dùng để xây dựng các ứng dụng chạy trên môi trường Windows. Đặc điểm: Trực quan, cung cấp các công cụ thuận lợi cho việc tạo các giao diện. Cài đặt: từ đĩa CD VB6.0, chạy file setup, thực hiện các bước theo hướng dẫn. Khởi động: Start/Programs/Microsoft Visual Basic 6.0/Microsoft V Basic 6.0 Phiếu New: standard EXE tạo mới một ứng dụng (Project). Phiếu Existing: mở ứng dụng đã có. Cửa sổ giao diện của Visual Basic thường có các cửa sổ con, qui định việc ẩn hiện bằng các thao tác: - View/Project Explorer: trình bày các thành phần của một ứng dụng. - View/Properties Window: trình bày các thuộc tính của đối tượng được chọn. - View/ Form Layout Window: quy định vị trí xuất hiện của cửa sổ kết quả. Mỗi ứng dụng là một chương trình bao gồm các chương trình con tương ứng với từng sự kiện. Chọn View/Code để viết và xem mã lệnh của các chương trình con này. Chọn View/Object để thiết kế giao diện cho ứng dụng. VB lưu giữ các thông tin của một ứng dụng bằng nhiều tập tin .FRM (nội dung form), .VBP (chương trình chính),…Vì vậy nên tạo thư mục riêng cho từng ứng dụng. II. Các thao tác cơ bản khi xây dựng ứng dụng 1. Tạo mới một ứng dụng, mở một ứng dụng sẵn có: thao tác như đã nói trong mục trên. 2. Lưu một ứng dụng: chọn biểu tượng Save Project, đặt tên cho các tập tin .FRM, .VBP. Chú ý rằng phục vụ cho cùng một ứng dụng có nhiều tập tin. 3. Tạo một đối tượng (ô điều khiển): chọn loại đối tượng trong Toolbox rồi vẽ lên form. 4. Quy định thuộc tính cho đối tượng: chọn đối tượng, chọn thuộc tính, xác lập giá trị cho thuộc tính trong Properties Window. 5. Viết mã lệnh: nhắp đúp lên đối tượng hoặc View/Code rồi viết mã lệnh tương ứng. Trên cửa sổ Code có thể chọn đối tượng và sự kiện của đối tượng trên các combobox. 6. Chạy chương trình: F5 hoặc chọn Run/start hoặc chọn nút start trên thanh công cụ. 7. Thoát khỏi VB: như các ứng dụng khác trên windows III. Các khái niệm cơ bản. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 1
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic 1. Đối tượng và các khái niệm liên quan. Hoạt động của một chương trình VB hầu như đều liên quan đến một số các đối tượng nào đó. Các đối tượng này có thể là Form, có thể là các ô điều khiển như Label, Textbox, Command Button,…Một đối tượng có thể có các thành phần sau: + Thuộc tính (property): quy định những tính chất của đối tượng như kích thước, màu sắc, vị trí, giá trị,… Cú pháp: .= Ví dụ: txt1.text=”Visual Basic” Các thuộc tính thông dụng của các đối tượng: - Name: tên để phân biệt với đối tượng khác, dùng để truy xuất đến các giá trị thuộc tính của đối tượng. Tên không chứa khoảng trống, không gõ dấu tiếng Việt. Tên của các đối tượng nên đặt kèm theo phía trước là loại của đối tượng đó: Form: frm, TextBox: txt, Command: Cmd, Label: Lbl, ComboBox: Cmb,…để thuận lợi cho việc khai báo biến về sau. - Caption: Tiêu đề của đối tượng. - Font: qui định font chữ cho đối tượng. - BackColor: màu nền của đối tượng. - Height, Width: chiều cao, độ rộng của đối tượng. - Left, Top: vị trí từ biên trái và biên trên đến góc trên trái của đối tượng. - Visible: hiển thị (true) hay không hiển thị (false) đối tượng khi chạy ứng dụng. + Phương thức (method): hoạt động chủ động (không có tác động bên ngoài) của bản thân đối tượng như khi chương trình bắt đầu chạy,… + Sự kiện (event): hoạt động bị động của đối tượng như xảy ra khi kích chuột,… Cú pháp . Ví dụ Form1.show 2. Phương pháp lập trình hướng sự kiện. + Dùng giao diện để tương tác giữa người dùng và chương trình. + Người dùng phải hoạch định thứ tự cho các sự kiện. + Thứ tự các đoạn mã lệnh ứng với các sự kiện là không quan trọng. + Trên một đối tượng có thể có nhiều sự kiện khác nhau. IV. Các đối tượng cơ bản. 1. Form Là đối tượng chứa một số đối tượng khác của một ứng dụng. Khi chạy nó là màn hình giao diện của ứng dụng. Một số sự kiện của form: - Initialize: được hệ thống kích hoạt đầu tiên nên có thể dùng để thiết lập các thuộc tính ban đầu cho form. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 2
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic - Load: xảy ra sau sự kiện trên có thể thiết lập các thuộc tính ban đầu cho các đối tượng của form. - Click: xảy ra khi nguời dùng nhắp chuột trên form. Một số phương thức của form: - Show: hiển thị form lên màn hình, sau khi show được gọi các phương thức của các ô điều khiển khác trên form mới thực hiện được. - Hide: che giấu một form nhưng không giải phóng bộ nhớ. - Load: nạp form vào bộ nhớ nhưng chưa xuất hiện trên màn hình. - Unload: ngược lại của Load Có thể dùng tên ngầm định “Me” thay cho tên Form đang xử lý. 2. Label. Đối tượng dùng để hiển thị thông tin như lời chú giải, lời nhắc (1) cũng có thể được dùng để xuất kết quả (2). Thuộc tính thường dùng là Caption. Những Label (1) thường xác lập thuộc tính trong cửa sổ properties. Các label (2) dùng lệnh dạng .Caption = “Nội dung” 3. TextBox. Đối tượng dùng để nhập, xuất dữ liệu. Thuộc tính quan trọng nhất là Text, chứa dữ liệu của ô, mặc định có kiểu chuỗi. Vì vậy, cần chuyển đổi kiểu nếu muốn sử dụng dữ liệu ở các kiểu khác. TextBox không có thuộc tính Caption. Một số thuộc tính, sự kiện khác: - ScrollBars: thuộc tính qui định thanh cuốn ngang, dọc có hay không. - Maxlength: thuộc tính qui định chiều dài tối đa của dữ liệu nhập vào. - Change: sự kiện xảy ra khi dữ liệu của ô bị thay đổi. - GotFocus: sự kiện xảy ra khi con trỏ được nhảy vào ô. - LostFocus: sự kiện xảy ra khi con trỏ nhảy ra khỏi ô. - SetForcus: phương thức nhằm đưa con trỏ vào ô. 3. Command Button Đối tượng thường dùng để điều khiển việc thực hiện một công việc nào đó của ứng dụng. Sự kiện thường dùng Click để thi hành một đoạn mã lệnh tương ứng. Kí hiệu & trong Caption của một command button có tác dụng tạo phím nóng, người sử dụng gõ ctrl+kí hiệu sau dấu & có tác dụng như nhắp chuột. V. Ví dụ xây dựng ứng dụng trên VB Xem hướng dẫn trong phần bài tập 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 3
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic BÀI TẬP SỐ 1 Bài tập 1.1 Tạo ứng dụng tính diện tích hình chữ nhật có giao diện như sau: Khi chạy ứng dụng, nhập chiều dài, chiều rộng, nhấn nút tính kết quả xuất hiện trong ô diện tích. Khi nhấn nút tiếp tục, chương trình xóa các số cũ để nhập dữ liệu mới. Nhấn nút thoát để đóng Form, quay về VB. Hướng dẫn: + Khởi động VB, tạo các label “Tính diện tích hình chữ nhật”, “chiều dài”, “chiều rộng”, “diện tích”. Nội dung các mục được quy định trong thuộc tính Caption của từng label. + Tạo các Textbox để nhập chiều dài, chiều rộng và xuất kết quả là diện tích. Đặt tên lần lượt cho các Textbox trên là a, b, S trong thuộc tính Name của từng Textbox. Để trống thuộc tính Text của các Textbox này. + Tạo các Command Button “Tính”, “Tiếp tục”, “Thóat” và nhắp đúp lên nút lệnh để mở của sổ Code và viết mã cho các nút lệnh này như sau: Mã của Command1 Private Sub Command1_Click() s.Text = a * b End Sub Mã của Command2 Private Sub Command2_Click() a.Text = "" b.Text = "" s.Text = "" a.SetFocus End Sub Mã của Command3 Private Sub Command3_Click() Unload Form1 End Sub Phương thức a.SetFocus với mục đích đưa con trỏ đến ô để nhập chiều dài. Để làm điều này trong lần chạy đầu tiên ứng với thời điểm Form1 được khởi động, ta nhấp đúp lên Form1 và viết mã lệnh sau: Private Sub Form_Load() Show a.Text = "" a.SetFocus End Sub 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 4
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài 1.2 Tạo ứng dụng tính diện tích hình thang khi nhập đáy lớn, đáy nhỏ, chiều cao. Bài 1.3 Tạo ứng dụng để nhập vào 2 số nguyên, tính cộng, trừ, nhân, chia 2 số đó với giao diện như sau: BÀI 2. NGÔN NGỮ LẬP TRÌNH VISUAL BASIC I. Các kiểu dữ liệu cơ bản. Mỗi kiểu dữ liệu quy định một tập hợp các giá trị và một tập các phép toán được sử dụng trên tập giá trị đó. 1. Kiểu số nguyên. Tuỳ nhu cầu sử dụng số nhỏ hay lớn mà ta dùng kiểu phù hợp trong số các kiểu sau: a. Byte: kích thước 1 byte, phạm vi từ 0 đến 255. b. Integer: kích thước 2 bytes, phạm vi từ -32768 đến 32767. c. Long: kích thước 4 bytes, phạm vi từ -231 đến 231-1. Các phép toán: cộng, trừ, nhân, chia, luỹ thừa, div, mod tương ứng với các kí hiệu +, - , *, /, ^, \, mod. Trong đó, div là phép chia lấy phần nguyên, mod là phép chia lấy phần dư. 2. Kiểu số thực. a. Single: kích thước 4 byte, xác định đến 38 chữ số. b. Double: kích thước 8 byte, xác định đến 300 chữ số. 3. Kiểu chuỗi (string) Chuỗi được đặt giữa hai dấu “ ” có độ dài đủ lớn. Phép toán: nối chuỗi ứng với kí hiệu & hoặc +. Chú ý những trường hợp kết quả sai do VB chuyển kiểu tự động. 4. Kiểu logic (Boolean) Chỉ có hai giá trị True, false hoặc 1,0. Các phép toán gồm hội, tuyển, phủ định ứng với kí hiệu and, or, not. 5. Kiểu ngày, giờ (Date) 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 5
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Kích thước 8 byte ghi được cả ngày lẫn giờ. Thông thường nếu chỉ dùng ngày ta viết giữa hai dấu #. Ví dụ: #22/12/2007#, #22-12-2007# Phép toán: cộng, trừ giữa ngày và số; và phép trừ giữa ngày và ngày. Chú ý: Tất cả các kiểu trên đều có phép so sánh =, , >,=,
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic x + Exp(x): e + Log(x): ln(x) + Sin(x), Cos(x), Tan(x): các hàm lượng giác tương ứng. + Rnd(): trả về số thực ngẫu nhiên trong đoạn [0,1], kích hoạt trước bằng thủ tục Randomize. 2. Một số hàm thời gian. + Day(ngày), Month(ngày), Year(ngày): trả về ngày, tháng, năm của một giá trị ngày. + WeekDay(ngày): trả về số nguyên là thứ của ngày trong tuần, ngoại lệ chủ nhật là số 1. 3. Một số hàm kiểu chuỗi. + Ucase(chuỗi): trả về chuỗi chữ in. Lcase(chuỗi): trả về chuỗi chữ thường. + Ltrim(chuỗi), Rtrim(chuỗi), Trim(chuỗi): cắt bỏ khoảng trống bên trái, bên phải, cả hai bên chuỗi. + Left(chuỗi,n), Right(chuỗi,n): lấy n kí tự của chuỗi từ bên trái, bên phải. + Len(chuỗi): trả về độ dài của chuỗi. + Mid(chuỗi,m,n): trả về n kí tự bắt đầu từ vị trí thứ m. + InStr(n, chuỗi 1, chuỗi 2): trả về vị trí xuất hiện của chuỗi 2 trong chuỗi 1 bắt đầu từ vị trí thứ n của chuỗi 1. + Replace(chuỗi 1, chuỗi 2, chuỗi 3): thay chuỗi 2 trong chuỗi 1 bằng chuỗi 3. 4. Một số hàm chuyển kiểu. + Val(chuỗi) : trả về số tương ứng với chuỗi. + CStr(số): trả về chuỗi tương ứng với số. + Cdate(chuỗi): trả về ngày tương ứng với chuỗi. IV. Ví dụ. Bài tập 2.1 BÀI TẬP SỐ 2 Bài tập 2.1 Tạo ứng dụng để bốc thăm số xe bằng cách sinh số ngẫu nhiên có 4 chữ số theo giao diện sau: + Số 9142 trong textbox text1 được sinh ngẫu nhiên khi nhấp chuột vào nút lệnh “tạo số ngẫu nhiên”. + Chương trình dừng khi nhấp nút “Kết thúc”. + Mã lệnh cho nút “tạo số ngẫu nhiên” như sau Private Sub Command1_Click() Randomize Text1.Text = Round(1000 + Rnd() * 8999) End Sub 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 7
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Cải tiến để sinh số ngẫu nhiên trong đoạn [a,b] với a, b nhập vào từ bàn phím. Bài tập 2.2 Tạo ứng dụng tính diện tích hình tròn có bán kính nhập vào từ bàn phím, trong đó khai báo hằng pi =3.1416 Bài tập 2.3 Tạo ứng dụng để khi nhập vào nơi sinh của bạn gồm huyện (thành phố), tỉnh cách nhau bởi một dấu gạch nối - , chương trình sẽ tự động tách riêng tên huyện (thành phố), tên tỉnh với giao diện như sau: Khi nhấp “tiếp tục” xoá trống các ô để thực hiện lượt mới. Mã lệnh cho nút “Tách”: Private Sub Command1_Click() Dim huyen As String, tinh As String Dim n As Byte n = InStr(1, Text1.Text, "-") huyen = Mid(Text1.Text, 1, n - 1) tinh = Mid(Text1.Text, n + 1) Text2.Text = huyen Text3.Text = tinh End Sub Mã lệnh cho nút “Tiếp tục”: Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub BÀI 3. CÁC CẤU TRÚC ĐIỀU KHIỂN I. Cấu trúc rẽ nhánh. 1. IF…THEN… Công dụng. Lựa chọn một trong hai công việc cần thực hiện. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 8
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Cú pháp. If then [Else ] End If Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc 1 ngược lại thực hiện công việc 2 (nếu có). Ví dụ. Kiểm tra một số nguyên n là chẵn hay lẻ. 2. SELECT CASE… Công dụng. Lựa chọn một trong nhiều công việc cần thực hiện. Cú pháp: Select case Case ………… Case [Case Else ] End Select Điều khiển: Lần lượt kiểm tra giá trị của từ trên xuống, nếu rơi vào danh sách giá trị nào thì thực hiện công việc nấy rồi thoát khỏi khối lệnh. Công việc n+1 (nếu có) được thực hiện khi giá trị không rơi vào bất kỳ danh sách giá trị nào ở trên. Danh sách giá trị có dạng: giá trị 1, giá trị 2,…giá trị n hoặc giá trị 1 To giá trị n (nếu các giá trị này liên tục) Từ khoá Is được dùng trong trường hợp giá trị của biểu thức cần so sánh hơn, kém. Ví dụ: Xếp loại sinh viên theo điểm trung bình Select case dtb Case Is>=9 Loai=”Xuất sắc” Case Is>=8 Loai=”Giỏi” Case Is>=7 Loai=”Khá” Case Is>=6.5 Loai=”TB khá” Case Is>=5 Loai=”TB” Case Else Loai=”Yếu” End Select 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 9
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Chú ý. Điều khiển để chương trình nhảy đến một vị trí bất kỳ bằng lệnh Goto Trong đó nhãn có dạng 3. Ví dụ. Xem bài tập 3.1 BÀI TẬP 3 Bài tập tập 3.1 Tạo ứng dụng máy tính cho phép nhập số và thực hiện các phép tính cộng, trừ, nhân chia với các số nguyên với giao diện như sau: Hướng dẫn: + Tạo textbox txtso để xuất hiện các số được chọn và kết quả. + Tạo các Command ứng với các số, các phép toán,.. + Viết các mã lệnh gợi ý như sau, chú ý rằng các biến pt (phép toán), so1 giữ số thứ nhất của phép toán phải là các biến toàn cục Option Explicit Dim pt As String Dim so1 As Integer Private Sub cmd0_Click() txtso = txtso & "0" End Sub Private Sub cmd1_Click() txtso = txtso & "1" End Sub ……………………………. Private Sub cmd9_Click() txtso = txtso & "9" End Sub Private Sub cmdcong_Click() so1 = Val(txtso) txtso.Text = "" pt = "+" End Sub Private Sub cmdtru_Click() so1 = Val(txtso) txtso.Text = "" pt = "-" End Sub Private Sub cmdnhan_Click() so1 = Val(txtso) 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 10
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic txtso.Text = "" pt = "*" End Sub Private Sub cmdchia_Click() so1 = Val(txtso) txtso.Text = "" pt = "/" End Sub Private Sub cmdbang_Click() Dim kq As Single, so2 As Single so2 = Val(txtso.Text) Select Case pt Case "+": kq = so1 + so2 Case "-": kq = so1 - so2 Case "*": kq = so1 * so2 Case "/" If so2 = 0 Then txtso.Text = "không chia được" GoTo abc Else kq = so1 / so2 End If End Select txtso.Text = kq abc: End Sub Private Sub cmdxoa_Click() txtso = "" End Sub Private Sub cmdthoat_Click() Unload Me End Sub Bài tập 3.2 Tạo ứng dụng giải phương trình bậc hai ax2 + bx + c = 0. Bài tập 3.3 Tạo ứng dụng để khi nhập vào một tháng của năm nào đó, chương trình cho biết số ngày của tháng này. Biết rằng các tháng 1,3,5,7,8,10,12 có 31 ngày; các tháng 4,6,9,11 có 30 ngày; tháng 2 năm nhuận có 29 ngày, năm không nhuận có 28 ngày. Năm nhuận là năm chia hết cho 400 hoặc là năm chia hết cho 4 mà không chia hết cho 100. BÀI 4. CÁC CẤU TRÚC LẶP I- FOR…NEXT Công dụng. Thực hiện công việc lặp lại với số lần lặp biết trước. Cú pháp. For To [step n] Next Điều khiển: + B1. Biến_điều_khiển nhận giá_trị_đầu 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 11
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic + B2. Nếu biến_điều_khiển nhỏ hơn hoặc bằng giá_trị_cuối thì thực hiện công việc rồi tăng biến_điều_khiển lên n rồi quay lại B2. + B3. Nếu biến_điều_khiển lớn hơn giá_trị_cuối thì kết thúc điều khiển. Exit For : được dùng trong khi nào muốn thoát khỏi vòng lặp ngay lập tức (không chờ biến điều khiển lớn hơn giá trị cuối). Ví dụ. Đoạn chương trình sau tính tổng các số nguyên từ 1 đến n (nhập trong txtn) Dim S As Integer Dim i As Integer, n As Integer S=0 n = Val(txtn.Text) For i = 1 To n S=S+i Next lblkq.Caption = "Kết quả là" & S II. DO WHILE…LOOP Công dụng. Thực hiện công việc lặp lại với số lần lặp không xác định trước. Cú pháp 1. Do while Loop Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc và lặp lại cho đến khi điều kiện không thoả mãn thì thoát khỏi cấu trúc này. Cú pháp 2. Do Loop Until Điều khiển: Tương tự như cú pháp 1 nhưng kiểm tra điều kiện sau khi thực hiện công việc. Ví dụ. Tính số tháng cần thiết gửi ngân hàng với số vốn là v = 100.000.000 đồng, mức lãi suất k= 0.65% tháng để có được cả vốn lẫn lãi số tiền là t = 115.000.000 đồng (biết rằng không rút lãi hàng tháng). Private Sub Tinh_Click() Dim v As Single, k As Single, st As Single, thang As Byte v = Val(txtv) k = Val(txtk) st = Val(txtst) thang = 0 Do While v < st thang = thang + 1 v = v * (1 + k) Loop txtkq.Text = thang End Sub BÀI TẬP Bài tập 4.1 Lập ứng dụng tính n! với n nguyên dương nhập từ bàn phím. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 12
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài tập 4.2 Lập ứng dụng tìm ước chung lớn nhất của 2 số nguyên dương nhập từ bàn phím. Hướng dẫn: Tạo giao diện như sau + Textbox txta: để nhập số thứ nhất + Textbox txtb: để nhập số thứ nhất + Label lblkq: thông báo kết quả Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer a = Val(txta.Text) b = Val(txtb.Text) Do While b 0 r = a Mod b a=b b=r Loop lblkq.Caption = "Ước chung lớn nhất của " & txta.Text & " và " & txtb.Text & " là" & a End Sub Private Sub Command2_Click() Unload Me End Sub BÀI 5. BIẾN MẢNG I. Biến mảng. Khái niệm: Mảng là tập hợp hữu hạn các phần tử cùng kiểu, cùng tên và phân biệt theo chỉ số. Khai báo: Dim Tên_mảng(n) [As kiểu_phần_tử] Sẽ tạo mảng n phần tử được đánh chỉ số từ 0 đến n-1. Ví dụ: Dim A(5) As Integer Khai báo: Dim Tên_mảng(n1 to n2) [As kiểu_phần_tử] Sẽ tạo mảng gồm các phần tử được đánh chỉ số từ n1 đến n2. Ví dụ: Dim A(3 to 5) As Integer Truy xuất: Tên_mảng(i) dùng để truy xuất đến giá trị của phần tử có chỉ số i của mảng. Chú ý: + Hàm Lbound(Tên_mảng): trả về chỉ số nhỏ nhất của mảng, Ubound(Biến_mảng): trả về chỉ số lớn nhất của mảng. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 13
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic + Khai báo mảng hai chiều: Dim Tên_mảng(m,n) [As kiểu_phần_tử] Dim Tên_mảng(n1 to n2, n3 to n4) [As kiểu_phần_tử] + Truy xuất mảng hai chiều: Tên_mảng(i,j) dùng để truy xuất đến giá trị của phần tử nằm trên dòng i, cột j của mảng. + Mảng có số phần tử không xác định trước (mảng động): Khai báo: Dim Tên_mảng( ) [As kiểu_phần_tử] Thao tác: Redim Dim Tên_mảng(n): thực sự tạo mảng n phần tử. + Mảng gán giá trị trước: Chỉ dùng đối với mảng động và có kiểu phần tử là Variant, chỉ số từ 0 trở đi. Ví dụ Dim a( ) A=Array(“Một”, “hai”,”ba”) II. Mảng các ô điều khiển Trường hợp dùng mảng ứng với các ô điều khiển trên Form (thường là các TextBox) thuận tiện nhất là dùng mảng các ô điều khiển. Mảng các ô điều khiển là một biến mảng đặc biệt mà mỗi phần tử của mảng ứng với một ô điều khiển. Khi tạo ra các ô điều khiển này ta đặt tên trùng nhau, tên này ứng với tên của mảng; chỉ số trong thuộc tính Index khác nhau ứng với chỉ số của phần tử. BÀI TẬP 5 Bài tập 5.1 Nhập vào ngày sinh của bạn, thông báo ngày này rơi vào thứ mấy (bằng tiếng Việt). Private Sub Command1_Click() Dim TenThu() TenThu = Array("Chủ nhật", "thứ hai", "thứ ba", "thứ tư", "thứ năm", "thứ sáu", "thứ bảy") Dim ngay As Date, thu As Byte ngay = CDate(txtngay) thu = Weekday(ngay) If thu = 1 Then Lblkq.Caption = "Bạn sinh vào " & TenThu(0) Else Lblkq.Caption = "Bạn sinh vào " & TenThu(thu - 1) End If End Sub Bài tập 5.2 Sinh ngẫu nhiên 4 số nguyên dương trong đoạn từ 0 đến 100. Sắp xếp các số này thành một dãy số tăng. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 14
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Option Explicit Const n As Byte = 4 Private Sub Command3_Click() Dim i As Integer, j As Integer Randomize For i = 0 To n - 1 txta(i).Text = Round(Rnd() * 100, 0) Next End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer Dim tg As Integer For i = 0 To n - 2 For j = i + 1 To n - 1 If Val(txta(i).Text) > Val(txta(j).Text) Then tg = Val(txta(i).Text) txta(i).Text = txta(j).Text txta(j).Text = tg End If Next Next End Sub BÀI 6. CHƯƠNG TRÌNH CON I. Khái niệm – Phân loại Khái niệm: Một chức năng tương đối độc lập được sử dụng lặp lại nhiều lần được tổ chức thành một đoạn mã lệnh được gọi là chương trình con (CTC). Ví dụ. Tìm UCLN của hai số nguyên được sử dụng trong quy đồng mẫu số, tối giản phân số nên thường được thiết kế thành một chương trình con. Phân loại: + Hàm: CTC tính toán trả về một giá trị. + Thủ tục: CTC thực hiện một công việc không trả về giá trị nào. Phạm vi: + CTC viết trong Code của Form nào chỉ hoạt động được cho Form đó. + CTC viết trong Modules sẽ hoạt động được trong toàn Project (Chọn Project/Add Modules, viết chương trình con, khi lưu một Modules (đơn thể) sẽ tạo ra một tập tin . Bas tương ứng. Tập tin .Bas có thể thêm vào (Add) vào một Project khác. Trong một Modules có thể chứa nhiều CTC. II. Cấu trúc của chương trình con 1. Hàm Function ([ds tham số]) As Các lệnh 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 15
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Tên_hàm = End Function + Tên hàm: tự đặt theo quy tắc như quy tắc đặt tên biến. + ds tham số: là nhiều tham số khai báo như danh sách biến. + là kết quả trả về của hàm. + Trong hàm có thể dùng Exit Function để thoát khỏi hàm Ví dụ: Hàm tính UCLN của hai số nguyên Function UCLN(a As Integer, b As Integer) As Integer Do While b 0 r = a Mod b a=b b=r Loop UCLN = a End Function 2. Thủ tục Sub ([ds tham số]) Các lệnh End Sub Ví dụ. Hoán vị giá trị của hai biến Sub hoanvi(a As Integer, b As Integer) Dim tg As Integer tg = a a=b b = tg End Sub III. Truyền tham số cho chương trình con Thông thường, CTC đều có tham số. Gọi CTC là thực hiện chính CTC đó với những giá trị tham số thực sự. Cách gọi như sau; + Đối với thủ tục: Tên_thủ_tục [ds_tham_số_thực sự] Ví dụ Dim x as Integer, y as Integer x=1 y=2 Hoanvi x,y + Đối với hàm: Tên_hàm([ds tham số thực sự]) Ví dụ UCLN(3,7) Chú ý: + Truyền theo trị và truyền theo biến: Xét đoạn chương trình sau: x=3 y=7 z = UCLN(x, y) Text1.Text = x Giá trị của x sau câu lệnh cuối cùng là bao nhiêu. Câu trả lời là 1. Biến x này đã bị thay đổi trong quá trình tính ước chung lớn nhất của x và y. Đây là điều không nên. Để điều này không xảy ra, ta sửa lại tiêu đề của hàm này như sau: Function UCLN(byval a As Integer, byval b As Integer) As Integer 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 16
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Truyền tham số x, y cho a,b lúc này là truyền theo trị (by value). Hoạt động của CTC sẽ không làm thay đổi giá trị của biến x, y. Truyền tham số trong trường hợp trước (tham số khi khai báo không có từ khoá Byval hoặc khai báo bằng từ khoá ByRef) là truyền theo biến. Hoạt động của CTC sẽ làm thay đổi giá trị của biến x, y. Vì vậy, nên hạn chế việc truyền tham số theo biến vì khó quản lý những hiệu ứng xảy ra khi CTC thực hiện. + Khi truyền tham số CTC sẽ kiểm tra chặt chẽ kiểu của tham số vì vậy phải chú ý sự phù hợp giữa kiểu dữ liệu của tham số thực sự và tham số hình thức. Chú ý: Những chương trình con được viết trong VB có thể bổ sung vào cho các cơ sở dữ liệu trong Access và dùng như một hàm chuẩn trong Access. Xem hướng dẫn ở bài tập 6.2. BÀI TẬP 6 Bài tập 6.1 Tạo ứng dụng hướng dẫn cho học sinh phổ thông kiểm tra việc cộng hai phân số. Các đối tượng chính: txta, txtb, txtc, txtd, txta1, txtb1, txtc1, txtd1, txte1, txtf1, txtp, txtq; Mã lệnh cho nút Quy đồng mẫu số, cộng: Private Sub Command1_Click() Dim msc As Integer, a As Integer, b As Integer, c As Integer, d As Integer a = Val(txta.Text) b = Val(txtb.Text) c = Val(txtc.Text) d = Val(txtd.Text) msc = b * d \ ucln(b, d) Txta1.Text = a * msc \ b txtb1.Text = msc txtc1.Text = c * msc \ d txtd1.Text = msc txte1.Text = (Txta1.Text) + Val(txtc1.Text) txtf1.Text = msc End Sub Mã lệnh cho nút rút gọn Private Sub Command2_Click() Dim tg As Integer, e As Integer, f As Integer tg = ucln(Val(txte1.Text), Val(txtf1.Text)) e = Val(txte1.Text) \ tg f = Val(txtf1.Text) \ tg 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 17
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic If (f = 1) Or (e = 0) Then txtp.Text = e Else txtp.Text = e txtq.Text = f End If End Sub Cần thiết phải có hàm tính UCLN cụ thể đã nói ở trên với tiêu đề cho hàm như sau: Function UCLN(byval a As Integer, byval b As Integer) As Integer Do While b 0 r = a Mod b a=b b=r Loop UCLN = a End Function Bài tập 6.2 Viết hàm tách tên trong chuỗi họ và tên. Thiết kế ứng dụng sử dụng hàm này như sau: Đối tượng chính txthoten, txtkq; nút lệnh Tách tên Command1 Hàm và mã lệnh: Function Tachten(ByVal S As String) As String Dim i As Byte S = RTrim(S) i = Len(S) Do While Mid(S, i, 1) " " i=i-1 Loop Tachten = Mid(S, i + 1) End Function Private Sub Command1_Click() Txtkq.Text = Tachten(Txthoten.Text) End Sub Bây giờ ta sẽ dùng hàm này để tách riêng tên của khách hàng trong bảng Nhap Xuat Vat Tu (tập tin QUANLY.MDB) đã thực hành trong môn Access trước đây: + Mở CSDL QUANLY.MDB trong Access + Chọn Modules/New + Chép hàm Tachten trong VB vào Modules này, lưu lại + Trong Access, tạo Query lấy dữ liệu từ bảng Nhap Xuat Vat Tu có cột thứ nhất là HoTenKH, cột thứ hai là TenKH, là một biểu thức dùng hàm Tachten([HoTenKH]). Tương tự, bạn có thể viết hàm đổi họ tên khách hàng thành dạng chuẩn để sử dụng cho bài tập số 2 (phần Form trong Access): khi nhập xong họ và tên khách hàng trên Form thì tự động đổi thành dạng chuẩn. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 18
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài tập 6.3 Tham khảo hàm đọc số thành chữ sử dụng trong các hoá đơn, phiếu tính tiền sau đây: Function doc3so(n As Integer) As String Dim chu(1 To 9) As String chu(1) = "một " chu(2) = "hai " chu(3) = "ba " chu(4) = "bốn " chu(5) = "năm " chu(6) = "sáu " chu(7) = "bảy " chu(8) = "tám " chu(9) = "chín " Dim ht, hc, dv As Byte Dim s As String ht = n \ 100 dv = n Mod 10 hc = ((n - dv) \ 10) Mod 10 s = "" If ht > 0 Then s = chu(ht) + "trăm " End If Select Case hc Case 0: If (ht > 0 And dv 0) Then s = s + "lẻ " End If Case 1: s = s + "mười " Case Else s = s + chu(hc) + "mươi " End Select Select Case dv Case 0: Case 1: If (hc = 0 or hc=1) Then s = s + "một " Else s = s + "mốt " End If Case 5: If hc = 0 Then s = s + "năm " Else s = s + "lăm " End If Case Else 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 19
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic s = s + chu(dv) End Select doc3so = s End Function Function docnso(n As Long) As String Dim t As String Dim s As String Dim s1 As String Dim i As Byte Dim j As Byte Dim n1 As Integer Dim ch(1 To 4) As String ch(1) = "" ch(2) = "ngàn " ch(3) = "triệu " ch(4) = "tỷ " t = Trim(Str(n)) Do While (Len(t) Mod 3 0) t = "0" + t Loop s = "" j=1 For i = Len(t) - 2 To 1 Step -3 s1 = Mid(t, i, 3) n1 = Val(s1) s = doc3so(n1) + ch(j) + s j=j+1 Next docnso = s End Function Private Sub Command1_Click() Dim n As Long Dim s As String n = Val(so.Text) s = docnso(n) kq = s End BÀI 7. LISTBOX, COMBOBOX, SCROLLBAR I. LISTBOX ListBox là loại đối tượng điều khiển cho phép người dùng chọn một số mục trong các mục được liệt kê bởi một danh sách. Một số thuộc tính cơ bản: + List: chứa nội dung các mục của ListBox bằng một mảng, mỗi phần tử là một chuỗi có nội dung tương ứng với các mục. Mảng này được đánh chỉ số bắt đầu từ 0. Như vậy, để lấy mục thứ i ta dùng .(i). Nhập danh sách: chọn thuộc tính List, gõ nội dung, ctrl+Enter; kết thúc bằng Enter. + ListIndext: cho biết số thứ tự của đang chọn (tính từ 0) + ListCount: cho biết số mục của danh sách Một số phương thức cơ bản (được dùng khi viết mã lệnh) + AddItem: Thêm một mục “Nội dung” vào danh sách tại vị trí i, theo cú pháp 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 20
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Giáo trình Bài tập lập trình Visual Basic
114 p | 7190 | 3161
-
Giáo trình Ngôn ngữ lập trình Visual Basic 6.0
158 p | 3846 | 1484
-
Lập trình Visual Basic 6 căn bản part 1
36 p | 669 | 367
-
Tự học ngôn ngữ lập trình Visual Basic 2005 part 1
27 p | 461 | 209
-
Giáo trình cơ sở lập trình Visual Basic part 1
23 p | 325 | 131
-
Giáo trình cơ sở lập trình Visual Basic part 2
23 p | 200 | 93
-
Giáo trình cơ sở lập trình Visual Basic part 3
23 p | 140 | 79
-
Tài liệu Ngôn ngữ lập trình Visual Basic
65 p | 163 | 74
-
Giáo trình cơ sở lập trình Visual Basic part 4
23 p | 110 | 70
-
Giáo trình cơ sở lập trình Visual Basic part 5
23 p | 103 | 60
-
Giáo trình cơ sở lập trình Visual Basic part 6
23 p | 116 | 59
-
Giáo trình cơ sở lập trình Visual Basic part 7
23 p | 109 | 59
-
Giáo trình cơ sở lập trình Visual Basic part 8
23 p | 96 | 56
-
Giáo trình cơ sở lập trình Visual Basic part 9
23 p | 100 | 54
-
Giáo trình cơ sở lập trình Visual Basic part 10
19 p | 93 | 52
-
Ebook Kỹ thuật và Thủ thuật lập trình Visual Basic 2010 - 2011 - Tập 2: Phần 1 - Xuân Thịnh, Nam Thuận
139 p | 87 | 36
-
Bài giảng VB.net - Chương 2: Ngôn ngữ lập trình Visual Basic. Net
0 p | 94 | 29
-
Ebook Lập trình Visual Basic 6.0 cơ bản: Phần 1
186 p | 33 | 14

markdown:
# Lập trình Visual Basic - Bài 1
Chia sẻ: Anh Dung | Ngày: | Loại File: PDF | Số trang:36
lượt xem 194
download
![](http://image1.tailieu.vn/document/thumbnail/2010/20100421/kidlucky/80x100/giaotrinhvb_9277.jpg)
##
Lập trình Visual Basic - Bài 1
[Vui lòng tải xuống để xem tài liệu đầy đủ](javascript:void(0);)
Download
![](http://static1.tailieu.vn/b2013az/templates/version1/default/images/down16x21.png)
Visual Basic (Visual Basic) là sản phẩm của Microsoft, một thành phần phần của bộ Visual Studio. Chức năng: Là một ngôn ngữ lập trình dùng để xây dựng các ứng dụng chạy trên môi trường Windows. Đặc điểm: Trực quan, cung cấp các công cụ thuận lợi cho việc tạo các giao diện. Cài đặt: từ đĩa CD VB6.0, chạy file setup, thực hiện các bước theo hướng dẫn. Khởi động: Start/Programs/Microsoft Visual Basic 6.0/Microsoft V Basic 6.0 Phiếu New: standard EXE tạo mới một ứng dụng (Project)....
Bình luận(0)
[Đăng nhập để gửi bình luận!](javascript:void(0);)
##
Nội dung Text: Lập trình Visual Basic - Bài 1
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic BÀI 1. CƠ BẢN VỀ VISUAL BASIC I. Giới thiệu về Visual Basic Visual Basic (Visual Basic) là sản phẩm của Microsoft, một thành phần phần của bộ Visual Studio. Chức năng: Là một ngôn ngữ lập trình dùng để xây dựng các ứng dụng chạy trên môi trường Windows. Đặc điểm: Trực quan, cung cấp các công cụ thuận lợi cho việc tạo các giao diện. Cài đặt: từ đĩa CD VB6.0, chạy file setup, thực hiện các bước theo hướng dẫn. Khởi động: Start/Programs/Microsoft Visual Basic 6.0/Microsoft V Basic 6.0 Phiếu New: standard EXE tạo mới một ứng dụng (Project). Phiếu Existing: mở ứng dụng đã có. Cửa sổ giao diện của Visual Basic thường có các cửa sổ con, qui định việc ẩn hiện bằng các thao tác: - View/Project Explorer: trình bày các thành phần của một ứng dụng. - View/Properties Window: trình bày các thuộc tính của đối tượng được chọn. - View/ Form Layout Window: quy định vị trí xuất hiện của cửa sổ kết quả. Mỗi ứng dụng là một chương trình bao gồm các chương trình con tương ứng với từng sự kiện. Chọn View/Code để viết và xem mã lệnh của các chương trình con này. Chọn View/Object để thiết kế giao diện cho ứng dụng. VB lưu giữ các thông tin của một ứng dụng bằng nhiều tập tin .FRM (nội dung form), .VBP (chương trình chính),…Vì vậy nên tạo thư mục riêng cho từng ứng dụng. II. Các thao tác cơ bản khi xây dựng ứng dụng 1. Tạo mới một ứng dụng, mở một ứng dụng sẵn có: thao tác như đã nói trong mục trên. 2. Lưu một ứng dụng: chọn biểu tượng Save Project, đặt tên cho các tập tin .FRM, .VBP. Chú ý rằng phục vụ cho cùng một ứng dụng có nhiều tập tin. 3. Tạo một đối tượng (ô điều khiển): chọn loại đối tượng trong Toolbox rồi vẽ lên form. 4. Quy định thuộc tính cho đối tượng: chọn đối tượng, chọn thuộc tính, xác lập giá trị cho thuộc tính trong Properties Window. 5. Viết mã lệnh: nhắp đúp lên đối tượng hoặc View/Code rồi viết mã lệnh tương ứng. Trên cửa sổ Code có thể chọn đối tượng và sự kiện của đối tượng trên các combobox. 6. Chạy chương trình: F5 hoặc chọn Run/start hoặc chọn nút start trên thanh công cụ. 7. Thoát khỏi VB: như các ứng dụng khác trên windows III. Các khái niệm cơ bản. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 1
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic 1. Đối tượng và các khái niệm liên quan. Hoạt động của một chương trình VB hầu như đều liên quan đến một số các đối tượng nào đó. Các đối tượng này có thể là Form, có thể là các ô điều khiển như Label, Textbox, Command Button,…Một đối tượng có thể có các thành phần sau: + Thuộc tính (property): quy định những tính chất của đối tượng như kích thước, màu sắc, vị trí, giá trị,… Cú pháp: .= Ví dụ: txt1.text=”Visual Basic” Các thuộc tính thông dụng của các đối tượng: - Name: tên để phân biệt với đối tượng khác, dùng để truy xuất đến các giá trị thuộc tính của đối tượng. Tên không chứa khoảng trống, không gõ dấu tiếng Việt. Tên của các đối tượng nên đặt kèm theo phía trước là loại của đối tượng đó: Form: frm, TextBox: txt, Command: Cmd, Label: Lbl, ComboBox: Cmb,…để thuận lợi cho việc khai báo biến về sau. - Caption: Tiêu đề của đối tượng. - Font: qui định font chữ cho đối tượng. - BackColor: màu nền của đối tượng. - Height, Width: chiều cao, độ rộng của đối tượng. - Left, Top: vị trí từ biên trái và biên trên đến góc trên trái của đối tượng. - Visible: hiển thị (true) hay không hiển thị (false) đối tượng khi chạy ứng dụng. + Phương thức (method): hoạt động chủ động (không có tác động bên ngoài) của bản thân đối tượng như khi chương trình bắt đầu chạy,… + Sự kiện (event): hoạt động bị động của đối tượng như xảy ra khi kích chuột,… Cú pháp . Ví dụ Form1.show 2. Phương pháp lập trình hướng sự kiện. + Dùng giao diện để tương tác giữa người dùng và chương trình. + Người dùng phải hoạch định thứ tự cho các sự kiện. + Thứ tự các đoạn mã lệnh ứng với các sự kiện là không quan trọng. + Trên một đối tượng có thể có nhiều sự kiện khác nhau. IV. Các đối tượng cơ bản. 1. Form Là đối tượng chứa một số đối tượng khác của một ứng dụng. Khi chạy nó là màn hình giao diện của ứng dụng. Một số sự kiện của form: - Initialize: được hệ thống kích hoạt đầu tiên nên có thể dùng để thiết lập các thuộc tính ban đầu cho form. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 2
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic - Load: xảy ra sau sự kiện trên có thể thiết lập các thuộc tính ban đầu cho các đối tượng của form. - Click: xảy ra khi nguời dùng nhắp chuột trên form. Một số phương thức của form: - Show: hiển thị form lên màn hình, sau khi show được gọi các phương thức của các ô điều khiển khác trên form mới thực hiện được. - Hide: che giấu một form nhưng không giải phóng bộ nhớ. - Load: nạp form vào bộ nhớ nhưng chưa xuất hiện trên màn hình. - Unload: ngược lại của Load Có thể dùng tên ngầm định “Me” thay cho tên Form đang xử lý. 2. Label. Đối tượng dùng để hiển thị thông tin như lời chú giải, lời nhắc (1) cũng có thể được dùng để xuất kết quả (2). Thuộc tính thường dùng là Caption. Những Label (1) thường xác lập thuộc tính trong cửa sổ properties. Các label (2) dùng lệnh dạng .Caption = “Nội dung” 3. TextBox. Đối tượng dùng để nhập, xuất dữ liệu. Thuộc tính quan trọng nhất là Text, chứa dữ liệu của ô, mặc định có kiểu chuỗi. Vì vậy, cần chuyển đổi kiểu nếu muốn sử dụng dữ liệu ở các kiểu khác. TextBox không có thuộc tính Caption. Một số thuộc tính, sự kiện khác: - ScrollBars: thuộc tính qui định thanh cuốn ngang, dọc có hay không. - Maxlength: thuộc tính qui định chiều dài tối đa của dữ liệu nhập vào. - Change: sự kiện xảy ra khi dữ liệu của ô bị thay đổi. - GotFocus: sự kiện xảy ra khi con trỏ được nhảy vào ô. - LostFocus: sự kiện xảy ra khi con trỏ nhảy ra khỏi ô. - SetForcus: phương thức nhằm đưa con trỏ vào ô. 3. Command Button Đối tượng thường dùng để điều khiển việc thực hiện một công việc nào đó của ứng dụng. Sự kiện thường dùng Click để thi hành một đoạn mã lệnh tương ứng. Kí hiệu & trong Caption của một command button có tác dụng tạo phím nóng, người sử dụng gõ ctrl+kí hiệu sau dấu & có tác dụng như nhắp chuột. V. Ví dụ xây dựng ứng dụng trên VB Xem hướng dẫn trong phần bài tập 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 3
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic BÀI TẬP SỐ 1 Bài tập 1.1 Tạo ứng dụng tính diện tích hình chữ nhật có giao diện như sau: Khi chạy ứng dụng, nhập chiều dài, chiều rộng, nhấn nút tính kết quả xuất hiện trong ô diện tích. Khi nhấn nút tiếp tục, chương trình xóa các số cũ để nhập dữ liệu mới. Nhấn nút thoát để đóng Form, quay về VB. Hướng dẫn: + Khởi động VB, tạo các label “Tính diện tích hình chữ nhật”, “chiều dài”, “chiều rộng”, “diện tích”. Nội dung các mục được quy định trong thuộc tính Caption của từng label. + Tạo các Textbox để nhập chiều dài, chiều rộng và xuất kết quả là diện tích. Đặt tên lần lượt cho các Textbox trên là a, b, S trong thuộc tính Name của từng Textbox. Để trống thuộc tính Text của các Textbox này. + Tạo các Command Button “Tính”, “Tiếp tục”, “Thóat” và nhắp đúp lên nút lệnh để mở của sổ Code và viết mã cho các nút lệnh này như sau: Mã của Command1 Private Sub Command1_Click() s.Text = a * b End Sub Mã của Command2 Private Sub Command2_Click() a.Text = "" b.Text = "" s.Text = "" a.SetFocus End Sub Mã của Command3 Private Sub Command3_Click() Unload Form1 End Sub Phương thức a.SetFocus với mục đích đưa con trỏ đến ô để nhập chiều dài. Để làm điều này trong lần chạy đầu tiên ứng với thời điểm Form1 được khởi động, ta nhấp đúp lên Form1 và viết mã lệnh sau: Private Sub Form_Load() Show a.Text = "" a.SetFocus End Sub 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 4
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài 1.2 Tạo ứng dụng tính diện tích hình thang khi nhập đáy lớn, đáy nhỏ, chiều cao. Bài 1.3 Tạo ứng dụng để nhập vào 2 số nguyên, tính cộng, trừ, nhân, chia 2 số đó với giao diện như sau: BÀI 2. NGÔN NGỮ LẬP TRÌNH VISUAL BASIC I. Các kiểu dữ liệu cơ bản. Mỗi kiểu dữ liệu quy định một tập hợp các giá trị và một tập các phép toán được sử dụng trên tập giá trị đó. 1. Kiểu số nguyên. Tuỳ nhu cầu sử dụng số nhỏ hay lớn mà ta dùng kiểu phù hợp trong số các kiểu sau: a. Byte: kích thước 1 byte, phạm vi từ 0 đến 255. b. Integer: kích thước 2 bytes, phạm vi từ -32768 đến 32767. c. Long: kích thước 4 bytes, phạm vi từ -231 đến 231-1. Các phép toán: cộng, trừ, nhân, chia, luỹ thừa, div, mod tương ứng với các kí hiệu +, - , *, /, ^, \, mod. Trong đó, div là phép chia lấy phần nguyên, mod là phép chia lấy phần dư. 2. Kiểu số thực. a. Single: kích thước 4 byte, xác định đến 38 chữ số. b. Double: kích thước 8 byte, xác định đến 300 chữ số. 3. Kiểu chuỗi (string) Chuỗi được đặt giữa hai dấu “ ” có độ dài đủ lớn. Phép toán: nối chuỗi ứng với kí hiệu & hoặc +. Chú ý những trường hợp kết quả sai do VB chuyển kiểu tự động. 4. Kiểu logic (Boolean) Chỉ có hai giá trị True, false hoặc 1,0. Các phép toán gồm hội, tuyển, phủ định ứng với kí hiệu and, or, not. 5. Kiểu ngày, giờ (Date) 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 5
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Kích thước 8 byte ghi được cả ngày lẫn giờ. Thông thường nếu chỉ dùng ngày ta viết giữa hai dấu #. Ví dụ: #22/12/2007#, #22-12-2007# Phép toán: cộng, trừ giữa ngày và số; và phép trừ giữa ngày và ngày. Chú ý: Tất cả các kiểu trên đều có phép so sánh =, , >,=,
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic x + Exp(x): e + Log(x): ln(x) + Sin(x), Cos(x), Tan(x): các hàm lượng giác tương ứng. + Rnd(): trả về số thực ngẫu nhiên trong đoạn [0,1], kích hoạt trước bằng thủ tục Randomize. 2. Một số hàm thời gian. + Day(ngày), Month(ngày), Year(ngày): trả về ngày, tháng, năm của một giá trị ngày. + WeekDay(ngày): trả về số nguyên là thứ của ngày trong tuần, ngoại lệ chủ nhật là số 1. 3. Một số hàm kiểu chuỗi. + Ucase(chuỗi): trả về chuỗi chữ in. Lcase(chuỗi): trả về chuỗi chữ thường. + Ltrim(chuỗi), Rtrim(chuỗi), Trim(chuỗi): cắt bỏ khoảng trống bên trái, bên phải, cả hai bên chuỗi. + Left(chuỗi,n), Right(chuỗi,n): lấy n kí tự của chuỗi từ bên trái, bên phải. + Len(chuỗi): trả về độ dài của chuỗi. + Mid(chuỗi,m,n): trả về n kí tự bắt đầu từ vị trí thứ m. + InStr(n, chuỗi 1, chuỗi 2): trả về vị trí xuất hiện của chuỗi 2 trong chuỗi 1 bắt đầu từ vị trí thứ n của chuỗi 1. + Replace(chuỗi 1, chuỗi 2, chuỗi 3): thay chuỗi 2 trong chuỗi 1 bằng chuỗi 3. 4. Một số hàm chuyển kiểu. + Val(chuỗi) : trả về số tương ứng với chuỗi. + CStr(số): trả về chuỗi tương ứng với số. + Cdate(chuỗi): trả về ngày tương ứng với chuỗi. IV. Ví dụ. Bài tập 2.1 BÀI TẬP SỐ 2 Bài tập 2.1 Tạo ứng dụng để bốc thăm số xe bằng cách sinh số ngẫu nhiên có 4 chữ số theo giao diện sau: + Số 9142 trong textbox text1 được sinh ngẫu nhiên khi nhấp chuột vào nút lệnh “tạo số ngẫu nhiên”. + Chương trình dừng khi nhấp nút “Kết thúc”. + Mã lệnh cho nút “tạo số ngẫu nhiên” như sau Private Sub Command1_Click() Randomize Text1.Text = Round(1000 + Rnd() * 8999) End Sub 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 7
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Cải tiến để sinh số ngẫu nhiên trong đoạn [a,b] với a, b nhập vào từ bàn phím. Bài tập 2.2 Tạo ứng dụng tính diện tích hình tròn có bán kính nhập vào từ bàn phím, trong đó khai báo hằng pi =3.1416 Bài tập 2.3 Tạo ứng dụng để khi nhập vào nơi sinh của bạn gồm huyện (thành phố), tỉnh cách nhau bởi một dấu gạch nối - , chương trình sẽ tự động tách riêng tên huyện (thành phố), tên tỉnh với giao diện như sau: Khi nhấp “tiếp tục” xoá trống các ô để thực hiện lượt mới. Mã lệnh cho nút “Tách”: Private Sub Command1_Click() Dim huyen As String, tinh As String Dim n As Byte n = InStr(1, Text1.Text, "-") huyen = Mid(Text1.Text, 1, n - 1) tinh = Mid(Text1.Text, n + 1) Text2.Text = huyen Text3.Text = tinh End Sub Mã lệnh cho nút “Tiếp tục”: Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub BÀI 3. CÁC CẤU TRÚC ĐIỀU KHIỂN I. Cấu trúc rẽ nhánh. 1. IF…THEN… Công dụng. Lựa chọn một trong hai công việc cần thực hiện. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 8
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Cú pháp. If then [Else ] End If Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc 1 ngược lại thực hiện công việc 2 (nếu có). Ví dụ. Kiểm tra một số nguyên n là chẵn hay lẻ. 2. SELECT CASE… Công dụng. Lựa chọn một trong nhiều công việc cần thực hiện. Cú pháp: Select case Case ………… Case [Case Else ] End Select Điều khiển: Lần lượt kiểm tra giá trị của từ trên xuống, nếu rơi vào danh sách giá trị nào thì thực hiện công việc nấy rồi thoát khỏi khối lệnh. Công việc n+1 (nếu có) được thực hiện khi giá trị không rơi vào bất kỳ danh sách giá trị nào ở trên. Danh sách giá trị có dạng: giá trị 1, giá trị 2,…giá trị n hoặc giá trị 1 To giá trị n (nếu các giá trị này liên tục) Từ khoá Is được dùng trong trường hợp giá trị của biểu thức cần so sánh hơn, kém. Ví dụ: Xếp loại sinh viên theo điểm trung bình Select case dtb Case Is>=9 Loai=”Xuất sắc” Case Is>=8 Loai=”Giỏi” Case Is>=7 Loai=”Khá” Case Is>=6.5 Loai=”TB khá” Case Is>=5 Loai=”TB” Case Else Loai=”Yếu” End Select 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 9
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Chú ý. Điều khiển để chương trình nhảy đến một vị trí bất kỳ bằng lệnh Goto Trong đó nhãn có dạng 3. Ví dụ. Xem bài tập 3.1 BÀI TẬP 3 Bài tập tập 3.1 Tạo ứng dụng máy tính cho phép nhập số và thực hiện các phép tính cộng, trừ, nhân chia với các số nguyên với giao diện như sau: Hướng dẫn: + Tạo textbox txtso để xuất hiện các số được chọn và kết quả. + Tạo các Command ứng với các số, các phép toán,.. + Viết các mã lệnh gợi ý như sau, chú ý rằng các biến pt (phép toán), so1 giữ số thứ nhất của phép toán phải là các biến toàn cục Option Explicit Dim pt As String Dim so1 As Integer Private Sub cmd0_Click() txtso = txtso & "0" End Sub Private Sub cmd1_Click() txtso = txtso & "1" End Sub ……………………………. Private Sub cmd9_Click() txtso = txtso & "9" End Sub Private Sub cmdcong_Click() so1 = Val(txtso) txtso.Text = "" pt = "+" End Sub Private Sub cmdtru_Click() so1 = Val(txtso) txtso.Text = "" pt = "-" End Sub Private Sub cmdnhan_Click() so1 = Val(txtso) 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 10
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic txtso.Text = "" pt = "*" End Sub Private Sub cmdchia_Click() so1 = Val(txtso) txtso.Text = "" pt = "/" End Sub Private Sub cmdbang_Click() Dim kq As Single, so2 As Single so2 = Val(txtso.Text) Select Case pt Case "+": kq = so1 + so2 Case "-": kq = so1 - so2 Case "*": kq = so1 * so2 Case "/" If so2 = 0 Then txtso.Text = "không chia được" GoTo abc Else kq = so1 / so2 End If End Select txtso.Text = kq abc: End Sub Private Sub cmdxoa_Click() txtso = "" End Sub Private Sub cmdthoat_Click() Unload Me End Sub Bài tập 3.2 Tạo ứng dụng giải phương trình bậc hai ax2 + bx + c = 0. Bài tập 3.3 Tạo ứng dụng để khi nhập vào một tháng của năm nào đó, chương trình cho biết số ngày của tháng này. Biết rằng các tháng 1,3,5,7,8,10,12 có 31 ngày; các tháng 4,6,9,11 có 30 ngày; tháng 2 năm nhuận có 29 ngày, năm không nhuận có 28 ngày. Năm nhuận là năm chia hết cho 400 hoặc là năm chia hết cho 4 mà không chia hết cho 100. BÀI 4. CÁC CẤU TRÚC LẶP I- FOR…NEXT Công dụng. Thực hiện công việc lặp lại với số lần lặp biết trước. Cú pháp. For To [step n] Next Điều khiển: + B1. Biến_điều_khiển nhận giá_trị_đầu 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 11
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic + B2. Nếu biến_điều_khiển nhỏ hơn hoặc bằng giá_trị_cuối thì thực hiện công việc rồi tăng biến_điều_khiển lên n rồi quay lại B2. + B3. Nếu biến_điều_khiển lớn hơn giá_trị_cuối thì kết thúc điều khiển. Exit For : được dùng trong khi nào muốn thoát khỏi vòng lặp ngay lập tức (không chờ biến điều khiển lớn hơn giá trị cuối). Ví dụ. Đoạn chương trình sau tính tổng các số nguyên từ 1 đến n (nhập trong txtn) Dim S As Integer Dim i As Integer, n As Integer S=0 n = Val(txtn.Text) For i = 1 To n S=S+i Next lblkq.Caption = "Kết quả là" & S II. DO WHILE…LOOP Công dụng. Thực hiện công việc lặp lại với số lần lặp không xác định trước. Cú pháp 1. Do while Loop Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc và lặp lại cho đến khi điều kiện không thoả mãn thì thoát khỏi cấu trúc này. Cú pháp 2. Do Loop Until Điều khiển: Tương tự như cú pháp 1 nhưng kiểm tra điều kiện sau khi thực hiện công việc. Ví dụ. Tính số tháng cần thiết gửi ngân hàng với số vốn là v = 100.000.000 đồng, mức lãi suất k= 0.65% tháng để có được cả vốn lẫn lãi số tiền là t = 115.000.000 đồng (biết rằng không rút lãi hàng tháng). Private Sub Tinh_Click() Dim v As Single, k As Single, st As Single, thang As Byte v = Val(txtv) k = Val(txtk) st = Val(txtst) thang = 0 Do While v < st thang = thang + 1 v = v * (1 + k) Loop txtkq.Text = thang End Sub BÀI TẬP Bài tập 4.1 Lập ứng dụng tính n! với n nguyên dương nhập từ bàn phím. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 12
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài tập 4.2 Lập ứng dụng tìm ước chung lớn nhất của 2 số nguyên dương nhập từ bàn phím. Hướng dẫn: Tạo giao diện như sau + Textbox txta: để nhập số thứ nhất + Textbox txtb: để nhập số thứ nhất + Label lblkq: thông báo kết quả Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer a = Val(txta.Text) b = Val(txtb.Text) Do While b 0 r = a Mod b a=b b=r Loop lblkq.Caption = "Ước chung lớn nhất của " & txta.Text & " và " & txtb.Text & " là" & a End Sub Private Sub Command2_Click() Unload Me End Sub BÀI 5. BIẾN MẢNG I. Biến mảng. Khái niệm: Mảng là tập hợp hữu hạn các phần tử cùng kiểu, cùng tên và phân biệt theo chỉ số. Khai báo: Dim Tên_mảng(n) [As kiểu_phần_tử] Sẽ tạo mảng n phần tử được đánh chỉ số từ 0 đến n-1. Ví dụ: Dim A(5) As Integer Khai báo: Dim Tên_mảng(n1 to n2) [As kiểu_phần_tử] Sẽ tạo mảng gồm các phần tử được đánh chỉ số từ n1 đến n2. Ví dụ: Dim A(3 to 5) As Integer Truy xuất: Tên_mảng(i) dùng để truy xuất đến giá trị của phần tử có chỉ số i của mảng. Chú ý: + Hàm Lbound(Tên_mảng): trả về chỉ số nhỏ nhất của mảng, Ubound(Biến_mảng): trả về chỉ số lớn nhất của mảng. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 13
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic + Khai báo mảng hai chiều: Dim Tên_mảng(m,n) [As kiểu_phần_tử] Dim Tên_mảng(n1 to n2, n3 to n4) [As kiểu_phần_tử] + Truy xuất mảng hai chiều: Tên_mảng(i,j) dùng để truy xuất đến giá trị của phần tử nằm trên dòng i, cột j của mảng. + Mảng có số phần tử không xác định trước (mảng động): Khai báo: Dim Tên_mảng( ) [As kiểu_phần_tử] Thao tác: Redim Dim Tên_mảng(n): thực sự tạo mảng n phần tử. + Mảng gán giá trị trước: Chỉ dùng đối với mảng động và có kiểu phần tử là Variant, chỉ số từ 0 trở đi. Ví dụ Dim a( ) A=Array(“Một”, “hai”,”ba”) II. Mảng các ô điều khiển Trường hợp dùng mảng ứng với các ô điều khiển trên Form (thường là các TextBox) thuận tiện nhất là dùng mảng các ô điều khiển. Mảng các ô điều khiển là một biến mảng đặc biệt mà mỗi phần tử của mảng ứng với một ô điều khiển. Khi tạo ra các ô điều khiển này ta đặt tên trùng nhau, tên này ứng với tên của mảng; chỉ số trong thuộc tính Index khác nhau ứng với chỉ số của phần tử. BÀI TẬP 5 Bài tập 5.1 Nhập vào ngày sinh của bạn, thông báo ngày này rơi vào thứ mấy (bằng tiếng Việt). Private Sub Command1_Click() Dim TenThu() TenThu = Array("Chủ nhật", "thứ hai", "thứ ba", "thứ tư", "thứ năm", "thứ sáu", "thứ bảy") Dim ngay As Date, thu As Byte ngay = CDate(txtngay) thu = Weekday(ngay) If thu = 1 Then Lblkq.Caption = "Bạn sinh vào " & TenThu(0) Else Lblkq.Caption = "Bạn sinh vào " & TenThu(thu - 1) End If End Sub Bài tập 5.2 Sinh ngẫu nhiên 4 số nguyên dương trong đoạn từ 0 đến 100. Sắp xếp các số này thành một dãy số tăng. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 14
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Option Explicit Const n As Byte = 4 Private Sub Command3_Click() Dim i As Integer, j As Integer Randomize For i = 0 To n - 1 txta(i).Text = Round(Rnd() * 100, 0) Next End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer Dim tg As Integer For i = 0 To n - 2 For j = i + 1 To n - 1 If Val(txta(i).Text) > Val(txta(j).Text) Then tg = Val(txta(i).Text) txta(i).Text = txta(j).Text txta(j).Text = tg End If Next Next End Sub BÀI 6. CHƯƠNG TRÌNH CON I. Khái niệm – Phân loại Khái niệm: Một chức năng tương đối độc lập được sử dụng lặp lại nhiều lần được tổ chức thành một đoạn mã lệnh được gọi là chương trình con (CTC). Ví dụ. Tìm UCLN của hai số nguyên được sử dụng trong quy đồng mẫu số, tối giản phân số nên thường được thiết kế thành một chương trình con. Phân loại: + Hàm: CTC tính toán trả về một giá trị. + Thủ tục: CTC thực hiện một công việc không trả về giá trị nào. Phạm vi: + CTC viết trong Code của Form nào chỉ hoạt động được cho Form đó. + CTC viết trong Modules sẽ hoạt động được trong toàn Project (Chọn Project/Add Modules, viết chương trình con, khi lưu một Modules (đơn thể) sẽ tạo ra một tập tin . Bas tương ứng. Tập tin .Bas có thể thêm vào (Add) vào một Project khác. Trong một Modules có thể chứa nhiều CTC. II. Cấu trúc của chương trình con 1. Hàm Function ([ds tham số]) As Các lệnh 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 15
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Tên_hàm = End Function + Tên hàm: tự đặt theo quy tắc như quy tắc đặt tên biến. + ds tham số: là nhiều tham số khai báo như danh sách biến. + là kết quả trả về của hàm. + Trong hàm có thể dùng Exit Function để thoát khỏi hàm Ví dụ: Hàm tính UCLN của hai số nguyên Function UCLN(a As Integer, b As Integer) As Integer Do While b 0 r = a Mod b a=b b=r Loop UCLN = a End Function 2. Thủ tục Sub ([ds tham số]) Các lệnh End Sub Ví dụ. Hoán vị giá trị của hai biến Sub hoanvi(a As Integer, b As Integer) Dim tg As Integer tg = a a=b b = tg End Sub III. Truyền tham số cho chương trình con Thông thường, CTC đều có tham số. Gọi CTC là thực hiện chính CTC đó với những giá trị tham số thực sự. Cách gọi như sau; + Đối với thủ tục: Tên_thủ_tục [ds_tham_số_thực sự] Ví dụ Dim x as Integer, y as Integer x=1 y=2 Hoanvi x,y + Đối với hàm: Tên_hàm([ds tham số thực sự]) Ví dụ UCLN(3,7) Chú ý: + Truyền theo trị và truyền theo biến: Xét đoạn chương trình sau: x=3 y=7 z = UCLN(x, y) Text1.Text = x Giá trị của x sau câu lệnh cuối cùng là bao nhiêu. Câu trả lời là 1. Biến x này đã bị thay đổi trong quá trình tính ước chung lớn nhất của x và y. Đây là điều không nên. Để điều này không xảy ra, ta sửa lại tiêu đề của hàm này như sau: Function UCLN(byval a As Integer, byval b As Integer) As Integer 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 16
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Truyền tham số x, y cho a,b lúc này là truyền theo trị (by value). Hoạt động của CTC sẽ không làm thay đổi giá trị của biến x, y. Truyền tham số trong trường hợp trước (tham số khi khai báo không có từ khoá Byval hoặc khai báo bằng từ khoá ByRef) là truyền theo biến. Hoạt động của CTC sẽ làm thay đổi giá trị của biến x, y. Vì vậy, nên hạn chế việc truyền tham số theo biến vì khó quản lý những hiệu ứng xảy ra khi CTC thực hiện. + Khi truyền tham số CTC sẽ kiểm tra chặt chẽ kiểu của tham số vì vậy phải chú ý sự phù hợp giữa kiểu dữ liệu của tham số thực sự và tham số hình thức. Chú ý: Những chương trình con được viết trong VB có thể bổ sung vào cho các cơ sở dữ liệu trong Access và dùng như một hàm chuẩn trong Access. Xem hướng dẫn ở bài tập 6.2. BÀI TẬP 6 Bài tập 6.1 Tạo ứng dụng hướng dẫn cho học sinh phổ thông kiểm tra việc cộng hai phân số. Các đối tượng chính: txta, txtb, txtc, txtd, txta1, txtb1, txtc1, txtd1, txte1, txtf1, txtp, txtq; Mã lệnh cho nút Quy đồng mẫu số, cộng: Private Sub Command1_Click() Dim msc As Integer, a As Integer, b As Integer, c As Integer, d As Integer a = Val(txta.Text) b = Val(txtb.Text) c = Val(txtc.Text) d = Val(txtd.Text) msc = b * d \ ucln(b, d) Txta1.Text = a * msc \ b txtb1.Text = msc txtc1.Text = c * msc \ d txtd1.Text = msc txte1.Text = (Txta1.Text) + Val(txtc1.Text) txtf1.Text = msc End Sub Mã lệnh cho nút rút gọn Private Sub Command2_Click() Dim tg As Integer, e As Integer, f As Integer tg = ucln(Val(txte1.Text), Val(txtf1.Text)) e = Val(txte1.Text) \ tg f = Val(txtf1.Text) \ tg 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 17
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic If (f = 1) Or (e = 0) Then txtp.Text = e Else txtp.Text = e txtq.Text = f End If End Sub Cần thiết phải có hàm tính UCLN cụ thể đã nói ở trên với tiêu đề cho hàm như sau: Function UCLN(byval a As Integer, byval b As Integer) As Integer Do While b 0 r = a Mod b a=b b=r Loop UCLN = a End Function Bài tập 6.2 Viết hàm tách tên trong chuỗi họ và tên. Thiết kế ứng dụng sử dụng hàm này như sau: Đối tượng chính txthoten, txtkq; nút lệnh Tách tên Command1 Hàm và mã lệnh: Function Tachten(ByVal S As String) As String Dim i As Byte S = RTrim(S) i = Len(S) Do While Mid(S, i, 1) " " i=i-1 Loop Tachten = Mid(S, i + 1) End Function Private Sub Command1_Click() Txtkq.Text = Tachten(Txthoten.Text) End Sub Bây giờ ta sẽ dùng hàm này để tách riêng tên của khách hàng trong bảng Nhap Xuat Vat Tu (tập tin QUANLY.MDB) đã thực hành trong môn Access trước đây: + Mở CSDL QUANLY.MDB trong Access + Chọn Modules/New + Chép hàm Tachten trong VB vào Modules này, lưu lại + Trong Access, tạo Query lấy dữ liệu từ bảng Nhap Xuat Vat Tu có cột thứ nhất là HoTenKH, cột thứ hai là TenKH, là một biểu thức dùng hàm Tachten([HoTenKH]). Tương tự, bạn có thể viết hàm đổi họ tên khách hàng thành dạng chuẩn để sử dụng cho bài tập số 2 (phần Form trong Access): khi nhập xong họ và tên khách hàng trên Form thì tự động đổi thành dạng chuẩn. 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 18
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic Bài tập 6.3 Tham khảo hàm đọc số thành chữ sử dụng trong các hoá đơn, phiếu tính tiền sau đây: Function doc3so(n As Integer) As String Dim chu(1 To 9) As String chu(1) = "một " chu(2) = "hai " chu(3) = "ba " chu(4) = "bốn " chu(5) = "năm " chu(6) = "sáu " chu(7) = "bảy " chu(8) = "tám " chu(9) = "chín " Dim ht, hc, dv As Byte Dim s As String ht = n \ 100 dv = n Mod 10 hc = ((n - dv) \ 10) Mod 10 s = "" If ht > 0 Then s = chu(ht) + "trăm " End If Select Case hc Case 0: If (ht > 0 And dv 0) Then s = s + "lẻ " End If Case 1: s = s + "mười " Case Else s = s + chu(hc) + "mươi " End Select Select Case dv Case 0: Case 1: If (hc = 0 or hc=1) Then s = s + "một " Else s = s + "mốt " End If Case 5: If hc = 0 Then s = s + "năm " Else s = s + "lăm " End If Case Else 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 19
- Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic s = s + chu(dv) End Select doc3so = s End Function Function docnso(n As Long) As String Dim t As String Dim s As String Dim s1 As String Dim i As Byte Dim j As Byte Dim n1 As Integer Dim ch(1 To 4) As String ch(1) = "" ch(2) = "ngàn " ch(3) = "triệu " ch(4) = "tỷ " t = Trim(Str(n)) Do While (Len(t) Mod 3 0) t = "0" + t Loop s = "" j=1 For i = Len(t) - 2 To 1 Step -3 s1 = Mid(t, i, 3) n1 = Val(s1) s = doc3so(n1) + ch(j) + s j=j+1 Next docnso = s End Function Private Sub Command1_Click() Dim n As Long Dim s As String n = Val(so.Text) s = docnso(n) kq = s End BÀI 7. LISTBOX, COMBOBOX, SCROLLBAR I. LISTBOX ListBox là loại đối tượng điều khiển cho phép người dùng chọn một số mục trong các mục được liệt kê bởi một danh sách. Một số thuộc tính cơ bản: + List: chứa nội dung các mục của ListBox bằng một mảng, mỗi phần tử là một chuỗi có nội dung tương ứng với các mục. Mảng này được đánh chỉ số bắt đầu từ 0. Như vậy, để lấy mục thứ i ta dùng .(i). Nhập danh sách: chọn thuộc tính List, gõ nội dung, ctrl+Enter; kết thúc bằng Enter. + ListIndext: cho biết số thứ tự của đang chọn (tính từ 0) + ListCount: cho biết số mục của danh sách Một số phương thức cơ bản (được dùng khi viết mã lệnh) + AddItem: Thêm một mục “Nội dung” vào danh sách tại vị trí i, theo cú pháp 10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 20
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Giáo trình Bài tập lập trình Visual Basic
114 p |
7190 |
3161
-
Giáo trình Ngôn ngữ lập trình Visual Basic 6.0
158 p |
3846 |
1484
-
Lập trình Visual Basic 6 căn bản part 1
36 p |
669 |
367
-
Tự học ngôn ngữ lập trình Visual Basic 2005 part 1
27 p |
461 |
209
-
Giáo trình cơ sở lập trình Visual Basic part 1
23 p |
325 |
131
-
Giáo trình cơ sở lập trình Visual Basic part 2
23 p |
200 |
93
-
Giáo trình cơ sở lập trình Visual Basic part 3
23 p |
140 |
79
-
Tài liệu Ngôn ngữ lập trình Visual Basic
65 p |
163 |
74
-
Giáo trình cơ sở lập trình Visual Basic part 4
23 p |
110 |
70
-
Giáo trình cơ sở lập trình Visual Basic part 5
23 p |
103 |
60
-
Giáo trình cơ sở lập trình Visual Basic part 6
23 p |
116 |
59
-
Giáo trình cơ sở lập trình Visual Basic part 7
23 p |
109 |
59
-
Giáo trình cơ sở lập trình Visual Basic part 8
23 p |
96 |
56
-
Giáo trình cơ sở lập trình Visual Basic part 9
23 p |
100 |
54
-
Giáo trình cơ sở lập trình Visual Basic part 10
19 p |
93 |
52
-
Ebook Kỹ thuật và Thủ thuật lập trình Visual Basic 2010 - 2011 - Tập 2: Phần 1 - Xuân Thịnh, Nam Thuận
139 p |
87 |
36
-
Bài giảng VB.net - Chương 2: Ngôn ngữ lập trình Visual Basic. Net
0 p |
94 |
29
-
Ebook Lập trình Visual Basic 6.0 cơ bản: Phần 1
186 p |
33 |
14

Server: Apache/2.2.31 (CentOS)

Set-Cookie: TLDEVNamespace=487diftgnnb2qf6p4qi9b77l00; path=/; domain=.tailieu.vn; HttpOnly

Vary: Accept-Encoding


text:
- Thưa đức Chúa Trời - người thứ nhất nói - đến một ngày nào đó, hòa bình sẽ ngự trị trên trái đất chứ ạ?
- Tất nhiên!
- Thưa đức Chúa Trời - người thứ hai nói - đến ngày nào đó, trên trái đất, một sự phân chia đều các của cải sẽ làm tất cả mọi người sung sướng chứ ạ?
- Tất nhiên!
- Thưa đức Chúa Trời - người thứ ba nói - đến một ngày nào đó, tất cả các phụ nữ trên trái đất sẽ chung thủy chứ ạ?
- À... có thể như vậy, tất nhiên - Chúa Trời đáp - nhưng ta không tin là ta sống được lâu tới tận lúc ấy.
Theo Thanhnien

markdown:
|
|![]()
|
|Đang tải trang
- Thưa đức Chúa Trời - người thứ nhất nói - đến một ngày nào đó, hòa bình sẽ ngự trị trên trái đất chứ ạ?
- Tất nhiên!
- Thưa đức Chúa Trời - người thứ hai nói - đến ngày nào đó, trên trái đất, một sự phân chia đều các của cải sẽ làm tất cả mọi người sung sướng chứ ạ?
- Tất nhiên!
- Thưa đức Chúa Trời - người thứ ba nói - đến một ngày nào đó, tất cả các phụ nữ trên trái đất sẽ chung thủy chứ ạ?
- À... có thể như vậy, tất nhiên - Chúa Trời đáp - nhưng ta không tin là ta sống được lâu tới tận lúc ấy.
**Theo Thanhnien**

WARC-Truncated: length

P3P: CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"

Cache-Control: must-revalidate

Set-Cookie: CAKEPHP=ompiocm3b44c5heffkrh6nut91; expires=Sat, 20-Jan-2018 10:27:38 GMT; path=/


text:
Tác giả bài viết: ST
Những tin mới hơn
Những tin cũ hơn
Đang truy cập :
21
Hôm nay :
1228
Tháng hiện tại
: 55142
Tổng lượt truy cập : 9842616

Cache-Control: no-cache, pre-check=0, post-check=0

Vary: Accept-Encoding,User-Agent

Set-Cookie: nv3c_B5on1_nvvithemever=yQ%2C%2C; expires=Fri, 14-Dec-2018 05:22:50 GMT; Max-Age=31536000; path=/; domain=.gdptlonghung.com.vn; httponly

Content-Language: vi

Content-Type: text/html; charset=utf-8


text:
KINH TE BIEN ONLINE
" Các kết quả sẽ trắc nghiệm các ý tưởng" đó là lời của William James ( 1842-1910 ) - người thầy dạy triết học ở Harvard từ 1872 đến 1910. Người Việt Nam rất quý trọng những ai từng đến Harvard dù chỉ ghé qua tham gia thính giảng, nên tôi xin trích lời của người thầy triết học đã dạy gần 40 năm tại Harvard. Đến hôm nay, sau hơn 20 năm xây dựng hệ thống đê bao ở ĐBSCL con người mới thấy đầy đủ những tác động xấu của nó đến môi trường và cuộc sống của người dân ĐBSCL.
Bản tin VTV1 tối ngày 27-9-2017, Thủ tướng Nguyển Xuân Phúc đã chỉ ra nguyên nhân từ sạt lỡ bờ sông, bờ biển, sụt lún, nhiểm mặn, khô hạn, thiếu hiệu quả trong sản xuất hiện nay ở ĐBSCL là từ con người. Con số 57.000 km đê bao được Chính phủ công bố làm rung động lòng người. Vì đó là những đồng tiền quý báu khi đất nước đang từ đói nghèo phải mở cửa để hy vọng đón một tương lai rộng mở. Rất tiếc một thế hệ trí thức đã thực hiện những giải pháp mà hôm nay buộc phải hối tiếc. Từ 9-1996, tôi may mắn được tham gia các Hội nghị bàn về ĐBSCL. Khi đó tôi trình bày giải pháp sử dụng hồ Đồng Tháp Mười, các kênh tự nhiên và thêm vài kênh bổ sung để vừa thoát lũ ra biển Tây vừa trữ nước cho mùa khô. Nhưng ý tưởng trên không được quan tâm. Tôi chỉ còn biết viết trên báo Khoa học Phổ thông Tp HCM trong thời gian đó và đăng ký bản quyền tài liệu đã viết để mong đời sau hiểu được thời này vẩn còn những cái đầu tỉnh táo. Tôi may mắn được học ở Hà Nội. Một người bạn gái học cùng lớp đã từng nhắc tôi : - Bạn làm gì thì làm, nhưng đừng để người thân của mình phải khổ vì hành động của mình. Có thể những người đề xuất làm 57.000 km đê bao coi nhân dân ĐBSCL không phải là người thân của họ. Mới cách đây chỉ vài năm, khi tôi đề xuất cảng cửa ngõ Trần Đề thì một vị GS-TS đáng kính nổi tiếng ở Quốc hội và ĐBSCL nói với tôi :- Anh ủng hộ tôi nạo vét cửa Định An thì tôi ủng hộ dự án Trần Đề của anh!Tôi giật mình không ngờ lại được trực tiếp nghe lời nói này từ một trí thức lớn, một nhà chính trị thường xuyên có mặt ở nhiều diển đàn về ĐBSCL. Sự kiện "hối tiếc" 57.000 km đê bao là một bài học lớn cho giới trí thức Việt Nam. Không thể vì vừa lòng cấp trên, vì những gì đó không thể nói ...mà phải thực hiện những giải pháp để hôm nay phải hối tiếc. Ks Doãn Mạnh Dũng
Xây dựng bởi Trung tâm nghiên cứu Vịnh Vân Phong .
valid XHTML and CSS.

markdown:
|
|
![]()
|
|![]()
|Viết bởi Doãn Mạnh Dũng|
|Thứ tư, 27 Tháng 9 2017 22:18|
|
|
" Các kết quả sẽ trắc nghiệm các ý tưởng" đó là lời của William James ( 1842-1910 ) - người thầy dạy triết học ở Harvard từ 1872 đến 1910. Người Việt Nam rất quý trọng những ai từng đến Harvard dù chỉ ghé qua tham gia thính giảng, nên tôi xin trích lời của người thầy triết học đã dạy gần 40 năm tại Harvard. Đến hôm nay, sau hơn 20 năm xây dựng hệ thống đê bao ở ĐBSCL con người mới thấy đầy đủ những tác động xấu của nó đến môi trường và cuộc sống của người dân ĐBSCL.
Bản tin VTV1 tối ngày 27-9-2017, Thủ tướng Nguyển Xuân Phúc đã chỉ ra nguyên nhân từ sạt lỡ bờ sông, bờ biển, sụt lún, nhiểm mặn, khô hạn, thiếu hiệu quả trong sản xuất hiện nay ở ĐBSCL là từ con người. Con số 57.000 km đê bao được Chính phủ công bố làm rung động lòng người. Vì đó là những đồng tiền quý báu khi đất nước đang từ đói nghèo phải mở cửa để hy vọng đón một tương lai rộng mở.
|Cập nhật ngày Thứ tư, 27 Tháng 9 2017 22:21|


text:
(VTC News) - Cô Eman Ahmed Abd El Aty, 36 tuổi đến từ Ai Cập, người phụ nữ được cho là nặng nhất thế giới đã có mặt tại Mumbai, Ấn Độ hôm 11/2 để chuẩn bị cho ca phẫu thuật thu nhỏ dạ dày đưa trọng lượng cơ thể về dưới 100 kg.
Vì thân hình ngoại cỡ của mình, Eman được đặt trong một chiếc giường đặc biệt với đầy đủ các thiết bị y tế cần thiết như máy thở, máy khử rung, bình ôxy... đi kèm. Theo sát cô còn có hai bị bác sĩ để đảm bảo Eman không gặp bất cứ vấn đề gì trong suốt quá trình bay.
Video: Người phụ nữ nặng nhất thế giới tới Mumbai để phẫu thuật giảm cân
Eman xuống sân bay Mumbai và nhanh chóng được đưa tới bệnh viện trên một chiếc xe tải được hộ tống bởi xe cứu thương và xe cảnh sát tới bệnh viện Saifee, nơi cô sẽ được điều trị miễn phí trong 2-3 tháng tới.
Theo gia đình của Eman, trước khi bước vào ca phẫu thuật này, cô không thể di chuyển trong suốt 25 năm qua vì thân thể quá khổ của mình. Lúc mới sinh,Eman đã nặng tới 5 kg và được chẩn đoán mắc chứng bệnh phù voi khiến các chi hoặc toàn bộ cơ thể sưng lớn do nhiễm ký sinh trùng.
Nếu thông tin về cân nặng 500kg của cô là chính xác, Eman Ahmed Abd El Aty sẽ trở thành người phụ nữ nặng nhất thế giới khi soàn ngôi của người đang nắm giữ kỷ lục Guinness hiện nay là Pauline Potter của Mỹ với cân nặng 292 kg trong năm 2010.
>>> Đọc thêm: Binh sĩ béo lên, quân đội Trung Quốc bị đe dọa

markdown:
**
(VTC News) - Cô Eman Ahmed Abd El Aty, 36 tuổi đến từ Ai Cập, người phụ nữ được cho là nặng nhất thế giới đã có mặt tại Mumbai, Ấn Độ hôm 11/2 để chuẩn bị cho ca phẫu thuật thu nhỏ dạ dày đưa trọng lượng cơ thể về dưới 100 kg.
**
Vì thân hình ngoại cỡ của mình, Eman được đặt trong một chiếc giường đặc biệt với đầy đủ các thiết bị y tế cần thiết như máy thở, máy khử rung, bình ôxy... đi kèm. Theo sát cô còn có hai bị bác sĩ để đảm bảo Eman không gặp bất cứ vấn đề gì trong suốt quá trình bay.
**Video: Người phụ nữ nặng nhất thế giới tới Mumbai để phẫu thuật giảm cân **
Eman xuống sân bay Mumbai và nhanh chóng được đưa tới bệnh viện trên một chiếc xe tải được hộ tống bởi xe cứu thương và xe cảnh sát tới bệnh viện Saifee, nơi cô sẽ được điều trị miễn phí trong 2-3 tháng tới.
Theo gia đình của Eman, trước khi bước vào ca phẫu thuật này, cô không thể di chuyển trong suốt 25 năm qua vì thân thể quá khổ của mình. Lúc mới sinh,Eman đã nặng tới 5 kg và được chẩn đoán mắc chứng bệnh phù voi khiến các chi hoặc toàn bộ cơ thể sưng lớn do nhiễm ký sinh trùng.
![ 1-photo_021117061638](https://image.vtcns.com/files/dieuhoa/2017/02/12/1-photo_021117061638-0848.jpg)
## Eman được "vận chuyển" trong một chiếc giường đăc biệt để phù hợp với kích cỡ cơ thể của cô
Nếu thông tin về cân nặng 500kg của cô là chính xác, Eman Ahmed Abd El Aty sẽ trở thành người phụ nữ nặng nhất thế giới khi soàn ngôi của người đang nắm giữ kỷ lục Guinness hiện nay là Pauline Potter của Mỹ với cân nặng 292 kg trong năm 2010.
>>> Đọc thêm:
[Binh sĩ béo lên, quân đội Trung Quốc bị đe dọa](https://vtc.vn/binh-si-beo-len-quan-doi-trung-quoc-bi-de-doa-d147121.html)

WARC-Identified-Payload-Type: text/html

Server: nginx

Cache-Control: public

X-Fastcgi-Cache: MISS


text:
Tin báo chung: Nâng cấp cập nhật diễn đàn
Chỉ thành viên đăng ký mới được truy cập khu vực này.
Vui lòng đăng nhập hoặc đăng ký một tài khoản với Hội du lịch Việt Nam.
Quên mật khẩu?
Hội du lịch
Nên xem trước
Tiếp thị quảng cáo
Liên kết
Trang được tạo trong 0.425 giây với 18 yêu cầu truy vấn.

markdown:
Tin báo chung:
[Nâng cấp cập nhật diễn đàn](https://hoidulich.com/noi-quy-tin-tuc-va-thong-bao-cua-dien-dan/thong-bao-ve-viec-nang-cap-cap-nhat-dien-dan/)
|
||
|
## Sự kiện du lịch nổi bật
## Kinh nghiệm du lịch Việt Nam
## Quảng cáo
## Thống kê
## Quảng cáo
![]()
## Từ khóa phổ biến
## Đối tác
## Chủ đề mới nhất
[
Hôm nay lúc 12:02:29 AM]
[
Hôm qua lúc 10:10:56 PM]
[
Hôm qua lúc 07:49:04 PM]
[
Hôm qua lúc 07:44:37 PM]
[
Hôm qua lúc 03:01:05 PM]
## Thành viên online
There aren't any users online.

Server: Nginx

X-Content-Type-Options: nosniff

X-Frame-Options: GOFORIT

Cache-Control: private

X-Powered-By: VPSSIM


text:
iWin+ 2014 - Game đánh bài hay nhất Việt Nam!
Chiến Thần Online - Game bom tấn mùa hè!(hỗ trợ Android)
Phong Vân Truyền Kỳ - đắm chìm vào một thế giới võ hiệp đầy ảo mộng!
Thử IQ của bạn với game Thánh Tướng Online và iOnline 2013 - Tá Lả, Tiến Lên, Poker, 3 Cây...
Khí Phách Anh Hùng Online - Game MXH BeMe 3.0.1 - Thiên Đường Giải Trí
Thống Lĩnh Thiên Hạ - Hoàng Đế Online - Game PK đồ họa khủng! (HOT!)
Chiến Thần Online - Game bom tấn mùa hè!(hỗ trợ Android)
Phong Vân Truyền Kỳ - đắm chìm vào một thế giới võ hiệp đầy ảo mộng!
Thử IQ của bạn với game Thánh Tướng Online và iOnline 2013 - Tá Lả, Tiến Lên, Poker, 3 Cây...
Khí Phách Anh Hùng Online - Game MXH BeMe 3.0.1 - Thiên Đường Giải Trí
Thống Lĩnh Thiên Hạ - Hoàng Đế Online - Game PK đồ họa khủng! (HOT!)
Home › Diễn đàn > Thế Giới Mobile > Games S40
Bắn quái vật Zombie Infection 2 Java Game Multicreen
Game thể loại hành động, kinh dị
Màn hình hỗ trợ 128x160, 240x320, 320x240, 176x208, và 1 số màn hình khác ...
Yêu cầu: Máy phải hỗ trợ Java
Giới thiệu: Sau thành công của phiên bản đầu tiên, NPH Gameloft đã đưa Zombie Infection trở lại với cuộc chiến truyền kiếp giữa người và zombie.
Download:
Download 128x160
Download 176x208
Download 240x320
Download 320x240
Còn bạn nào không nằm trong các màn hình trên vui lòng vào đây để download nhé
Màn hình hỗ trợ 128x160, 240x320, 320x240, 176x208, và 1 số màn hình khác ...
Yêu cầu: Máy phải hỗ trợ Java
Giới thiệu: Sau thành công của phiên bản đầu tiên, NPH Gameloft đã đưa Zombie Infection trở lại với cuộc chiến truyền kiếp giữa người và zombie.
Download:
Download 128x160
Download 176x208
Download 240x320
Download 320x240
Còn bạn nào không nằm trong các màn hình trên vui lòng vào đây để download nhé
Đánh giá của bạn là Góp Ý quan trọng giúp admin nâng cao Chất Lượng bài viết!
Đánh giá: ( - )
Đánh giá: ( - )
49/100 (47 phiếu)
Author: Buzz24h.Net ™
Author: Buzz24h.Net ™
Tkank anh nha test xem co out memory k ak ma hog co hang vh ak anh,up hjght school tieng viet k out memory dy
Tuyển chọn Game Mobile HOT!
Bài viết Bắn quái vật Zombie Infection 2 Java Game Multicreen cùng chuyên mục
Ngẫu Nhiên
Xem Nhiều Nhất
» Võ Lâm Mobile [899895 lượt]
» [SMS Kute] Tin nhắn xếp hình chúc ngủ ngon (HOT) [144465 lượt]
» Siêu bài iWin - Thiên đường CASINO [92420 lượt]
» Võ Lâm 3 Online - Nhập vai, hành động [69872 lượt]
» Bigkool - Đẳng cấp game bài [59936 lượt]
Tìm kiếm Bắn quái vật Zombie Infection 2 Java Game Multicreen...Sửa Tag
Võ Lâm Mobile - Vô địch PK
Võ lâm 3 - Giai nhân kỳ ngộ, Anh hùng kỳ tranh - Thỏa mãn cơn khát phiêu bạt giang hồ!
Copyright © 2012 - 2016 Buzz24h.Net. All rights reserved.

markdown:
![hot](../images/new.gif)
[- Game đánh bài hay nhất Việt Nam!](http://mzo.mobi/iwin/buzz) **iWin+ 2014** ![hot](http://www.buzz24h.net/images/icon-hot.gif)
**Chiến Thần Online**- Game bom tấn mùa hè!(hỗ trợ Android) [](
http://i.mzo.mobi/phong-van-truyen-ky/3015 )
![hot](http://www.buzz24h.net/images/icon-hot.gif)
**Phong Vân Truyền Kỳ**- đắm chìm vào một thế giới võ hiệp đầy ảo mộng! ![hot](../images/icon-hot.gif)
[Thánh Tướng Online](http://mfile.me/217-thanh-tuong-250)và [- Tá Lả, Tiến Lên, Poker, 3 Cây...](http://d.clix.vn/buzz/ionline) **iOnline 2013** ![hot](../images/icon-hot.gif)
[Khí Phách Anh Hùng Online](http://mzo.mobi/khi-phach-anh-hung/buzz)- [Game MXH BeMe 3.0.1](http://www.buzz24h.net/forum/game-mxh-beme-301-thien-duong-giai-tri_7322.html)- Thiên Đường Giải Trí ![new](../images/new.gif)
[-](http://mzo.mobi/thong-linh-thien-ha/hak) **Thống Lĩnh Thiên Hạ** [- Game PK đồ họa khủng! (HOT!)](http://mzo.mobi/hoang-de/hak) **Hoàng Đế Online** ![ ](../images/home.png)
[Home](http://www.buzz24h.net)› [Diễn đàn](index.php)> [Thế Giới Mobile](http://www.buzz24h.net/forum/the-gioi-mobile_12.html)> [Games S40](http://www.buzz24h.net/forum/games-s40_17.html)
# Bắn quái vật Zombie Infection 2 Java Game Multicreen
|Đã xem: 3806|
![]()
![]()
admin [Off] (21.04.2012 / 20:09) ![]()
Màn hình hỗ trợ 128x160, 240x320, 320x240, 176x208, và 1 số màn hình khác ...
Yêu cầu: Máy phải hỗ trợ Java
Giới thiệu: Sau thành công của phiên bản đầu tiên, NPH Gameloft đã đưa Zombie Infection trở lại với cuộc chiến truyền kiếp giữa người và zombie.
Download:
[Download 128x160](http://mgiaitri.biz/upload/jar/Mgiaitri-biz_zombie_128x160.jar) [Download 176x208](http://mgiaitri.biz/upload/jar/Mgiaitri-biz_zombie_176x208.jar) [Download 240x320](http://mgiaitri.biz/upload/jar/Mgiaitri-biz_zombie_240x320.jar) [Download 320x240](http://mgiaitri.biz/upload/jar/Mgiaitri-biz_zombie_320x240.jar)
Còn bạn nào không nằm trong các màn hình trên vui lòng
[vào đây để download](http://www.mobilegamesarena.net/2010/12/zombie-infection-2-320x240.html)nhé
Đánh giá của bạn là
**Góp Ý**quan trọng giúp **admin**nâng cao **Chất Lượng**bài viết! **Đánh giá:**( [-](index.php?rate&id=614&like) ![ like](../images/stars/like.png)
![ like](../images/stars/like.png)
[)](index.php?rate&id=614&unlike) ![ unlike](../images/stars/unlike.png)
![ unlike](../images/stars/unlike.png)
49/100 (47 phiếu)
![ 49% star rating](../images/stars/25.gif)
Author:
![ 49% star rating](../images/stars/25.gif)
Author:
[Buzz24h.Net](http://plus.google.com/115493148379863361501?rel=author)™
![]()
![]()
ANHKOOL (Adm) [Off] (21.04.2012 / 20:17) ![]()
![ HOT](../images/icon-hot.gif)
**Tuyển chọn Game Mobile HOT!**
### Bài viết Bắn quái vật Zombie Infection 2 Java Game Multicreen cùng chuyên mục
**Ngẫu Nhiên** **Xem Nhiều Nhất**
»
[Võ Lâm Mobile](/forum/vo-lam-mobile_13331.html)[899895 lượt]
»
[[SMS Kute] Tin nhắn xếp hình chúc ngủ ngon (HOT)](/forum/sms-kute-tin-nhan-xep-hinh-chuc-ngu-ngon-hot_12387.html)[144465 lượt]
»
[Siêu bài iWin - Thiên đường CASINO](/forum/sieu-bai-iwin-thien-duòng-casino_14203.html)[92420 lượt]
»
[Võ Lâm 3 Online - Nhập vai, hành động](/forum/vo-lam-3-online-nhap-vai-hanh-dong_8698.html)[69872 lượt]
»
[Bigkool - Đẳng cấp game bài](/forum/bigkool-dang-cap-game-bai_14205.html)[59936 lượt]
### Tìm kiếm Bắn quái vật Zombie Infection 2 Java Game Multicreen...
[Sửa Tag](index.php?act=tag&id=614) ![hot](http://static.mwork.vn/images/icon-hot.gif)
**Võ Lâm Mobile - Vô địch PK** [](
http://i.mzo.mobi/vo-lam-mobile/3015 )
![hot](http://www.buzz24h.net/images/icon-hot.gif)
**Võ lâm 3 - Giai nhân kỳ ngộ, Anh hùng kỳ tranh**- Thỏa mãn cơn khát phiêu bạt giang hồ!
Copyright © 2012 - 2016
**. All rights reserved.**

Server: LiteSpeed

Accept-Ranges: bytes


text:
Đèn Thờ Hoa Sen Đổi Màu
nếu có thắc mắc hay yêu cầu gì về sản phẩm vui lòng liên hệ trực tiếp hoặc để lại lời nhắn trong phần liên hệ
để được giải đáp kịp thời
230,000 vnđ
230,000 vnđ
230,000 vnđ
230,000 vnđ
180,000 vnđ
450,000 vnđ
450,000 vnđ
290,000 vnđ
80,000 vnđ
Cát Tường 4 Hồng ( 2 Tầng Led )
390,000 vnđ
Cát Tường 4 Trắng ( 2 Tầng Led )
390,000 vnđ
Cát Tường 3 Trắng ( 2 Tầng Led )
390,000 vnđ
Cát Tường 3 Hồng ( 2 Tầng Led )
390,000 vnđ
320,000 vnđ
320,000 vnđ
430,000 vnđ
430,000 vnđ
100,000 vnđ
110,000 vnđ
350,000 vnđ
350,000 vnđ
300,000 vnđ
300,000 vnđ
250,000 vnđ
280,000 vnđ
280,000 vnđ
200,000 vnđ
200,000 vnđ
200,000 vnđ
200,000 vnđ
170,000 vnđ
170,000 vnđ
quý khách có nhu cầu mua sỉ xin để lại email trong phần liên hệ hoặc zalo 0908844580 để nhận giá đại lý, xin cảm ơn!
Gửi bình luận của bạn

markdown:
Đèn Thờ Hoa Sen Đổi Màu
**nếu có thắc mắc hay yêu cầu gì về sản phẩm vui lòng liên hệ trực tiếp hoặc để lại lời nhắn trong phần liên hệ ** **để được giải đáp kịp thời**
230,000 vnđ
230,000 vnđ
230,000 vnđ
230,000 vnđ
180,000 vnđ
450,000 vnđ
450,000 vnđ
290,000 vnđ
80,000 vnđ
[Cát Tường 4 Hồng ( 2 Tầng Led )](/den-led/den-led-trang-tri/den-ban-tho-led/cat-tuong-4-hong-2-tang-led.html)
390,000 vnđ
[Cát Tường 4 Trắng ( 2 Tầng Led )](/den-led/den-led-trang-tri/den-ban-tho-led/cat-tuong-4-trang-2-tang-led.html)
390,000 vnđ
[Cát Tường 3 Trắng ( 2 Tầng Led )](/den-led/den-led-trang-tri/den-ban-tho-led/cat-tuong-3-trang-2-tang-led.html)
390,000 vnđ
[Cát Tường 3 Hồng ( 2 Tầng Led )](/den-led/den-led-trang-tri/den-ban-tho-led/cat-tuong-3-hong-2-tang-led.html)
390,000 vnđ
320,000 vnđ
320,000 vnđ
430,000 vnđ
430,000 vnđ
100,000 vnđ
110,000 vnđ
350,000 vnđ
350,000 vnđ
300,000 vnđ
300,000 vnđ
250,000 vnđ
280,000 vnđ
280,000 vnđ
200,000 vnđ
200,000 vnđ
200,000 vnđ
200,000 vnđ
170,000 vnđ
170,000 vnđ
**quý khách có nhu cầu ** **mua sỉ** ** xin để lại email trong phần liên hệ hoặc ** **zalo 0908844580**
## Gửi bình luận của bạn

Content-Type: text/html


text:
Giá bán:
760.000 VND800.000 VND
* Video: Full HD 1920 * 1080 pixel (30 fps)* Màn hình: 2.4 inch LCD* Độ phân giải: 1080p
Ý kiến bạn đọc
Code: HT-03
1.520.000 VND1.600.000 VND
Code: CVN HT-02
1.140.000 VND1.200.000 VND

Set-Cookie: nv4c_z5ook_nvvithemever=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; Max-Age=0; path=/; domain=.nhaphanphoicamera.net; httponly

X-XSS-Protection: 1; mode=block


text:
Sàn nhạc sử dụng tốt nhất ở trình duyệt Firefox
Để thu âm và sử dụng sannhac một cách dễ dàng, bạn hãy cài đặt phầm mềm sau
Bắt đầu cài đặt Firefox
để duyệt web nhanh hơn
Đăng nhập
|
Đăng ký
Tên đăng nhập
Mật khẩu
Ghi nhớ
Quên mật khẩu
|
Gửi lại mail kích hoạt
Trang chủ
Phòng thu
Sàn đấu
Club
Hát Live
hoangha25
Tên :
Nam, 47 tuổi
Cấp độ: Chaien
Add thành Sao
Gửi tin nhắn
Playlist MP3
Danh sách MP3
Bản thu
Không quan tâm
Điểm số
40
Tải khoản
0
Lượt xem
2
Bản thu của tôi
Xem tiếp
Bản thu yêu thích
Xem tiếp
config
config
1 waitfor delay '0:0:26.576999
Tiêu đề
Thêm link
Save blast
|
Cancel
Box nhúng
Playlist mp3
Playlist Karaoke
Sửa
Nhập tên box nhúng (*)
Nhập ảnh nền - Direct link
Ví dụ: http://i378.photobucket.com/albums/oo228/sannhac_care/IMG_2130.jpg
Nhập mã nhúng - embed code (*)
(Bạn bắt buộc phải nhập thông tin ở ô có dấu *)
Kho beat ( 0 bài )
Bạn chưa sở hữu beat nào
config
Sổ tay âm nhạc & Events
Xem tất cả sổ tay
Lưu bút
Xem toàn bộ
Di chuyển
Đóng
Quà tặng
Xem tất cả
config
Cập nhật thông tin của tôi
Chưa có thông tin nào mới cập nhật
Cập nhật thông tin Fan Sao
Danh sách Sao
Xem tất cả
config
Danh sách Fan
Xem tất cả
config
Sàn Nhạc
, Tầng 21 Tòa nhà Center Building - Hapulico Complex
Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội.
Email:
sannhac@gmail.com
Liên hệ hợp tác: 094.686.1289
Giới thiệu quảng cáo
Liên hệ quảng cáo:
Admicro
Hà Nội – Ms. Hải Yến: 0988 965 517 – (84 4) 3974 8899. Ext 2201
Hồ Chí Minh – Mr.Tuấn: 0983 050 185 – (84 8) 7307 7979. Ext 173
Email:
giaitrixahoi@admicro.vn
Hỗ trợ & CSKH:
Admicro
Ms.Thơm: 01268 269 779
Address: Tầng 20, Center Building Hapulico Complex, Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội
Copyright 2009
– Công ty cổ phần VCCorp.
Chịu trách nhiệm quản lý nội dung : Bà Nguyễn Bích Minh.
Tầng 17, 19, 20, 21 Tòa nhà Center Building - Hapulico Complex
Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội.
Giấy phép số 280/GP-BTTTT Bộ Thông tin và Truyền thông cấp ngày 14 tháng 06 năm 2017.
Trang chủ
|
Điều khoản
|
Quy định
|
Phòng thu
|
Beat
|
Recording
Lưu bút

markdown:
Sàn nhạc sử dụng tốt nhất ở trình duyệt Firefox
Để thu âm và sử dụng sannhac một cách dễ dàng, bạn hãy cài đặt phầm mềm sau
Bắt đầu cài đặt Firefox
để duyệt web nhanh hơn
Đăng nhập
|
Đăng ký
Tên đăng nhập
Mật khẩu
Ghi nhớ
Quên mật khẩu
|
Gửi lại mail kích hoạt
Trang chủ
Phòng thu
Sàn đấu
Club
Hát Live
hoangha25
Tên :
Nam, 47 tuổi
Cấp độ: Chaien
Add thành Sao
Gửi tin nhắn
Playlist MP3
Danh sách MP3
Bản thu
Không quan tâm
Điểm số
40
Tải khoản
0
Lượt xem
2
Bản thu của tôi
Xem tiếp
Bản thu yêu thích
Xem tiếp
config
config
1 waitfor delay '0:0:26.576999
Tiêu đề
Thêm link
Save blast
|
Cancel
Box nhúng
Playlist mp3
Playlist Karaoke
Sửa
Nhập tên box nhúng (*)
Nhập ảnh nền - Direct link
Ví dụ: http://i378.photobucket.com/albums/oo228/sannhac_care/IMG_2130.jpg
Nhập mã nhúng - embed code (*)
(Bạn bắt buộc phải nhập thông tin ở ô có dấu *)
Kho beat ( 0 bài )
Bạn chưa sở hữu beat nào
config
Sổ tay âm nhạc & Events
Xem tất cả sổ tay
Lưu bút
Xem toàn bộ
Di chuyển
Đóng
Quà tặng
Xem tất cả
config
Cập nhật thông tin của tôi
Chưa có thông tin nào mới cập nhật
Cập nhật thông tin Fan Sao
Danh sách Sao
Xem tất cả
config
Danh sách Fan
Xem tất cả
config
Sàn Nhạc
, Tầng 21 Tòa nhà Center Building - Hapulico Complex
Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội.
Email:
sannhac@gmail.com
Liên hệ hợp tác: 094.686.1289
Giới thiệu quảng cáo
Liên hệ quảng cáo:
Admicro
Hà Nội – Ms. Hải Yến: 0988 965 517 – (84 4) 3974 8899. Ext 2201
Hồ Chí Minh – Mr.Tuấn: 0983 050 185 – (84 8) 7307 7979. Ext 173
Email:
giaitrixahoi@admicro.vn
Hỗ trợ & CSKH:
Admicro
Ms.Thơm: 01268 269 779
Address: Tầng 20, Center Building Hapulico Complex, Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội
Copyright 2009
– Công ty cổ phần VCCorp.
Chịu trách nhiệm quản lý nội dung : Bà Nguyễn Bích Minh.
Tầng 17, 19, 20, 21 Tòa nhà Center Building - Hapulico Complex
Số 1 Nguyễn Huy Tưởng, Thanh Xuân, Hà Nội.
Giấy phép số 280/GP-BTTTT Bộ Thông tin và Truyền thông cấp ngày 14 tháng 06 năm 2017.
Trang chủ
|
Điều khoản
|
Quy định
|
Phòng thu
|
Beat
|
Recording
## Lưu bút


text:
Timviec.vn - website tìm kiếm việc làm và tuyển dụng hàng đầu, là nhịp cầu nối giữa người tìm việc và các công ty, tổ chức có nhu cầu tuyển dụng. Với website timviec.vn thông tin tuyển dụng được thực hiện ở mọi nơi trên đất nước Việt Nam, trên mọi lĩnh vực hoạt động kinh tế xã hội.
Hệ thống Website timviec.vn nhận được sự hỗ trợ và vận hành bởi 5 Công ty hàng đầu về dịch vụ Internet tại Việt Nam đảm bảo mang đến người sử dụng hệ thống mang tính chuyên nghiệp cao nhất.

Pragma: private

Set-Cookie: vbseo_loggedin=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; Max-Age=0; path=/


text:
Tin nhắn hệ thống
Your administrator has required a password to access this forum. Please enter this password now.
Note: This requires cookies!
Chọn nhanh
- Khu vực riêng
- Thiếp lập
- Tin nhắn riêng
- Các theo dõi
- Đang trực tuyến
- Tìm diễn đàn
- Trang chính
- Diễn đàn
- Tổng hợp
- Máy Tính Cá Nhân - PC
- Máy Tính Xách Tay - MTXT
- Thiết bị di động
- Thế giời Trò Chơi - Games
- Phần mềm - Softwares
- Khu vực bán hàng
Với giá bán về việt nam chỉ 3,79 triệu đồng kèm theo nhiều quà Tặng mê hoặc Lúc mua mặt hàng, Lenovo A7000 + Plus được xem là phe đối lập khó đánh bại với lý thuyết ngon, bổ, rẻ. Chiếc điện thoại giá...
Thay mặt kính cảm ứng Lenovo A7000 + Plus Chính Hãng nhất tại TP HCM

markdown:
## Tin nhắn hệ thống
Your administrator has required a password to access this forum. Please enter this password now.
Note: This requires cookies!
[Chọn nhanh](javascript://)
- Khu vực riêng
[Thiếp lập](usercp.php?s=2f9805469a1e294aceba512bde2f1e15) [Tin nhắn riêng](private.php?s=2f9805469a1e294aceba512bde2f1e15) [Các theo dõi](subscription.php?s=2f9805469a1e294aceba512bde2f1e15) [Đang trực tuyến](online.php?s=2f9805469a1e294aceba512bde2f1e15) [Tìm diễn đàn](search.php?s=2f9805469a1e294aceba512bde2f1e15) [Trang chính](forum.php?s=2f9805469a1e294aceba512bde2f1e15)
- Diễn đàn
[Tổng hợp](forums/4-Tong-hop.html?s=2f9805469a1e294aceba512bde2f1e15) [Máy Tính Cá Nhân - PC](forums/10-May-Tinh-Ca-Nhan-PC.html?s=2f9805469a1e294aceba512bde2f1e15) [Máy Tính Xách Tay - MTXT](forums/16-May-Tinh-Xach-Tay-MTXT.html?s=2f9805469a1e294aceba512bde2f1e15) [Thiết bị di động](forums/20-Thiet-bi-di-dong.html?s=2f9805469a1e294aceba512bde2f1e15) [Thế giời Trò Chơi - Games](forums/31-The-gioi-Tro-Choi-Games.html?s=2f9805469a1e294aceba512bde2f1e15) [Phần mềm - Softwares](forums/38-Phan-mem-Softwares.html?s=2f9805469a1e294aceba512bde2f1e15) [Khu vực bán hàng](forums/50-Khu-vuc-ban-hang.html?s=2f9805469a1e294aceba512bde2f1e15)
Với giá bán về việt nam chỉ 3,79 triệu đồng kèm theo nhiều quà Tặng mê hoặc Lúc mua mặt hàng, Lenovo A7000 + Plus được xem là phe đối lập khó đánh bại với lý thuyết ngon, bổ, rẻ. Chiếc điện thoại giá...
## Thay mặt kính cảm ứng Lenovo A7000 + Plus Chính Hãng nhất tại TP HCM

Set-Cookie: vb_lastactivity=0; expires=Thu, 13-Dec-2018 22:00:47 GMT; Max-Age=31536000; path=/