用易语言设计一个随机画直线程序:运行后每隔秒在画板一条长度随机,颜色随机的直线。
2个回答
展开全部
.版本 2
.子程序 _按钮1_被单击
.局部变量 i, 整数型
时钟1.时钟周期 = 300
画板1.清除 (, , , )
.计次循环首 (到数值 (编辑框1.内容), )
画板1.画笔颜色 = 取颜色值 (取随机数 (1, 255), 取随机数 (1, 255), 取随机数 (1, 255))
画板1.画直线 (取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.高度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.高度))
.计次循环尾 ()
.子程序 _时钟1_周期事件
_按钮1_被单击 ()
.子程序 _按钮1_被单击
.局部变量 i, 整数型
时钟1.时钟周期 = 300
画板1.清除 (, , , )
.计次循环首 (到数值 (编辑框1.内容), )
画板1.画笔颜色 = 取颜色值 (取随机数 (1, 255), 取随机数 (1, 255), 取随机数 (1, 255))
画板1.画直线 (取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.高度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.高度))
.计次循环尾 ()
.子程序 _时钟1_周期事件
_按钮1_被单击 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询