|
发表于 2011-10-22 21:53:15
|
显示全部楼层
江苏省苏州市
看好这支烟 发表于 2011-10-22 20:18
谢谢 柳叶飞 你做的曲线图已经相当的好了,如果拖动滚动条后再次返回左边,不出现如上图的情 ...
在6楼新代码下面加入红色的
.版本 2
.子程序 _按钮_绘画曲线_被单击
.局部变量 横向间距, 整数型
.局部变量 纵向间距, 整数型
.局部变量 起点X坐标, 整数型
.局部变量 终点X坐标, 整数型
.局部变量 起点Y坐标, 整数型
.局部变量 终点Y坐标, 整数型
.局部变量 i, 整数型
.局部变量 x, 整数型
横向间距 = 画板1.宽度 ÷ 30
纵向间距 = 画板1.高度 ÷ 4
.计次循环首 (30, i)
起点X坐标 = 横向间距 × (i - 1)
终点X坐标 = 横向间距 × i
.判断开始 (横向滚动条2.位置 = 1)
.如果 (i = 1)
起点Y坐标 = 纵向间距 × 4
终点Y坐标 = 纵向间距 × (4 - 到整数 (文本 ))
.否则
起点Y坐标 = 纵向间距 × (4 - 到整数 (文本 [i - 1]))
终点Y坐标 = 纵向间距 × (4 - 到整数 (文本 ))
.如果结束
.判断 (横向滚动条2.最大位置 - 横向滚动条2.位置 ≤ 30)
起点Y坐标 = 纵向间距 × (4 - 到整数 (文本 [横向滚动条2.最大位置 - 30 + i - 1]))
终点Y坐标 = 纵向间距 × (4 - 到整数 (文本 [横向滚动条2.最大位置 - 30 + i]))
.默认
起点Y坐标 = 纵向间距 × (4 - 到整数 (文本 [横向滚动条2.位置 + i - 1]))
终点Y坐标 = 纵向间距 × (4 - 到整数 (文本 [横向滚动条2.位置 + i]))
.判断结束
画板1.画直线 (起点X坐标, 起点Y坐标, 终点X坐标, 终点Y坐标)
画板1.画矩形 (终点X坐标 - 2, 终点Y坐标 - 2, 终点X坐标 + 2, 终点Y坐标 + 2).计次循环尾 ()
|
|