weixin_67216865 2022-09-20 08:40 采纳率: 75%
浏览 27
已结题

VB6.0中使用Timer控件模拟多线程,如何对调用的通用函数加锁?

VB里我用Timer模拟多线程,线程内要调用一个函数,需要对这个函数进行锁定,直到该线程释放再被其他线程调用,如何对这个函数加锁?关键字是什么?有没有实例啥的。

  • 写回答

2条回答 默认 最新

  • 赵4老师 2022-09-20 09:51
    关注

    弄一个全局整形变量gLock,0表示空闲,1表示假线程1在使用,2表示假线程2在使用,……
    假线程n在调用不能由多个假线程调用的函数前,添加
    Dim after As Double
    Dim Integer gLock
    gLock=0
    ‘……
    after = Now + 10# / 24# / 3600#
    Do
    DoEvents
    if gLock=0 then
    gLock=n
    if gLock=n then
    call yourfunc()
    gLock=0
    endif
    else
    If Now > after Then
    exit do
    endif
    endif
    Loop

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
  • 浪客 2022-09-20 09:34
    关注

    简单粗暴的做法是函数外设置个状态值。

    Dim stat As Boolean
    
    Private Sub Command1_Click()
        stat = Not stat
        Timer1.Interval = 500
        Timer1.Enabled = stat
        Timer2.Interval = 200
        Timer2.Enabled = stat
        
        
    End Sub
    
    
    Sub doit(i)
        stat = False
        s = DateTime.Timer
        Debug.Print i & "  " & s
        Do
            t = DateTime.Timer
            DoEvents
        Loop Until (t - s > 2)
        stat = True
    End Sub
    
    Private Sub Form_Load()
        stat = False
    End Sub
    
    Private Sub Timer1_Timer()
        If stat = True Then doit 1
    End Sub
    
    Private Sub Timer2_Timer()
        If stat = True Then doit 2
    End Sub
    
    
    
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 9月28日
  • 已采纳回答 9月20日
  • 创建了问题 9月20日

悬赏问题

  • ¥15 win11系统打开软件很慢
  • ¥30 XIAO esp32c3 读取FDC2214的数据
  • ¥20 我用malloc申请了一块空间 判空显示指针不为null 但是在输出data指针所指的地址是缺全是0 空指针不能输入值进去数组为什么呀
  • ¥15 在工控机(Ubuntu系统)上外接USB蓝牙硬件进行蓝牙通信
  • ¥15 关于PROCEDURE和FUNCTION的问题
  • ¥100 webapi的部署(标签-服务器)
  • ¥20 怎么加快手机软件内部计时的时间(关键词-日期时间)
  • ¥15 C语言除0问题的检测方法
  • ¥15 为什么四分管的内径有的是16mm有的15mm,四分不应该是12.7mm吗
  • ¥15 macos13下 ios交叉编译的问题