注册 登录
编程论坛 → VB6论坛

敬请各位高手解决win7系统的主板喇叭演奏音乐的问题。谢谢。

HVB6 发布于 2015-08-31 20:21， 989 次点击
本单位的计算机无喇叭，如何使其主板喇叭演奏音乐？以下的2组代码不中：
使主板喇叭演奏音乐
1
Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
APIBeep 2000, 500    'APIBeep 频率,时间
End Sub
Private Sub Command1_Click()
  APIBeep 2000, 500
End Sub
2
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
   playsnd 440, 100
playsnd 494, 100
playsnd 554, 100
playsnd 622, 100
playsnd 698, 100
playsnd 784, 100
playsnd 880, 100
End Sub
Private Sub Form_Load()
playsnd 440, 100
playsnd 494, 100
playsnd 554, 100
playsnd 622, 100
playsnd 698, 100
playsnd 784, 100
playsnd 880, 100
End Sub
Function playsnd(ByVal x As Long, y As Long)
Beep x, y * 3
DoEvents
End Function
10 回复
#2
风吹过b2015-09-04 20:13
测试失败，我测试的代码如下：
代码从一个C代码里转过来的，都是使用这个函数。

程序代码：
Option Explicit
'定义低音
Const A1 = 131
Const A2 = 147
Const A3 = 165
Const A4 = 175
Const A5 = 196
Const A6 = 220
Const A7 = 247
  
'定义中音
Const B1 = 262
Const B2 = 296
Const B3 = 330
Const B4 = 349
Const B5 = 392
Const B6 = 440
Const B7 = 494
  
'定义高音
Const C1 = 523
Const C2 = 587
Const C3 = 659
Const C4 = 698
Const C5 = 784
Const C6 = 880
Const C7 = 988
  
'定义高二度
Const D1 = 1047
Const D2 = 1175
Const D3 = 1319
Const D4 = 1397
Const D5 = 1568
Const D6 = 1760
Const D7 = 1976
  
'定义节拍
Const OneBeat = 600
Const HalfBeat = 300


Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
  
Call Play1


End Sub

Private Sub Play1()

    Call Beep(C5, HalfBeat)
    Call Beep(C5, HalfBeat)
    Call Beep(C6, OneBeat)
    Call Beep(C5, OneBeat)
    Call Beep(D1, OneBeat)
    Call Beep(C7, OneBeat * 2)
  
    Call Beep(C5, HalfBeat)
    Call Beep(C5, HalfBeat)
    Call Beep(C6, OneBeat)
    Call Beep(C5, OneBeat)
    Call Beep(D2, OneBeat)
    Call Beep(D1, OneBeat * 2)
  
    Call Beep(C5, HalfBeat)
    Call Beep(C5, HalfBeat)
    Call Beep(D5, OneBeat)
    Call Beep(D3, OneBeat)
    Call Beep(D1, OneBeat)
    Call Beep(C7, OneBeat)
  
    Call Beep(D4, HalfBeat)
    Call Beep(D4, HalfBeat)
    Call Beep(D3, OneBeat)
    Call Beep(D1, OneBeat)
    Call Beep(D2, OneBeat)
    Call Beep(D1, OneBeat * 2)
  
  
    Call Beep(C5, HalfBeat)
    Call Beep(C5, HalfBeat)
    Call Beep(D5, OneBeat)
    Call Beep(D3, OneBeat)
    Call Beep(D1, OneBeat)
    Call Beep(C7, HalfBeat)
    Call Beep(C6, OneBeat * 2)
  
    Call Beep(D4, HalfBeat)
    Call Beep(D4, HalfBeat)
    Call Beep(D3, OneBeat)
    Call Beep(D1, OneBeat)
    Call Beep(D2, OneBeat)
    Call Beep(D1, OneBeat * 3)
End Sub
#3
HVB62015-09-05 08:39
回复 2楼 风吹过b
2楼的代码还是不中：
#4
wmf20142015-09-05 09:02
2楼代码我测试正常，关断本机声卡后也能发声的。是生日歌。
#5
HVB62015-09-05 16:39
回复 4楼 wmf2014
难道主板喇叭没打开？如是，则如何打开？
#6
风吹过b2015-09-05 20:39
很多组装机，主板、机箱根本就没有这个喇叭。如果这样，去找接头和喇叭的很小的零件装上，估计好难找。
我的机子估计也是没喇叭。
#7
HVB62015-09-05 21:17
回复 6楼 风吹过b
本人的机子可是品牌机哦，即AOC，在街上的的电脑公司买的。

[ 本帖最后由 HVB6 于 2015-9-5 21:19 编辑 ]
#8
风吹过b2015-09-05 22:20
没听过 AOC 的电脑来，只听过这个牌子的显示器来。
我自己用的就是
#9
HVB62015-09-06 10:15
回复 8楼 风吹过b
是 AOC 这个牌子的显示器。看来还要打开机子查看主板是否有小喇叭。谢谢。
#10
wmf20142015-09-06 10:53
无论品牌还是组装的，肯定每个机器都有小喇叭的，通过喇叭判断故障是基本设定。如果有开机“滴...”就由小喇叭。
#11
HVB62015-09-06 11:28
回复 10楼 wmf2014
开机和关机无“滴...”声响，平时开机和关机没注意这一细节，看来主板无小喇叭是肯定的。
1
©2025, BC-CN.NET
电脑版