0
  • 聊天消息
  • 系统消息
  • 评论与回复
登录后你可以
  • 下载海量资料
  • 学习在线课程
  • 观看技术视频
  • 写文章/发帖/加入社区
会员中心
创作中心

完善资料让更多小伙伴认识你,还能领取20积分哦,立即完善>

3天内不再提示

基于VB6.0平台的电子自旋共振仪器系统设计

电子设计 来源:郭婷 作者:电子设计 2019-01-04 09:40 次阅读

近年来,电子顺磁共振(electron paramagnetic resonanee,EPR)或称电子自旋共振(electron spin resonance,ESR)技术已成为一门新型的科学技术。它的应用领域非常广泛,特别是在物理、化学、医学方面的应用更为突出,许多电子生产厂家向市场推出了不同型号的电子自旋共振仪器,其硬件的发展非常迅速,然而相应的系统软件的支撑却比较薄弱,所以电子自旋共振仪器的系统支撑软件的开发将成为一个新的热点。

1 绘图模块的开发环境

对某一个系统的开发,开发者可以选用各种编程语言来完成,通常使用的高级语言如C++Java,PB,Visual Basic等,各种语言有各自的优点与缺点,基于不同的用户需求选用的语言也有所不同。该实验系统的开发中选用了Visual Basic 6.0,选用它的主要原因是:

(1)Visual Basic 6.0具有友好的可视化界面;

(2)Visual Basic 6.0自带的通信控件可以方便地与智能电子自旋共振仪器进行通信;

(3)Visual Basic 6.0中的画线功能可以自由地绘出绘图区中的谱线;

(4)程序代码易于以后的修改与扩充。

2绘图区实现

在此使用图片框(pictuer 2)来显示共振谱线,所以第一步就是要在窗体上定位图片框,并为其设置外观及其他属性。在该实验中,绘图区(picMain)中显示曲线有坐标值,所以首先画出图片框,然后在图片框中定制曲线生成区。定制图片框或绘图区都要先确定他们在窗体的哪个位置。所以下面先阐述VB中坐标系的定义。

2.1 坐标系的确定

VB坐标系介绍:VB里有3种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系。这3种坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致,常使人们绘图时感到不习惯。VB允许编程人员自定义坐标系,根据需要定义坐标原点的位置。默认的坐标系统是容器的左上角的坐标为(0,0),右下角坐标为(Width,Height),为了根据自己的需要来定义坐标系统,用到了Scale相关属性。

通过设置ScaleLeft和ScaleTop来设置左上角的坐标。实验中右下角坐标为:

基于VB6.0平台的电子自旋共振仪器系统设计

2.2 设置绘图区网格

定制好了绘图区,为了绘图区的美观,绘图中区加了横纵相交的网格。横坐标固定只有5个细分格,纵坐标固定4个细分格。部分代码如下:

基于VB6.0平台的电子自旋共振仪器系统设计

2.3 设置坐标

根据绘图区的大小与高度绘制x轴和y轴。

3 绘图模块实时曲线的生成

画好绘图区及坐标系后,就要在绘图区绘制实时曲线,实时曲线的绘制一般借助于Timer控件来完成,使用Timer控件,定期将串口或是其他仪器中监测到的数据送往pk_main,而曲线的绘制一般画成折线图,采用PictureBoxl的Line方法绘制。用Line方法可以在窗体或图片框上绘制一条直线或绘制一个矩形。

基于VB6.0平台的电子自旋共振仪器系统设计

3.2 时钟更新曲线

时钟更新曲线为:

基于VB6.0平台的电子自旋共振仪器系统设计

这样,就完成了在绘图区中显示从单片机实时采集到的数据的任务。

4 双游标读取某两点的数值差

用4条线来描述双游标。首先在绘图区上放置4条直线控件,4条线放置成2对坐标形式(十字相交)。并设置4条线的属性:

4条直线的名称分别为线c0_x,c0_y,c1_x,c1_y。

颜色分别为c0_x.bordercolor=&H000000FF&;c1_x.bordercolm &H00FFFF00&。

4.1 获取任意点的坐标值

通过在曲线上单击鼠标左键来获得坐标值

基于VB6.0平台的电子自旋共振仪器系统设计

4.2 任意点坐标值的显示

因为获取的是任意点的坐标值,所以鼠标放在曲线的任意位置时,坐标C0()与坐标C1()的值相应的要改变。

某点的坐标如图1所示。

基于VB6.0平台的电子自旋共振仪器系统设计

最后实验生成的曲线如图2所示。

5 结语

电子自旋共振仪数据支撑系统,基于VB6.0平台,代码简单、容易扩充。学生可以根据个人需求进行系统功能的扩充。系统设计的控制程序将所测得的数据绘制成动态曲线显示在绘图区中,实验数据的采集更为直观和准确。

声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉
  • 串口
    +关注

    关注

    14

    文章

    1549

    浏览量

    76270
收藏 人收藏

    评论

    相关推荐

    基于VB6.0 实现 CAN信号收发 Demo

    VB6.0、libTSCAN1关于Demo工程简要描述:VB6.0编程语言调用libTSCAN接口实现硬件扫描、连接、CAN报文单帧发送、周期发送、报文接收,报文过滤。典
    的头像 发表于 07-27 08:21 684次阅读
    基于<b class='flag-5'>VB6.0</b> 实现 CAN信号收发 Demo

    电子自旋与保利原理(续ii)

    电子自旋与保利原理(续ii)经典量子力学理论之量子力学的原子理论应用, 则五之三, (内容与附图页码一致,符合国际标准)11.3 电子自旋与保利
    发表于 07-27 16:55

    如何用VB6.0调用MSComm控件接收与显示数据呢

    如何用VB6.0调用MSComm控件接收与显示数据呢?有哪些步骤?
    发表于 02-14 06:52

    基于VB6.0的PC机与单片机的远程通信

    简要介绍了VB6.0中MSComm通信控件的属性和使用方法,并给出了其在PC机与单片机远程通信中的应用。关键词:VB6.0 PC机 单片机 远程通信Abstract:This paper briefly introduce the principle and
    发表于 08-15 10:09 50次下载

    VB6.0在LED汉字信息显示系统中的应用

    本文介绍了 VB6.0 在LED 汉字信息显示系统的应用中如何进行实时汉字点阵提取及串行通讯的方法,讨论了程序设计要点,给出了相应的程序代码。
    发表于 09-09 16:45 31次下载

    基于VB6.0的打印口(LPT)的应用

             在 VB6.0 编程环境下,调用动态链接库,通过打印口(LPT)实现PC 机对89C2051 单片机的编程。关键词: VB6.0 语言 89C2051 单片机动态链接库(DL
    发表于 09-11 09:13 39次下载

    基于VB6.0的点阵字模信息提取方法

    摘要:提出通过颜色法提取像素点的汉字点阵字模信息提取方法,给出基于VB6.0系统控件设置及流程实现方法。与基于内码法的汉字点阵提取方法的比较结果表明,该方法能够方便
    发表于 07-16 11:20 67次下载

    具有可移动梯度线圈单元的磁共振装置

    (electron paramagnetic resonance, EPR)或称电子自旋共振(electron spin
    发表于 08-28 15:44 0次下载

    VB6.0实现PC机与单片机的串行通信

    VB6.0实现PC机与单片机的串行通信:
    发表于 03-31 15:11 118次下载

    基于智能电子自旋共振仪的信号测量与监控系统

    在研究基于智能电子自旋共振仪的普通高校近代物理实验上,设计了一种适合智能电子自旋共振仪的基于单片机和PC机的数据传输系统,并实现串口与嵌入式单片机数据透明传输的硬件
    发表于 07-30 11:16 28次下载
    基于智能<b class='flag-5'>电子自旋共振</b>仪的信号测量与监控<b class='flag-5'>系统</b>

    Vb6.0精简版下载

    电子发烧友网站提供《Vb6.0精简版下载.exe》资料免费下载
    发表于 04-02 09:43 0次下载

    Visual+Basic+6.0+(vb6.0)简体中文企业版下载

    电子发烧友网站提供《Visual+Basic+6.0+(vb6.0)简体中文企业版下载.exe》资料免费下载
    发表于 08-18 10:04 0次下载

    电子自旋器件的优点与运用

    电子自旋器件是将自旋属性引入半导体器件中,用电子电荷和自旋共同作为信息的载体,称为电子自旋器件,已研制成功的
    的头像 发表于 04-02 10:28 7097次阅读

    基于VB6.0的机车静压试验程序

    基于VB6.0的机车静压试验程序
    发表于 09-02 15:41 4次下载

    基于VB6.0的串行通信工控软件设计及实例

    电子发烧友网站提供《基于VB6.0的串行通信工控软件设计及实例.pdf》资料免费下载
    发表于 10-31 09:33 1次下载
    基于<b class='flag-5'>VB6.0</b>的串行通信工控软件设计及实例