| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 748 人关注过本帖
标题:[求助]请教一个小程序--闹钟
只看楼主 加入收藏
t141256350
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-19
收藏
 问题点数:0 回复次数:6 
[求助]请教一个小程序--闹钟

我想自己用VB做个闹钟
在txet中显示时间
并且可以在指定的时间播放mp3文件
如果不手动停止
那个mp3文件一直循环播放
能不能教我如何实现循环播放?
谢谢!

Private Sub Command1_Click() '停止
WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Text1 = Time()
If Text1.Text = "13:49:00" Then
WindowsMediaPlayer1.URL = "**.mp3"
WindowsMediaPlayer1.Controls.play
********************************* '循环播放
End If
WindowsMediaPlayer1.settings.volume = 100 '设置播放器音量(0-100)
End Sub

搜索更多相关主题的帖子: mp3 闹钟 Sub Private 
2006-11-19 14:26
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
添加两个timer控件.一个textBox控件...

编写如下代码..

Option Explicit

Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1000 '每秒钟显示一次
Timer1.Enabled = True
Timer2.Interval = 100 '每100毫秒显示声明一次
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim strHour As String
strHour = Hour(Time) '取得小时数
Dim strMinute As String
strMinute = Minute(Time) '取得分钟数
Dim strSecond As String
strSecond = Second(Time) '取得秒数

strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond)

Text1.Text = strHour & ":" & strMinute & ":" & strSecond

If (Text1.Text = "14:43:00") Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep 'be的一声
End Sub

我的msn: myfend@
2006-11-19 14:44
t141256350
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-19
收藏
得分:0 
谢谢!
能不能把
Beep 'be的一声
换成
WindowsMediaPlayer1.URL = "**.mp3"
WindowsMediaPlayer1.Controls.play
再让MP3文件循环播放?
怎么样完成循环播放?
在VB6.0中AutoRewind 属性不可用
还有什么办法呢?
2006-11-20 03:35
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
当然可以....
...你先自己想一想...

我的msn: myfend@
2006-11-20 13:07
t141256350
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-19
收藏
得分:0 

Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1000 '每秒钟显示一次
Timer1.Enabled = True
Timer2.Interval = 100 '每100毫秒显示声明一次
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim strHour As String
strHour = Hour(Time) '取得小时数
Dim strMinute As String
strMinute = Minute(Time) '取得分钟数
Dim strSecond As String
strSecond = Second(Time) '取得秒数

strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond)

Text1.Text = strHour & ":" & strMinute & ":" & strSecond

If (Text1.Text = "14:43:00") Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub


上面的那么多程序
和下面的
Private Sub Timer1_Timer()
Text1 = Time()
End Sub

有什么不同?

2006-11-20 22:15
haihe99
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-11-18
收藏
得分:0 
strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond
问一下,这段代码是做什么用的? 我因为不明白,所以将其删去试试,发现一样运行啊?

2006-11-22 11:21
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
运行一样..那就删除了吧..

我的msn: myfend@
2006-11-22 13:39
快速回复:[求助]请教一个小程序--闹钟
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027467 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved