哪位使用过WinIO使（win7系统）蜂鸣器发声？代码如何写？谢谢！

用beep命令不行吗？
抱歉，记错了，刚才试了一下，VFP里没有这个命令。记得还有一个函数也可以发声的，但没有找到。

[此贴子已经被作者于2018-1-4 08:01编辑过]

网上查了一下，win7系统蜂鸣器发声下好像只能用winio，如果有其他办法也可以。
补充一下：因我这使用的电脑不能安音箱，所以只能使用蜂鸣器。

[此贴子已经被作者于2018-1-4 08:22编辑过]

??chr(7)

有恒心，是这个问题的继续 https://bbs.bccn.net/thread-470525-1-1.html
没用过WinIO，可能是个驱动层的应用。
抄一段C代码参考：
//使用WinIO驱动PC喇叭发声
#include "WinIo.h"
#define TIMER_FREQUENCY 1193167 //; 1,193,167 Hz
#define    OCTAVE    2
#define PITCH_C   523  // 523,25 Hz
#define PITCH_Cs  554  // 554,37 Hz
#define PITCH_D   587  // 587,33 Hz
#define PITCH_Ds  622  // 622,25 Hz
#define PITCH_E   659  // 659,25 Hz
#define PITCH_F   698  // 698,46 Hz
#define PITCH_Fs  740  // 739,99 Hz
#define PITCH_G   784  // 783,99 Hz
#define PITCH_Gs  831  // 830,61 Hz
#define PITCH_A   880  // 880,00 Hz
#define PITCH_As  988  // 987,77 Hz
#define PITCH_H  1047  //1046,50 Hz
// We are going to play c-major chord
#define    TONE_1    (TIMER_FREQUENCY/(PITCH_C*OCTAVE))
#define    TONE_2    (TIMER_FREQUENCY/(PITCH_E*OCTAVE))
#define    TONE_3    (PITCH_G*OCTAVE)
void Beep(DWORD pitch) {
    DWORD data=0;
    //Timer 8253-5 (AT: 8254.2).
    data=0xb6;
    SetPortVal(0x43,data,1);
    data=pitch&0xff;
    SetPortVal(0x42,data,1);
    data=(pitch>>8)&0xff;
    SetPortVal(0x42,data,1);
    //speaker on
    GetPortVal(0x61,&data,1);
    data|=0x03;
    SetPortVal(0x61,data,1);
    Sleep(30);
    //speaker off
    GetPortVal(0x61,&data,1);
    data&=0xFC;
    SetPortVal(0x61,data,1);
}
int main() {
    WinIoInit();//调用WinIO初始化函数
    for(int i=0;i<10;i++) {
        Beep(TONE_1);
        Beep(TONE_2);
        Beep(TONE_3);
    }
    WinIoExit();//退出WinIO库
    return 0;
}

吹版主，这个c代码我也看过，非常惭愧，实在看不懂，还请吹版主浪费点时间帮我转换成VFP，我再测试。谢谢！

[此贴子已经被作者于2018-1-4 11:40编辑过]

下了个，没用过，自己先检测一下有无问题再试用。

就是这个函数，我错记为sys(7)了。

这个在win7下不好用了。

CLEAR
DECLARE LONG InitializeWinIo IN WinIo.dll
DECLARE LONG ShutdownWinIo IN WinIo.dll
DECLARE LONG GetPortVal IN WinIo.dll;
   LONG wPortAddr,;
   LONG@ pdwPortVal,;
   LONG bSize            
DECLARE LONG SetPortVal IN WinIo.dll;
   LONG wPortAddr,;
   LONG dwPortVal,;
   LONG bSize   
  =SetPortVal(0x61,0xb6,1)
RETURN
试着做了个测试，还是没有声音，以上代码是模仿的，一定是哪里不对劲，烦各位帮看看。
系统催我结贴呢！呵呵

[此贴子已经被作者于2018-1-8 20:26编辑过]