Lập trình với MswLogo

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

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

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