加载中…MSWLogo编程鼠标控制画圆点4
(2022-07-03 15:29:52)
标签：
林老师pclogomswlogologo博客fmslogo |
分类： WinXP~7~8~10运行Logo语言 |
复赛上机题:MSWLogo编程
鼠标控制画圆点
4
MSWLogo和FMSLogo虽属同源的LOGO语言，操作界面也基本相似，但是编程语法上面还是有不少区别的。
下面是MSWLogo的鼠标控制画圆点的源程序：
cs ht
setpensize[3 3] setpc 1
;方框蓝色宽度3
pu setxy -200 -200
pd ;移动到画框处
repeat 4[fd 400 rt
90] ;画400×400方框
pu setpensize[40
40] ;圆点直径40
mouseon [make "a mousepos
yuan] [pu] [mouseoff] [] []
make "x first
:a ;分解出:X坐标值
make "y last
:a ;分解出:Y坐标值
if and (and :x<180
:x>-180) (and :y>-180 :y<180)[
;保证圆点在框内的坐标
make "s 1+random 15
if :s>6[make "s :s+1]
setpc :s
pu setpos
:a pd fd 1 bk 1]
;在框内点击画一个点
源程序中有一个 (PR
:X :Y)
输出命令，输出的是鼠标点击在框中的坐标值。用分号屏蔽掉这一行，就没有这些坐标输出了。
to sbyd
;鼠标控制圆点
end
to yuan
end
喜欢
0
赠金笔
前一篇：复赛上机题:鼠标控制画圆点3