实时显示曲线

2008-02-22 11:38:18 284 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

机械臂速成小指南（八）：标准DH法实战——从连杆坐标系到运动学方程本文详细介绍了机械臂运动学建模中的标准DH法，从连杆坐标系的建立到运动学方程的求解，提供了实用的操作步骤和代码示例。通过DH参数表和变换矩阵的构建，帮助读者快速掌握机械臂运动学建模的核心技术，并解决实际应用中的常见问题。阅读详情

横轴： A，B，C，D，E 位置固定
纵轴：A，B，C，D，E对应的时间变化（不断变化）数值来自label1.caption,label2.caption,label3.caption,label4.caption,label5.caption
如何实现在PICTURE控件里实时显示A，B，C，D，E对应纵轴坐标绘制而成的变化曲线。

...全文

SRAM故障排查实战：如何用Nano Prober定位6T存储单元的异常点本文详细介绍了在SRAM故障排查中，如何运用Nano Prober（纳米探针）技术精准定位6T存储单元的内部异常。面对传统方法难以发现的电性参数漂移（如晶体管阈值电压偏移）或微小物理缺陷，Nano Prober能直接对单个6T单元内的晶体管进行I-V特性测量，结合失效模式分析，有效解决读写错误等疑难问题，是芯片失效分析的关键工具。阅读详情

meilidexue

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

guoln1010 2011-05-05

打赏
举报

[Quote=引用 7 楼 smalle 的回复:]
直接用line连接ABCDE各点。定时执行就行了
[/Quote]
坐标轴怎么显示？

cbm6666 2008-03-05

打赏
举报

参考一下这个

【CBM666 的实时动态曲线图演示】

1.随机数取得数据动态往左移动(经由数据库或串口取得数据可自己修改)

2.每个页面自动保存图片(可自己增加浏览图片)

下载地址:
http://cbm666.com/curvrnd.exe

效果图:
http://hiphotos.baidu.com/cbm666/pic/item/26fdab18b5094d0d34fa4161.jpg

http://hiphotos.baidu.com/cbm666/pic/item/b7fb720e61e379c07bcbe190.jpg

shliping 2008-03-05

打赏
举报

学习。

meilidexue 2008-02-27

打赏
举报

smalle :你好!

你能给个事例不?

射天狼 2008-02-26

打赏
举报

http://www.j2soft.cn/static_html/200511072158264567admin.html

这里有源码，你可以看看

smalle 2008-02-25

打赏
举报

直接用line连接ABCDE各点。定时执行就行了

meilidexue 2008-02-25

打赏
举报

大家能否给个方法啊？？

用户　昵称 2008-02-22

打赏
举报

VERSION 5.00

Begin VB.Form Form1 

   Caption         =   "Form1"

   ClientHeight    =   5715

   ClientLeft      =   60

   ClientTop       =   450

   ClientWidth     =   8415

   LinkTopic       =   "Form1"

   ScaleHeight     =   381

   ScaleMode       =   3  'Pixel

   ScaleWidth      =   561

   StartUpPosition =   3  'Windows Default

   Begin VB.PictureBox Picture1 

      AutoRedraw      =   -1  'True

      BorderStyle     =   0  'None

      Height          =   4680

      Left            =   90

      ScaleHeight     =   312

      ScaleMode       =   3  'Pixel

      ScaleWidth      =   539

      TabIndex        =   0

      Top             =   75

      Width           =   8085

   End

   Begin VB.Timer Timer1 

      Interval        =   100

      Left            =   330

      Top             =   4980

   End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit



Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020

Dim l As Long

Dim oldy As Long

Dim newy As Long

Private Sub Form_Load()

    l = 0

    Picture1.Width = 400

    oldy = Picture1.Height / 3

    newy = Picture1.Height / 3

End Sub



Private Sub Timer1_Timer()

    Randomize Timer

    newy = Picture1.Height / 3 + 100 * Rnd

    If l + 20 < Picture1.Width Then

        Picture1.Line (l, oldy)-(l + 20, newy)

        l = l + 20

    Else

        BitBlt Picture1.hDC, 0, 0, Picture1.Width - 20, Picture1.Height, Picture1.hDC, 20, 0, SRCCOPY

        Picture1.Line (l - 20, oldy)-(l - 1, newy)

        Picture1.Refresh

    End If

    oldy = newy

End Sub

meilidexue 2008-02-22

打赏
举报

只需显示现在的单一实时曲线，实时刷新!
能给个事例代码不？很感谢阿！

用户　昵称 2008-02-22

打赏
举报

你每次将picture的图像向一边bitblt一点，比如整幅图像左移一定的距离，在空出来的地方画上最新的数据就行了。

meilidexue 2008-02-22

打赏
举报

楼上的不好用阿！
我的部分代码如下：

Option Explicit

Dim DataFromCom As Integer '从串口读过来的实时值
Dim DataFromComLast As Integer '上次的串口值
Dim TimeCount As Integer
dim timeline as integer

Private Sub Form_Load()
PicScale Pic '调整图像框的坐标系
PicMidleLine Pic '在图像框中画一条中线
End Sub
Private Sub PicScale(picX As PictureBox) '调整图像框的坐标系
picX.Scale (0, picX.ScaleHeight)-(picX.ScaleWidth, -picX.ScaleHeight)
End Sub

Private Sub PicMidleLine(picX As PictureBox) '在图像框中画一条中线
picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线
End Sub

Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer)

If TimeCountX - 1 > 0 Then
picX.Line ((TimeCountX - 1) * 10, DataFromComLastX)-(TimeCountX * 10, DataFromComX), vbWhite
End If

End Sub

Private Sub Timer1_Timer()
timeline=val(label.caption)'label为控件数组，A，B，C，D，E对应的纵座标为其中的元素
DataFromComLast = datafromcom
DataFromCom = 3000 * timeline
TimeCount = TimeCount + 1
DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线
End Sub
得到的曲线为连续变化曲线，不能得到对应A，B，C，D，E的时间变化的曲线(就是1楼我的提问)，
如何修改阿？？？

实时显示曲线

相关推荐