请朋友们帮忙，滚动条和曲线的问题。

看好这支烟

请朋友们帮忙，滚动条和曲线的问题。精币全盘托出在此拜谢！！！

滚动条、曲线.rar (1.57 KB, 下载次数: 33)

2011-10-22 11:11 上传

点击文件名下载附件
这个例程柳叶飞已经为我做好了，大家可以到9楼下载。在此谢谢{:soso_e183:}柳叶飞{:soso_e183:}朋友，祝你天天开心
{:soso_e181:}

柳叶飞

滚动条、曲线.rar (4.56 KB, 下载次数: 41)

2011-10-22 16:26 上传

点击文件名下载附件


我是用画图板模拟你需要的效果，大家一起交流

爱家的小懒虫

不会弄.帮你顶下,顺便学习~

Amdly

帮你顶下{:3_232:}

看好这支烟

谢谢{:soso_e183:} 柳叶飞 你做的曲线图已经相当的好了，如果拖动滚动条后再次返回左边，不出现如上图的情况那就更好了。另外再取点时能否加一个小方块，或者是一个小圆点。谢谢你的帮助，祝您万事顺意{:soso_e183:}天天开心{:soso_e183:}。希望您在百忙中再改动一下。谢谢。

柳叶飞

滚动条、曲线.rar (6.35 KB, 下载次数: 22)

2011-10-22 21:47 上传

点击文件名下载附件

没想到楼主这么快就给选答案了，

下午上传的附件中有个BUG,就是当滚动条位置为1时，绘画曲线出现错误，我刚修正了下，另外精简了代码，楼主重下一个吧

柳叶飞

看好这支烟 发表于 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).计次循环尾 ()

柳叶飞

画圆的话用这句

画板1.画椭圆 (终点X坐标 － 2, 终点Y坐标 － 2, 终点X坐标 ＋ 2, 终点Y坐标 ＋ 2)

柳叶飞

看好这支烟 发表于 2011-10-22 20:18
谢谢 柳叶飞 你做的曲线图已经相当的好了，如果拖动滚动条后再次返回左边，不出现如上图的情 ...

已按要求做了修改

滚动条、曲线.rar (6.45 KB, 下载次数: 50)

2011-10-22 22:13 上传

点击文件名下载附件
完善代码

完善效果

看好这支烟

多谢柳叶飞多谢{:soso_e183:}。这正是我想要的效果。还有点小问题，就是滑块到26，曲线就到最终坐标点了，还没有完全同步。看看能否再处理一下。