winmm动态链接库时间控制方法

问题描述

winmm控件在vb.NET中的使用方法通过下述方法给以简单说明,下例中建立一个窗口,通过按钮可以观察从读取窗口后时间(ms)

案例

图1
右击右上角windowsApplication,加入winmm动态链接库。代码如下

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        expThread = New Thread(AddressOf expThreadRun2)1号标记点
        expThread.Start()

    End Sub
#Region "Winmm"
    Public clock As Long = 0  'ms为单位计时
    Public ExpPeriod As Integer   '实验周期,即多少秒进行一次实验

    '多媒体计时器
    Public Delegate Sub TimerEventHandler(uID As Integer, uMsg As Integer, _dwUser As Integer, dw1 As Integer, dw2 As Integer)
    Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Integer, ByVal uResolution As Integer, ByVal lpFunction As TimerEventHandler, ByVal dwUser As Integer, ByVal uFlags As Integer) As Integer
    Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Integer) As Integer
    Public MytimerHandler As TimerEventHandler '时间句柄
#End Region
    Public Sub ClockProc()
        If clock = 10000 Then
            clock = 0
            MessageBox.Show("完成一轮")
        End If
        clock = clock + 5
    End Sub
    Public TimeID1 As Long
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        MytimerHandler = AddressOf ClockProc
        TimeID1 = timeSetEvent(5, 1, MytimerHandler, 1, 1) '打开计时器
        clock = 0

    End Sub
    Public Sub expThreadRun2()
        While (1)
            expThreadRun()
        End While
    End Sub
    Public Sub expThreadRun()


        If clock = 6000 Then
            timeKillEvent(TimeID1) '关闭计时器
        Else
            Me.Invoke(New expThreadEunDelegate(AddressOf textCstr))


        End If

    End Sub
    Public expThread As Thread
    Private Sub textCstr()
        TextBox1.Text = Str(clock)
    End Sub
    Public Delegate Sub expThreadEunDelegate()


End Class

实验效果

若是在1号标记点将AddressOf expThreadRun2改为AddressOf expThreadRun,实验中只会在按button时出现数字,当时间到10000ms时出现messagebox。当使用上图代码时框中代码随时间改变,且到6000ms时如代码所示停止计时器,框体显示5995.
在这里插入图片描述

知识点

while(1)
end while
重复过程中内容。

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值