Question

所以我今天一直在使用QBASIC64 ...为了旧学校的缘故。

我想知道：

a）您写过的最复杂的QBASIC代码是什么？和
b）您编写的最有用的代码是什么

（例子很好，但不是必要的^ _ ^ - 这是社区维基，只是为了好玩）

Answer 1

GOTO过去很容易这些日子:-)

Answer 2

虽然我从未使用过QBasic（我设法跳过生成它的机器）我在其前身GWBasic中编写了一个Z80汇编程序，并附带了一些硬件的支持代码，将生成的机器代码传输到我的测试平台。它肯定是复杂的，并且非常混乱和缓慢，但那是因为我不知道更好（当时没有采用任何数据结构和算法类）。

Answer 3

最复杂：霍夫曼编码器使用字符串存储树。我认为我没有工作。

最有用：宫殿聊天迷宫编辑/发电机。

Answer 4

我从未真正使用过QBasic。这是因为我不是一个老程序员。我做过的最多，（适合 A）和 B））是一个程序从键盘读取数字，然后计算出10％，然后进行筛选。

这必定是在2000年，因为在澳大利亚推出了10％gst。这让我9岁。我记得花了6个月的时间来寻找带有QBasic的电脑。

美好的回忆，不那么，遥远的过去

Answer 5

最有用，也可能是最复杂的：我在QBasic中编写了一个带有鼠标支持的quizzer程序，可以点击的图形按钮等。它还使用了通用文件格式，因此你可以编写新的问题并加载它们如果你想要。如果您感兴趣，代码在线，但遗憾的是相关的图像/数据/等文件会随时间丢失： http://code.google.com/p/justinethier/source/browse/trunk/qbasic_quizzer/project.bas

Answer 6

答案a和b：一个程序，用户可以在吉他上输入字符串名称和音品编号，程序将输出该音符的音符。顺便说一句，我喜欢qbasic，因为它的简单使它变得有趣！

Answer 7

QBasic是我第一次参与编程。我九岁（四年级），我们有MS-DOS和Windows 3.1的386DX。

我记得玩弄Nibbler和Gorillas改变颜色和常数等代码很有趣。

因此，我制作的最有用和最复杂的程序是一个菜单驱动的应用程序，它向用户询问数学问题：用户可以选择的数字难度级别上升，我记得硬编码100个算术问题检查用户响应和告诉他们是否错了。

不确定我是否仍然有这个代码，我想我可能，今晚我会检查并发布，如果我找到它！

...好吧！我发现了一些东西。此片段是名为“TEST1.BAS”的文件的一部分，看起来像上述程序的早期版本。我相信我有一个更完整的版本，但当我们的硬盘崩溃并且我们无法恢复所有文件时它丢失了。

CLS
PRINT
PRINT "     menu"
PRINT "--------------"
PRINT "1. level 1"
PRINT "2. level 2"
PRINT "3. level 3"
PRINT "4. level 4"
PRINT "5. level 5"
PRINT "6. level 6"
PRINT "7. level 7"
PRINT "8. level 8"
PRINT "9. level 9"
PRINT "10. level 10"
PRINT "11. OTHER"
PRINT
INPUT "Your selection: ", choice%
PRINT

IF choice% = 1 THEN
CLS
DO
   INPUT "what is 4 + 4 ? ", num
LOOP UNTIL num = 8
PRINT
PRINT "correct"

DO
   INPUT "what is 8 - 6 ? ", num
LOOP UNTIL num = 2
PRINT
PRINT "correct"

DO
   INPUT "what is 8 + 7 ? ", num
LOOP UNTIL num = 15
PRINT
PRINT "correct"

DO
   INPUT "what is 9 - 4 ? ", num
LOOP UNTIL num = 5
PRINT
PRINT "correct"

DO
   INPUT "what is 6 + 5 ? ", num
LOOP UNTIL num = 11
PRINT
PRINT "correct"
END IF

IF choice% = 2 THEN
CLS
DO
   INPUT "what is 11 + 6 ? ", num
LOOP UNTIL num = 17
PRINT
PRINT "correct"

DO
   INPUT "what is 21 - 5 ? ", num
LOOP UNTIL num = 16
PRINT
PRINT "correct"

DO
   INPUT "what is 2 * 2 ? ", num
LOOP UNTIL num = 4
PRINT
PRINT "correct"

DO
   INPUT "what is 14 + 8 ? ", num
LOOP UNTIL num = 22
PRINT
PRINT "correct"

DO
   INPUT "what is 17 - 5 ? ", num
LOOP UNTIL num = 12
PRINT
PRINT "correct"

END IF

IF choice% = 3 THEN

END IF

IF choice% = 4 THEN

END IF

IF choice% = 5 THEN

END IF

IF choice% = 6 THEN

END IF

IF choice% = 7 THEN

END IF

IF choice% = 8 THEN

END IF

IF choice% = 9 THEN

END IF

IF choice% = 10 THEN

END IF

老程序员的两个问题

7 个答案: