Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Dim inputText As String '输入的文本
Dim inputArr() As String '输入的数字数组
Dim i As Integer '循环计数器
inputText = Text1.Text '获取输入的文本
' 将所有空格替换为逗号,将文本转换为数组
inputArr = Split(Replace(inputText, " ", ","), ",")
For i = LBound(inputArr) To UBound(inputArr)
Select Case Val(inputArr(i))
Case 1
Beep 800, 300 '播放800Hz的蜂鸣声,持续100毫秒
Image1.Picture = LoadPicture("C:\Users\28261\Desktop\1.jpeg") '显示图片1
PlaySound "C:\Users\28261\Desktop\o.wav" '播放声音1
Case 2
Beep 1200, 300 '播放1200Hz的蜂鸣声,持续100毫秒
Image1.Picture = LoadPicture("C:\Users\28261\Desktop\2.jpeg") '显示图片2
PlaySound "C:\Users\28261\Desktop\p.wav" '播放声音2
Case 3
Beep 1600, 300 '播放1600Hz的蜂鸣声,持续100毫秒
Image1.Picture = LoadPicture("C:\Users\28261\Desktop\3.jpeg") '显示图片3
PlaySound "C:\Users\28261\Desktop\q.wav" '播放声音3
Case Else
MsgBox "无法识别的数字"
Exit Sub '如果遇到无法识别的数字,退出循环
End Select
'加入延迟以便观察效果
Dim endTime As Single, currentTime As Single
endTime = Timer + 1 '设置延迟1秒
Do While Timer < endTime
DoEvents
Loop
Next i
End Sub
Private Sub PlaySound(ByVal soundFilePath As String)
Dim command As String
command = "open " & Chr(34) & soundFilePath & Chr(34) & " type MPEGVideo alias mySound"
mciSendString command, "", 0, 0
command = "play mySound"
mciSendString command, "", 0, 0
End Sub
没有合适的资源?快使用搜索试试~ 我知道了~
显示图片播放声音程序源代码.zip
共11个文件
wav:3个
jpeg:3个
vbp:1个
0 下载量 32 浏览量
2023-11-11
13:35:12
上传
评论
收藏 379KB ZIP 举报
温馨提示
适合初学者的vb6.0简体中文企业版的程序源代码
资源推荐
资源详情
资源评论
收起资源包目录
显示图片播放声音程序源代码.zip (11个子文件)
显示图片播放声音程序源代码
显示图片播放声音程序.vbw 49B
o.wav 190KB
显示图片播放声音程序.frm 3KB
显示图片播放声音程序.vbp 633B
1.jpeg 59KB
p.wav 190KB
3.jpeg 62KB
2.jpeg 61KB
q.wav 190KB
显示图片播放声音程序.exe 24KB
显示图片播放声音程序代码.txt 2KB
共 11 条
- 1
资源评论
优胜111111
- 粉丝: 10
- 资源: 505
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功