使用WinWedge软件记录satorius天平的数据（记录）

最新推荐文章于 2021-12-08 13:10:17 发布

TinyTechFlux

最新推荐文章于 2021-12-08 13:10:17 发布

阅读量3.6k

点赞数 1

分类专栏：软工具软件

本文链接：https://blog.csdn.net/u010510134/article/details/103938928

版权

软工具软件专栏收录该内容

5 篇文章 0 订阅

订阅专栏

已经毕业快一年了，今天一个师弟问我winwedge软件如何记录satorius天平数据。经过一翻折腾，终于解决。为防止自己忘记，也方便后续同学的学习。记录操作过程。

step1:下载winwedge软件并安装
step2:打开Excel，进入开发者模式（Alt+F11）,新建立一个模块。
在这里插入图片描述
step3:新建立一个模块，双击进入模块，输入如下代码


Sub GetSingleField()

    'Dimension all variables
    Dim R As Long, Chan As Long, vDat As Variant, sDat As String

    ' Find the next empty row in Column A
    R = ThisWorkbook.Sheets("Sheet1").Cells(65000, 1).End(xlUp).Row + 1

    'Establish DDE link to WinWedge on COM1
    Chan = DDEInitiate("WinWedge", "COM1")
   
    ' The following 3 lines of code can be duplicated to collect
    ' additional fields of data into different columns.
   
    vDat = DDERequest(Chan, "Field(1)")                 ' Request the data from Field(1) in WinWedge
    sDat = vDat(1)                                      ' Convert the data into a string
    ThisWorkbook.Sheets("Sheet1").Cells(R, 1).Value = sDat     ' Put data in cell at Row = R, Column = 1
   
    DDETerminate Chan                                   ' Terminate the DDE link
   
    ' You can also insert a date/time stamp in Column B by uncommenting the following line.
    ' ThisWorkbook.Sheets("Sheet1").Cells(R, 2).Value = Now

End Sub

step4: 配置winwedge软件的端口、命令等，方便与电子天平通信（这些见说明书）。
在这里插入图片描述
[port菜单下进入,设置端口信息]