qbasic

4熱度

1回答

我有一箇舊的.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熱度

3回答

CreateDir在QB64中拋出異常

我有下面的代碼，當嘗試創建一個新目錄時有時會返回錯誤。有時當該目錄不存在時，它會引發錯誤並且不會創建該目錄。我想知道爲什麼？ 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回答

在這個qbasic編程中使用感嘆號（！）是什麼？

DECLARE SUB cube(!) INPUT "Enter a length";l CALL cube(l) END SUB cube(l) area=6*l^2 PRINT "Area of a cube",area END SUB

0熱度

1回答

QB64中的WideCharToMultiByte

從ANSI轉換爲Unicode並返回時出現問題。以下代碼片段描述了我正在做的事情。我得到的0x57錯誤.. DECLARE DYNAMIC LIBRARY "kernel32" FUNCTION MultiByteToWideChar& (codePage~&, dwFlags~&, lpszMbstring$, byteCount&, lpwszWcstring$, wideCount

2熱度

1回答

Qbasic突出顯示的菜單，認真

任何人都有一個示例代碼或說明使這項工作？我從來沒有能夠完成突出顯示的菜單，使用箭頭鍵並輸入選擇。提前致謝！更新！我預計這個工作方式是通過爲每個選項繪製框，並在選擇選項時着色文本的同時重新繪製框，但我不確定如何設計一個循環來完成此操作。我對INKEY $和SELECT CASE函數很滿意，但我不知道如何將它們分解。

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上的文件中的一行代碼

我試圖讓我的程序有一個對話框，並在文件中設置了密碼。我需要幫助讓它掃描文件中的一行代碼，並且如果密碼輸入爲真，則繼續。