使用易语言写一个倒计时程序，随着时间得递减，自定义的数字也会减少，每15分钟减少5，

你的代码 懒得模慎看，提供一个我的例子：

-------------------------------------------------------------------

初始你的一个设置的倒计时数，比如在编辑框1中为100。 一个时钟控件，时钟周期1000，时钟事件写：

程序集变量 num 整数型，初始num=0

如果（纳乎num<（洞码悉60*15）） ‘为真

num=num+1

num=0 ’为假

编辑框1.内容=到数值（编辑框1.内容）-5

-------------------------------------------------------------------------

原理：num 变量随着时钟周期1秒的时钟事件递增，（60*15）秒即15分钟后，num重置为0同时倒计时数减5。num重置后，又开始新的递增了……如此循环

应该不难理解吧

//工程名称：99秒倒计时

//功能描述：程序开始显示99秒等待开始倒计时,当再次按下开关后计时

//停止，当再按下开关后计时

//复位实际上是单片机复位，重新开始！

//通过本程序新的认识： 1.BCD数码管的使用 2.十进制到BCD码转化 　//3.C51的等搜中待按键作用

//2. temp=99i=temp/10j=temp%10i=(i<<4)dis=i+jP0=dis

//3.while(sw==1){}// 判按下，下则出 while(sw==0){}//判松开// ，开则出

#include

sbit sw=P3^5//定义开关

main()

{

unsigned char temp,dis

unsigned int i,j,k,t

// P0=0x88//初试时检伍漏桥测数码管是否正常

// for(k=0k<40000k++)

temp=99

i=temp/10

j=temp%10

i=(i<<4)

dis=i+j

P0=dis//启腔猛动是显示99

while(sw==1){}// 判按下，下则出

while(sw==0){}//判松开 ，开则出 第一次按开关

for(t=0t<5t++)//循环来减

{

for(k=0k<30000k++)

temp--

i=temp/10

j=temp%10

i=(i<<4)

dis=i+j

P0=dis

for(k=0k<30000k++)

if(sw==0) break

// while(sw==1){}

// while(sw==1){}

// break

}

while(sw==1){}// 判按下，下则出

while(sw==0){}//判松开 ，开则出 第一次按开关

while(sw==1){}// 判按下，下则出

while(sw==0){}//判松开 ，开则出 第一次按开关

}

Dim Ts As Integer, Tm As Integer, Th As Integer

Dim StartT As Boolean

Private Sub Command1_Click()

If StartT = False Then

Command1.Caption = "暂停时间"

Else

Command1.Caption = "启动时间"

End If

StartT = Not StartT

End Sub

Private Sub Command2_Click()

StartT = False

Command1.Caption = "启动时液坦睁间"

Ts = 0

Tm = 0

Th = 0

End Sub

Private Sub Command3_Click()

Th = Val(InputBox("输入小时"))

Tm = Val(InputBox("输入分钟"))

Ts = Val(InputBox("输入秒"))

End Sub

Private Sub Form_Load()

Command1.Caption = "启动时间"

Command2.Caption = "停信穗止"

Command3.Caption = "设置时间"

Label1.Caption = "0:00:00"闹岁

Timer1.Enabled = True

Timer1.Interval = 1000

Ts = 0

Tm = 0

Th = 0

StartT = False

End Sub

Private Sub Timer1_Timer()

If StartT = True Then

Ts = Ts - 1

If Ts = -1 Then

Ts = 59

Tm = Tm - 1

If Tm = -1 Then

Tm = 59

Th = Th - 1

End If

End If

If Th = 0 And Tm = 0 And Ts = 0 Then

StartT = False

End If

End If

Label1.Caption = Th &":" &Format(Tm, "00") &":" &Format(Ts, "00")

End Sub

---