锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net编制数字闹钟 vb闹钟代码

IT技术闹钟

VB.NET中怎么实现当时间达到设定时间时响铃？？急急急 。。在线等！谢谢了，大神帮忙啊首先在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程序的编写，希望你能设计出更好的闹钟程序来！
跪求用vb.net做一个小闹钟?。?/h2>'加个定时器,textbox ,button,labelPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
If FF = Now And FF"2001-1-1" And Timer1.Tag = "" Then
Timer1.Tag = "1"
MsgBox("ff")
End If
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FF = TextBox1.Text
Timer1.Tag = ""
End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FF = "2001-1-1"
End Sub'声音加个 AxMMControl控件AxMMControl1.DeviceType = "waveaudio" ''''''''定义播放*.wav格式AxMMControl1.FileName = "c:\1.wav" ''''''''载入文件vb.net编制数字闹钟，AxMMControl1.Command = "open" ''''''''打开载入vb.net编制数字闹钟的文件
AxMMControl1.From = 0'从头开始
AxMMControl1.Command = "play"'保存时间,只要设定时把时间保存到文本文件就行,load 事件中读取,并对比是不是超时,.
用VB编写一个闹钟程序做一个简单的闹钟程序很简单的 。vb.net编制数字闹钟我这里不用if语句 。首先我们在窗体上添加一个标签控件vb.net编制数字闹钟，再画一个“闹钟”vb.net编制数字闹钟，将闹钟得interval属性改为1000vb.net编制数字闹钟，双击闹钟 ， 进入闹钟的代码视图 ， 编写代码
private
sub
timer1_timer（）
label1.caption
=
【vb.net编制数字闹钟 vb闹钟代码】time
end
sub就行了 。谢谢采纳
利用vb.net实现小闹钟功能Private Declare Function mciSendStringA Lib "winmm.dll" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Function PlayMidiFile(ByVal MusicFile As String) As Boolean
If System.IO.File.Exists(MusicFile) Then
mciSendStringA("stop music", "", 0, 0)
mciSendStringA("close music", "", 0, 0)
mciSendStringA("open "MusicFile" alias music", "", 0, 0)
PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
End If
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text = TimeOfDay Then
'具体提醒的东西，如你说的播放音乐
PlayMidiFile("自己添加路径")
End If
'时间格式要是这样的16:00:00
'timer的interval要设成1
'你还可以自己细化
End Sub
VB程序设计怎么做数字时钟1、添加一个“label控件”命名为label
2、添加一个“timer控件”命名为timer1
3、设置“timer1”的“Interval属性”为1000
使用到的代码：
Dim Hour As Integer '小时
Dim Min As Integer'分钟
Dim Sec As Integer '秒
Private Sub Form_Load()
Hour = 0
Min = 0
Sec = 0
Label1.Caption = "00 : 00 : 00"
End Sub
Private Sub Timer1_Timer()
Dim strHour As String
Dim strMin As String
Dim strSec As String
Sec = Sec1
If Sec = 60 Then
Sec = 0
Min = Min1
If Min = 60 Then
Min = 0
Hour = Hour1
If Hour = 24 Then
Hour = 0
End If
End If
End If
If Hour10 Then
strHour = "0"Hour
Else
strHour = Hour
End If
If Min10 Then
strMin = "0"Min
Else
strMin = Min
End If
If Sec10 Then
strSec = "0"Sec
Else
strSec = Sec
End If
Label1.Caption = strHour" : "strMin" : "strSec
End Sub
关于vb.net编制数字闹钟和vb闹钟代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：虚拟主机自建bgp，建立虚拟主机

    下一篇：python爬虫douban，Python爬虫框架