TAILIEUCHUNG - Trò chơi xếp hình với VB6

Chương trình sẽ cắt một hình cho trước ra thành nhiều mảnh có hình dạng ngẫu nhiên, và người chơi sẽ phải ráp từng mảnh lại. Trò chơi thật đơn giản nhưng lập trình để tạo trò chơi này không đơn giản chút nào. Bài viết giới thiệu một chương trình như vậy được thực hiện với VB6. Tạo Activex control Tạo một Standard Project mới. Vào menu Project/Add Usercontrol để thêm một Usercontrol mới (đặt tên tùy thích, ở đây tôi đặt là ShapeControl, AutoRedraw=True). Để tạo ShapeControl (SC) có hình dạng đặc biệt cần dùng 4 hàm API:. | Trò chơi xếp hình với VB6 Chương trình sẽ cắt một hình cho trước ra thành nhiều mảnh có hình dạng ngẫu nhiên và người chơi sẽ phải ráp từng mảnh lại. Trò chơi thật đơn giản nhưng lập trình để tạo trò chơi này không đơn giản chút nào. Bài viết giới thiệu một chương trình như vậy được thực hiện với VB6. Tạo ActiveX control Tạo một Standard Project mới. Vào menu Project Add Usercontrol để thêm một Usercontrol mới đặt tên tùy thích ở đây tôi đặt là ShapeControl AutoRedraw True . Để tạo ShapeControl SC có hình dạng đặc biệt cần dùng 4 hàm API CreateRectRgn CreateEllipseticRgn CombineRgn và SetWindowRgn. Khai báo các hàm trên trong SC. Khai báo thêm hàm DeleteObject dùng để hủy đối tượng đã tạo để giải phóng bộ nhớ. Để thuận tiện cho việc tạo hình cho SC ta sử dụng cấu trúc để lưu trữ dữ liệu các cạnh Private Type CauTruc Top As Long Bottom As Long Left As Long Right As Long End Type Function sau tạo hình cho SC Private Function CreateFormRegion ScaleX As Single ScaleY As Single OffsetX As Integer OffsetY As Integer DrawStyle As CauTruc As Long Hình chữ nhật chính có tọa độ 22 22 - 77 77 hình ellipse có bán kính lớn 22 và bán kính nhỏ 13 . Do hình ảnh chúng ta muốn cắt có chiều rộng và chiều dài bất kì nên ta phải nhân tỉ lệ này cho chiều dài rộng thực của mỗi miếng hình nhỏ bằng với chiều dài và chiều rộng của SC do SC sẽ là mỗi miếng hình nhỏ . Các giá trị Top Left Right Bottom trong CauTruc có thể nhận các giá trị -1 0 1. Nếu Top nhận giá trị 1 có nghĩa là hình chữ nhật sẽ kết hợp với hình ellipse nếu nhận giá trị 0 nghĩa là không có hình ellipse còn giá trị -1 thì ellipse sẽ cắt hình chữ nhật tương tự cho Left Right và Bottom . Bạn sẽ thấy cách qui định giá trị này rất hữu ích trong các bước sau. Sở dĩ khai báo Function CreateFormRegion là Private vì nếu bạn chuyển qua Public thì khi chạy chương trình VB sẽ báo lỗi là kiểu người dùng định nghĩa CauTruc không được làm đối số chỉ khi nào bạn tạo ActiveX Control riêng và biên dịch thành .ocx mới không gặp .

• Kỹ thuật lập trình
• Kỹ thuật lập trình
• Phần cứng
• Công nghệ thông tin
• Tin học
• Quản trị mạng
• kỹ thuật máy tính C
• kỹ thuật lập trình C
• giáo trình kỹ thuật lập trình C
• bài tập kỹ thuật lập trình C
• tài liệu kỹ thuật lập trình C
• chuyên ngành kỹ thuật lập trình
• Bài tập kỹ thuật lập trình
• Tài liệu kỹ thuật lập trình
• Bài giảng kỹ thuật lập trình
• Ưng dụng kỹ thuật lập trình
• Ngôn ngữ C
• kỹ thuật máy tính
• môn kỹ thuật lập trình
• ôn tập kỹ thuật lập trình
• cách học kỹ thuật lập trình
• kiến thức kỹ thuật lập trình
• học môn kỹ thuật lập trình
• Đề thi Kỹ thuật lập trình cơ bản
• Câu hỏi Kỹ thuật lập trình cơ bản
• Luyện thi Kỹ thuật lập trình cơ bản
• Ôn thi Kỹ thuật lập trình cơ bản
• Bài thi Kỹ thuật lập trình cơ bản
• Tài liệu Kỹ thuật lập trình cơ bản
• giáo trình kỹ thuật lập trình
• thủ thuật lập trình
• lập trình căn bản
• kỹ thuật phần mềm
• chương trình lập trình
• giáo trình lập trình
• lập trình hướng đối tượng
• tài liệu lập trình
• chuyên ngành lập trình
• tổng quan về lập trình
• Tổng quan về kỹ thuật lập trình
• Lập trình tốt
• Nguyên tắc lập trình
• Ngôn ngữ lập trình
• ngôn ngữ C++
• Kỹ thuật lập trình căn bản
• Kỹ thuật lập trình nâng cao
• Lập trình C căn bản
• Lập trình C nâng cao