(PPT 倒计时)(ppt倒计时软件)

应各类演讲比赛所需，用VBA编写了PPT倒计时文件。可自行设置倒计时时间及到时提前提醒时间，其设置值可继承，直到再次被重新设置为止。具体应用时将标题“用VBA实现倒计时读秒”改为实际所需的标题即可。附属声音文件Ding.wav(计时提醒音)和End,wav(计时结束音)，可根据个性偏好，自行用其它声音文件替换。启动PowerPoint时，请单击菜单“工具”->“宏”->“安全性”，将安全级调整为中或低，以便能使用本文件。

代码：

Private Declare Function GetTickCount Lib "kernel32.dll" () As LongPrivate Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)Private Declare Function PlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal uFlags As Long) As LongConst InterVal = 1000 '自定义的时间间隔Dim myStop As Boolean '中断计时标识

Private Sub CommandButton1_Click() '倒计时开始及中断按钮Dim preTime, curTime, myTime, jsTime, txTime As Long

Select Case CommandButton1.CaptionCase "开始倒计时"CommandButton1.Caption = "停止倒计时"preTime = GetTickCount '获得计时开始初始时间myTime = Val(TextBox2) + 1 '所余倒计时时间jsTime = Val(TextBox2) + 2 '总倒计时时间txTime = Val(TextBox3) '倒计时结束前提醒时间Label3.Visible = False '隐藏倒计时输入提示标签Label4.Visible = False '隐藏计时结束前提醒时间输入标签TextBox2.Visible = False '隐藏输入倒计时时间(秒)文本框TextBox3.Visible = False '隐藏输入计时结束前提醒(秒)文本框Label2.Caption = "计时进行中" '计时状态提示标签DocurTime = GetTickCount '获得当前时间If curTime - preTime >= InterVal * (jsTime - myTime) ThenmyTime = myTime - 1TextBox1 = myTime '显示所余倒计时秒数DoEvents '转让控制权，以便让操作系统处理其它的事件If myTime = txTime ThenLabel2.Caption = "计时将结束"Call PlaySound("Ding.wav", 0&) '计时将结束提示音End IfIf myTime = 0 ThenLabel2.Caption = "计时时间到"CommandButton1.Caption = "开始倒计时"Call PlaySound("End.wav", 0&) '计时结束提示音Exit DoEnd IfEnd IfSleep (20) '延时暂停20毫秒Label1 = Time '倒计时中系统实时时间提示标签DoEventsIf myStop ThenmyStop = FalseLabel2.Caption = "计时被中断"CommandButton1.Caption = "开始倒计时"MsgBox "倒计时终止！", vbInformation + vbOKOnly, "操作提示"Exit DoEnd IfLoopCase "停止倒计时"myStop = TrueEnd Select

Label3.Visible = True '显示倒计时输入提示标签Label4.Visible = True '显示计时结束前提醒时间输入标签TextBox2.Visible = True '显示输入倒计时时间(秒)文本框TextBox3.Visible = True '显示输入计时结束前提醒(秒)文本框

(ppt是什么缩写)(ppt是什么)

End Sub

(乔布斯的ppt)(乔布斯的ppt)

演示图：