VB中timer控件每隔一小时事件发生一次 代码

Posted 2023-05-07

单靠一个控件 完成不了,你只可以 最长 65535 毫秒 定时,可以利一个公共变量(比如T)来计数,然后再在timer控件事件过程中第次使T 增(减)1,再判定T 是否到了规定的值.
以下是参考代码:
Dim T%
Private Sub Form_Load()
Timer1.Interval = 1000 '1000毫秒
Timer1.Enabled = True '计时器开始工作
T = 360 '置初值为360秒即1小时
End Sub
Private Sub Timer1_Timer()
T = T - 1 '每1000毫秒减1
If T = 0 Then
T = 360 '重置初值为360,为下一次
'==================
Print "此处放每小时要执行的代码"
'==================
End If
End Sub 参考技术A Private Sub Form_Load()
Timer1.Interval = 60000 '每分钟触发一次
End Sub

Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 60 Then
iCount = 0
'每小时触发一次的代码
End If
End Sub

C#-WinForm-Timer控件

比如在窗体中显示时间：

错误思路一：我在窗体结构函数中写入一个死循环，每隔一秒显示一次当前时间

 public Form6()
        {
            InitializeComponent();

            while (true)
            {
                label1.Text = DateTime.Now.ToString("yyyy年MM月dd日hh时mm分ss秒");
                System.Threading.Thread.Sleep(1000);
            }
        }

结构函数写循环显示时间

错误原因：结构函数无限循环，结构函数读不完代码是无法打开窗体的（李献策lxc）

错误思路二：放置一个按钮，窗体启动后点击按钮开始显示时间

 public Form6()
        {
            InitializeComponent();

            
        }

        private void button1_Click(object sender, EventArgs e)
        {
            while (true)
            {
                label1.Text = DateTime.Now.ToString("yyyy年MM月dd日hh时mm分ss秒");
                System.Threading.Thread.Sleep(1000);
            }
        }

点击按钮显示时间

错误原因：窗体系统在循环读取时间，无法对窗体进行其他操作

=======================================================

如何在窗体中显示当前时间？——Timer控件（李献策lxc）

Timer控件 - 按用户定义的间隔引发事件的组件，独自占用一个线程，系统正常工作

常用属性：

　　Enabled - 控件是否启用

　　Interval - 事件的频率，多长时间触发一次时间（李献策lxc）

执行事件：每次要触发的事件

在窗体中显示时间：

 //Timer控件 显示时间
        private void timer1_Tick(object sender, EventArgs e)
        {
            label1.Text = DateTime.Now.ToString("yyyy年MM月dd日hh时mm分ss秒");
        }

Timer控件显示时间

===============================================================

利用Timer控件制作一个随机抽奖系统

 public Form6()
        {
            InitializeComponent();            
        }

        bool start = false;
        //开始或结束抽奖
        private void button1_Click(object sender, EventArgs e)
        {
            if(start==false)
            {
                timer1.Enabled = true;
                start = true;
                button1.Text = "停止";
            }
            else
            {
                timer1.Enabled = false;
                start = false;
                button1.Text = "开始";
            }
        }
        //Timer控件事件
        private void timer1_Tick(object sender, EventArgs e)
        {
            Random r = new Random();
            label1.Text = r.Next(1, 200).ToString();
        }

随机抽奖