Tự học lập trình Violet_Script. Bài 3
(Tài liệu chưa được thẩm định)
Nguồn: Tự soạn
Người gửi: Nguyễn Tuấn Cường (trang riêng)
Ngày gửi: 12h:17' 06-06-2008
Dung lượng: 71.0 KB
Số lượt tải: 359
Nguồn: Tự soạn
Người gửi: Nguyễn Tuấn Cường (trang riêng)
Ngày gửi: 12h:17' 06-06-2008
Dung lượng: 71.0 KB
Số lượt tải: 359
Số lượt thích:
0 người
Nguyễn Tuấn Cường - Trường THCS Thái Sơn - An Lão - Hải Phòng
Trang bìa
Trang bìa:
Hướng dẫn tự học lập trình mô phỏng Violet_Script Bài 3 Nguyễn Tuấn Cường Trường THCS Thái Sơn - An Lão - Hải Phòng. tuancuonghp@gmail.com Vẽ đoạn thẳng MN bằng đoạn thẳng AB cho trước Thực hành
Đoạn MN = AB: Lập trình mô phỏng Violet_Script
Trang bìa
Trang bìa:
Hướng dẫn tự học lập trình mô phỏng Violet_Script Bài 3 Nguyễn Tuấn Cường Trường THCS Thái Sơn - An Lão - Hải Phòng. tuancuonghp@gmail.com Vẽ đoạn thẳng MN bằng đoạn thẳng AB cho trước Thực hành
Đoạn MN = AB: Lập trình mô phỏng Violet_Script
↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓
Tiôi vừa up lại bài này, không biết bài bị mất hôm qua hôm nay có mất nữa không?
Anh Cường ơi! Không mất đâu. Em vừa mail cho anh rồi đó.
Em cũng bị như vậy, tài liệu :" Đề thi giải toán máy tính (BGD)" của em cũng mất, chỉ tìm được khi vào tài khoản của mình thôi.
Em cũng không hiểu lí do ..
Tôi vào rồi nhưng không thấy. Ảnh hiển thị đây có phải Việt không?
Hôm trước có bạn gửi thư hỏi cách làm BT3 của bài 3 này. Nay tôi viết lên đây thầy cô nào cần thì tham khảo. Các thầy cô chỉ việc nhập lại vào Violet, khai báo đầy đủ là chương trình chạy ngay. Nếu cần file minh hoạ bằng Violet thì gửi thư cho tôi, tôi chuyển cho thầy cô qua email.
function main set_paper Draft, 3, 0xFF0000 Line 3, 7, 12, 7 Appear Point, 3, 7, "M", below Appear Ruler, 3, 2 set_paper Draft, 1, 0x0000FF appear Compa move Compa, 3, 2 appear Text, 8.25, 0.5, "Hãy chọn điểm cuối trên thước", 2 input_point &ax, &ay appear Point,ax,ay,"" radius = ax-3 get_angle &angle, 1, 1, 1, 1 call Compa.OpenCompa, radius set_paper Draft, 1, 0x0000FF move Compa, 3, 7, angle-10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+10 disappear Compa Appear Point, ax, 7, "N", below note_edge -1, "value", 3,7,ax,7endƠ nhưng mà sao nó bị dồn hết dòng thế này?