用VB设计一个定时闹钟程序

孤狼不起床

孤狼不起床

2016-02-19 21:09

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐用VB设计一个定时闹钟程序,无聊中的都看过来。
使用win98的人一定知道其中有一个“计划任务"的应用程序,它能够到指定时间便开始工作。不要认为它很神秘,其实用VB来设计这样一个程序是非常容易的事,以下是一个简单的VB闹钟程序,可供各位使用VB的朋友参考,如有何不适之处,请多指点!
  首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示你预打开的文件名的路径;一个lbltime用来显示现在的时间;还有一个commondialog,它在工程菜单的部件中,你可把它加到工具箱中再开始使用;关于对话框你不必自己建,只要从应用程序向导中添加即可;一个timer,它的interval=500。
  其次在form1的属性中设置为:startupposition=2-centerscreen和maxbutton=false;label1的属性中设置为:alignment=2-center。
  外观大致是如图所示:
  下面我们开始编程:
  OptionExplicit
  DimAlarmTime
  '申明变量
  ---------
  PrivateSubCommand1_Click()
  Calldialog
  '调用dialog子程序
  EndSub
  --------
  PrivateSubCommand2_Click()
  AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟")
  IfAlarmTime=“"ThenExitSub
  IfNotIsDate(AlarmTime)Then
  MsgBox“你所输入的不是时间格式,请重试!",,“Wrong"
  Else
  AlarmTime=CDate(AlarmTime)
  EndIf
  '判断输入的是否可转换成time格式
  'isdate函数是判断输入的是否可转换成date格式
  EndSub
  --------------
  PrivateSubCommand3_Click()
  Calldeng
  '调用deng子程序
  EndSub
  ---------------
  PrivateSubForm_Click()
  frmAbout.Show
  '显示关于对话框
  EndSub
  -------------
  PrivateSubForm_Load()
  Command3.Enabled=0
  AlarmTime=“"
  '初始化时command3为不可用的
  EndSub
  ---------------
  PrivateSubForm_Resize()
  IfWindowState=1Then
  mintime
  else
  caption=“小闹钟"
  EndIf
  '如果窗口被最小化,则调用mintime程序
  EndSub
  ---------------
  PrivateSubmintime()
  Caption=Format(Time,“longTime")
  '使用长时间格式来显示时间
  EndSub
  ---------------
  PrivateSubTimer1_Timer()
  IflblTime.CaptionCStr(Time)Then
  lblTime.Caption=Time
  EndIf
  '显示时间每秒钟的变化
  IfTime=AlarmTimeThen
  Calldeng
  EndIf
  '判断如果现在的时间超过了设定的时间,则调用deng子程序
  IfWindowState=1Then
  IfMinute(CDate(Caption))Minute(Time)Then
  mintime
  EndIf
  EndIf
  '最小化时显示时间每分钟的变化
  EndSub
  -------------
  Subdialog()
  CommonDialog1.Flags=cdlCFBoth
  CommonDialog1.ShowOpen
  Label1.Caption=CommonDialog1.filename
  IfLabel1“"Then
  Command3.Enabled=-1
  Else
  ExitSub
  EndIf
  '把打开的文件名给于label1
  '如果label1不为空时,则command3即可用
  EndSub
  --------------
  Subdeng()
  Dimss
  ss=Shell(Label1.Caption,1)
  End
  '启动指定的文件,并且结束小闹钟程序
  EndSub
  最后在about对话框中要提的是:在form_load中app.title表示你的应用程序的名字;app.major、minor、revision是关于应用程序的版本信息;lblDescription.Caption用于对本程序的一些说明描述之类的话;lblDisclaimer.Caption用于版权信息或警告等。
  好了,至此我们已完成了一个简单的VB程序的编写,希望你能设计出更好的闹钟程序来!
  以上在windows98,中文VB5.0企业版中通过。->

展开更多 50%)
分享

猜你喜欢

用VB设计一个定时闹钟程序

编程语言 网络编程
用VB设计一个定时闹钟程序

用VB编写一个简单的登录程序

编程语言 网络编程
用VB编写一个简单的登录程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

一个托盘程序演示 -闹钟 Alert

C语言教程 C语言函数
一个托盘程序演示 -闹钟 Alert

一个实用的VB屏幕程序

编程语言 网络编程
一个实用的VB屏幕程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用VB.NET 2005编写定时关机程序

编程语言 网络编程
用VB.NET 2005编写定时关机程序

一个用VB5.0实现的鼠标绘图程序

编程语言 网络编程
一个用VB5.0实现的鼠标绘图程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

HTML教程,简单学习HTML语言

HTML教程,简单学习HTML语言

在VB中如何得到网络中某一台电脑(电脑名)的网卡地址?

在VB中如何得到网络中某一台电脑(电脑名)的网卡地址?
下拉加载更多内容 ↓