Vẽ hình âm dương
Ban đầu chúng ta sẽ di chuyển rùa về bên trái bằng lệnh SETX -50 và vẽ 1 nửa vòng tròn sau đó vẽ con mắt trắng các bạn hãy để ý quá trình làm việc được ghi lại bằng file ảnh ở trên, tuy nhiên phần ảnh minh họa đó không có phần vẽ mắt. Đây là code đầy đủ :
To amduong
cs
pu
setx -50
lt 90
pd
arc 180 50
PU
RT 90
BK 30
PD
CIRCLE 10
PU
home
setx 50
rt 90
pd
arc 180 50
pu
LT 90
FD 35
PD
CIRCLE 10
FILL
PU
home
pd
CIRCLE 100
PU
SETX -20
FILL
end
Một code khác của thầy Nguyễn Lộc (Phù Đổng) không sử dụng SetXY bán kính vòng tròn lớn truyền thông số từ bên ngoài vào. (Code hay, nên viết theo kiểu này)
To amduong :n
Circle :n
PU Rt 90 Fd :n/2 PD
Arc 180 :n/2
Circle :n/8 Fill
PU BK :n PD
Arc -180 :n/2
Circle :n/8
PU Fd :n/4 PD Fill
END
Một code khác sử dụng SetXY của thầy Hoàng Tam Nguyên
To amduong
rt 180 repeat 180[fd 1 lt 1]repeat 180[fd 1 rt 1] circle2 115 pu
home setxy 50 -20 pd circle 20 pu setxy 180 20 pd circle 20
setfc 0 fill pu setx 100 setfc 0 fill home pd
END
loằng ngoằng
Bạn có code nào gọn hơn thì chia sẻ với mọi người nhé :).
em mới làm quen với logo và đã tham khảo kỹ các hướng dẫn của thầy, những lệnh vẽ hình thì ok. Tuy nhiên, khi dùng sử dụng biến nhận giá trị từ bên ngoài thì em chưa hiểu, dù đã làm theo code của thầy nhưng máy vẫn báo lỗi, em nhờ thầy giúp đỡ. Cám ơn.
Chào bạn, code trên website mình chủ yếu dùng Fmswlogo do đó có một số khác biệt so với Mswlogo chủ yếu là khi gặp >=, <= thì mswlogo không hiểu, nếu bạn gặp lỗi ở đó thì bạn sửa lại một chút là xong. Bạn muốn phản hồi nhanh thì bạn hỏi trực tiếp trên fanpage nhé, các thầy cô khác sẽ giúp bạn. Ở đây giả sử bạn muốn vẽ 1 hình vuông với độ dài được truyền từ ngoài vào. To HinhVuong :bien CS Repeat 4 [Fd :bien Rt 90] End Bây giờ muốn vẽ hình vuông với chiều dài cạnh bất kỳ bạn chỉ cần gọi HinhVuong và đưa cho nó độ dài cạnh ví dụ HinhVuong 100 HinhVuong 150 HinhVuong 250....
E cam on thầy. E da làm được rồi.
cac hinh kho
khôi
khôi 5a đúng ko
to amduong
rt 180 repeat 180[fd 1 lt 1]repeat 180[fd 1 rt 1] circle2 115 pu
home setxy 50 -20 pd circle 20 pu setxy 180 20 pd circle 20
setfc 0 fill pu setx 100 setfc 0 fill home pd
end
Cảm ơn bạn, có một số bài trên fanpage, nếu có thời gian và cách giải hay hơn, gọn hơn bạn thêm bình luận của bạn vào nhé.
to amduong
rt 90
repeat 360/2 [fd 1 rt 1 ]arc 360 115 repeat 360/2 [fd 1 lt 1]
pu sety -150 pd circle 20 pu sety -50 pd circle 20 pu sety -150 fill sety -20 fill
end