SimpleCurve 实时曲线控件
在工业计算机控制领域应用中, 需要将采集到的实时数据以实时动态曲线的形式显示出来，并且有时需要实时保存曲线走势以便分析数据，并且查阅历史曲线的查看当前走势。SimpleCurve可以满足您的需要。SimpleCurve 曲线趋势控件由广州若恒技术部--李超群开发，您可以方便地在VB，VB.Net等应用程序中调用。SimpleCurve提供了丰富的自定义属性，通过鼠标的点击即可完成居多的自定义参数，实现个性化，通过鼠标的双击（或函数接口），您也可以将当前的曲线界面“拍摄”下来，保存成图片以作分析。更多功能期待您的发现。
点击下载SimpleCurve
能给个示例吗?我是初学者,这样让我无从下手啊,谢谢!
我的邮箱:xinhaomcse@sina.com以下引用访客s84Aqd(游客)在2008-10-21 17:27:19发表的评论: 楼主：
你好！我最近正在使用您的SimpleCurve 实时曲线控件。能否发一份控件的属性和方法的列表和说明。不剩感激！我的邮箱271670189@qq.com
以下为超音速的回复：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Curve1
.AxesColor = Color.White '定义轴的颜色
.BackColor = Color.Black '定义图表的背景颜色
.CellWidth = 10 '定义表格的宽度
.CellHeight = 10 '定义表格的高度
.GridColor = Color.DarkGreen '定义表格的颜色
.GridLineWidth = 1 '定义表格的线宽
.ShowGrid = True '定义是否显示表格
.LeftOffset = 35 '定义曲线左边的距离，用于显示坐标
.TopOffset = 30 '定义曲线顶部的距离，用于显示标题
.BottomOffset = 20 '定义曲线底部的距离，用于显示坐标
.CursorColor = Color.Red '定义光标线的演示
.MaxValue = 120 '定义曲线量程的最大值
.MinValue = -120 '定义曲线量程的最小值
.ValueScale = 20 '定义曲线Y轴绘制间距
.RightOffset = 120 '定义曲线右边的距离，用于显示标签
.ShowLabels = True '定义是否显示标签
.ShowlastUpdateTime = True '定义是否显示最后更新的时间
.ShowTimeScale = True '是否显示时间轴坐标
.ShowTitle = True '定义是否显示标题
.ShowValueScale = True '定义是否显示曲线Y轴
.Spaced = 2 '定义点与点的间距
.Title = "简易曲线控件" '定义标题
.TitleColor = Color.Yellow '定义标题演示
'.TitleFont=’定义标题字体
.AddGraph(Color.Red, True, 1, "随机数一") '定义曲线一
.AddGraph(Color.Blue, True, 1, "随机数二") '定义曲线二
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim v(2) As Single
Randomize()
v(0) = Int(Rnd() * 100)
v(1) = -1 * v(0)
With Curve1
.AddValue(v(0), v(1), 1) '添加值到曲线
End With
End Sub
楼主您好，SimpleCurve 实时曲线控件我觉得不错，能告诉我在VB6下如何使用么？syq0311@sohu.com 不胜感激好像有些函数与上面例程不相同啊？
我是一组数据需用一条曲线绘出，请问用什么方法。谢谢
以下为超音速的回复：
可以绘制一条或多条曲线
楼主：
你好！我最近正在使用您的SimpleCurve 实时曲线控件。能否发一份控件的属性和方法的列表和说明。不胜感激！我的邮箱FUYINGMING8@163.COM 我用的是VB6
楼主：
你好！我最近正在使用您的SimpleCurve 实时曲线控件。能否发一份控件的属性和方法的列表和说明。不胜感激！我的邮箱FUYINGMING8@163.COM 我用的是VB6
楼主：
你好！我最近正在使用您的SimpleCurve 实时曲线控件。能否发一份控件的属性和方法的列表和说明。不剩感激！我的邮箱271670189@qq.com以下为超音速的回复：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Curve1
.AxesColor = Color.White '定义轴的颜色
.BackColor = Color.Black '定义图表的背景颜色
.CellWidth = 10 '定义表格的宽度
.CellHeight = 10 '定义表格的高度
.GridColor = Color.DarkGreen '定义表格的颜色
.GridLineWidth = 1 '定义表格的线宽
.ShowGrid = True '定义是否显示表格
.LeftOffset = 35 '定义曲线左边的距离，用于显示坐标
.TopOffset = 30 '定义曲线顶部的距离，用于显示标题
.BottomOffset = 20 '定义曲线底部的距离，用于显示坐标
.CursorColor = Color.Red '定义光标线的演示
.MaxValue = 120 '定义曲线量程的最大值
.MinValue = -120 '定义曲线量程的最小值
.ValueScale = 20 '定义曲线Y轴绘制间距
.RightOffset = 120 '定义曲线右边的距离，用于显示标签
.ShowLabels = True '定义是否显示标签
.ShowlastUpdateTime = True '定义是否显示最后更新的时间
.ShowTimeScale = True '是否显示时间轴坐标
.ShowTitle = True '定义是否显示标题
.ShowValueScale = True '定义是否显示曲线Y轴
.Spaced = 2 '定义点与点的间距
.Title = "简易曲线控件" '定义标题
.TitleColor = Color.Yellow '定义标题演示
'.TitleFont=’定义标题字体
.AddGraph(Color.Red, True, 1, "随机数一") '定义曲线一
.AddGraph(Color.Blue, True, 1, "随机数二") '定义曲线二
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim v(2) As Single
Randomize()
v(0) = Int(Rnd() * 100)
v(1) = -1 * v(0)
With Curve1
.AddValue(v(0), v(1), 1) '添加值到曲线
End With
End Sub
