5

だから私は今日QBASIC64を使ってきました...古い学校のために。

私は考えていた：

a)あなたが今までに書いた中で最も複雑な QBASIC コードは
?
b)あなたが書いた中で最も有用なコードは?

(例があればいいのですが、必須ではありません ^_^ - これは単なる楽しみのためのコミュニティ Wiki です)

4

7 に答える 7

7

GOTOは当時とても簡単でした:-)

于 2010-09-16T13:44:41.997 に答える
2

私はQBasicを使用したことはありませんでしたが（それを備えたマシンの生成をスキップすることができました）、その前身であるGWBasicでZ80アセンブラーを作成し、一部のハードウェアのサポートコードを使用して、結果のマシンコードをテストプラットフォームに転送しました。それは確かに複雑であり、非常に厄介で遅いと見なされましたが、それは私がよく知らなかったためです（その時点でデータ構造とアルゴリズムクラスを取得していませんでした）。

于 2010-09-16T13:44:04.913 に答える
2

最も複雑: 文字列を使用してツリーを格納するハフマン コーダー。私はそれがうまくいったとは思わない。

最も役立つもの: パレス チャット迷路エディター/ジェネレーター。

于 2012-03-28T11:56:15.150 に答える
1

最も便利で、おそらく最も複雑です。QBasicで、マウスサポート、クリックできるグラフィカルボタンなどを備えたクイズプログラムを作成しました。また、一般的なファイル形式を使用して、新しい質問を作成し、必要に応じてロードできるようにしました。残念ながら、関連する画像/データなどのファイルは時間の経過とともに失われますが、興味がある場合はコードがオンラインになっています： http ://code.google.com/p/justinethier/source/browse/trunk/qbasic_quizzer/project.bas

于 2010-09-19T04:55:51.070 に答える
1

answer for both a and b: a program where the user would enter the string name and fret number on a guitar and the program would output which note the fret is. BTW, I love qbasic because its simplicity makes it fun!

于 2010-11-04T21:26:47.853 に答える
1

QBasic は、私にとって初めてのプログラミング体験でした。私は 9 歳 (4 年生) で、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
于 2011-06-06T20:08:18.700 に答える
1

私は QBasic でここまでのことはできませんでした。これは、私が古いプログラマーではないためです。私がこれまでに行ったほとんどのこと ( A)とB)の両方に適合) は、キーボードから数値を読み取り、その 10% を計算して画面に出力するプログラムを作成することでした。

オーストラリアでは 10% の GST が導入されていたため、これは 2000 年に行われたに違いありません。それで9歳になります。QBasic が搭載されたコンピュータを探すのに 6 か月ほど費やしたことを覚えています。

遠い過去の、そうではない、懐かしい思い出

于 2010-09-16T13:39:30.573 に答える