一个timer控制闪灯的程序，如何延时10s后？

2011-11-12 10:00:05 194 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于ESP32的遥控RGB频闪灯：从PWM调光到蓝牙控制全解析 PWM（脉冲宽度调制）是微控制器控制LED亮度的核心技术，通过调节脉冲占空比实现无级调光。其原理是利用数字信号模拟模拟量输出，结合RGB三原色混光算法，可生成全色谱颜色。在嵌入式开发中，ESP32凭借其硬件PWM通道和无线通信能力，成为物联网灯光控制项目的理想平台。通过蓝牙串口协议与手机APP交互，开发者能够实现远程颜色切换、频闪模式调节等功能。这种软硬件结合方案，特别适用于需要动态光源的摄影补光、氛围营造等场景。本文以遥控RGB频闪灯为例，详细解析了ESP32的PWM配置、MOSFET驱动电路设计以及蓝牙阅读详情

T

Private Sub Timer2_Timer() '闪灯程序

Ima1.Item(Timepp - 1).Visible = Not Ima1.Item(Timepp - 1).Visible

在这里如何写一个延时函数，最好不是sleep，怕占线程

ima1.item(timepp-1).visible=true

end sub

...全文

蓝桥杯单片机备忘录：高频考点与实战避坑指南单片机开发是嵌入式系统入门核心技能，而蓝桥杯作为国内权威工程实践赛事，其单片机组高度聚焦STC系列芯片在真实开发板（如CT107D）上的工程落地能力。理解寄存器配置、时序约束与硬件耦合关系，是实现稳定通信、精准控制与可靠存储的技术基础。尤其在I²C、SPI、ADC、DAC7578、AT24C02等模块应用中，微小的初始化顺序错误、上拉电阻选型偏差或BUSY标志忽略，都会导致功能失效——这正是‘蓝桥杯单片机备忘录’的价值所在：它将真题反向工程得出的条件反射级操作规范，转化为可即插即用的功能单元。面向备赛学生与阅读详情

zhaoming0418

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

zhaoming0418 2011-11-12

打赏
举报

谢谢楼上，小弟还是没看懂，我用笨办法解决的。呵呵还是谢谢你了

zdingyun 2011-11-12

打赏
举报

给段演示代码:

Private Sub Command1_Click()

    Timer2.Enabled = True

End Sub



Private Sub Form_Load()

    Timer3.Interval = 1000

    Timer3.Enabled = False

End Sub



Private Sub Timer3_Timer() '闪灯程序

    Static sum As Long

    sum = sum + 1

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    If sum Mod 10 = 0 Then

        sum = 0

        Shape1.Visible = True

        Timer2.Enabled = False

        Timer3.Enabled = False

    End If

End Sub



Private Sub Timer2_Timer() '闪灯程序

    Shape1.Visible = Not Shape1.Visible

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    Timer3.Enabled = True

End Sub

zdingyun 2011-11-12

打赏
举报

[Quote=引用 5 楼 zhaoming0418 的回复:]
大侠，没延时啊。
[/Quote]
我的代码仅提供一个思路:

Private Sub Form_Load()

    Timer3.Interval = 1000

    Timer3.Enabled = False

End Sub



Private Sub Timer3_Timer() '闪灯程序

    Static sum As Long

    sum = sum + 1

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    If sum Mod 600 = 0 Then

        sum = 0

        ima1.Item(timepp - 1).Visible = True

        Timer2.Enabled = False

        Timer3.Enabled = False

    End If

End Sub



Private Sub Timer2_Timer() '闪灯程序

    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    Timer3.Enabled = True

End Sub

贝隆 2011-11-12

打赏
举报

Timer还需要延时？呵呵

zhaoming0418 2011-11-12

打赏
举报

大侠，没延时啊。
Private Sub Timer2_Timer() '闪灯程序
Static sum As Long
sum = sum + 1
Ima1.Item(Timepp - 1).Visible = Not Ima1.Item(Timepp - 1).Visible
'在这里如何写一个延时函数，最好不是sleep，怕占线程
If sum Mod 600 = 0 Then
Ima1.Item(Timepp - 1).Visible = True
sum = 0
End If
Ima1.Item(Timepp - 1).Visible = True ‘我想延时十秒之后让这个灯就常亮了
End Sub

zhaoming0418 2011-11-12

打赏
举报

谢谢楼上的孜孜不倦！！我先试试，好用再来再谢！！

zdingyun 2011-11-12

打赏
举报

仍有错,修改如下:

Private Sub Form_Load()

    Timer2.Interval = 1000

End Sub



Private Sub Timer2_Timer() '闪灯程序

    Static sum As Long

    sum = sum + 1

    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    If sum Mod 600 = 0 Then

        ima1.Item(timepp - 1).Visible = True

        sum = 0

    End If

End Sub

zdingyun 2011-11-12

打赏
举报

改错:

Private Sub Form_Load()

    Timer2.Interval = 1000

End Sub



Private Sub Timer2_Timer() '闪灯程序

    Static sum As Long

    sum = sum + 1

    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    If sum Mod 60 = 0 Then

        ima1.Item(timepp - 1).Visible = True

        sum = 0

    End If

End Sub

zdingyun 2011-11-12

打赏
举报

Private Sub Form_Load()

    Timer2.Interval = 1000

End Sub



Private Sub Timer2_Timer() '闪灯程序

    Static sum As Long

    sum = sum + 1

    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible

    '在这里如何写一个延时函数，最好不是sleep，怕占线程

    If sum Mod 600 Then

        ima1.Item(timepp - 1).Visible = True

        sum = 0

    End If

End Sub

一个timer控制闪灯的程序，如何延时10s后？

相关推荐