qbasic

0热度

3回答

我有下面的代码，当尝试创建一个新目录时有时会返回错误。有时当该目录不存在时，它会引发错误并且不会创建该目录。我想知道为什么？ DECLARE DYNAMIC LIBRARY "kernel32" FUNCTION CreateDirectoryA% (F$, X$) FUNCTION GetLastError&() END DECLARE F$ = "TEMPX" + CH

1热度

1回答

qbasic-我的代码有什么问题？我没有得到我想要的

我试图用qbasic做一个简单的登录程序。我使用了3个子模块和1个主模块。代码如下： DECLARE SUB login() DECLARE SUB menu() DECLARE SUB REGISTER() CLS CALL menu END SUB login OPEN "USERPASS.TXT" FOR INPUT AS #2 CLS 97 LOCATE 2, 30:

-1热度

1回答

如何在QBASIC中使用BOF功能？

我开始知道在QBASIC中可以使用BOF功能。它被称为文件的开始。但是，我没有发现任何使用它的例子。请帮忙。

2热度

1回答

在QB64中通过网络接收和发送字符串

我正在为我的兄弟工作在网络上的迷你口袋妖怪游戏。不幸的是，在测试时，我发现出于某种原因，它只在尝试向另一台计算机发送字符串的行上出现“错误的文件名或数字”错误，但在循环接收命令时没有错误。这里是我的代码： SCREEN 12 CLS PRINT "" PRINT "" PRINT "" PRINT "" PRINT "" PRINT " POKELITE - By Ma

0热度

1回答

QB64中的WideCharToMultiByte

从ANSI转换为Unicode并返回时出现问题。以下代码片段描述了我正在做的事情。我得到的0x57错误.. DECLARE DYNAMIC LIBRARY "kernel32" FUNCTION MultiByteToWideChar& (codePage~&, dwFlags~&, lpszMbstring$, byteCount&, lpwszWcstring$, wideCount

1热度

1回答

如何捕获按下Control-Alt-Delete键在QB64

我使用下面的代码在QB64捕获控制，中断： ON TIMER(1) GOSUB breaktrap TIMER ON x = _EXIT ' disable break DO _LIMIT 50 x$ = INKEY$ LOOP breaktrap: v = _EXIT IF v THEN PRINT "*break*" SLEEP 5

1热度

1回答

检查quickbasic上的文件中的一行代码

我试图让我的程序有一个对话框，并在文件中设置了密码。我需要帮助让它扫描文件中的一行代码，并且如果密码输入为真，则继续。

4热度

1回答

如何查看Gwbasic .bas文件的源代码？

我有一个旧的.bas文件，我试图查看并遇到一些问题。网上搜索似乎表明，我应该能够只是在记事本或simililar打开它，但这样做给我废话，就像这样： þ*©¿TÜ…7[/CÌ¸yõ»€¹Ù<Ñ~Æ-$Ì™}³nFuJ,ÖYòÎg)Ê‡Œ~Š¯DËðïþSnhœJN ‰=É™2+df”c).vX»[šû'Û9¹8%ñx5m#8úV4ÊBº)Eª;Iú¹ó‹|àÆ„[email protected]

0热度

2回答

如何将名称保存在Qbasic文件中？

我想在Qbasic中创建一个程序，其中一个人可以输入他们的名字并将自己标记为管理员或不需要的用户。我如何将这些偏好保存在我的程序中？

1热度

1回答

如何管道STDOUT和STDIN到qbasic程序

我想知道如何正确管道STDOUT和STDIN到在DOS 6.22上运行的qbasic程序。我希望我的qbasic程序能够通过以下行“EEUPDATEW.exe/NIC = */FILE=I211.txt/MAC = */INVMUPDATE”运行EEUPDATE.exe，然后读入EEUPDATE.exe发布的STDOUT进一步处理。我会如何去做这件事？我一整天都在ra my我的大脑，而且似乎无法让