授業で習ったBASIC
>>16 そうなんだ。 この板のメインと思われる8bit時代にもあったっけ? わてはガキの頃、本で勉強した足算プログラムを組んだことがある。 結局、最低限の手間で、最低限のプログラミングだけは学ばせようって ことなんだろうね。 まあ、あんな簡単な言語って思う人はそれ以上を学べばいいし、勉強が 面倒な人は、フリーのBASICでも使えばいい。 え?有料のもある?あの遅くてぼろいの? ポケコンで一生懸命ゲーム作ってたなぁ。 田舎に帰ったついでにポケコン見つけてきたけど 当然ながらメモリー用の電池が切れてて中身はまっさらだった。 なんかやってみようとも思ったけど今更BASICってかったるくてやる気になれなかったーよ。 行番号って…。 Basicというて馬鹿にしたらいかんぜよ。 おいら、現役時代にFMV?のBasicでデータ処理のプログラムを組んであそんどったよ。 平社員ではあったがけっこう楽しんだ。 おかげで事務処理の定型作業の苦痛から逃れられたよ。 WinになってからはExcelのマクロであそんだ。 年寄りのたわごと・・・・・ そういうことならオイラも教師だったおふくろのために、mz-2500のM25BASICで 成績管理プログラム作ってあげますた。 入力と各項目でのソートと出力だけという、単純さを絵に描いたようなものでした。 それでもだいぶ時間短縮にはなったようで感謝されました。 しかし、プログラムそのものよりも、200人分の氏名と5教科のデータの入力が なによりも大変でありますた。(まぁ氏名は運用開始時だけだけど) 最初はソートのアルゴリズムが悪くて一度動かすと20分近くだんまりになった 挙句にエラーで停止して、入力データパーにしたり・・・ あの頃の情熱はどこにいってしまたのでしょうね。 スレ違い?スマン ソートのアルゴリズムを専門学校で習った一番基本的な処理でプログラムしたら、作りなおしさせられた。 仕事では専門学校の知識ってほとんど通用しない。 専門学校時代に夢の中でもプログラムを組んでいた時があった。 センターでBASIC使った世代ですが。 これまで過去問とかで完璧にとってたのに本番で大ポカかましてかなりしくじった。 数学はあれしかできないのに(´・ω・`) 学校のパソコンが格好だけは一人前なんだけど、”斜めに線を描く”という程度の事もできない骨董品だった。 あんな古いので勉強させられては、やる気なくなるよ。 描けるのは垂直、水平の線だけだった。 >>27 そこで座標をずらしながら描いて斜めの線を引いてみんなの度肝を抜こうとする! っていう行動に行く子がプログラマーに向いた気質の子なんだろな そこでもうだめだと思う子はプログラムのセンスが無いんだと思う 27じゃないけど そこで座標をずらしながら・・・? ようわからん PSET命令とか無かったのかな? 座標を変数にしておけば、数式でどんな線でも引けないか? N88basicでドット指定で1点ずつ入力して アニメーションをする作品を提出したら皆に引かれた。 わかりますた。FOR NEXT ですね。 古い88だと、かなりゆっくり線が引かれたのでせうね。 方眼紙にイラスト描いて、それを一点づつ座標を読んでプログラムすれば、 線画のイラストがパソコンの画面上に表示される。 一枚画像プログラムするだけでも相当根気が必要だった。 basicわかったら基本情報技術者試験に受かりますか 10 REM ***************************************** 20 REM 30 REM 最初のREM分だけは立派だった 40 REM 50 REM Copyright (C) 2005 by naiconsan 60 REM 70 REM ***************************************** 授業中、画面を赤と青で交互に点滅させて遊んでたら、 それを見てた隣のやつが気分悪くなりやがった ,,.,.,.,.,.,.,.,.,.,.,., /、 |l|l l|l| / ゙ヽ、_ / 、ヾヾ川川 // ヽ / ミン゙ ヾニ ヽ /;;:: :::;;;; | /彡: :ミニ l | 彡,.三ニ=、 ,.=ニ三、 :ミ三 | ヽ /シ.-ー .; :.. ー-,ッ ヾ ,.l i  ̄ _{ }__  ̄ Y l ヽ ,.`-、_,-‐'ヽ、 / } 〉 i`‐'/ ,=ニニ=、 ー i_/ i i <‐l‐l‐l‐l‐> ; | 5!アヒャヒャ!! ヽヽ `ニニニ' / / ヾ、_` ´ ノ_,/ よく秋葉原のパソコンに打ち込んで遊んだ。 10 for i=0 to 255 20 print chr$(i); 30 next i diskcopy だよな。役に立つのは。 これでダメならMagicCopy わ〜い、サブルーチンでけた。 1000 REM MOVE 1010 A$=INKEY$(1) 1020 IF A$="4" THEN X=X-1 GOTO 1070 1030 IF A$="6" THEN X=X+1 GOTO 1070 1040 IF A$="2" THEN Y=Y-1 GOTO 1070 1050 IF A$="8" THEN Y=Y+1 GOTO 1070 1055 IF A$="5" GOSUB 1100 1060 GOTO 1010 1070 LOCATE(X,Y):PRINT "(´・ω・`)":GOTO 1010 1080 RETURN 1090 REM 1100 REM (^_^); 1100 FOR I=0 TO 1000 1110 PRINT "(^_^);" :BEEP 1 1120 IF INKEY$(1)="" GOTO 1110 1130 NEXT I 1140 RETURN あれ? おっと、1年以上経ってるじゃん。 1000 REM MOVE 1010 A$=INKEY$(1) 1020 IF A$="4" THEN X=X-1 GOTO 1070 1030 IF A$="6" THEN X=X+1 GOTO 1070 1040 IF A$="2" THEN Y=Y-1 GOTO 1070 1050 IF A$="8" THEN Y=Y+1 GOTO 1070 1055 IF A$="5" GOSUB 1100 1060 GOTO 1010 1070 REM LOCATE(X,Y):PRINT "(´・ω・`)":GOTO 1010 1072 LOCATE(X0,Y0): PRINT " ":'前消し 1074 LOCATE(X,Y):PRINT "(´・ω・`)" :'表示 1076 X0=X,Y0=Y :'前位置保存 1078 GOTO 1010 1080 RETURN 1090 REM 1100 REM (^_^); 1100 FOR I=0 TO 1000 1110 PRINT "(^_^);" :BEEP 1 1120 IF INKEY$(1)="" GOTO 1110 1130 NEXT I 1140 RETURN ,.--- 、 ,.----、,.---、 ノ ヽ ___ /ヽ ヽ / / } __,,/ ノ ,.-''" `ー---ヽ l / /`ー-'" `ー--''"{ / ..... ::. ヽ 、__.j /i ,. / ::. ..... ..: :: | 〉 :: ::.. ,,. `ー-'__, /ヽニン :: :: ::: : l / ...:: /  ̄ヽ `ー-' ...::: .: ..: .:: l / ::: ..:: `‐=ニ-く --‐‐‐‐‐‐-----, ::. : l / .:: :: ,.ー'" ,.-、 ヽ ,.-、 ,.-、 | ...... :: / i ::. ヽ_/ ノ ノ し' し' | :: :: :::. / ,.-l .. ::::::.. | / /`ヽノ⌒j | ::. .:: :::/ / `ー 、 .....::: ___//`ー、 / ,,. 、 | :::::: ::{ ヽ ヽ ヽ :::  ̄| ̄ / ,.' ノ 〉 | :::: :: l `ー-、 j }...:: | { (___,.-`j / / | :: ノ ヽ: l /`ー-' ......::: | ヽ_______,,,,.-'/ '‐'"`ヽ' / :: l / ::: ::: ---------- / ,.-、 / :: l { :::::::::: ....:: ....::::::::::::::...... ヽ__/ `ー-' ....:::: / `ー----、_____ ___,. -、___/ `ー----、_________,,..--''"""" 人に見せたくなるプログラムです。 5 RUN 良く働くプログラムです。 10 LOAD 本に載ってたテトリスのコードとか入力したな。懐かしや。 10 PRINT "nullpo "; 20 GOTO 10 今、プレステ2の「BASIC STUDIO」ってのを久々にいじってる。 何か出来たら此処にあげてみようかなぁ うぅ…ドビュッ…ビュル… ふぅ…精子出した証ここに残そうね… https://i.imgur.com/V1Cz7KA.jpg N88(86)BASICってそこそこ多機能だよね メジャーなMS-BASICの系列で一番簡素なのはCommodore BASIC V2なのかな read.cgi ver 07.4.7 2024/03/31 Walang Kapalit ★ | Donguri System Team 5ちゃんねる