VB小时小时信号程序修改，VB设计小时小时信号代码？

下面是一个示例。

private sub form_load()= 1000

end sub

private sub timer1_timer()if minute(time) =00" and second(time) =00" then

msgbox "现在是积极的"&小时（时间） &小时"技巧"

end if

end sub

创建一个 timer1 控件，然后： private sub timer1 timer（）if minute（now） mod 30 = 0 and second（now） = 0 then print now'时间也可以用其他方式表示。

end sub

请告诉我如何将时间复制到地址栏，以及它是哪个文件。

添加一个定时器控件，设置 interval=1000 并写入：

private sub timer1_timer()if minute(now)=0 and second(now)=0 then

在整点上，当分钟和秒为 0 时，将对其进行处理。

end if

end sub

不建议使用楼上设置interval=360000000000的方式，这样 首先，vb是不允许的，即使允许，每次运行都要在整点运行吗？

思路： 1.VBA下有一个功能：

这意味着等待"18:23:00"启动宏！ 这个可以使用！

2. 例如，你可以将这个函数写入一个模块中，如下例所示，以达到这样的效果：

在程序中添加一个定时器控件，将间隔设置为 36000000，并将要执行的 ** 放在定时器事件中。

这个主程序总是在运行（有点浪费内存），并且可以隐藏表单的运行。

如果你想自己做。

这里有一个想法。

首先，把 1-10、“点”（小时）、“分钟”、“秒”。

这些单词的发音是用带windwos的录音机记录下来的（平均发音约为一秒），然后使用MID功能获取当前时间的每个字符并告诉时间。

两种方法：

1.VB程序已打开，在FROM中放一个计时器，每xx秒检查一次，时间到了就执行相关操作。

2.无论时间如何，VB程序都会在系统的时间表中定期启动。

从这个列表中可以看出，数字是主控单片机，数字是晶体振荡电路，数字是上电复位和手动复位电路，数字是指示电路，可以是电源指示，也可以是输出指示; 10号为****端口，与下防航母相连; 11号、11号是数模转换电路，在lz的时间系统中，不知道该怎么办，lz显然没有说出某个功能; 14 19号是放大电路，放大倍数应为3倍（（17号+16号）16号），18号作为输出隔离，19号很可能是放大电路的功率滤波电容，也可能是灵穗芬电容王的累加缺点，考虑到功能没有那么复杂， 前者的可能性更大;20 23号，电路连接线。

你可以自己写，基数60加24，时间是一个振动程序，即打开一段时间（几毫秒）断开一段时间（几毫秒），除了延时程序外，闹铃铃声响多久才能停止，除了设置程序， 可以分别设置时、分、秒，也可以使用PLC内部自带的时钟功能块，只要从秒到天做，没有年月，缺的是每天定时报时，不管是上班还是休息日。

直接比较PLC的分钟和秒寄存器，如果是0，就是小时，然后做一个香菱延时程序OK，很简单。 有些PLC没有日期寄存器，可以通过定时来实现，这并不难。

这并不难，但仍然很麻烦，但互联网上应该有信息。