matlab 自制闹钟程序,想编一个每半小时提示的闹钟程序

我自己把程序编好了，发上来给各位参考，请多指教。

代码如下：

Dim fn As String

Private Sub Command1_Click()

'CancelError 为 True。

On Error GoTo ErrHandler

'设置过滤器。

CommonDialog1.Filter = "All Files (*.*)"

'指定缺省过滤器。

CommonDialog1.FilterIndex = 2

'显示“打开”对话框。

CommonDialog1.ShowOpen

'调用打开文件的过程。

fn = CommonDialog1.FileName

Label2.Caption = fn

Exit Sub

ErrHandler:

'用户按“取消”按钮。

Exit Sub

End Sub

Private Sub Command2_Click()

MMControl1.Command = "close"

End Sub

Private Sub Timer1_Timer()

tsy = Text2.Text

keep = Text1.Text

Static a As Integer, b As Integer

a = a + 1

If a = 60 Then

b = b + 1

a = 0

If b = keep Then

MMControl1.FileName = fn

MMControl1.Command = "open"

MMControl1.Command = "play"

MsgBox tsy, vbOKOnly, "提示"

b = 0

End If

End Sub

窗体界面倒是可以根据自己喜好设定。

matlab 自制闹钟程序,想编一个每半小时提示的闹钟程序相关推荐

java 模拟电梯_请使用的Java的多线程知识来编写一个程序，实现一个简单的摩天大楼的电梯模型程序是以一座摩天大楼的多个电梯为背景，用线程、流程控制、随机函数等知识来模拟它。2、电梯的描述：...
请使用的Java的多线程知识来编写一个程序,实现一个简单的摩天大楼的电梯模型程序是以一座摩天大楼的多个电梯为背景,用线程.流程控制.随机函数等知识来模拟它. 2. 电梯的描述: 电梯是日常生活中经常 ...
python3经典小程序代码_一个可以套路别人的python小程序实例代码
python可以开发什么?谁有python小程序的源代码,...桌面程序,web都可以,还有比如现在讲的多的人工智能,神经网络源码可以去找一些开源代码,搜索一下,蛮多的. 分享python小程序代码练 ...
人工智能python小程序_Python：一个可以套路别人的python小程序
一个可以套路别人的python小程序~ 先简要介绍一下程序. 程序是使用pycharm工具,python语言所写.程序包括客户端 client.py 和服务器端 server.py 两部分,利用了py ...
美国程序员枪击案后的48小时，请放过程序员吧！
昨天一篇「突发:码农枪击了 4 名同事,导致一人情况危急」的文章基本刷爆程序员圈了.一时各大公众号都纷纷借题发挥,调侃程序员的.黑化的.讥讽的评论都有了. 事情的经过我不做任何修饰的贴给大家. 主 ...
编写一个弹出式菜单的shell程序_分享一个有趣的shell脚本--实现抓阄程序
概述今天主要分享一个有趣的shell脚本,用来实现抓阄,平时就不用剪刀石头布了. 需求使用shell编写一个抓阄的程序: 1.执行脚本后,输入英文名字全拼,产生随机数01-99之间的数字,数字越大 ...
双机通信c语言程序,上传一个自己编写的I2C双机通信程序
本帖最后由 micro_听海于 2012-11-24 19:58 编辑这几天一直在搞AVR的twi(twi就是i2c)双机通信程序,使用的是两块arduino开发板.因为最总要这个通信程序最总是要 ...
java聊天程序_急需一个用java 语言写的聊天程序
展开全部客户端: package chatroom; import java.awt.*; import java.awt.event.*; import java.net.*; import ja ...
如何建立自己的微信小程序，做一个微信小程序大概多少钱？
如今,小程序的功能越来越强大,也越来越受欢迎,它不仅能帮助企业和商家做推广,还能给他们带来很多好处.所以,很多企业都开始建立自己的小程序.但是对于如何建立自己的微信小程序,以及做一个微信小程序大概多少 ...
1-3 5-7的c语言程序,C语言求1-1/3+1/5-1/7+...——小程序，大道理
问题:用C语言编写程序求1-1/3+1/5-1/7+... 示例: #include void main(){ int n=; float sum=,a=; while(a<=){ sum=su ...
安装程序检测出计算机内含有下列,图文帮您win10系统安装ps提示：安装程序检测到计算机处于挂起状态的解决教程...
win10安装系统是最常见的电脑系统,可是有很多用户在操作过程中都有遇见对win10系统安装ps提示:安装程序检测到计算机处于挂起状态进行处理的问题.大多使用者电脑知识有限,针对win10系统安装ps ...

matlab 自制闹钟程序,想编一个每半小时提示的闹钟程序

matlab 自制闹钟程序,想编一个每半小时提示的闹钟程序相关推荐

最新文章

热门文章