如何用VB程序做计时器

3个标签，2个按钮，1个计时器控件

Private Sub Command1_Click() '开始/暂停

If Timer1Enabled = True Then

Timer1Enabled = False

Else

Timer1Enabled = True

End If

End Sub

Private Sub Command2_Click() '停止清0

Label1 = "0"

Label2 = "0"

Label3 = "0"

Timer1Enabled = False

End Sub

Private Sub Form_Load() '初始设置

Label3 = "0"

Label2 = "0"

Label1 = "0"

Timer1Interval = 1000

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

Label3 = Label3 + 1

If Label3 = 60 Then

Label3 = "0"

Label2 = Label2 + 1

If Label2 = 60 Then

Label2 = "0"

Label1 = Label1 + 1

End If

End If

End Sub

#include <reg52h>

#define uchar unsigned char

#define uint unsigned int

sbit duan=P2^6;

sbit wei=P2^7;

uchar disp=0;

uchar time=10;

int miao=0;

uchar code dispcode[]={

0x3f,0x06,0x5b,0x4f,

0x66,0x6d,0x7d,0x07,

0x7f,0x6f,0x77,0x7c,

0x39,0x5e,0x79,0x71}; //段码表

void Timer0Init(void) //1毫秒@12000MHz

{

TMOD &= 0xF0; //设置定时器模式

TMOD |= 0x01; //设置定时器模式

TL0 = 0x18; //设置定时初值

TH0 = 0xFC; //设置定时初值

TF0 = 0; //清除TF0标志

TR0 = 1; //定时器0开始计时

}

void main()

{

Timer0Init()

ET0=1; //开启定时器0中断

EA=1;

while(1);//等待中断

}

void time0(void)interrupt 1

{

TL0 = 0x18; //设置定时初值

TH0 = 0xFC; //设置定时初值

if(disp&1=0)

{

duan=1;

P0=dispcode[time%10];

duan=0;

wei=1;

P0=0xdf;

wei=0;

}

else

{

duan=1;

P0=dispcode[time/10];

duan=0;

wei=1;

P0=0xef;

wei=0;

}

disp++;

miao++;

if(miao==1000)

{

miao=0;

if(miao!=0)time--;

}

}

i3uk

软件名称:羽睿专用倒计时定时器V12绿色版

语言:简体中文

大小:879KB

类别:系统工具

介绍:本软件主要用于教学环境中的倒计时 *** 作，例如，游戏倒计时、演讲倒计时、表演倒计时、比赛倒计时、考试倒计时等。程序内设30秒倒计时、60秒倒计时、2分钟倒计时等等选项，也可以自由设定倒计时时间，选项设定声音提醒，最后10秒声音提示，结束音乐提示，可根据自身情况，更换提示声音文件，以达到不同需求。

窗体中做一个标签，一个命令按钮，一个定时器，以下是代码：

Dim n As Integer

Private Sub Command1_Click()

Timer1Interval = 100

End Sub

Private Sub Form_Load()

n = 30000

Label1FontSize = 40

Label1Alignment = 2

Label1Caption = "50:000"

Command1Caption = "倒计时启动"

End Sub

Private Sub Timer1_Timer()

n = n - 1

m = n \ 600

s = (n Mod 600) \ 10

If s < 10 Then s = "0" & s

ss = n Mod 10

Label1Caption = m & ":" & s & "" & ss

End Sub

7SEG-COM-CATHODE 为共阴管

#include<reg51h>

#define uchar unsigned char

#define uint unsigned int

uchar num=60,shi,ge;

uchar code TAB[]={

  0x3F,/0/

        0x06,/1/

        0x5B,/2/

        0x4F,/3/

        0x66,/4/

        0x6D,/5/

        0x7D,/6/

        0x07,/7/

        0x7F,/8/

        0x6F,/9/

 };

void T0INTinit()

{

TMOD=0x01;

TH0=(65536-50000)/256;

TL0=(65536-50000)%256;

EA=1;

ET0=1;

TR0=1;

}

void main()

{

T0INTinit();

while(1)

{

shi=num/10;

ge=num%10;

P0=TAB[shi];

P2=TAB[ge];

}

}

void T0INT() interrupt 1

{

uchar i;

TH0=(65536-50000)/256;

TL0=(65536-50000)%256;

i++;

if(i==20)

{

i=0;

num--;

if(num==0)

num=60;

}

}

以上就是关于如何用VB程序做计时器全部的内容，包括:如何用VB程序做计时器、51单片机试题，写一个用单个数码管显示10秒倒计时的程序，急！！！！！、跪求好心人分享羽睿专用倒计时定时器 V1.2 绿色版软件免费百度云资源等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！