如何用VB画直方图？

2007-12-07 09:50:54 757 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

yuandream2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

PyQt5_pyqtgraph直方图目录效果：代码：使用：效果：代码： import sys from PyQt5 import QtCore,QtGui,QtWidgets from PyQt5.QtCore import Qt import pyqtgraph as pg pg.setConfigOption('background', 'w') pg.setConfigOption('foreground', 'k') 自定义横坐标 class RotateAxisItem(pg.AxisIte.. 阅读详情

我这里有时时生成的数据（每十分钟），需要画出直方图来，举例
9：40 最大距离100米，十分钟平均距离88米
9：50 最大距离110米，十分钟平均距离98米
按照时间轴画出，每十分钟2个指标在一起（不同颜色）表示出来。

请问有什么控件或者方法做出么？
谢谢

...全文

Office Tool Plus：正版Office干净部署指南 Office部署是Windows新机配置的关键环节，涉及版本选择、架构匹配、语言支持与合规激活等基础技术问题。其核心原理基于微软官方Office Deployment Tool（ODT）的声明式XML配置机制，通过标准化流程确保安装可复现、可审计、无第三方捆绑。技术价值在于规避官网安装器的版本锁定、架构误配和语言缺失等常见风险，提升部署稳定性与安全性。典型应用场景包括企业批量部署、IT运维标准化、隐私敏感型用户自主安装。本文以Office Tool Plus为实践载体，深入解析ODT底层逻辑、XML配置规范阅读详情

yuandream2002

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

+ 关注 + 加入社区

切换为时间正序

vbman2003 2007-12-10

打赏
举报

我没用过MSCHART :(
你在google中搜索MSCHART，看看有没有示例吧

yuandream2002 2007-12-08

打赏
举报

谢谢楼上的，我实验了，我这里因为是时时的，每10分一次，如果7，8个小时好象就不行了？修改了，貌似只能一段时间？

所以，晚上我用了MSCHART热身运动下，可能是新手。提示我不能执行，CLICK没有定义？（简单代码如下）
Option Explicit

'定义历史时间数
Dim htime() As String
Dim hdata1() As String
Dim hdata2() As String

Private Sub Command1_Click()
readfile

mydrow
End Sub

Private Sub Form1_Load()
readfile

mydrow
End Sub

Private Sub readfile()
'读取配置文件，按照历史资料读取全天资料
Open App.Path & "\1.txt" For Input As #n

Line Input #n, t
While t = ""

t1 = ""
t1 = t
'Line Input #n, t1
htime(i) = Trim(t1)
t2 = ""
Line Input #n, t2
hdata1(i) = Trim(t2)
t3 = ""
Line Input #n, t3
hdata2(i) = Trim(t3)
i = i + 1
Line Input #n, t
Wend

Close #n

ReDim htime(i - 1) As String
ReDim hdata1(i - 1) As String
ReDim hdata2(i - 1) As String

End Sub
'将读取的数据，利用控件画图
Private Sub mydraw()

Dim arrdata(addtime, 2) ' addtime is howlong

For i = 0 To addtime - 1
arrdatime(i, 1) = hdata1(i)
arrdatime(i, 2) = hdata2(i)
Next i
MSChart1.ChartData = arrdata

End Sub

Private Sub MSChart1_OLEStartDrag(Data As MSChart20Lib.DataObject, AllowedEffects As Long)

End Sub

东方之珠 2007-12-07

打赏
举报

graph32.ocx控件
下载地址：
http://www.ocx321.cn/soft/softdown.asp?softid=286

将其拷贝到c:\windows\system32下面，注册：regsvr32 c:\windows\system32\graph32.ocx /u

大王派我去巡山 2007-12-07

打赏
举报

用MSchart控件。
http://topic.csdn.net/t/20020508/09/704485.html

vbman2003 2007-12-07

打赏
举报

你新建一个工程，复制粘贴以上代码，按F5就可以运行，看看是不是你要的效果
如果看不明白，对照代码中的属性和方法，参照MSDN吧
也有现成的控件，如dlyme所说的MSchart

yuandream2002 2007-12-07

打赏
举报

谢谢，楼上的哥们，我正在学习中

想问下：
我是新手，只会VB6，上面的可以运行们？

vbman2003 2007-12-07

打赏
举报

这个不难，用line方法就可以，你可以画在窗体上，也可以画在picture控件上，下面是吃中饭时写的示例，自己按需要修改：



Option Explicit



Const v As Integer = 500



Private Sub Form_Load()

    

    Dim i As Integer

    With Me

        .Width = 7100

        .Height = 5300

        .ScaleMode = 1

        .AutoRedraw = True

        .DrawWidth = 2

        '坐标

        Scale (-v, .ScaleHeight)-(.ScaleWidth, -3 * v) '重画坐标

        Line (0, 0)-(.ScaleWidth, 0), &H0&          'X

        Line (-10, 0)-(0, -.ScaleHeight), &H0&        'Y

        '时间刻度(Y)

        For i = 1 To 14

            Line (i * v, 50)-(i * v, -0), &H0&

        Next

        '距离刻度(Y)

        For i = 1 To 10

            Line (0, i * v)-(50, i * v), &H0&

        Next

        Timer1.Enabled = True

        Timer1.Interval = 1000

        Randomize

        .DrawWidth = 2

    End With

End Sub



Private Sub Timer1_Timer()

    Dim i As Single

    Dim r As Integer

    Dim Color As Long

    Dim k As Integer

    Static cnt As Integer

    

    Color = RGB(CInt(Rnd * 255) + 1, CInt(Rnd * 255) + 1, CInt(Rnd * 255) + 1)

    r = Int(Rnd * 8) + 1

    k = 50

    Do While k < r * v

        DoEvents

        Line (cnt * v, k)-((cnt + 1) * v, k), Color

        k = k + 10

    Loop

    cnt = cnt + 1

    If cnt = 13 Then Timer1.Enabled = False

End Sub

如何用VB画直方图？

相关推荐