基本 - 按键时激活麦克风录音？

Question

我负责一个旧的 BASIC 程序，需要对其进行更改才能在特定按键上激活麦克风录音。我很难找到方法。

这里有人能提供任何线索吗？

感谢您的任何帮助。

编辑：我很确定它最初是为 GW-BASIC 编写的。

Answer 1

因为听起来您还没有编写任何音频代码，所以我的建议是您不要尝试从 GW-BASIC 进行录制。没有用于访问声卡的内置功能（SOUND 和 BEEP 不算在内，因为它们与 PC 扬声器配合使用），并且在 Windows 中发送 SoundBlaster 控制代码充其量也是不可靠的。使用辅助 Windows 本机程序进行录制。

至于 BASIC 代码，您将不得不轮询键盘。示例：

100 PRINT "Press any key to continue"
110 A$ = INKEY$
120 IF A$ = "" THEN GOTO 110
130 IF A$ = CHR$(1) THEN GOSUB 1000
140 PRINT "Rest of code goes here..."
1000 ' Ctrl+A triggered the microphone
1010 PRINT "Starting microphone recording."
1020 SHELL "otherprg --startrecording"
1030 RETURN

替换您首选的密钥代码。如果您使用 INPUT，有一种方法（KEY 语句？）可以使功能键插入您选择的文本。当按下功能键时，使用 KEY 插入 CHR$(2)+CHR$(13)（^B 加 Enter），然后在每个 INPUT 调用中使用 INSTR 扫描 CHR$(2) 的结果，然后分支根据需要添加到麦克风代码。

不过，如果您使用 INPUT 来读取数字，这仍然不起作用。说真的，除非麦克风录音情​​况受到极大限制，否则您将自己设置为只能在大多数情况下工作的可怕代码。

编辑： 所有这一切都围绕着最大的问题：GW-BASIC 是单任务的。当您从麦克风录音时，您无法在程序的其他地方进行实际工作，反之亦然。