25
4
I'm using QBASIC version QB45
我正在使用QBasic版本QB45
I'm using the classic code snippet to get the state of the mouse, through a system interrupt :
我正在使用经典代码片段通过系统中断获取鼠标的状态：
个人中心
文章发布
退出 STATIC Regs as RegType
Regs.ax = &H0
CALL INTERRUPT(&H33, Regs, Regs)
IF Regs.ax = &HFFFF THEN
PRINT "ooops! No Mouse!"
SYSTEM
ENDIF
When I run the program, it does fail with "oooops! No mouse!"
当我运行该程序时，它确实失败了，并显示“哎呀！没有鼠标！”
I know that there is a mouse and that MS-DOS is not bothered by DosBox, as the mouse does work in the QBASIC graphical interface and I'm using it. It's only inside my program that it doesn't work.
我知道有一个鼠标，而且MS-DOS不受DOSBOX的影响，因为鼠标在QBasic图形界面中可以工作，我正在使用它。只有在我的程序中，它才不起作用。
Any idea?
有什么主意吗？
There were two distinct issues:
有两个截然不同的问题：
There was an issue with the STATIC . I thought it meant "local variable2 in QBASIC. So I removed it.
despite Reg.ax being negative, the mouse still works. I can read CX, DX to get the mouse position and BX to get the buttons status.
Which leads to the core issue : Why does Dosbox say that there's no mouse available when I can display it and show it?
这就引出了核心问题：为什么DOSBOX说没有鼠标可用，而我可以显示它和显示它？
Maybe I simply misunderstand the meaning of "negative AX"; maybe it just means "no driver" but the mouse still works magically. For example, this page does not mention a possible negative result : https://www.equestionanswers.com/c/c-int33-mouse-service.php
也许我只是误解了“负斧头”的意思；也许它只是意味着“没有司机”，但鼠标仍然可以神奇地工作。例如，该页面没有提到可能的负面结果：https://www.equestionanswers.com/c/c-int33-mouse-service.php
Dosbox has an int33=false setting, maybe it has something to do with it. See https://github.com/joncampbell123/dosbox-x/issues/1315
DOSBOX有一个int33=False设置，可能与此有关。请参阅https://github.com/joncampbell123/dosbox-x/issues/1315
I've updated my code to use INTERRUPTX instead of INTERRUPT:
我已经更新了我的代码，使用INTERRUPTX而不是中断：
STATIC Regs as RegTypeX
Regs.ax = &H0
CALL INTERRUPTX(&H33, Regs, Regs)
'IF Regs.ax = &HFFFF THEN
' PRINT "ooops! No Mouse!"
' SYSTEM
'ENDIF
VAR SHARED MOUSEX = Regs.CX
VAR SHARED MOUSEY = regs.DX
0
我一直在做一个项目，在这个项目中，我使用了一个旧程序并创建了一个新版本......问题是它是用 Quick Basic 编写的，它有一行我不明白的代码 ON FLAG% GOTO 1730, 1900
我有一本关于学习 BASIC 编程的旧书。它写得很好，很有趣，并且在教授计算机编程的第一步方面做得很好。这也是我的第一本关于编程的书，它为我开启了这一切。 :) 现在又有一个人想学习编程，并且(因为我
在这里输入代码`作为一个蹩脚的程序员，我有轻微的阅读障碍，我 需要以如此愚蠢的方式编写所有基于代码的东西，即使是 child 可以理解。我试着了解如何让输入层进入 输出层使用前馈但在线教程需要很多 教
关闭。这个问题是opinion-based .它目前不接受答案。 想改善这个问题吗？更新问题，以便可以通过 editing this post 用事实和引文回答问题. 8年前关闭。 Improve t
我正在尝试在 Qbasic 中制作一个迷宫，但是当指针触及迷宫线时，程序并未结束。我希望当圆圈(即指针)接触迷宫的末端时，程序应该结束。程序是这样的:- cls screen 12 DIM p AS
我在QBasic中制作了两个不同的程序，它们都保存在不同的.bas文件中，即一个是1.bas，另一个是2.bas。 当我在程序2.bas中时，如何打开程序1.bas，而不关闭它？ 程序 1 应该在程序
我正在研究一些旧的 qbasic 代码。所有 Goto 语句都一团糟。我是否正确地认为以下行总是会返回？ IF FLAG = 0 THEN TARGET = X: GOSUB 55000: TEMP
我想知道如何获取QBasic中最后打印的文本。就像如果程序打印了几行，那么如何打印最后一行。 像这样- Print "aaaaaaa" Print "bbbbbbb" 然后程序将获得最后打印的行，即b
出于怀旧的原因回到了良好的旧 qbasic 并且以前从未在 qbasic 中使用过类型和函数，因为那时我还很年轻。 TYPE Vector2 x AS SINGLE y AS SING
在 GW-BASIC 和 QuickBASIC 中，语句都传递参数，其中一些是可选的，可以根据语句省略: REM Move the text cursor to the specified colum
我的作业需要一些帮助。 问题定义 There is a rabbit 100 meters away from its hole and a fox 100 meters away from the
如何将 deck(52) 数组从 Newgame 函数传递到 deckshuffle 函数 FUNCTION newgame 'New game RANDOMIZE TIMER CA
我很久以前就制作了这个菜单，但我在大约 2 天前找到了这个文件，我想让它工作 CLS FOR k = 10 TO 65 LOCATE 2, k: PRINT CHR$(222) LOC
我在 QBASIC 中有一个 IF 语句......是的...... QBASIC...... 我一直在教某人编程(我认为这会很好而且很容易看到 语法如何工作)。 ...无论如何，我有这个代码: CL
我试图找到一个现代环境，类似于我发现 QBasic 的优点，但要弥补缺陷。这样做的目的是和我 6 岁的儿子一起编码。 我正在寻找一种 IDE，它使用现代语言，能够绘制图形和播放音频，并且不会强制用户在
我的 QB 应用程序中有这样的播放命令: PLAY "MSe8f#4f#8f#8g8a8b4.a4.g4.f#4.o0b8o1e8e8e4d8e2." 我想以某种方式将这些转换为现代应用程序可以使用的
我有以下公式: F = X / 1+4+9+16+....+n^2 如何在 QBasic 中编写一个程序来找到 F 的结果？ 谢谢。 最佳答案 来自 this useful page ，前n个自然数
我有以下公式: F = X / 1+4+9+16+....+n^2 如何在 QBasic 中编写一个程序来找到 F 的结果？ 谢谢。 最佳答案 来自 this useful page ，前n个自然数
我正在尝试将一些旧的 qbasic(旧的 dos basic)代码转换为 python。我了解 python，但不太了解 qbasic(除了猜测语法的含义)。这是qbasic代码 1020 DIM X
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 要求我们推荐或查找书籍、工具、软件库、教程或其他场外资源的问题对于 Stack Overflow 来说是
我是一名优秀的程序员,十分优秀！