用VB做波形显示遇到了瓶颈，求大师相助！

k_jion 2012-08-11 06:13:02
我想用VB做一个波形显示器，它的显示方式是先在黑背景下显示一段波形，当波形填充完整个区域后，后面的数据就会从右开始刷新以前的数据，刷新的方式是用pset花的点，先抹去上一场的波形，抹去上一场的波形的方式是将上一场波形的坐标点上过去的颜色（在画上一场波形的时候已经将该点的颜色保存下来了，其实就是背景颜色）替换掉波形的颜色，然后画上这一场的波形，我的代码在下面，可是我遇到了一个瓶颈，当我抹去过去的波形，填上颜色的时候总是有缺口，背景中的一些线总是被切断，求高手相助！！！


Option Explicit
Dim TX(800) As Integer, TX_ago(800) As Long
Dim TX_xb As Integer, TX_cal As Integer, TY As Integer
Dim gallery0_cankao As Integer

Private Sub Form_Load()
Call clear_form
Call load_picture
Call load_others
End Sub

Public Function load_others()
Timer1.Enabled = False
'ReDim TX(0 To Picture1.ScaleWidth)
End Function

Public Function load_picture()
Dim CX, CY, F, i
Picture1.ScaleMode = 3
Picture1.DrawWidth = 1
Picture1.ScaleWidth = 800
Picture1.ScaleHeight = 400
Debug.Print Picture1.ScaleWidth
Debug.Print Picture1.ScaleHeight
Picture1.BackColor = vbBlack
For i = 1 To 20
F = i / 20
CX = F * Picture1.ScaleWidth
CY = F * Picture1.ScaleHeight
Picture1.Line (CX, 0)-(CX, Picture1.ScaleHeight), RGB(35, 35, 35) '列
Picture1.Line (0, CY)-(Picture1.ScaleWidth, CY), RGB(35, 35, 35) '行
Next

End Function

Private Function clear_form()
Dim i As Integer
For i = 0 To 200
Debug.Print
Next
End Function

Public Function point_set(X As Integer, Y As Integer)
Picture1.PSet (Val(X), Val(Y)), vbBlue
End Function
Public Function point_clear(X As Integer, Y As Integer, Color As Long)
Picture1.PSet (Val(X), Val(Y)), Color
End Function


Public Function cankaoxian(i As Integer)
Dim CX, CY
CX = Picture1.ScaleWidth
CY = Picture1.ScaleHeight
Picture1.Line (0, i)-(CX, i), vbRed
End Function


Private Sub Gallery0_start_Click()
gallery0_cankao = 200
Call cankaoxian(gallery0_cankao)
Timer1.Enabled = True
End Sub


Private Sub Gallery0_stop_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()

Dim i As Integer, a As Integer, temp As Long

i = TX_cal Mod Picture1.ScaleWidth
TX_cal = TX_cal + 1
TY = 60 * Cos(TX_cal * 3.1415 / 180) + 60 * Sin(3 * TX_cal * 3.1415 / 180) + gallery0_cankao

temp = Int(TX_cal / Picture1.ScaleWidth)
If temp <> 0 Then
Call point_clear(i, TX(i), TX_ago(i))
End If
temp = Picture1.Point(i, TY)

If temp <> -1 Then
TX_ago(i) = temp
Else
TX_ago(i) = 0
End If


TX(i) = TY
Call point_set(i, TY)

End Sub
...全文
313 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2012-08-16
  • 打赏
  • 举报
 回复
http://www.m5home.com/bak_blog/article/282.html



参考这个波形显示例子:)
k_jion 2012-08-15
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 的回复:]

绘制动态折线图的VB6源代码。支持超过上下限变颜色和数据点显示。
http://download.csdn.net/detail/zhao4zhong1/1987571
[/Quote]
谢谢你，我已经弄好了
k_jion 2012-08-15
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 的回复:]

把GdiPlus.tlb放到system32下即可
[/Quote]
谢谢你，我已经弄好了
赵4老师 2012-08-14
  • 打赏
  • 举报
 回复
绘制动态折线图的VB6源代码。支持超过上下限变颜色和数据点显示。
http://download.csdn.net/detail/zhao4zhong1/1987571
贝隆 2012-08-13
  • 打赏
  • 举报
 回复
想绘制不同颜色的曲线，且要有好的图画效果，建议你使用GDI+，功能比GDI强大很多，也容易实现的多。
k_jion 2012-08-13
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 的回复:]

一个动态绘制正弦波形图的程序例子
[/Quote]
我花了一天时间研究了一下你给的程序，我想用画笔的方式来设置画出来的线的颜色和粗细，


    hpen = CreatePen(PS_SOLID, 4, vbBlue)

    lngK = GetTickCount

    MoveToEx lngMemoryDC, lngX, dblY, ByVal 0&

    lngX = lngX + 1

    dblY = (0.45 * H * Sin(K * lngX) + 0.5 * H)

    SelectObject lngMemoryDC, hpen

    lngP = LineTo(lngMemoryDC, lngX, dblY)



hpen = CreatePen(PS_SOLID, 4, vbBlue)和SelectObject lngMemoryDC, hpen是自己添加的，PS_SOLID是常量，但调试的时候怎么报错“PS_SOLID没定义”？而且我直接用1代替了PS_SOLID之后，不管我怎么调整画笔的颜色，画出来的线都是黑色的，但调整粗细在画图的时候却可以表现出来？
k_jion 2012-08-13
  • 打赏
  • 举报
 回复
谢谢1楼，我按照你说的“直接输入它的Height和Width值，使它的ScaleHeight变为400，ScaleWidth变为800”背景线就再也没有出现被截断的情况了，顺便问一下：在直接设置ScaleHeight和ScaleWidth和“直接输入它的Height和Width值”有什么区别吗？（我是新手，请多多关照！嘿嘿~~）
贝隆 2012-08-13
  • 打赏
  • 举报
 回复
把GdiPlus.tlb放到system32下即可
k_jion 2012-08-13
  • 打赏
  • 举报
 回复
[Quote=引用 9 楼 的回复:]

http://download.csdn.net/detail/veron_04/4039695
http://download.csdn.net/detail/veron_04/4237285
建议你用tlb的方式，简单方便。
[/Quote]
这个我都下了，在看教程的时候我死活也没能在VB6.0里找到GDI+，例子里面的程序我一个也没能跑起来，大师，请问一下怎么给自己的VB加载GDI+？
贝隆 2012-08-13
  • 打赏
  • 举报
 回复
http://download.csdn.net/detail/veron_04/4039695
http://download.csdn.net/detail/veron_04/4237285
建议你用tlb的方式，简单方便。
k_jion 2012-08-13
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 的回复:]

想绘制不同颜色的曲线，且要有好的图画效果，建议你使用GDI+，功能比GDI强大很多，也容易实现的多。
[/Quote]
我正在看GDI+ 不过我还是很想弄懂，为什么把画笔颜色改变了，在画图的时候图像效果却没有变化？
k_jion 2012-08-13
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 的回复:]
建议不用背景色划线的方式清除上一屏，而是重新初始化背景色以及其他必要的标签等。
[/Quote]
不是用背景色吧......
of123 2012-08-13
  • 打赏
  • 举报
 回复

建议不用背景色划线的方式清除上一屏，而是重新初始化背景色以及其他必要的标签等。
舉杯邀明月 2012-08-11
  • 打赏
  • 举报
 回复
“背景线被切断”是主要是因为显示器（三原色）的原因造成的视觉问题吧。
如果你用白色来画波形，或背景色用白色，你就会觉得显示状态好得多了。


还有一个建议，在Function load_picture()中：

Picture1.ScaleWidth = 800
Picture1.ScaleHeight = 400
这两句最好别用，你应该在设计时，把Picture1的.ScaleMode直接选成3
然后直接输入它的Height和Width值，使它的ScaleHeight变为400，ScaleWidth变为800。
VB串口通信源码210个
001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 003、Visual Basic串口通信与测控应用技术实战详解 源代码(15个全) 004、GE PLC串口通讯，VB编制，读取内存单元 005、PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分 006、VB6的串口通信程序,还有crc校验 007、VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用 008、VB.net开发的串口调试程序 009、VB.net实现串口编程，希望大家有用 010、VB版串口调试程序，包含VB源码及安装文件，适合调试串口 011、VB编程RS232串口控制DA数模转换 012、VB编程实现的串口调试工具源码 013、VB编写的RS232串口通信测试程序,以txt格式接受,可定义发送字符 014、VB编写的SouthStar串口测试与51串口烧写器V1.0版 015、VB编写的串口调试助手1.0的源码 016、VB编写的串口短信发送程序,需要数据线支持 017、VB编写的串口通信程序,实现多机通信 018、VB编写的串口通信程序，主要用于上位机与下位机间的通信 019、VB编写的串口通信程序界面参考网上的程序较简单 020、VB编写的串口通讯界面，主要面向51单片机的串口通信 021、VB编写的单片机和PC串口通信的调试程序 022、VB编写的仿真实电子琴操作界面，包含与FPGA串口通信的功能 023、VB串口API通讯,附带BAS文件全部源码,实现与饭卡读卡器通讯 024、VB串口编程,关于上位机的应用,特别适合初级学习VB的学员 025、VB串口编程调试精灵源码 026、VB串口编程实现完整的多费率电表读数软件 027、VB串口程序,,是一个串口使用例程,对初学者有用,特别是工控类的 028、VB串口传输文本,实现2台PC间的通信,类似简单的聊天工具 029、VB串口的一个电子称的项目 030、VB串口调试程序,用于通过串口控制松下空调测试 031、VB串口调试程序及源码 032、VB串口调试软件源代码,可以参考修改为其它通讯程序 033、VB串口调试软件源文件 034、VB串口控制步进电机程序完整源码 035、VB串口通信 6路10位AD转换数据采集源程序 036、VB串口通信,API串口通信模块源码 037、VB串口通信,适用简单,适合初学者 038、VB串口通信操作界面,进行数据采集,画实时曲线 039、VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线 040、VB串口通信的源码,学习的好资料 041、VB串口通信调试器的源码程序 042、VB串口通信设计视频演示源码 043、VB串口通信示例 044、VB串口通信数据源码 045、VB串口通信之串口接收程序 046、VB串口通讯测试源代码，有文本和图形两种端口数据观察方式 047、VB串口通讯程序,用来跟单片机通讯 048、VB串口通讯代码(部分) 049、VB串口通讯的参考源程序 050、VB串口通讯实例 高精度电压表(24bit) VB源程序 051、vb串口通讯示例 052、VB串口与伺服电机DSP2407通讯完整代码源程序 053、VB串口源码,动力电池检测数据采集,内含电导巡检模块通讯报文,可,读写,保存,备份数据 054、VB串口字节通信程序，包括：1字节发送子程序，n字节接收子程序 055、VB串行口通信测试示例 056、VB串行通信试验程序 057、VB的MODEM通信源代码,智能化水电远端数据读取系统 058、VB的串口源程序,包括串口的配置界面,接收功能和发送功能 059、VB访问串口，并读取电子秤上显示的数据 060、VB和西门子S7-300 PLC串口通讯程序能实现读写功能 061、VB检测串口工作状态 062、VB简单的串口短信收发功能,使用短信猫测试通过 063、VB开发串口通信,关于生物医学工程专业的血氧饱和度的设计 064、VB开发串口通信软件,利用按钮控件控制高清晰数字展示台 065、VB开发的RS232串口图像处理器驱动(摄像头驱动) 066、VB开发的串口通信源码 067、VB开发的串口与三菱FX PLC通讯源码 068、VB控制串口232通讯,对飞利浦M1卡内数据进行处理,支持密码修改等 069、VB利用Mscomm控件编写的通讯终端，可做串口通讯编程参考示例 070、VB平台单片机与PC机串口通信的PC端程序。小巧易用，功能丰富 071、VB嵌入式串口通讯波形分析显示软件 072、VB实现串口调试LED信息显示屏设备主要代码 073、VB实现串口调试工具的完整源码 074、vb实现串口通信 文件传送系统，用vb以及mscomm控件实现 075、VB实现串口通信，发送命令从而接收相应数据 076、VB使用mscom控件实现PC机与单片机串口通信 077、VB通过COM串口读取条形码设备 078、VB通过串口控制单片机读写24C02源代码 079、VB通讯程序，连接串口可在电脑显示来电号码 080、VB下的串口发短信程序,可选择端口，设置短信中心号码 081、VB写的串口通信，发送和接收实例 082、VB写的串口通信分析程序源码 083、VB写的串口通讯,通过串口对单片机进行控制 084、VB写的串口通讯软件，简单易学，适合初学者 085、VB写的通过串口与考勤机连接通讯的程序 086、vb用控件的写的串口程序，是vb的经典之作 087、VB与USB转串口的通讯完整程序,有详细说明,不需要安装驱动 088、vb与串口通信的关于回路测试的小程序很实用 089、vb语言开发的串口通信，可实现拨号传送文件等 090、VB中串口事件处理函数的示例 091、VB中的串口通讯，串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用 092、VB自动枚举系统串口加摄象头图象采集，坐标系变换 093、Visual Basic2005与自动化系统监控（串并行控制）光盘
精简版的MSDN　for VB6.0
MSDN VB6精简版 ，去除了MSDN中VC。 VF以及其他部分，只保留了完整的VB帮助，强烈推荐！ ========= 安装说明 ========= 1、执行setup.exe。 2、注册码已固化在安装程序里，不必输入了。^*^ 3、按照提示点击鼠标就完事OK。(不要使用键盘) !!!本安装可能会与新版MSDN冲突，如果您有新版MSDN，就别安装本文件!!! ========= Why this? ========= 喜欢用 Visual Basic 6? 我也是。 感觉MSDN太大？ 我也是。 这是thriller精心简化的VB6.1中文版MSDN帮助。 而这么好的东西有多大？区区14MB！ 在开玩笑吗？ 一点没开玩笑。 这是thriller精心简化的VB6中文版MSDN帮助。 thriller的目的在于让大家都来学用VB，所以花这么大力气。 所以请大家珍惜，不要骂。 另外，M$既然不再支持VB6，thriller替他们支持吧。 注意！不可以用于商业和赢利环境，你非要用于商业和赢利环境我也没办法^x^。
计算机二级（VB）
计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。课程能够帮助学习者快速入门。该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线，详细介绍了VB的相关知识点。
最强悍的 VC VB反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。 可以反编译 VB VC BCB Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。 我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
DirectX修复工具V4.3增强版
DirectX修复工具(DirectX Repair)是一款系统级工具软件，简便易用。 本程序的主要功能是检测当前系统的DirectX状态，如果发现异常则进行修复。程序主要针对0xc000007b问题设计，可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010)，并且全部DX文件都有Microsoft的数字签名，安全放心。 本程序为了应对一般电脑用户的使用，采用了易用的一键式设计，只要点击主界面上的“检测并修复”按钮，程序就会自动完成校验、检测、下载、修复以及注册的全部功能，无需用户的介入，大大降低了使用难度。在常规修复过程中，程序还会自动检测DirectX加速状态，在异常时给予用户相应提示。
控件

1,451

社区成员

41,355

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章