[過去ﾛｸﾞ] BASICで始めるプログラム (200ﾚｽ)

BASICで始めるプログラム http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

89: 受験生 ◆3VUXqvbfSY [] 04/11/24 12:23:37 ID:rcBZKkdV 色々な意見が有るようですが 私は代理講師なので……何とも言えません ただ、恐らくスレ主様は見てくれている方がいらっしゃる限り止めないと思うので、私も止めません。 さて、本日はlocate命令です 例: 10 width 80,20 '画面のサイズをN88BASICに合わせる 20 for loops=0 to 19 30 locate loops*4,loops '位置確定 40 for wait=0 to 999:next wait 50 print "ニヤ" 60 next loops 実行してみて下さい ニヤが画面を斜めに切るはずです 新しい命令は二つ width命令は画面サイズを変更する為の命令です。N88BASIC環境に合わせるため よこ80文字、たて20文字の設定にしています。 locate命令は文字を表示する位置を指定します。上記の設定にすると左上の座標が0,0となり右下の座標が79,19となりますね。 http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/89

90: 受験生 ◆3VUXqvbfSY [] 04/11/24 14:28:27 ID:rcBZKkdV とりあえずノルマを終わらしちゃいますか。 と言うことでgosub命令もやりましょう これでだいぶ冗長的なコードから脱却できますよ。 例: 10 width 80,20:cls '画面を綺麗に 20 '階乗(m!)を求める 30 *main 'メイン 40 input "入力値の階乗を行います。整数m=";m 50 gosub *factorial 60 print "結果は";Ans;"になりました。" 70 goto *main 100 *factorial 110 Ans=1 120 for loops=m to 1 step -1 130 Ans=Ans*loops 140 next loops 150 return コードが長めなので詳しくは次に書きますが、重要なのはgosub 〜 returnです。 このようにして、N88BASICは見かけ上、コードを分割する事が出来ます。 gosubラベルでプログラムは指定されたラベルへ飛び、return命令でgosubが実行された所に返ってきます。 http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/90

92: 受験生 [] 04/11/24 15:00:47 ID:rcBZKkdV あれ？ 80,25でしたっけ？ http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/92

93: 受験生 ◆3VUXqvbfSY [] 04/11/24 15:15:13 ID:rcBZKkdV ああ！画面サイズ！ いや…あの〜 N88互換BASICではwidthを変更すると文字サイズでなくウィンドウがﾘｻｲｽﾞされるんですよ。 う〜済みません。 http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/93

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.018s