08:07 ICT Thứ tư, 14/04/2021

Thống kê truy cập

Hôm nayHôm nay : 211

Tháng hiện tạiTháng hiện tại : 4769

Tổng lượt truy cậpTổng lượt truy cập : 849944

Chuyên mục Công nghệ

Trang chủ » News » Lập trình

Lập trình với MswLogo

Thứ sáu - 04/05/2018

 

Để tải mswlogo bạn có thể vào đây http://www.softronix.com/download/mswlogo65.exe

ngoài ra để xem thêm một số ví dụ mẫu cũng như các công cụ khác bạn vào đây :

http://www.softronix.com/logo.html

Trường hợp bạn chạy windows 8, hoặc server 2008 thì có thể cài đặt bản này, nếu cài bản trên khi chạy sẽ bị báo lỗi Create fail for windows MSWLogo Screen, 0, TMyWindow

Dưới đây là một số lệnh giúp bạn từng bước làm quen với mswlogo, ở đây tôi không hướng dẫn phần cài đặt và cách sử dụng, các bạn có thể tham khảo trong giáo trình làm tin học lớp 2 3 4 5 hoặc ở trên internet. Ngoài ra các bạn có thể tự tìm hiểu thêm bằng cách khởi dộng mswlogo và vào mục Help -> Index sau đó chúng ta bấm lệnh muốn tham khảo vào. Một tài liệu khác cũng tương đối chi tiết và dễ hiểu dành cho các bạn chưa biết gì về logo các bạn có thể xem ở đây  

Lệnh

Chức năng

Ví dụ

PU

Nhấc pen, không vẽ khi di chuyển

 

PD

Hạ pen, vẽ khi di chuyển

 

SetPenSize [n n]

Chỉnh độ rộng của nét vẽ

SetPenSize [5 5]

SetPC [r g b]

Chỉnh màu cho nét vẽ

SetPC [255 0 0] nét vẽ màu đỏ

PE

Lệnh đầy đủ Penerase xóa nét vẽ khi muốn quay về chế độ bình thường dùng Pennormal

 

Fill

Tô màu ngay tại vị trí con trỏ với màu nền báo trước bởi setfloodcolor[r g b]

setfloodcolor[255 0 255]

Fill

FD n

Đi tới n pixels

Fd 100

BK x

Đi lùi lại n pixels

Bk 100

LT x

Xoay trái x độ

Lt 90

RT x

Xoai phải x độ

Rt 120

ARC a r

Vẽ một vòng cung a độ với bán kính r rùa đứng yên  ở tâm

Arc 90 50

ARC2 a r

Vẽ vòng cung a độ bán kính r rùa chạy theo vòng cung

Arc2 90 50

Circle n

Vẽ đường tròn với bán kính n

 

ST

Hiện rùa

 

HT

Ẩn rùa

 

CS

Xóa màn hình - sân chơi- rùa về home

 

Home

Rùa về vị trí ban đầu

 

Clean

Xóa màn hình, rùa đứng yên

 

Repeat n [a b c]

Lặp lại n lần công việc a, b, c

 

Wait n

Chờ n/60 giây

Wait 60 chờ 1 giây

Random n

lấy ngẫu nhiên từ 0 tới n-1

 

label “Text

Viết nội dung sau ra màn hình

label “Hello

Print text

 In Text ra ngay cửa sổ lệnh, ko in ra sân chơi

print "Hello
kết quả in ra

Hello

print [Hello how are you]

Hello how are you

 

FOR [i j k][a b c...]

i chỉ số bắt đầu

j chỉ số cuối

k số tăng

a, b, c các lệnh sẽ làm

Ví dụ sau đây sẽ viết các số từ 0 tới 5 ra màn hình và cách nhau 30 aa là biến ta tự tạo ra

FOR [aa 0 5 1 ] [fd 30 label :aa]

Bye

Thoát khỏi Mswlogo

 

 

Một số ví dụ

To Dagiac :p :n

   repeat :p[fd :n rt(180-(1-2/:p)*180)]

End

Chú ý :p là số cạnh của đa giác đều :n là độ dài của đa giác (1-2/:p)*180) là công thức tính góc trong của đa giác có p cạnh (đỉnh). Bấm từng lệnh vào trong ngăn lệnh theo thứ tự sau ta được các đa giác đều với số cạnh là  3, 4, 5, 6, 7, 8, 9 cạnh

CS

RT 90

BK 400

For [aa 3 9 1] [PD dagiac :aa 25 PU FD 80]

Lập trình với Mswlogo

To Ngoisao :n

   Repeat 5 [fd :n rt 144]

End

Vẽ ngôi sao 5 cánh với độ dài n ví dụ Ngoisao 200

111.jpg

Ví dụ dưới đây sẽ vẽ một cái thang với độ dài các bậc là n và có k bậc thang

To Thang :k :n

   repeat :k [ repeat 5[fd :n lt 90] rt 90]

   home

   bk :n

   repeat 3 [fd :n lt 90]

End

lập trình với mswlogo

Thang 8 30 ( vẽ thang 8 bậc và độ dài là 30)

Viết chương trình lưu thành các tệp, mỗi tệp gồm một hoặc nhiều thủ tục để tạo những hình trang trí theo các mẫu sau  

 

(kích thước hình, màu nét, kích thước, độ dày nét vẽ, tên thủ tục, tên tệp là tùy chọn)

 

HÌNH VẼ

CÁC LỆNH GỢI Ý

TO HINHVUONG1

SETPENSIZE [5 5] SETPC 4 RT 45

REPEAT 4[REPEAT 4[FD 30 RT 90 WAIT 30] RT 90]

REPEAT 4[REPEAT 4[FD 60 RT 90 WAIT 30] RT 90]

END

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

hoặc

TO HVUONGnho

SETPENSIZE [5 5] SETPC 4 RT 45

REPEAT 4[REPEAT 4[FD 30 RT 90 WAIT 30] RT 90]

END

TO HVUONGto

REPEAT 4[REPEAT 4[FD 60 RT 90 WAIT 30] RT 90]

END

TO TRANGTRI

HVUONGnho

HVUONGto

END

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

- Đặt độ dày 5, màu nét đỏ (4)

- Quay phải 45 độ. Vẽ 4 hình vuông nhỏ ở trong trước, 4 hình vuông lớn ở ngoài sau

Cách 1 : dùng câu lệnh Repeat lồng nhau

TO 10VONGTRON

SETPENSIZE [5 5] SETPC 10 REPEAT 10 [REPEAT 24 [FD 10 RT 15 WAIT 5] PU LT 36 FD 24 PD]

END

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Đặt độ dày 5, màu nét xanh lục đậm (10)

Cách 2 :  + viết thủ tục vẽ đường tròn trước,

       + viết thủ tục trang trí sau, có sử dụng thủ tục vẽ đường tròn.

Bước 1 : Tạo 2 thủ tục

TODUONGTRON

SETPENSIZE [5 5] SETPC 10

REPEAT 24 [FD 5 RT 15]

END

TO TRANGTRI1

REPEAT 10 [DUONGTRON RT 36 PU FD 36 PD]

END

Bước 2 : gõ lệnh TRANGTRI1 , Enter

Bước 3 : lưu tệp SAVE “ HINHHOC1.LGO

TO DUONGTRON

SETPENSIZE [3 3] SETPC 4

REPEAT 24 [FD 5 RT 360/24]

END

TO TRANGTRI2

REPEAT 6 [DUONGTRON RT 360/6 PU FD 36 PD]

END

Muốn vẽ hình trên lớn hơn có thể  sửa 2 thông số như sau :

TO DUONGTRON

SETPENSIZE [3 3] SETPC 4

REPEAT 24 [FD 10 RT 360/24]

END

TO TRANGTRI3

REPEAT 6 [DUONGTRON RT 360/6 PU FD 68 PD]

END

TO HINHTHOI

SETPENSIZE [5 5] SETPC 9

RT 45

REPEAT 4 [FD 100 RT 90]

END

TO TRANGTRI5

REPEAT 5 [HINHTHOI RT 45 PU FD 25 LT 90 PD WAIT 10]

END

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

vẽ xong 1 hình thoi cần quay đầu Rùa trở lại thẳng đứng như lúc xuất phát (LT 90) sau đó lệnh vẽ hình thoi quay phải  45 độ vẽ hình tiếp theo.

Cách 1 :  Viết 2 thủ tục

Canhhoa :  + vẽ 1 tgiác đều nét màu xanh dương đậm, rất dày

        + vẽ tiếp 1 tgiác đều cùng kthước, cùng vị trí, nét màu trắng, mỏng.

Bonghoa :  + vẽ 5 cánh hoa với góc quay 72 độ

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

TO CANHHOA1

SETPENSIZE [12 12] SETPC 1

REPEAT 3 [FD 100 RT 120]

SETPENSIZE [2 2] SETPC 7

REPEAT 3 [FD 100 RT 120]

END

TO BONGHOA1

REPEAT 5 [CANHHOA1 RT 360/5]

END

Cách 2 :  + Vẽ cánh hoa bằng tam giác nhỏ lọt trong tam giác lớn

              + Vẽ 5 cánh hoa xoay tròn (góc quay 57 độ)

TO CANHHOA2

SETPC 1

RT 45

REPEAT 3 [FD 100 LT 360/3]

LT 30 PU FD 20

LT 30 PD

REPEAT 3 [FD 65 RT 120]

RT 30 PU

BK 20 PD

END

TO BONGHOA2

REPEAT 5 [CANHHOA2 RT 57]

END

TO CANHHOA3

SETPENSIZE [5 5] SETPC 5

FD 50 BK 25 LT 30

FD 25 BK 25 RT 60

FD 25 BK 25 LT 30

BK 25

END

TO BONGHOA3

REPEAT 6 [RT 360/6 CANHHOA3]

END

 

TO NGOISAO

SETPENSIZE [5 5] SETPC 4

REPEAT 5[FD 100 RT 144]

END


Những bài cũ hơn