プログラム作成依頼（緊急

このエントリーをはてなブックマークに追加
1 ：（´・ω・`）：
明日（３/２８FRI）までに中学３年生でもできそうなプログラム（できればスクリーンセーバー）を作っていただけませんか？
学校で明日までに提出しなければならないのですがあまりよく分からないもので。。
学校はN88Basicを使用しています。直接プログラム自体（計算式自体？）を書いていただけると嬉しいです。
専門用語などよく分からない説明で申し訳ありません。。
よろしくお願いします！！
2 ：仕様書無しさん：03/02/27 23:47
N88BASICでスクリーンセーバ？
おれは無理だ。Dr.Dに頼め。
3 ：仕様書無しさん：03/02/27 23:47
ﾆﾀﾞ
4 ：仕様書無しさん：03/02/27 23:49
まあ、あれだ。落第しなさいよ。
だいたい明日３／２８か？
5 ：仕様書無しさん：03/02/27 23:51
>>1
今までプログラムしなかったからこうなった。あきらめれ。
6 ：（´・ω・`）：03/02/27 23:53
確かに・・・・（汗
7 ：仕様書無しさん：03/02/27 23:53
まだ一月あるじゃないか。
３週間ぐらいしたら、ここに書き込んでやるよ。
8 ：仕様書無しさん：03/02/27 23:54
>>1
OKです。
見積もりさせていただきます。
9 ：仕様書無しさん：03/02/27 23:55
>>1
ここは職業「プログラマ」板だから、当然￥は出せるんだよね？
10 ：仕様書無しさん：03/02/27 23:56
春房大活躍の巻
11 ：（´・ω・`）：03/02/27 23:56
２/２８やった。。。すいません
12 ：仕様書無しさん：03/02/27 23:57
>>11
高額ハイカの発売期限だよ、それ
13 ：（´・ω・`）：03/02/27 23:57
＞８
ありがとうございます！
＞９
初めてここに来ました。お金はちょっと･･･ごめんなさい
14 ：仕様書無しさん：03/02/27 23:58
>>1はいくつ？大学生？
15 ：（´・ω・`）：03/02/27 23:58
＞１４
中３で１５です。
16 ：仕様書無しさん：03/02/27 23:59
>>15
成績とかもう関係ないじゃん。
17 ：仕様書無しさん：03/02/27 23:59
>>14
中3でしょ
18 ：仕様書無しさん：03/02/27 23:59
ほんとに15歳かよ…。
N88BASICって動作環境はまさかほんもののPC-8801か？
19 ：17：03/02/27 23:59
あうっ
20 ：仕様書無しさん：03/02/28 00:02
10 INPUT "a,b=",a,b
20 PRINT "a+b=" & a+b
30 END

こんな感じだっけ？
21 ：仕様書無しさん：03/02/28 00:02
>>1
で、いくら出せるのよ
22 ：（´・ω・`）：03/02/28 00:03
>16
成績ちょっとヤバいんで（汗
>18
PC-8801ってのが何かも分からないです。ゴメンなさい(>_<）
23 ：仕様書無しさん：03/02/28 00:03
＞＞２０
10 print"a,b="
20 input a
30 input b
40 print"a+b=";a+b
50 end
24 ：仕様書無しさん：03/02/28 00:04
>>13を理解出来てない>>21は資格ナシ
25 ：（´・ω・`）：03/02/28 00:04
>20
そんな感じのです^^
とりあえずcircleやline、for文は習いました。
26 ：仕様書無しさん：03/02/28 00:05
>>22
PC-8801ってのはN88BASICを搭載した昔のパソコンだよ。
今のパソコンとはちょっと見た目が違うと思うけどな。
それとも普通のWindowsが載ったパソコンか？
あと君もしかして女の子？
27 ：仕様書無しさん：03/02/28 00:06

for i = 0 to 20
print "a";
next
28 ：21：03/02/28 00:06
>>24
読んでから、書き込んでるうちに>>13以降の書き込みがあったのよ
遅くてｽﾏｿ
29 ：（´・ω・`）：03/02/28 00:06
>26
Windows99ですよ^^
女です。
30 ：仕様書無しさん：03/02/28 00:07
REM せんせいごめんなさい
REM 作れませんでした


こんなのはどう？
31 ：仕様書無しさん：03/02/28 00:07
>>29
ﾈﾀｶﾖ
32 ：（´・ω・`）：03/02/28 00:08
>30
それはちょっと(笑)
33 ：仕様書無しさん：03/02/28 00:08
BASICなんて10年以上ぶりだな。

10 c=0:for x=0 to 600:line(x,0)-(x,300),c:if c<16 then c=c+1 else c=0:next:goto 10

動くか知らん。
34 ：仕様書無しさん：03/02/28 00:08
ネタ確定。
はい、解散。
みんな仕事に戻ろうぜ
35 ：（´・ω・`）：03/02/28 00:10
>33
ありがとうございます。コピーして明日試してみます☆
36 ：tantei☆あなたのお悩み解決致します！！：03/02/28 00:12
★あなたのお悩み解決致します！！
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
　直通　　０９０−８５０５−３０８６
ＵＲＬ　　http://www.h5.dion.ne.jp/~grobal/
メール　　[email protected]
　　　グローバル探偵事務局　

37 ：仕様書無しさん：03/02/28 00:14
>>33
かっちょいいな。
38 ：（´・ω・`）：03/02/28 00:34
>37
どんな感じなんですか？？
39 ：仕様書無しさん：03/02/28 00:36
SMAPが踊る
40 ：仕様書無しさん：03/02/28 00:40
そもそも最近の中学３年生でも大人顔負けの
プログラムくらい組めるのだがな。
41 ：（´・ω・`）：03/02/28 00:43
>39
スゴイ・・・
>40
そうなんですかぁ。そんなのをいつか作れるようになれるいいんですが＾＾；
42 ：仕様書無しさん：03/02/28 01:01
WindowsでN88Basic互換を動かすのいくつかあったよ。
画面もまんま98
http://www.vector.co.jp/soft/dl/win95/prog/se123748.html
変なエディタがついてるが、コピペ可能。
http://www.vector.co.jp/soft/dl/win95/prog/se055956.html

とりあえず、「猫でもわかる」の家計簿の例題でも移植してあげれば?
http://www.kumei.ne.jp/c_lang/cpp/cpp_27.htm
43 ：（´・ω・`）：03/02/28 01:07
>42
わざわざありがとうです^^
ＤＬしたんですが開けなくって（焦
44 ：かじゅ猫：03/02/28 01:12
俺にも宿題やらせてくれよ、ｾﾝｾｰ
45 ：42：03/02/28 01:17
>>43
おう、あんたもインストールしておいたほうが話が早いか。
あんたは「変なエディタが 」って書いたほうな。
Lzhの解凍はLhasaで。ここの一番下の
http://www.digitalpad.co.jp/~takechin/download.html
「LHA & Zip extractor Lhasa ver0.17 for Win32」
をダウンロードして、実行しな。

N88Basicなんて忘れたよってヤシはGoogleで検索。
行番号必須なのとIF文が一行にしかかけないので、俺にはかけん。スマン。
46 ：仕様書無しさん：03/02/28 01:31
俺にもなんかさせて。
で、中学生的にはどんなお題が良いんだ？
適当に数学の問題（２次方程式）とかの解答
プログラムとかでも十分なのか？
47 ：（´・ω・`）：03/02/28 01:32
＞45
できました！！！ほんとに感謝です＾＾
48 ：（´・ω・`）：03/02/28 01:34
>46
え〜っと、周りを見てるとどうもｽｸﾘｰﾝｾｰﾊﾞ（？）線が跳ね返ったり、円が動いたりといううのが多いです。
協力ありがとうございます（>_<）
49 ：仕様書無しさん：03/02/28 01:37
1個出来れば良かったのかい。
もう寝て、明日の学校に備えなさいな。
50 ：仕様書無しさん：03/02/28 01:37
10 PRINT "１しね"
20 GO TO 10
51 ：（´・ω・`）：03/02/28 01:38
>５０
33のプログラムが実行できないんで･･･まだまだ募集してます。
52 ：仕様書無しさん：03/02/28 01:40
>>51
お前マジ氏ねよ
53 ：42：03/02/28 01:46
>>33 は16色まで使うのでエラーになるらしい。
8色に変更して、線の太さを8にしてみた。
最後のgoto 10は不要だな。

10 c = 0
20 for x = 0 to 600 step 8
30 line(x, 0)-(x + 8, 300), c, bf
40 if c < 8 then c = c + 1 else c = 0
50 next
60 rem goto 10
54 ：（´・ω・`）：03/02/28 01:48
>53
スゴイ！！きれ〜☆
こうゆう風に書いていただけるとほんっと助かります＾＾
55 ：仕様書無しさん：03/02/28 01:49
>53
next ってループ変数名取らないといけないんじゃなかったっけ？
50 next x
じゃない？
56 ：仕様書無しさん：03/02/28 01:50
>>55
それは必ずしもではない。
57 ：（´・ω・`）：03/02/28 01:50
>55
どっちでもできましたよ＾＾
58 ：仕様書無しさん：03/02/28 01:52
俺が跳ね返るの作ってやるけど、
その前に画像うｐ
59 ：（´・ω・`）：03/02/28 01:52
>58
画像？？
60 ：仕様書無しさん：03/02/28 01:53
複数ループ変数がいないから大丈夫なのか。
61 ：仕様書無しさん：03/02/28 01:54
>>60
複数でもいらない
62 ：仕様書無しさん：03/02/28 01:58
NEXT　i , j

とかできた覚えはある
63 ：42：03/02/28 02:00
どっかにリファレンスないかなあ。
10 CLS
20 FOR I = 0 TO 1000
30 x = RND(1) * 600
40 y = RND(1) * 400
50 r = RND(1) * 30
60 c = INT(RND(1) * 8)
70 CIRCLE(x, y), r, c, , , , f
80 NEXT
64 ：仕様書無しさん：03/02/28 02:02
RANDOMIZE(VAL(RIGHT$(TIME$,2)))
くらいやろうぜ。
65 ：（´・ω・`）：03/02/28 02:02
>63
わぁっ〜素敵っ！！これすごいカワイイ。。。ありがとです＾＾
66 ：33：03/02/28 02:17
知らない間に伸びてたんだねえ。
今更だけど書いてみる。

5 'SCREEN 0
10 CLS
20 FOR X=0 TO 640
30 LINE(X,0)-(X,640),C:LINE(0,X/1.6)-(640,X/1.6),C
40 COLOR C:PRINT "（・∀・）/";
50 IF C<16 THEN C=C+1 ELSE C=0
60 NEXT
70 GOTO 20

どちらにせよ、42氏のヤツがカラフルだろね。
漏れのにgotoが付くのは、スクリーンセーバーとか言ってたから永久ループにしてる。

>33がダメなのは、elseのあとにnextを書いたのが敗因のようだ。
67 ：42：03/02/28 02:39
しまった。
>53 colorは0から7の範囲にしたいのに8になってしまう。
40 if c < 8 then c = c + 1 else c = 0

>63 これのとる範囲はどうなるんだっけ?
60 c = INT(RND(1) * 8)

>66 セミコロンセミコロン。
40 COLOR C:PRINT "（・∀・）/";

まあ、実行環境が分からんので画面のピクセル数も
日本語が使用可能かどうかも分からんし、今日はこの辺で。

COBOLでOSだって作れちゃうんだから、神がN88でOOPしちゃうのを待ってます。
68 ：33：03/02/28 02:41
>>67
セミコロンは意味があるんだけど・・・
69 ：仕様書無しさん：03/02/28 02:41
学校でやってるなら教科書みたいなものあるんでしょ。
それ見て必死にやりなさい。
第一こっちにメリットが無い！
厨房が単発すれたてるな。
70 ：仕様書無しさん：03/02/28 02:42
INKEY$
ってどう使うんだっけ？
71 ：33：03/02/28 02:44
>>70
IF INKEY$="A" THEN BEEP

みたいな感じだったよーな
72 ：42：03/02/28 02:46
>>67
あう、PRINT文のセミコロンは改行しない命令か。
C屋が間違えたのかと思った。
73 ：33：03/02/28 02:47
Ｃ屋には間違い無いが（ｗ
74 ：70：03/02/28 03:01
サンキュウっす。なら、６６は

70 IF INKEY&="E" THEN 20 ELSE 80
80 END

ってして、終了できるようにしといたら。
75 ：70：03/02/28 03:04
ごめん、半分寝ぼけて書き込んじまった（鬱）

＆->$　THEN　80　ELSE　20

回線切って吊ってきます
76 ：33：03/02/28 03:11
>>74
ども。
そうしようかとも思ったけど、記憶に自信が無いのと、そこまでする義理は無いかと思って（藁
77 ：（´・ω・`）：03/02/28 03:28
みなさんありがとーございます＾＾
（・∀・）/←こんなのもできるんですね〜(感動
話聞いてるとN88って相当古いものなんかな(汗
今日皆さんにいただいたプログラム提出してきます☆
本当にこんな厨房のために色々教えていただきご迷惑をかけスイマセン&ありがとうございました！
まだまだ募集しますんでもし良ければｶｷｺ宜しくです。
78 ：42：03/02/28 03:36
プログラムが分からないのは別にいいけど。
宿題は締め切りになってあわてないように、
嫌なことを後回しにせずに、毎日きちんきちんと片付ける事。
あと、2chで聞かなくてもいいように、仲のいい友達を作る事。
夜更かしもダメだよ。早寝早起きを習慣づけて。

俺も厨房に戻りてー。
79 ：仕様書無しさん：03/02/28 03:44
女子中学生には優しいプログラマー。
80 ：仕様書無しさん：03/02/28 05:58
皆物凄く優しいなぁ
81 ：仕様書無しさん：03/02/28 06:02
>>58
早く見ろ！
http://www15.big.or.jp/~kaini/image/img-box/img20030228003440.jpg
82 ：仕様書無しさん：03/02/28 07:47
…なんでお前ら、こーゆーの相手するかなぁ？
83 ：仕様書無しさん：03/02/28 08:10
見返りにヤラせてもらったからいいんでつ。
84 ：仕様書無しさん：03/02/28 08:12
>>1はどこの学校なんだ？
85 ：仕様書無しさん：03/02/28 08:13
趣味でサンプルムービーのサイト作りました
http://homepage3.nifty.com/digikei/sample/sample.html
86 ：仕様書無しさん：03/02/28 08:18
>>44明日までテトリスをつくれ。
簡単だろ？
87 ：仕様書無しさん：03/02/28 09:36
10 TARA = RND * 78
20 PRINT TAB(TARA); "λ";
30 GOTO 10

動作確認はしていないけどサザエさんEDのスクリーンセーバー
88 ：ＶＣ初級：03/02/28 10:16
だれかＶＣ得意な人おしえて。何がわるいんかな？

void CFileTestDlg::OnFindFile()
{
WIN32_FIND_DATA FindData;

if (FindFirstFile("c:\\tool\bin\\Kos001.exe", &FindData);
! = INVALID_HANDLE_VALUE &&
(FindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
! = FILE_ATTRIBUTE_DIRECTORY)
{
MessageBox(NULL, "ファイルが存在します。" ,"結果", MB_OK);
}
else
{
MessageBox(NULL, "ファイルが存在しません。" ,"結果", MB_OK);
}
}

ｺﾝﾊﾟｲﾙ中...
FileTestDlg.cpp
C:\Program Files\DevStudio\MyProjects\FileTest\FileTestDlg.cpp(100) : error C2143: 構文ｴﾗｰ : ')' が ';' の前に必要です。
C:\Program Files\DevStudio\MyProjects\FileTest\FileTestDlg.cpp(101) : error C2059: 構文ｴﾗｰ : '='
C:\Program Files\DevStudio\MyProjects\FileTest\FileTestDlg.cpp(107) : error C2143: 構文ｴﾗｰ : ';' が 'else' の前に必要です。
C:\Program Files\DevStudio\MyProjects\FileTest\FileTestDlg.cpp(111) : error C2143: 構文ｴﾗｰ : ';' が '}' の前に必要です。
89 ：仕様書無しさん：03/02/28 10:22
あたまが悪いんだと思う。
90 ：仕様書無しさん：03/02/28 10:23
if (FindFirstFile("c:\\tool\bin\\Kos001.exe", &FindData);
↓
if (FindFirstFile("c:\\tool\bin\\Kos001.exe", &FindData)

氏ねｳﾞｫｹ
91 ：仕様書無しさん：03/02/28 10:24
あと、ifを分割しろよ

氏ねｳﾞｫｹ
92 ：ＶＣ初級：03/02/28 10:26
>>90
あ　ごめんソコ関係ないんだ。
気付いて直してたんだけど
事象一緒なんだよ。
93 ：ＶＣ初級：03/02/28 10:28
つか　初心者なんでお手柔らかに
おながいします。やさいしくおしえてね♥
94 ：仕様書無しさん：03/02/28 10:35
まさか != が ! = になってるせいなんてつまらんオチじゃないよね。
95 ：ＶＣ初級：03/02/28 10:36
ビンゴです　ありがとうございますた。
96 ：ＶＣ初級：03/02/28 10:54
あとメッセージボックスでエラー出たんだけど
CWnd の派生クラスってメソッドの引数制限あんだね
ＶＣってﾑﾂｶｽｲ。サンクス　たすかりますた。
97 ：仕様書無しさん：03/02/28 10:54
FindFirstFile函数とFindData構造体の比較はどちらが先でしょう？


氏ねｳﾞｫｹ
98 ：ＶＣ初級：03/02/28 10:59
あ　順番逆って事ですか。指摘ありがとです
99 ：仕様書無しさん：03/02/28 11:00
そういう問題では無い



氏ねやｳﾞｫｹ
100 ：仕様書無しさん：03/02/28 11:02
で、女子中学生の画像はまだですか？
101 ：仕様書無しさん：03/02/28 11:05
>>29
Windows99って何?
102 ：ＶＣ初級：03/02/28 11:08
お礼だ
http://cgi.members.interq.or.jp/virgo/izumino/cgi-bin/imgboard/img-box/img20030228110727.jpg
103 ：仕様書無しさん：03/02/28 11:16
お礼のときだけは態度がでかいな
104 ：仕様書無しさん：03/02/28 12:52
>>102
キモっ　グロ注意
105 ：ＶＣ初級：03/02/28 13:19
>>104
まあそう言わないで。
つーか質問厨で申しわけないんだけど
ファイルのありかをEDITコントロールの値で
指定して処理したいんだ。簡単に代入する方法おしえて

if (FindFirstFile("c:\\tool\bin\\Kos001.exe", &FindData)

"c:\\tool\bin\\Kos001.exe",をeditコントロールにしたい

106 ：ＶＣ初級：03/02/28 13:23
今度はちょっとアップ
http://cgi.members.interq.or.jp/virgo/izumino/cgi-bin/imgboard/img-box/img20030228132153.jpg
107 ：仕様書無しさん：03/02/28 13:41
GetWindowTextを使う


早く氏ねｳﾞｫｹ
108 ：ＶＣ初級：03/02/28 14:10
ワトソン博士がやってきますた。
GetDlgItemTextで再チャレンジしてみまちゅ
109 ：仕様書無しさん：03/02/28 14:38
なんでN88BASICやVC++なんぞに依存するかね
Windows厨か?
110 ：仕様書無しさん：03/02/28 17:29
>>109
頭悪そうだな。
111 ：仕様書無しさん：03/02/28 23:27
>>109
(　ﾟДﾟ）ﾎﾟｶｰﾝ
112 ：仕様書無しさん：03/03/01 00:06
>>1
いまどきN88BASICなんか使ってる学校はDQNだな
113 ：仕様書無しさん：03/03/04 02:28
だめぽ
114 ：(^ｰ')b ◆ShA/gJZOLE ：03/03/16 00:47
5 FOR Z = 0 TO 255
10 FOR S = 0 TO 360
20 X = 480 * COS(S * 3.14 /100):Y = 480 * SIN(S * 3.14 / 180)
30 LINE (X , Y) - (480 - X, 480 - Y), (RND * 255, RND * 255, RND * 255)
40 NEXT S , Z

たぶん動くはず。
115 ：仕様書無しさん：03/03/31 16:10
>>1

10 FOR A = 1 to 100
20 CIRCLE (A,A),5,5
30 NEXT
40 CLS
50 GOTO 10
60 'LINE文でもできると思うので、自分で改変するように..
116 ：仕様書無しさん：03/03/31 17:31
>>1　まずはここじゃなくて近所の中学３年生に頼め。
117 ：名無し：03/04/03 06:16
誰かよく当たる数字選択宝くじ予想ソフト制作の依頼を受けて下さい
できればロト当たれば１割差し上げます
真剣に希望
118 ：仕様書無しさん：03/04/03 16:05
>>117
プログラマなら、統計的分析をして自分で作れるはずでは？...。
119 ：仕様書無しさん：03/04/03 16:15
赤い文字で BABEL BABEL ・・・・とか出すのは古いか？
120 ：仕様書無しさん：03/04/03 16:24
>>117今作ってるけどお前にはやらん
121 ：仕様書無しさん：03/04/03 16:53
>>120
もしあげて、住所も教えてもらったとしても当たった時1割くれるかどうかは
絶対信用できない。
もし予想ソフトで当たったとしても「今回は買い忘れた」とかなんとかいうだろう。
122 ：梨：03/04/04 00:37
>>117
漏れ昔なんとなく作ってみたよ。

一番儲かる方法は、ロト6を買わないこと。
一番当たる方法は、買い占めることだった。
123 ：仕様書無しさん：03/04/04 01:23
まじめに組みすぎだよ…
こういうのは「使う人が楽しいかどうか」に焦点を当てるんだから。
124 ：仕様書無しさん：03/04/04 09:43
過去データなんぞ使わずに、ランダム使って適当な数を出す

これ最強。
125 ：山崎渉：03/04/17 12:23
（＾＾）
126 ：山崎渉：03/04/20 06:14
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
127 ：山崎渉：03/05/22 02:41
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
128 ：仕様書無しさん：03/05/24 02:36
便乗

これの集計できるやつお願いします。
同じIDの書き込みで30分以上あいてるものを有効とし、
投票内容を集計するみたいなかんじで。
http://that.2ch.net/test/read.cgi/diy/1053228913/l50
129 ：山崎渉：03/05/28 16:55
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
130 ：山崎 渉：03/07/15 11:47

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
131 ：なまえをいれてください：03/07/25 17:37
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ？(俺を買え）」と逆売春を持ちかける黒人男性も多い。）
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
132 ：山崎 渉：03/08/02 02:50
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
133 ：仕様書無しさん：03/08/03 04:11
だれも見てないだろうけど、dat落ちもしそうにないので・・・
実際に中3の時にROMのBASICで書いて遊んでたの。
N88-BASICだったかなぁ・・・

10 Y = 0
20 R = 0
30 A = 1
40 CLS 3
50 FOR X = 0 TO 550
60 CIRCLE (X,Y),R,2
70 Y = Y + A
80 R = R + (A / 2)
90 IF Y >= 200 THEN A = -1
100 IF Y <= 0 THEN A = 1
110 NEXT X
120 GOTO 40

って感じのを書いてたたなぁ。
マイコン族がどうとかっていう本をチラッと見ただけだから
CIRCLE,LINE,FOR〜NEXT,IF(ELSE忘れ),GOTO,CLS
ぐらいしか知らんかった。
4つぐらいの円を並行っぽく描画させたりもしてた。
134 ：42：03/08/04 21:27
Circleなんかの描画は遅いんだけど、
3色くらいで同心円を書いて、Color文?で
表示色を変更すると一瞬で切り替わって、
トンネルを進んでるように表示できたよね。
135 ：仕様書無しさん：03/08/05 04:12
>>134
トンネルを進んでるような表示、漏れはCIRCLEの繰り返しで書いてたよ・・・

描画はビトマップだと思ってた(つД｀）
136 ：(^ｰ')b ◆EoOYgmEaZE ：03/09/30 01:44
ひっそりと雑談してみる。

今日はウン年ぶりにMIDI作った。
やっぱりクリエイティブな趣味はええのう。
137 ：仕様書無しさん：03/10/02 12:39
あー、俺もちょい前に久しぶりにゲーム作ったよ。
休み一日つぶしちまった。

やっぱりプログラミングって楽しい。
138 ：(^ｰ')b＜最近気に入ったコピペ ◆EoOYgmEaZE ：03/10/02 16:40
おい１よ！どうしてお前らは見てくれにこだわる！ 女友達に自慢できない彼氏はﾊｽﾞｶｼｲのか！
ﾋﾟｶﾋﾟｶの車とｲｹてるﾂﾗじゃないと一緒に歩きたくないのか！
ｵﾚの新しい時計には即気づくのに、どうしてｵﾚが悲しんでいるｺﾄに
気づかない！ 十年以上飼ってる金魚が死んだんだ！ わかるかｵｲ！
悲しいんだよ！ ただの金魚じゃねぇんだよ！ ｵﾚの人生見てきた金魚が死んだんだ！わかるかｺﾞﾙｧ！
ｻｯｶｰ小僧の消防時代も改造学ラン厨房時代も知ってる金魚だぞ！
初めて女に電話した時､手に汗かいてたｵﾚを知ってる、
童貞捨てた日にひそかにｶﾞｯﾂﾎﾟｰｽﾞとったｵﾚを知ってる金魚なんだぞ！
どうして気づかないなんだよ！ｺﾞﾙｧ！
「あれ？どうしたの？・・・いつ時計買ったの？」、、、！！！どうして気づかない！
なぜｵﾚの気持ちに！少しだけ赤い目に！　お前にとって時計の方が重要か！
その程度かｵﾚは！ｵﾚの隠れたﾋｯｷｰ気質を知ったら離れていくんだろ！
音信不通になるんだろ！　ﾀﾞﾁにｷｼｮｲから切ったと言うんだろ!!
わかってんだぞｺﾞﾙｧ！わかっていても好きなんだぞｺﾞﾙｧ！
他のﾔﾂには一般大衆に埋没したようなｺｷﾞｬﾙに見えるかもしれないｹﾄﾞな！
ﾊﾟﾗﾊﾟﾗとﾌﾞﾗﾝﾄﾞしか知らない女と思ってるんだろうけどな！
ｵﾚは好きなんだよ！お前の望むｲｹﾒﾝのために必死なんだぞｺﾞﾙｧ！
隠れてBIDAN読んでんだぞ！ｸﾛﾑﾊｰﾂ買うためにﾊﾞｲﾄしてんだぞ！
誕生日ﾌﾟﾚｾﾞﾝﾄ買うためにﾊﾞｲﾄして！なにがｸﾞｯﾁだｳﾞｨﾄﾝだのと！
ｵﾚにはわかんねぇよ！恥を忍んでｱﾈｷにﾌﾟﾚｾﾞﾝﾄの相談しちまったよ！
どうしてくれる！ｱﾈｷに一生頭あがんねぇよ！
GW退屈させないように必死こいてｲﾍﾞﾝﾄ情報ﾁｪｯｸして！
ﾜﾘｶﾝしたくねぇからﾊﾞｲﾄ掛け持ちして！時々ﾑﾅｼｸなるんだよ！
「お金持ちと結婚したいなぁ・・・」って!!!なんだよｿﾚ！
ｵﾚはなぁお前との将来夢見たりしてんだよ！
人並みな結婚式とか、お前のﾄﾞﾚｽ姿とか、淡い夢見てんだ！
ぶち壊してくれんな！今日ばかりはｷﾚるぞ！
GW最終日だろうとお前には会わない！電話しない！迎えにもいかない！
ｵﾚは一人で金魚を埋めに逝く！夜になったら郊外まで埋めに逝くからな！
ｵﾚの人生の一部のために墓をつくってやるんだ。 お前は一人で遊んでろ!!
139 ：仕様書無しさん：03/10/05 19:55
>>138
もう涙で前が見えないよ･･･金魚の墓に合掌。
140 ：.：03/10/12 01:09
【不幸のレス】
　　 このレスを見た人は七日以内に氏ぬやよー

　　　　　　　※あなたに訪れる死を回避する方法が一つだけあるがし。
　　　　　それはこのコピペを一時間以内に７つ、別のスレに貼り付ける事やよー

::::::::::::: : : : :: 　　　
::::::::: : : :川 '-'||　 …ｸｯｸｯｸｯ
::::: : : :: :〈｀ﾍﾍ
141 ：仕様書無しさん：