【初心者】課題をクリアしていくスレ【講習会】

**名前は開発中のものです。** · 04/06/10 18:05

ゲームに必要な要素を先生が出してくれます

その課題をクリアしていく講習会です

先生 · 04/06/10 18:07

まずはコンパイラを用意しましょう。
用意できました？

**VshiFFV8** ◆g28oS.E2zA · 04/06/10 18:08

IDをコテにしてみます

**受験生** ◆3VUXqvbfSY · 04/06/10 23:09

言語が解んなきゃ、出しようがないが…

C++ > ウィンドウを作ってみましょう。
VS.NET +VB > ビットマップでも読んでみましょう。
JAVA > …微妙…

**名前は開発中のものです。** · 04/06/11 00:07

まずツクールXPを買え

**名前は開発中のものです。** · 04/06/11 00:13

ＨＳＰで十分

**名前は開発中のものです。** · 04/06/11 00:53

HSPなんて使い物にならん
cygwinもしくはmingwでgccにしませう。
SDLを使えば2D表示、キー入力ぐらいは一瞬で出来るから
導入段階での難易度もいい感じだと思ふ。

**名前は開発中のものです。** · 04/06/11 09:27

>>7
言ってることは正論だと思うが、この板ではネタにしか見えん。

**名前は開発中のものです。** · 04/06/11 15:28

君望２関連
・「近日お伝えできると思います」的な表現が今月末頃か雑誌などに
・主人公は白陵の大学生。
・物語中期に主人公が事故で大怪我
・君望２のスタッフは基本的に前作と変わってないらしい
・慎二は大学のサークルの先輩として普通に出てくる。
・病院で文緒がからんでくる、天川はやっぱり死んでる。
・時期設定は君望２章の３年後。
・マブラヴはなかった事になってる
・君望２のヒロインは年下の幼なじみと同じサークルの女子大生。
・物語中盤でどっちかのヒロインが死ぬ構成らしい。
・君望２の発表がまだなのはオルタの発売日が決まらないから。

age(ｱｰｼﾞｭ)新作　～君が望む永遠２～　Part10
http://ex5.2ch.net/test/read.cgi/shar/1054887959/

**生徒弐顎** · 04/06/12 18:19

先生！コンパイラの準備とウィンドウ表示までできました
次は何したらいいですか？

>>4
先輩！RADツールだとBMPの表示まではソース描かなくてよさそうな気がしますよ！いいんですか？
それとVS.NET +VBってVB.NETのことですか？

>>5
７月２２日発売

>>6
もちろんです！HSP利用者も一緒に課題をクリアしていきまっしょい！

>>7
OpenGLみたいなものですか？

**名前は開発中のものです。** · 04/06/12 18:41

「何したらいいですか？」って、おまいは何がしたいんですか。
「ゲームが作りたい」だけじゃ漠然としすぎてる。

**生徒弐顎** · 04/06/12 19:35

>>11

＞1 名前：名前は開発中のものです。投稿日：04/06/10 18:05 ID:VshiFFV8
＞ゲームに必要な要素を先生が出してくれます
＞
＞その課題をクリアしていく講習会です

このゲームって選べるの？
じゃあ、リアルタイムストラテジーでお願いします。
「ゲームが作りたい」ってのは暗黙の了解かもしれませんが誰も言ってないですよ。
適当なこと言わないでください。

**名前は開発中のものです。** · 04/06/12 19:57

「ゲームが作りたい」んじゃないの？
「ゲームは作りたくない」けど「ゲームに必要な要素」とやらをクリアしたいの？

何がしたいの？

**生徒弐顎** · 04/06/12 20:05

>>13
>>1に聞いてくださいよ(；´Д`)
あげてもない足を取られても対応に困りますよ
ゲームを作るのを見てるだけのスレだったら帰りますよ

**名前は開発中のものです。** · 04/06/12 20:09

>>14
喧嘩を売ってるわけじゃないのでごめんなさい。

「ゲームに必要な要素」が何を指しているのかさっぱりワカラネーと思ったもので。

**VshiFFV8** ◆g28oS.E2zA · 04/06/12 20:10

目標は「最終的にゲームが作れるようになる」です

**名前は開発中のものです。** · 04/06/12 20:14

>>16
入り口はどこからですか？

**名前は開発中のものです。** · 04/06/12 20:15

課題１
ツクールXPを買え

**名前は開発中のものです。** · 04/06/12 20:25

>>18
先生！そのソフトの発売日まで１カ月以上ありますが、どうしたらいいんでしょうか？

**名前は開発中のものです。** · 04/06/12 20:29

ツクールXPで一本作って、それを元にどんどん下に落としていくのはアリかも。
「ゲームに必要な要素」は、ツクールを解析してそれを実装することで体現できる。

**生徒弐顎** · 04/06/12 20:33

>>15
こちらこそごめんなさい
売り言葉に買い言葉で熱くなってたようです

>>1さん降臨するまで身動き取れないですね
ゲームに必要な要素といえば……、と考えるだけで１スレ使っちゃいそうです
コンパイラを用意させるっていうことはゲーム（プログラミング）に必要な要素ってことで
アルゴリズムとデータ構造あたりじゃないかと妄想

プログラムの文法や一般的なアルゴリズムまでは覚えても
ゲームとなると参考にできるものがかなり減りますし
「迷路の自動生成」、「3dマップの自動生成」、「倉庫番の自動解き」、「格闘ゲームの敵キャラAI」とか
これらは今思いついただけですけど、答えは一つじゃないものを皆でワイワイ解きつつ
先生がヒントをくれるスレだったらいいなぁとか期待してみるテスト

>>16
よく見たら>>1さんじゃないですか！
トリップがブシとかFFとかちょっと縁起でもない感じですけど

>>18
体験版は購入済み
スクリプトが熱いですね
ツクールでも課題スレができれば楽しいかも

書き込み制限待ちでどんどん長文になっていくorz

**VshiFFV8＠1** ◆g28oS.E2zA · 04/06/12 21:17

例えば
課題が「新規ウィンドウを開いて、画像を表示させる」であれば
自分の得意な言語（やりたい言語）で課題を無理やりにでもクリアする。
改善点を述べてもらい次の課題へ
（できない場合は先生にやさしくおしえてもらいましょう）

妄想してみました

**名前は開発中のものです。** · 04/06/12 22:32

要は段階的学習スレと同じってことですか。

**受験生** ◆3VUXqvbfSY · 04/06/12 23:49

>>20
ツクールで作り始めると…
プログラミングに移行できずに、終わる予感。

**名前は開発中のものです。** · 04/06/13 00:55

>>24
目的が「ゲームを作ること」ならそれはそれで幸せな予感

**名前は開発中のものです。** · 04/06/13 00:59

まあジャンルは様々なので、共通項目からまったりと考えますか。

課題１、ゲーム作成に用いるプログラミング言語を決める

**名前は開発中のものです。** · 04/06/13 03:33

ツクールでつくれないんなら
あきらめた方がいいよ

**生徒弐顎** · 04/06/13 15:45

>>22
先生！はやく次にどうすればいいのか指示ください。
>>11君と同じ疑問はみんな持ってると思います！
ていうか一晩考えたのですがやっぱり>>11君はスレも読まずにケンカを売ったようにしか見えません！！

一応、>>1 >>3 >>22の中で「新規ウィンドウを開いて、画像を表示させる」をやりたいっぽいのは伝わってきましたが
先生役をやる気がないなら早めのカミングアウトをお願いします。
コンパイラを用意させるとかソースを提出させるとかアイデアはいくつかあがってますが
先生が反応しないとどうしようもないので。

**名前は開発中のものです。** · 04/06/13 16:04

>>1には
＞ゲームに必要な要素を先生が出してくれます
とある。"出してくれます"なので先生役はやらないと思われ

**生徒弐顎** · 04/06/13 16:56

失敬、先生は>>2氏でしたね。
先生！コンパイラの用意できましたよ。

4 ◆3VUXqvbfSY · 04/06/13 17:01

ん…ランダムを初期化して
ランダムを使い、1～9までの数当てを作ってみましょう。

**生徒弐顎** · 04/06/13 20:20

どこかで見たような課題ですね。
とりあえず言語はC/C++で問題ないですか？
採点のポイントをあらかじめ教えてくれるとやりやすいのですが。

4 · 04/06/13 20:35

何でもＯＫですよ。
どの環境でも大差ないですから。

**名前は開発中のものです。** · 04/06/13 21:08

うんこスレ発見

**生徒A** · 04/06/14 12:48

>>31 これでどうですか？一応Ｃ言語です

#include<stdio.h>
#include<stdlib.h>
#include<time.h>

int main(void){
int num,endflag=0;
srand((unsigned)time( NULL ));
while(endflag==0){
printf("数値を入力してください。\n");scanf("%d",&num);
if(num == rand()%10){printf("正解です。\n");endflag=1;}
else if(num>rand()%10){printf("もっと小さいです\n");}
else{printf("もっと大きいです\n");}
}
return 0;

}

4 ◆3VUXqvbfSY · 04/06/14 15:21

多分ＯＫです。
今携帯から何で、確認できませんがｗ

ただし。randomに同様な確からしさを求めるならば、rand()*10/RAND_MAXの方が良いでしょう。
rand()%10だと…帰ってきた値とrandが返す最大値の関係が無視される事となり、従って、返す値が同様に確からしいかを確認できなくなります。

**名前は開発中のものです。** · 04/06/14 16:42

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
I,N,F:Integer;
begin
Randomize;
I := Random(9);
Writeln('数字を入力してください');
while F = 0 do
try Readln(N);
if N = I then
begin
Writeln('正解です。Enterを押せば終了します。');
Readln; F := 1;
end else
if N > I then Writeln('もっと小さいです')
else
if N < I then Writeln('もっと大きいです');
Except
Writeln('数字を入力してください');
end;
end.
こんなんでどうでしょう

**名前は開発中のものです。** · 04/06/14 16:44

uses
SysUtils;
ここは不要でした

4 ◆3VUXqvbfSY · 04/06/14 16:57

やば…
>>35
二回ランダム使ってるよ…、ていうか、当てようがねぇ…
何か変数用意して、一回代入したら、もうランダム使っちゃダメだよ。毎回違う値がでるｗ

>>38
出来てますよ…うん。

**名前は開発中のものです。** · 04/06/14 18:35

君たち勉強不足だよ

**名前は開発中のものです。** · 04/06/14 19:01

ネット上の解説サイトより勉強するには本のほうがわかりやすいでしょうか？

**名前は開発中のものです。** · 04/06/14 19:10

>>41
図書館とかに良書が無いか？
正直、2Dならともかく3Dを作りたいなら本は必須だろ。

**名前は開発中のものです。** · 04/06/14 21:10

<body><input id=t type=text><input id=b type=button value=決 onClick=ans()><script>
var a = (Math.random() * 9 | 0)+1;
function ans(){o = document.getElementById('t').value;if(o==a){window.alert('正解');location.reload();}
o>a?window.alert('大'):o<a?window.alert('小'):0;}
</script></body>

**名前は開発中のものです。** · 04/06/14 21:47

どんなソフトを使った方がいいんでしょうか?

4 ◆3VUXqvbfSY · 04/06/14 23:53

>>35
凄く気になったんで、追記します。
何故time.hをｲﾝｸﾙｰﾄﾞしてるんですか？

**名前は開発中のものです。** · 04/06/15 00:16

>>45
randのシードに時間入れてるからじゃん
srand((unsigned)time( NULL )); ←この文で。

4 · 04/06/15 00:39

ごめん。俺がアホだった。
許して…

(＾～＾)oO(酒は飲めども飲まれるな…酔って書くんじゃ無かった…)

**名前は開発中のものです。** · 04/06/15 02:39

君たちレベル低いですよ

**生徒A** · 04/06/15 03:34

>>48 確かにレベルが低い事は認めます。だって、
未だにポインタ＆構造体が良く理解できないんで

まあ、それは良いとして、４さんありがとうございます。
35から改良したソースを書いときます。

#include<stdio.h>
#include<stdlib.h>
#include<time.h>

int main(void){
int num,endflag=0,ans;
srand((unsigned)time( NULL ));
ans=rand()*10/RAND_MAX;
while(endflag==0){
printf("数値を入力してください。\n");scanf("%d",&num);
if(num == ans){printf("正解です。\n");endflag=1;}
else if(num>ans){printf("もっと小さいです\n");}
else{printf("もっと大きいです\n");}
}
return 0;
}

**名前は開発中のものです。** · 04/06/15 11:35

>>49
そういうことじゃない。
お前が今日やったことを書き並べていくだけの自己満足スレが邪魔だと言ってるだけ。
レベルが低くて見たところで誰も得しないし、
挙句に態度も無茶苦茶悪い。
あんた何様のつもりだ。

**名前は開発中のものです。** · 04/06/15 13:15

50はこのスレに来なくていいよ

**名前は開発中のものです。** · 04/06/15 15:08

まぁ、実は云うとこのスレは重複スレであって

　　【目標ない奴】おまいらに課題を与える。【集まれ】
　　http://pc5.2ch.net/test/read.cgi/gamedev/1026148930/l50

無難に考えれば、上記スレに誘導ということになるわけだが
>>50のような排他厨房が出現して余計な真似をしやがるので
ここはしばらく様子を見守るとするか。

**名前は開発中のものです。** · 04/06/15 15:12

ただ望むべくは
このスレの利用者がローカルルールに則って自発的に
http://pc5.2ch.net/test/read.cgi/gamedev/1026148930/l50
に移動するような流れを作り出すことである。君等の善意に期待しよう。

**名前は開発中のものです。** · 04/06/15 15:26

旧課題スレはリレーで作品を作るスレ
このスレは先生がお題を出して採点するスレ

そこは間違えるなよ

**名前は開発中のものです。** · 04/06/15 15:32

あーそうなの。微妙なんだね。

**名前は開発中のものです。** · 04/06/15 15:34

ちなみに、俺は旧スレでソースを出していた者だが
別にリレーするスレではなかったので、その意味での
拘束条件はないと思っていい。

**名前は開発中のものです。** · 04/06/15 15:53

>>52-53
＞http://pc5.2ch.net/test/read.cgi/gamedev/1026148930/l50

おー、そんな良スレが既にあったんですね。
>>1ではありませんが、よく見てなかったです。ゴメンなさい。
個人的にはスレ乱立は本意ではないですし、このスレでなければ
困るという理由も無いんで、移動に一票入れときます。

今、あちらのスレのログを読んでます。とても勉強になります。

**名前は開発中のものです。** · 04/06/15 15:58

>>57
ｶﾞﾝｶﾞﾚｰ

**名前は開発中のものです。** · 04/06/15 16:47

こういうスレが好みならいっぱいあるぞ
もう1つぐらいあった気がする

>>1も行方不明だし移動しない理由もないな

ズブの初心者がゲーム作れるまで勉強するスレ
http://pc5.2ch.net/test/read.cgi/gamedev/1005132370/
■自主製作ゲーム：開発状況報告スレVer0.3■
http://pc5.2ch.net/test/read.cgi/gamedev/1071809112/
初心者専用ｽﾚ「ｼﾐｭﾚｰｼｮﾝｹﾞｰﾑ」を作らない？
http://pc5.2ch.net/test/read.cgi/gamedev/1079745509/
初心者専用ｽﾚ「パックマン」風ゲーム作らない？
http://pc5.2ch.net/test/read.cgi/gamedev/1014326802/
STGを最初からみんなで作るスレ
http://pc5.2ch.net/test/read.cgi/gamedev/1014709311/
【Delphi】ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ【作れば?】
http://pc5.2ch.net/test/read.cgi/gamedev/1051110669/

**名前は開発中のものです。** · 04/06/15 16:52

あまりレスがつかなかったスレは貼らなかったが実際はもっと乱立してる
これ以上の乱立を防ぐためにもローカルルールで告知しておいたほうがいいんじゃないか？

**名前は開発中のものです。** · 04/06/15 17:29

>>59
thx

61 · 04/06/15 17:32

途中で送信しちゃった。えと、向こうのスレでガンバリまつ！

**名前は開発中のものです。** · 04/06/15 17:36

参加します、HSPだけど・・・

suuzi=1
kazu=0
randomize
rnd kazu,10
mes "数値を入力してください。"
*main
input suuzi
button "よし！",*hantei
stop
*hantei
cls
if 9<suuzi: mes "１から９までですよ。"goto*main
if 1>suuzi: mes "１から９までですよ。"goto*main
if kazu>suuzi:mes"もっと大きいよ。"goto*main
if kazu<suuzi:mes"もっと小さいよ。"goto*main
if kazu=suuzi:mes"あったりー！"

4 ◆3VUXqvbfSY · 04/06/15 20:16

>>63
はい、正解です。

さて…次の課題は、素数です。
ゲームとは直接関係有りませんが、プログラムをやるなら、必ず一度は作るらしい！そんな課題です。

どの方法(アルゴリズム)を使っても構いません。
また、速度を追求させもしません。
ただし、速くしたいなら、どんどん高速化してみると楽しいですよ。

とりあえず、小さい方から1000個の素数を見つけるプログラムを作成してください。

６３ ◆xdaKt6k1XI · 04/06/15 20:22

>>64
とりあえず素数について調べてきます。

６３ ◆xdaKt6k1XI · 04/06/15 23:24

kuri=2
wara=2;割られる数
a=0
hyozi=0
*reset
waru=2;割る数
kota=0;答え
hante=0;判定
*sosu1000
if kuri-2<1 : goto*owari
REPEAT kuri
kota=wara/waru
if kota!1 : hante+1,break
waru+1
LOOP
*owari

if hante=0 : wara+1,kuri+1,goto*reset
hyozi+1
mes ""+wara+""
if hyozi=1000 : stop
wara+1
goto*reset

ここまで作ってたらなんだか自分で何作ってんのかわからなくなりますた。
作り直します。

**生徒A** · 04/06/15 23:36

>50

僕の発言と態度がそんなに誤解を与えたなら謝りたいと思います。
すいませんでした。

素数ですか…、そういえば「エラトステネスのふるい」のアルゴリズム
が有名ですよね

高校の時の先生におおまかな考え方だけ教えてもらったきりですが

**生徒A** · 04/06/16 00:25

とりあえず、エラトステネスのふるいを使わないで考えたプログラムです

/*１より大きい整数のうち，１と自分自身以外の整数では
割り切れないような整数を素数というらしい*/

#include<stdio.h>

int main(void)

{
/*小さい方から1000個の素数を見つけるプログラム*/
int count=0,chknum;
int i,j;

/*素数かどうかを判断するには、２からその数値のすぐ下まで全て割り切れないかどうかを判断する*/

for(j=0;count<1000;j++){
chknum=j;
for(i=2;i<=chknum;i++){
if(i==chknum){/* この条件が当てはまれば素数になる */
count++;/*カウンタをインクリメント*/
printf(" %d(%d個目発見！)",chknum,count);
}
else if(chknum%i == 0){ /* i!=chknum の状態で割り切れるなら */
/*この条件が成り立つ時は、素数じゃないので*/
break;/*内側のループのみ脱出する*/
}
}
}
return (0);
}

**名前は開発中のものです。** · 04/06/16 01:31

>>68
動作上は問題ないけど、ヘンなクセがあって読みにくいね。
先生のお手本ｷﾎﾞﾝﾇ。

**名前は開発中のものです。** · 04/06/16 01:41

>>68
間違ってる希ガス。
1000までの数の中の素数を上げるんじゃないですよん。
変数chknumが必要かもう一度考え直してみなはれ。（こっちのが見やすいかもしんないけど）

4 ◆3VUXqvbfSY · 04/06/16 08:42

模範解答は用意しましたよ。
でも、発表は答えが出そろってからにします。

**名前は開発中のものです。** · 04/06/16 09:07

>>70
最初、オレもそう思ったけど、
問題には、小さい方から1000個って書いてある悪感。

for(j=0;count<1000;j++){
これが紛らわしい。

**名前は開発中のものです。** · 04/06/16 14:41

　　　　　　　　　　∩
　　　　　　　　　　　 | |
　　　　　　　　　　　 | |
　　　　　 ∧＿∧　 | |　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　（　´Д｀）／/　　＜　先生！今から参加していいですか？
　　　　　／　　　　/　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 / /|　　　　/
　＿＿| | .|　　　 |　＿_
　＼　￣￣￣￣￣　　＼
　　||＼　　　　　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　　 .||　　　　　　　 ||

数当てゲーム
http://gamdev.org/up/img/706.zip

**生徒(C++)** · 04/06/16 15:06

先生、標準講座C++という本を読み終わった程度ですが参加してみます。
でもアルゴリズムは全然知らないので、総当りです。

#include<iostream>
#include<list>
using namespace std;
int main()
{//総当りで素数を探す
　list<int> prime;//素数
　int num=2;//走査する値
　while(1)
　{
　　for(list<int>::iterator itr=prime.begin();itr!=prime.end();itr++)
　　　if(num%(*itr)==0)break;//素数以外はループを抜ける
　　if(itr==prime.end())prime.push_back(num);//素数は保存
　　if(prime.size()==1000)break;//1000個目で終了
　　num++;//値を1増やす
　}
　cout<<"1000個目の素数："<<(*prime.rbegin())<<endl;
　return 0;
}

4 · 04/06/16 15:59

参加は嬉しい限りですよね >>1さん
でもむしろ…先生役やりたい人誰か居ない？
激しく募集中です…

**名前は開発中のものです。** · 04/06/16 18:33

<html><body><script>
function s(n){
for (i=2;i<=n/2;i++)if(n%i==0)return false;
return true;
}
o="2,3,";c=0;
for(j=4;;j++){
if (s(j)){c++;o+=j+',';}
if (c>999)break;
}
document.write(o);
</script></body></html>

６３ ◆xdaKt6k1XI · 04/06/16 20:42

挫折しますた・・・orz

**名前は開発中のものです。** · 04/06/16 22:21

>>77
ttp://www.ese.yamanashi.ac.jp/~morisawa/sc2001/Eratosthenes.html

**名前は開発中のものです。** · 04/06/16 23:54

>>77
どこでどう挫折したのか書いてみましょうよ。

**名前は開発中のものです。** · 04/06/17 00:05

よし、俺も素数のと数当てやってみる

**名前は開発中のものです。** · 04/06/17 00:44

#include <stdio.h>
#include <math.h>

int IsPrime(int);

int main()
{
int i, n = 1;
printf(" 2 ");
for(i = 0; i < 999; i++){
for(n+=2; IsPrime(n) == 0; n+=2);
printf("%4d ", n);
}
return 0;
}

int IsPrime(int n)
{
int i;
if(n % 2 == 0 && n != 2) return 0;
for(i = 3; i <= sqrt(n); i += 2)
if(n % i == 0) return 0;
return 1;
}

2を出すべきか出さざるべきか小一時間悩んだ…

６３ ◆xdaKt6k1XI · 04/06/17 07:40

>>78
結構難しそうっすね。
>>79
２から自分自身のまで順番に割ってって計算結果が１以外だったら自分自身の数を１足してやりなおして、計算結果が１だけだったらその数を表示するってようにしたんですが。

**名前は開発中のものです。** · 04/06/17 10:39

その考え方で問題ないか確認してみる。...のあとの数字は余り。

5/1 = 5 ... 0
5/2 = 2 ... 1
5/3 = 1 ... 2
5/4 = 1 ... 1
5/5 = 1 ... 0

6/1 = 6 ... 0
6/2 = 3 ... 0
6/3 = 2 ... 0
6/4 = 1 ... 2
6/5 = 1 ... 1
6/6 = 1 ... 0

６３ ◆xdaKt6k1XI · 04/06/18 15:04

>>83
駄目でしたか・・・・もう一度がんばります！

**名前は開発中のものです。** · 04/06/19 14:57

#include <stdio.h>
void main()
{
unsigned long cun;
int a,i;
printf("2\n");
for(i=3;i<=1000;i+=2){
for(a=3;a<i;a+=2){
cun++;
if(i%a==0)
break;
}
if(i==a)
printf("%d\n");
}
}
暇なんで参加

85 · 04/06/19 14:58

unsigned long cun; とcun++;
は無視で　＜(_ _)＞

**名前は開発中のものです。** · 04/06/19 17:01

>>85-86
Upするまえにテストしよ～よ。
それから、問題文をちゃんと読むべし。

**生徒A** · 04/06/19 19:27

そういえば、新しい課題って無いの？

**名前は開発中のものです。** · 04/06/19 20:08

素数とかはロジックを考えるのは大切だけど、できてもあまり嬉しくないからなぁ。
かといって特定の分野に特化すると、それぞれの分野には初心者スレがあるし。
「適当なウィンドウを作成してsin波形を描画する」あたりはどう？

4 ◆3VUXqvbfSY · 04/06/19 21:47

良いねその課題！…ってチョットレベル上がり杉な…
…まあ良いか…
でもまずは、640*480のウィンドウに
(0,0)320*240の赤い四角を描いてください。

4 ◆3VUXqvbfSY · 04/06/19 22:17

前課題解答例

#include <stdio.h>

int Check_Prime(long n)//素数判定
{
long loops;
loops=1;
while(loops*loops < n)
{
if(loops>2)loops+=2;
else loops++;
if(n%loops==0)return 1;
}
return 0;
}

void main(void)
{
long loops=2,m=1;
printf("%ld %ld\n",m,loops);
while(m<2000)
{
m++;
printf("%ld %ld\n",m,loops);
}
if(loops>2)loops+=2;
else loops++;
}

６３ ◆xdaKt6k1XI · 04/06/19 22:23

素数は無理でしたが・・・
>>90の課題はできました。

WIDTH 640,480
COLOR 255
BOXF 320,240,1,0
stop

６３ ◆xdaKt6k1XI · 04/06/19 22:24

>>92
BOXF 320,240,1,0
は
BOXF 320,240,0,0
です。

4 · 04/06/19 22:25

ミスった(汗。訂正
void main(void)
{
long loops=2,m=1;
printf("%ld %ld\n",m,loops);
while(loops<2000)
{
if(Check_Prime(loops)==0)
{
m++;
printf("%ld %ld\n",m,loops);
}
if(loops>2)loops+=2;
else loops++;
}
}

**生徒A** · 04/06/20 04:33

なんだか、構造体とかポインタとかWin32APIとかGDIとかメッセージループとか
難しすぎなんですけど…

できたには、できました。

#include "windows.h"
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow )
{
WNDCLASSEX wcex;HWND hWnd;MSG msg;
// ウィンドウクラス構造体を設定
wcex.cbSize = sizeof(WNDCLASSEX);wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = (WNDPROC)WndProc;wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;wcex.hInstance = hInstance;wcex.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
wcex.lpszMenuName = NULL;wcex.lpszClassName = "ModelApp";
wcex.hIconSm = LoadIcon(NULL, IDI_APPLICATION);
// ウインドウクラスを登録
RegisterClassEx(&wcex);
// ウインドウを作成
hWnd = CreateWindow(wcex.lpszClassName,
"640×480のウィンドウ上の(0,0)へ320×240の赤い四角を描く",
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,640,480,NULL,NULL,hInstance,NULL);
ShowWindow(hWnd, nCmdShow);UpdateWindow(hWnd);
// メッセージループ
while(GetMessage(&msg, NULL, 0, 0))
{TranslateMessage(&msg);DispatchMessage(&msg);}return msg.wParam;
}

**生徒A** · 04/06/20 04:33

// ウインドウプロシージャ
LRESULT CALLBACK WndProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
HDC hDC;PAINTSTRUCT ps;static HPEN hPen;static HBRUSH hBr;
RECT box;box.bottom =480;box.left =0;box.right =640;box.top =0;
// メッセージの種類に応じて処理を分岐
switch (message){
case WM_CREATE:hPen=CreatePen(PS_SOLID,1,RGB(255,0,0));hBr=CreateSolidBrush(0x00000000);
return 0;
case WM_PAINT:
hDC=BeginPaint(hWnd,&ps);SelectObject(hDC,hBr);FillRect(hDC,&box,hBr);
SelectObject(hDC,hPen);Rectangle(hDC,0,0,320,240);EndPaint(hWnd,&ps);return 0;
case WM_DESTROY:PostQuitMessage(0);return 0;
default:return DefWindowProc(hWnd, message, wParam, lParam);}
}

**生徒A** · 04/06/20 04:36

正直、４行で実現できるＨＳＰがうらやましいと思った…

**名前は開発中のものです。** · 04/06/20 04:46

ここはJavaでは参加できないですか？

**名前は開発中のものです。** · 04/06/20 07:05

>>98
問題ないと思いますよ

**名前は開発中のものです。** · 04/06/20 07:50

赤い四角
<html><body><script>
s='<body><div style="position:absolute;left:0px;top:0px;background-color:Red;width:320px;height:240;"></div></body>';
window.open('','','width=640,height=480').document.write(s);
</script></body></html>

**名前は開発中のものです。** · 04/06/20 07:51

SIN波
<html><body></div><script>
var a=[];
for(i=0;i<10000;i++)a[i]=0;
for(i=0;i<100;i++)a[(Math.sin(Math.PI/50*i)*50+50|0)*100+i]=1;
var s='<body><font face="ＭＳゴシック" style="font-size:4px;">';
for(i=0;i<100;i++){for(j=0;j<100;j++)s+=a[i*100+j]?'■':'　';s+='<br>';}
s+='</font></body>';
window.open('','','width=640,height=480').document.write(s);
</script></body></html>

**名前は開発中のものです。** · 04/06/20 11:15

画面を黒でクリアする方法ってこれでいいんですか？
void Clear(void)
{
SelectObject(hDC , GetStockObject(BLACK_BRUSH));
Rectangle(hDC , 0 , 0 , WIDTH , HEIGHT);
}

**名前は開発中のものです。** · 04/06/21 12:47

>>102
イイともワルいともいえないというか、
ウィンドウを更新するとか必要だけど、まぁ、そんな感じ。

つーか、先生はどこだ？！

4 ◆3VUXqvbfSY · 04/06/21 13:24

ココｗ
…まあ、VCの人が出来てんだから、sinの課題も可能か…

sinの方の制作もどうぞ。

さて…みなさんに質問です。
これから、ゲーム制作を開始してみます。
次の課題は、インベーダーとテトリス
どちらがいいですか？

いや…どっちが基本的ですかね？
とりあえず、プログラムの特徴は

インベーダー:かなり基本的なシューティング。当たり判定とキー判定がネック。また、あの敵の大群を纏めて動かすのも結構めんどい。高速化も要るかも。

テトリス:かなり基本的なパズル。回転の処理、消しの判定、落ち判定がネック。とは言え、これ自体はさして大変ではない。インベーダーより楽に見えるが、向こうより単純な分、テスト回数が少なく、飽きるかもｗ

まあ、どちらも一気にはつくりませんｗ
方向性が決まったら、ボトムアップに作りましょうｗ

**名前は開発中のものです。** · 04/06/21 13:30

>>102
DCはグローバルで持ってるのか？引数で渡した方が良いぞ。

**名前は開発中のものです。** · 04/06/21 15:47

どちらにせよソースが収まらない悪寒

**x≠先生かつx＝生徒 ⇒ x＝俺** · 04/06/21 18:09

HSP版
#include "hspext.as"

pos 0, 240
repeat 640
emsin sin, cnt\256
line cnt, 240+(sin*240/256)
loop
stop

**名前は開発中のものです。** · 04/06/21 19:41

テトリスは専用スレがあるし、JavaScriptで7行に収まったりと、
ネタが出尽くしているので飽きてます。

**名前は開発中のものです。** · 04/06/21 19:57

237 名前：名前は開発中のものです。[sage] 投稿日：03/09/21(日) 18:16 ID:vg0x9Gpj
>>227
http://www.excite.co.jp/world/url/body?wb_url=http%3A%2F%2Fwww.gamedev.net%
2Freference%2Fdesign%2Ffeatures%2Fmakegames%2Fpage2.asp&wb_lp=ENJA&wb_dis=2

テトリス→ブロック崩し→パックマン→スーパーマリオ→ギャラガ
がいいらしい

リンク先のスーパーマリオ2が違うゲーム（夢工場？）に見えるけどなんなんだろ

**名前は開発中のものです。** · 04/06/21 20:05

メッセージループを使う60fpsのゲームにして欲しい。
後々こっちのほうが役に立つと思う。

**生徒A** · 04/06/21 21:54

とりあえず、sinカーブの方を少し遅れたんですが、作ってみました。

一番先頭に#include<math.h>を付けたら、あとはキャプション以外は、ウィンドウプロシージャーしか違わないので
そこだけ書く事にしました。

// ウインドウプロシージャ
LRESULT CALLBACK WndProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
HDC hDC;PAINTSTRUCT ps;static HPEN hPen;static HBRUSH hBr;
RECT box;box.bottom =480;box.left =0;box.right =640;box.top =0;
int x=0,y,k=0; double rad=3.14159/180;
// メッセージの種類に応じて処理を分岐
switch (message){
case WM_CREATE:
hPen=CreatePen(PS_SOLID,1,RGB(255,0,0));hBr=CreateSolidBrush(0x00000000);
return 0;
case WM_PAINT:
hDC=BeginPaint(hWnd,&ps);SelectObject(hDC,hBr);FillRect(hDC,&box,hBr);
for(x=0;x<=640;x++){
y=(int)(sin((double)k*rad)*100.0+240.0);
x++; k++;
if(k>360)k=0;
SelectObject(hDC,hPen); SetPixel(hDC,x,y,RGB(255,0,0));
}
EndPaint(hWnd,&ps);
return 0;
case WM_DESTROY:PostQuitMessage(0);return 0;
default:return DefWindowProc(hWnd, message, wParam, lParam);}
}

**生徒A** · 04/06/21 21:57

私は、インベーダーの方が良いと思います。

**名前は開発中のものです。** · 04/06/21 22:10

本当に一からやるんだったら、まだまだ基礎的なことはたくさんあるですよ。

o　描いた四角を横に動かし続ける
o　画面の端で跳ね返るようにする
o　2つの四角を描いてを横に動かし続ける(速度が違うようにする)
o　四角同士が衝突したら跳ね返るようにする
o　四角を斜めに動かす
o　斜めに跳ね返るようにする
o　丸を描く
o　丸同士を当てたら跳ね返るようにする(ビリヤードみたいなの)
o　etc, etc, etc...

**名前は開発中のものです。** · 04/06/21 22:13

あと、できればバイナリ付きソースをUPして欲しかったり…

**名前は開発中のものです。** · 04/06/21 22:17

まとめページ
http://gamdev.org/w/?%5B%5B%A1%DA%BD%E9%BF%B4%BC%D4%A1%DB%B2%DD%C2%EA%A4%F2%A5%AF%A5%EA%A5%A2%A4%B7%A4%C6%A4%A4%A4%AF%A5%B9%A5%EC%A1%DA%B9%D6%BD%AC%B2%F1%A1%DB%A4%DE%A4%C8%A4%E1%5D%5D
アップローダ
http://gamdev.org/up/

**名前は開発中のものです。** · 04/06/21 22:23

誰かsin関数くらい自前で用意して描画しろよ。

**生徒A** · 04/06/21 22:33

sin関数を自前で用意するとなると、テイラー級数展開?が必要になる気がしたんですが…

確か、こんな式だったような

sin(x) = x-(x^3/3!)+(x^5/5!)-(x^7/7!)+…

**名前は開発中のものです。** · 04/06/21 23:47

赤い四角、Delphiです
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientWidth:=640;
ClientHeight:=480;
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(0,0,320,240));
end;

**名前は開発中のものです。** · 04/06/22 00:43

sin波形、Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
  ClientWidth:=640;
  ClientHeight:=480;
  Canvas.Pen.Color:=clRed;
  Canvas.MoveTo(0,240);
  for i:=0 to 627 do begin
    Canvas.LineTo(i, Trunc(sin(i/100)*100)+240);
  end;
end;

4 ◆3VUXqvbfSY · 04/06/22 06:00

>>113
勿論、選んだ方の基礎からやっていきますから。大丈夫です。ただ、大まかな指針が欲しいだけで。

>>115
ワーイ、まとめページだ！ありがとう！

>>ALL
マジで、先生増やしてよ～。僕一人じゃ不安だよ～

**名前は開発中のものです。** · 04/06/22 08:07

>>118-119
正解。

**名前は開発中のものです。** · 04/06/22 12:14

>>111
作ったペンとブラシは終了時に開放したほうがいいですよ。

**名前は開発中のものです。** · 04/06/22 13:59

階級制にしようぜ！

＊問題に難易度設定
課題にも難易度が設定されていて大佐向け、中尉向けなどがある

＊昇格資格
課題を一つクリアするたびに昇格
自分の階級より下の問題を解いても昇格しない（大佐は少尉向けの課題を解いても出世はなし）

＊出題する権利
自分より2つ下向けの課題を出せる（大佐になれば少佐向けを出題できる）

＊特別昇格
自分より格下の問題を解いた場合、通常は昇格しない
しかし、お手本になるようなすばらしい解答、解説をした場合は
昇格の対象となる
（上級職の人の任意か下級職の人の過半数の支持が目安）

こんな感じでどうよ
せっかくだからゲーム感覚でやろうじゃないかと設定してみた
ちょっと昇格条件が甘すぎる気もするけど
もちろん4 ◆3VUXqvbfSY氏や他の先生役の人はそのまま出題してくれるとありがたい

階級はこれがわかりやすくていい
http://www.special-warfare.net/data_base/102_military_unit/001_military_us/rank_01.html

**名前は開発中のものです。** · 04/06/22 15:06

階級みたいにポンポンと技術は上がらんからねぇ。
プログラミングの技術って、どちらかというと山登りみたいな感じだと思う。
準備(下積み)がほぼ大半を占めるけど、準備だけしてもだめで
登り方も知らないと駄目だし(変な登り方をすると途中でのたれ死ぬ)
なにより体力(根気)が必要。
どれをとっても「これだけやれば大丈夫」という基準が無い。

たまに天才がいて、Tシャツ短パンで一直線にエベレストに登頂したりするけど
そういうやつ以外は「大佐のくせにそんなことも知らないのかよ。プッ」って言われるのがオチかも。

**生徒BLUE＠入隊希望** · 04/06/22 23:32

赤い四角の課題解きました
書き込み制限に引っ掛かりますのでのんびり貼り付けていきます
参考にしたのは猫でもわかるプログラミングとSTGを最初からみんなで作るスレです
TABやスペースをnbspに変換するツールって欲しい時にはなかなか出てこないですね
ム板でたまに見かけた記憶はあるのですが……、持ってる人いたらください
それでは貼り付け開始

// 課題赤い四角
#include <windows.h>
#define WIDTH 640
#define HEIGHT 480
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
char szClassNme[] = "WINDOWCLASSNAME";
int DrawGr(HWND hWnd)
{
PAINTSTRUCT paint;
HDC hdc = BeginPaint(hWnd, &paint);
HPEN hPen, hOldPen;
RECT rt;
GetClientRect(hWnd, &rt);
hPen = CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
hOldPen = (HPEN)SelectObject(hdc, hPen);
HBRUSH hBrush = CreateSolidBrush( RGB(255, 0, 0));
SelectObject(hdc, hBrush);
Rectangle(hdc, 0, 0, 320, 240);
SelectObject(hdc, hBrush);
DeleteObject(hPen);
SelectObject(hdc, hOldPen);
DeleteObject(hPen);
EndPaint(hWnd, &paint);
return 0;
}

**名前は開発中のものです。** · 04/06/23 01:15

怖いのは登山ルートが間違った状態で登っていることだ
行き先は崖だったり

**生徒BLUE＠入隊希望** · 04/06/23 15:21

>>125の続き
//640x480ってひょっとしてクライアントウィンドウじゃなくてウィンドウのサイズでよかったですか？
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPreInst,LPSTR lpszCmdLine, int nCmdShow)
{
HWND hWnd;
MSG msg;
WNDCLASS myProg;
if (!hPreInst) {
myProg.style =CS_HREDRAW | CS_VREDRAW;
myProg.lpfnWndProc =WndProc;
myProg.cbClsExtra =0;
myProg.cbWndExtra =0;
myProg.hInstance =hInstance;
myProg.hIcon =NULL;
myProg.hCursor =LoadCursor(NULL, IDC_ARROW);
myProg.hbrBackground =(HBRUSH)GetStockObject(WHITE_BRUSH);
myProg.lpszMenuName =NULL;
myProg.lpszClassName =szClassNme;
if (!RegisterClass(&myProg))
return FALSE;
}
RECT rect; rect.top = 0; rect.left = 0; rect.right = WIDTH; rect.bottom = HEIGHT;
DWORD style=WS_BORDER | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX;
AdjustWindowRect(&rect, style, FALSE); int width = rect.right - rect.left; int height = rect.bottom - rect.top;
hWnd=CreateWindow(szClassNme, "【初心者】課題をクリアしていくスレ【講習会】", style, CW_USEDEFAULT,0,width,height,NULL,NULL,hInstance,NULL);
ShowWindow(hWnd, nCmdShow); UpdateWindow(hWnd);
while (GetMessage(&msg, NULL, 0, 0)) {
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return (msg.wParam);
}

**名前は開発中のものです。** · 04/06/23 18:23

VBも参加していいですか？

**名前は開発中のものです。** · 04/06/23 19:25

mingwとかSDLとかHSPとかSDKとかSDLPerlとかが一体なんなのか
理解できない漏れ…

とりあえずHelloWorldはできたけどウインドウ表示なんて壁高杉
どうすればいいんだよう…

4 ◆3VUXqvbfSY · 04/06/23 20:11

>>128
ぜんぜんＯＫ！HSPが居るんだから大じょーぶ。

>>129
MSDNライブラリを読む事から始めましょう。
ウィンドウ表示に関しては、VCの最初の壁です。コレがあるからVCは面倒くさいんですが…。
しかし、ウィンドウが表示できれば、簡単なゲームは直ぐ作れるようになりますって。

まあ、難しければHSPに転向しちゃうって手もあります。
スピードが要求されなければ、かなり便利な言語です。

HSPでググってみてください。

>>ALL
わかりました。インベーダーで始めましょう。
ただし、インベーダーが一通り作れたら、落ちゲーにも触れますよ(ぷよぷよやドリラー等)

階級制は面白いんですが…判断基準が…微妙…。
昇級試験制にしたらどうでしょう。
たとえば。
問題(if文を使わずに、Ａ＝Ｂなら0。Ａ≠Ｂなら1を表示するプログラムを作れ)

とか

**名前は開発中のものです。** · 04/06/23 20:12

真に初心者であれば分からないのは当然。
とりあえず分からない単語を列挙すれば、誰か暇な人が答えてくれるかもしれない。

**名前は開発中のものです。** · 04/06/23 22:00

>>129
hello worldを何で表示したか分からんからアレだけど、
取り合えずC/C++と仮定した場合、キミがいくべきところはここだ。

http://www.kumei.jp/c_lang/

**生徒BLUE＠入隊希望** · 04/06/23 22:23

>>127の続き
これで完了です
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch (msg) {
case WM_DESTROY:
PostQuitMessage(0);
break;
case WM_PAINT:
DrawGr(hWnd);
break;
default:
return(DefWindowProc(hWnd, msg, wParam, lParam));
}
return (0L);
}

**名前は開発中のものです。** · 04/06/24 00:34

>>130 ありがとうございます。C言語でも出来ますけど、あまり自信が無いんです…。

VBでキャラの移動と弾の発射だけやってみました。
←→キーで左右移動、Z or Spaceキーで弾の発射です。
http://gamdev.org/up/img/737.lzh

**名前は開発中のものです。** · 04/06/24 14:35

>>134
×押して終了しても、プロセスが残ってるみたい

**ﾒﾄﾛｲﾄﾞｵﾓﾛｲﾄﾞ** · 04/06/24 21:11

2Dメトロイド&3Dメトロイド作ってみたらどうだ?
難しいがエラー無く完成したら腕上がるぞ｡

**生徒BLUE** · 04/06/24 23:20

次はいよいよインベーダーですか

参考にしたサイト：http://www3.omn.ne.jp/~renas/Win32/
今回新しく使った関数：MoveToEx、LineTo

>>125 >>127 >>133の中からDrawGr関数を書き換えて#include <math.h>を追加します。
//課題4sin波
int DrawGr(HWND hWnd)
{
PAINTSTRUCT paint;
HDC hdc = BeginPaint(hWnd, &paint);
HPEN hPen, hOldPen;
RECT rt;
GetClientRect(hWnd, &rt);
hPen = CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
hOldPen = (HPEN)SelectObject(hdc, hPen);
HBRUSH hBrush = CreateSolidBrush( RGB(255, 0, 0));
SelectObject(hdc, hBrush);
MoveToEx(hdc,0,sin(0.0)*100+240,NULL);
for (float i=0; i<6.28; i+=0.01) {
LineTo(hdc,i*100,sin(i)*100+240);
}
SelectObject(hdc, hBrush);
DeleteObject(hPen);
SelectObject(hdc, hOldPen);
DeleteObject(hPen);
EndPaint(hWnd, &paint);
return 0;
}

**134** · 04/06/25 02:41

当たり判定などを追加しました。問題のメモリリークのバグも直しました。

http://gamdev.org/up/img/741.lzh

4 ◆3VUXqvbfSY · 04/06/25 07:09

>>134さん
まずは、sinからお願いします。
あんまり爆走すると、先生にしますよ。
むしろ、なって欲し…

>>ALL
次の課題は、基本中の基本。
キー入力です。
先程の赤い四角を使い、カーソル(テンキーでも可)でグリグリ動く物を作ってください。

参考程度に
VC++ GetKeyState();//バーチャルキーの状態取得。
C++ getch();//標準入力
VB _KeyDown(key%,Shift%)//keyにキーコードが返る
HSP getkey p1,p2//p2のキーが押されていると、p1に1が代入される。

**x≠先生かつx＝生徒 ⇒ x＝俺** · 04/06/25 18:25

sin波生成
http://rupan.zive.net/~kain/cgi-bin/up/src/up1133.zip

６３ ◆xdaKt6k1XI · 04/06/25 23:47

動かせました。

WIDTH 640,480
*main
BUFFER 2,640,480,1
COLOR 255
BOXF x+320,y+240,x,y
pos x,y
stick a,15
if a&1 : x-1
if a&2 : y-1
if a&4 : x+1
if a&8 : y+1
await 1
GSEL 0
GCOPY 2,0,0,640,480
goto *main
stop

**生徒142** · 04/06/26 00:54

今日から参加します。
まずは四角
http://gamdev.org/up/img/742.lzh

キー入力に取りかかります。
赤い四角を動かせばいいんですよね？

**生徒142** · 04/06/26 03:19

連投
プロシージャのみ貼り付けてみます。

描画がｶｸｶｸします、再描画の処理はどうすればきれいに動くのでしょうか？
LRESULT CALLBACK WndProc(HWND hWnd,UINT msg,WPARAM wp,LPARAM lp){
HDC hdc;PAINTSTRUCT ps;HPEN hpen;static int x,y;
switch(msg){case WM_CREATE:x = 0;y = 0;break;
case WM_KEYDOWN:if(wp == VK_RIGHT){if(x < 310){x += 5;}}
if(wp == VK_LEFT){f(x > 0){x -= 5;}}
if(wp == VK_UP){if(y > 0){y -= 5}};
if(wp == VK_DOWN){if(y < 210){ y += 5;}}
InvalidateRect(hWnd,NULL,TRUE);
break;
case WM_PAINT:
hdc = BeginPaint(hWnd,&ps);
hpen = CreatePen(PS_SOLID,3,RGB(255,0,0));
SelectObject(hdc,hpen);
Rectangle(hdc,x,y,x+320,y+240);
DeleteObject(hpen);
EndPaint(hWnd,&ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return(DefWindowProc(hWnd,msg,wp,lp));
}
return 0;
}

**名前は開発中のものです。** · 04/06/26 04:14

if(wp == VK_LEFT){f(x > 0){x -= 5;}}
↓
if(wp == VK_LEFT){if(x > 0){x -= 5;}}

if(wp == VK_UP){if(y > 0){y -= 5}};
↓
if(wp == VK_UP){if(y > 0){y -= 5;}}

**生徒142** · 04/06/26 04:30

>>144
すみません、ソース書いた時は｛使ってなかったもので
ここに貼り付ける時に急遽書きました。

iが消えたり;の前に}書いたり間抜けなことになってますね。
次からはよく確かめます

**134** · 04/06/26 05:20

>>139

VBでsinカーブを描画してみました。
そろそろC言語でやりたいとは思うのですが、ポインタの所がいまいちなので…

http://gamdev.org/up/img/743.lzh

**名前は開発中のものです。** · 04/06/26 08:40

<html><head><style type="text/css"></style></head>
<body onLoad="main()" onKeyDown="k[event.keyCode]=1" onKeyUp="k[event.keyCode]=0">
<div id=char class=put></div><script language="Javascript">
var timerID,k=[],x=0,y=0,charElm=document.getElementById('char');
function main(){
clearTimeout(timerID);timerID=setTimeout(main,30);
x+=k[37]&&x?-8:k[39]&&x<320?8:0;
y+=k[38]&&y?-8:k[40]&&y<240?8:0;
charElm.style.left=x;charElm.style.top=y;}
</script></body></html>

**134** · 04/06/26 10:37

http://gamdev.org/up/img/744.lzh

キャラ移動です。一応加速度も考慮してあります。

**名前は開発中のものです。** · 04/06/26 13:26

Wikiなんかじゃなくて専用のＨＰ作ったら？
ソース貼るのに不憫だろ

**名前は開発中のものです。** · 04/06/26 13:31

>>149
神ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!
tabとか半角スペースめんどいもんな
ひょっとして過去にうぷされたソースとかも整形してうぷしてくれれば
うれしいけどそれは望みすぎかな
急がなくていいからがんがれ！

**名前は開発中のものです。** · 04/06/26 13:39

強引な150に萌え

**Ruby@課題1数当て** · 04/06/26 14:32

kotae=rand(9)+1
while (true)
print "1～9の数を入力してください\n"
gets
ans=Integer(chop)
if ans==kotae then
print "正解\n"
break
else
print "不正解\n"
end
end

**149** · 04/06/26 15:26

俺かYoΣ(´□｀;)

**Ruby@課題2素数** · 04/06/26 16:17

count=0
i=2
while count<1000 do
sosu=true
for j in 2..i-1 do
if ( (i % j) == 0)
sosu=false
end
end
if (sosu)
print "#{i}\n"
count=count+1
end
i=i+1
end
print "素数を#{count}個みつけました\n"

**Ruby/SDL@課題3赤い四角** · 04/06/26 17:32

require 'sdl'

SDL.init( SDL::INIT_VIDEO )
screen = SDL.setVideoMode( 640, 480, 16, SDL::SWSURFACE )

screen.fillRect( 0, 0, 320, 240, [ 255, 0, 0 ] )
screen.updateRect( 0, 0, 0, 0 )

loop do
while event = SDL::Event2.poll
case event
when SDL::Event2::Quit, SDL::Event2::KeyDown
exit
end
end
end

**Ruby/SDL@課題4sin波形** · 04/06/26 18:50

require 'sdl'

SDL.init( SDL::INIT_VIDEO )
screen = SDL.setVideoMode( 640, 480, 16, SDL::SWSURFACE )

count=0.0
while count < 6.28
  x=count*100
  y=Math.sin(count)*100+240
  screen.putPixel(x,y,[255,0,0])
  count=count+0.01
end
screen.updateRect( 0, 0, 0, 0 )

loop do
  while event = SDL::Event2.poll
    case event
    when SDL::Event2::Quit, SDL::Event2::KeyDown
      exit
    end
  end
end

**Ruby/SDL@課題5キー入力** · 04/06/26 20:12

require 'sdl'

SDL.init( SDL::INIT_VIDEO )
screen = SDL.setVideoMode( 640, 480, 16, SDL::SWSURFACE )

y=0
x=0

loop do
  while event = SDL::Event2.poll
    case event
    when SDL::Event2::Quit
      exit
    end
  end

  SDL::Key.scan
  y -= 1 if SDL::Key.press?( SDL::Key::UP )
  x += 1 if SDL::Key.press?( SDL::Key::RIGHT )
  y += 1 if SDL::Key.press?( SDL::Key::DOWN )
  x -= 1 if SDL::Key.press?( SDL::Key::LEFT )

  x=0 if x<0
  x=319 if x > 319
  y=0 if y<0
  y=239 if y > 239

  screen.fillRect( 0, 0, 640, 480, [ 0, 0, 0 ] )
  screen.fillRect( x, y, 320, 240, [ 255, 0, 0 ] )
  screen.updateRect( 0, 0, 0, 0 )
end

**名前は開発中のものです。** · 04/06/26 21:12

こりゃある意味、荒らしといえなくもないな

**名前は開発中のものです。** · 04/06/26 21:34

Ruby/SDLインストール方法（Windows）

１．とりあえずコレをダウンロード
http://www.kmc.gr.jp/~ohai/rubysdl/rubysdl-0.9.2-win32bin-pack.lzh

２．解凍して適当なフォルダにコピー

３．[コピーしたフォルダ]\usr\local\binにパスを切る
（たとえばc:\ruby\usr\local\binなど)

以上でインストール終了。

スクリプトをテキストファイルとして保存して（拡張子は.rbが一般的）
ruby [ファイル名]として実行
（たとえばruby sosu.rbなど）

公式サイト
http://www.kmc.gr.jp/~ohai/index.html
チュートリアル
http://www.kmc.gr.jp/~ohai/rubysdl_intro.html

**名前は開発中のものです。** · 04/06/26 23:23

宣伝？

**名前は開発中のものです。** · 04/06/26 23:49

キー入力、Delphiです
TApplicationEventsとQD3のDDIDEX使ってます

private
Chara: TPoint;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
DDIDEX1.Scan(DI_KEYB);
Chara.X:=Chara.X+DDIDEX1.Stick.X;
Chara.Y:=Chara.Y+DDIDEX1.Stick.Y;
if (Chara.X<0) or (Chara.X>319) then begin
Chara.X:=Chara.X-DDIDEX1.Stick.X;
end;
if (Chara.Y<0) or (Chara.Y>239) then begin
Chara.Y:=Chara.Y-DDIDEX1.Stick.Y;
end;
Canvas.Brush.Color:=clBlack;
Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(Chara.X,Chara.Y,Chara.X+320,Chara.Y+240));
Sleep(5);
Done:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
ClientWidth:=640;
ClientHeight:=480;
end;

**名前は開発中のものです。** · 04/06/27 01:17

>>149
インデントを保ったままソースをうぷしたいなら
ソース置き場やゲムデヴあぷろだをを利用させてもらう手もある
というかこのスレはなぜ貼り付けるのが主流なんだｗ

ソース置き場
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
ゲムデヴあぷろだ
http://gamdev.org/up/

>>151
うむ、萌えプロ目指してるからな
参考1) http://www.bk1.co.jp/cgi-bin/srch/srch_message.cgi/40dd9dc0e029f0104573?aid=p-sf0023&tpl=genre/07/softbank.html
参考2) http://oshimago.chu.jp/personal/archives/DSC00117.JPG

>>153
　　　　　　☆ ﾁﾝ　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ～
　　　　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ～
　　　　 ☆　ﾁﾝ　　〃　 ∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　ヽ　＿＿_＼（＼・∀・）　＜　専用のＨＰまだ～？
　　　　　　＼＿／⊂　⊂＿) 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　／￣￣￣￣￣￣／|
　　　　　　　|￣￣￣￣￣￣￣|　 |
　　　　　　　|　　S　p o k e　　|
>>158
このスレ自体（ｒｙ
まぁ、土曜日を利用してスタートダッシュだ許せ

>>160
おまいらも開発環境や実行環境ぐらい書けよ
ところでRubyって宣伝と思われるほどマイナーなのか？
ちなみにRuby暦1日（もう2日目だな）なので優しくしてくれな

**名前は開発中のものです。** · 04/06/27 02:56

>>162
＞このスレはなぜ貼り付けるのが主流なんだｗ
ﾀﾞｳｿして解凍してって面倒なので結構貼り付けいいと思うんだが
普通のレスが見にくい＆改行制限が問題だな

2ch型掲示板を設置して生徒一人につき１スレ使ってソースを貼り付けていくっていうのはどうでしょ？
TABの問題が残るかな？

**名前は開発中のものです。** · 04/06/27 06:21

>>163
神ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!
ﾀﾞｳｿとか解凍めんどいもんな
ひょっとして過去にうぷされたソースとかもスレ立てて貼りつけてくれれば
うれしいけどそれは望みすぎかな
急がなくていいからがんがれ！

**名前は開発中のものです。** · 04/06/27 07:31

>>164
コピペかよ！ほんとに作るぞ？
aaacafeとかだったらすぐだし

**名前は開発中のものです。** · 04/06/27 09:45

ソースをコピペしてコンパイルして実行するほうがはるかにめんどい

**129** · 04/06/27 10:57

今更ながらやっとwindows.hが読める？環境が整ったよ…
>>130-132さんありがとう。

LSI-C86試食でやっていたのですがこの度borlandのなんとかをいれました
次はSDL＆Cygwin？？？？
なんかいまだにDelphiとか分からないんですけど何をどうするのが好ましいのでしょうか…？

自分だけ違う次元ですね…。鬱。

**名前は開発中のものです。** · 04/06/27 12:50

>167
ＳＤＬとかＣｙｇｗｉｎとかＤｅｌｐｈｉとか気にしなくても良いから
とりあえずborland c++ コンパイラ用意できたということで
Ｃのお勉強をしてみましょうよ

**167** · 04/06/27 13:15

>>168
SDLとかいれたほうが楽なのかなと思ったのですが…
やっぱりいきなり窓プログラミングにぶっ飛ぶより基礎からじっくりやるべきですか
基礎でぬくぬくしてられないと思ったもので…反省。

**課題2@D言語** · 04/06/27 13:29

まだβ版だけど先取りして勉強。
素数判定。

const int MAX_COUNT = 1000;

int main() {
    int   num,check,count;

    printf("1\n");
    count = 1;
    num = 2;
    while (count<MAX_COUNT) {
        for (check=2;check<num;check++) {
            if (num%check==0) break;
        }
        if (check==num) {
            printf("%d\n",num);
            count++;
        }
        num++;
    }
    return 0;
}

**名前は開発中のものです。** · 04/06/27 17:32

>>163
ソース貼り付けのメリットも捨てがたいな
テキストファイルを扱えるあぷろだがあれば閲覧もダウンロードもできて楽かもしれん
スレにソース貼りまくりも妙に楽しいんだが

>>164
　　　,,ﾍﾍ　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　（,, ﾟ∇ﾟ）　＜　クレクレ厨逝ってよち！
　～(,,＿ﾉ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

>>165
megaBBSスクリプト（ http://pabbs.hp.infoseek.co.jp/haifu.html ）が半角、全角、TABを扱えていい感じだった
しかも等幅フォントも使えるみたい

2chでインデントつける方法は教えてもらってきた
http://pc5.2ch.net/test/read.cgi/tech/1088022524/83-92

>>166
だよな、人のソースみて勉強してる立場からすると崩れたソースは辛い

>>167 >>169
Win32APIで窓プログラミング汁！
ぬくぬくどころか最難関だｗ
といっても参加者やわかる人が多い環境でもあるので王道かもしれん
ひたすらたくさんの開発環境を整えてPCの基礎知識を仕入れるのも(･∀･)ｲｲ！

>>170
D言語知らないから間違ってたら悪いんだが
それって1も表示されないか？（１はもちろん素数じゃない）

>>生徒BLUE氏
BRUSHの解放忘れがあるよ

**課題2@D言語** · 04/06/27 17:41

>>171
1と自分以外で割れない数が素数じゃないの？
1と1以外で割れない数だからと思って"わざわざ"付け足したのに orz

**名前は開発中のものです。** · 04/06/27 18:31

テスト　
というかこんな感じのロダでいいのかな？cppアップ可能に設定してみた
http://cgi.f11.aaacafe.ne.jp/~novarabb/phpup/img/007.cpp

各言語のテキストに対応させればそのままあｐできるし。

**名前は開発中のものです。** · 04/06/27 19:00

>>169
実際にはWindowsのゲームプログラミングはそれほど難しくないよ。
内部にゲーム画像を作成してキー入力などに応じて更新、それを
描画するだけだからね。ウインドウプログラミングの「流れ」を
掴めれば、パズルゲームやADV/RPGは比較的簡単に作れる。

何からはじめればよいかわからない、ということなら

C++ ゲームプログラミング

といったキーワードでぐぐるなり、書店で「Windowsプログラミングの本」
を眺めて何をすれば「Windows用プログラム」になるのか、調べてみると
良いかも。

本当に「基礎」をやるなら、高レベルのライブラリではなくまずSDK
ベースのWindowsプログラミングで「Windowsのプログラムの流れ」を
しっかり追った方が良い。

**x≠先生かつx＝生徒 ⇒ x＝俺** · 04/06/27 19:17

インベーダー途中
http://gamdev.org/up/img/757.zip

**生徒A** · 04/06/27 19:26

しばらく来ない内にすごい事になってるよ…もう付いていけない

**生徒BLUE** · 04/06/27 22:04

あまりソースを貼り付けるのは荒らしっぽい？のでうぷろだにしました
今はまだ170行ですがインベーダーなら500～1000ぐらいにたぶんなるので
そろそろ切り替えようと思っていたところです

キー入力はGetAsyncKeyStateを使いました
0x8000の意味とかまだよくわかりませんけれど
if ((GetAsyncKeyState( VK_UP ) & 0x8000) == 0x8000)
{
y--;
}

チラチキ対策でダブルバッファを使った描画をしています
参考にしたソースをほぼそのままコピペしていますが内容は理解しています
このあたりは以前、やったことがあるのでまだまだ大丈夫

課題5キー入力
http://gamdev.org/up/img/759.zip

**名前は開発中のものです。** · 04/06/27 22:28

画像だけなら簡単だが、音をつける段階で挫折しそうだ。

ダイレクトＸを使わずに、ＷＡＶを複数同時に鳴らすことがどれほど大変か・・・

**名前は開発中のものです。** · 04/06/27 22:41

>>178
そうだね。
「自分でＰＣＭバッファを作成し波形を合成、リアルタイムに出力」
なんてことになると結構しんどい（面白いとも言うがｗ）・・・。

まあ、画像でも同じような場面（自分で管理するバッファを処理し
ながらのリアルタイム出力）はあるわけだが。

**名前は開発中のものです。** · 04/06/27 22:48

ほらほら、先生が仕切らないから、落ちこぼれがでちゃったぞ。
一人は突っ走ってるし。

**名前は開発中のものです。** · 04/06/27 22:58

>>177
> 0x8000の意味とかまだよくわかりませんけれど
「ANDでマスクとる」とかはわかる？

定数書いちゃダメとか、staticって書くようにするとか、
拡張子がcppなのにC言語風じゃん！とか、
バックバッファあたりは毎回生成＆破棄しなくても最初に一度だけ
作成してしまった方が処理の無駄がないとか、ブラシとペンも。

**x≠先生かつx＝生徒 ⇒ x＝俺** · 04/06/27 23:05

>>180
とりあえず突っ走ってるって俺じゃないよな？

>>134
CPU使用率が70%～80%まで行ったんだけど・・・。

**x≠先生かつx＝生徒 ⇒ x＝俺** · 04/06/27 23:07

( ﾟдﾟ)ﾊｯ!もしや、落ちこぼれが俺か!

**副担任** · 04/06/27 23:48

先生が帰ってくるまで漏れが面倒みましょうか？

ぷち · 04/06/28 00:10

**名前は開発中のものです。** · 04/06/28 03:20

落ちこぼし師

**名前は開発中のものです。** · 04/06/28 04:46

>>184
お願いします。
ソース貼っても、アドバイス求めても生徒ばっかりでレスなくて(´･ω･`)ｼｮﾎﾞｰﾝです。

**生徒A** · 04/06/28 06:10

なんとか徹夜して６時間ほど粘ってキー入力まで行ったけど、限界が近い…

WM_TIMERで画面の更新を行っているんですが、なんかすごくちらつくんですよ
あと、DeleteObject(hBr)というのを使うと、何故か画面が白くなるんです…
なので、使ってません。

http://gamdev.org/up/img/762.lzh

4 ◆3VUXqvbfSY · 04/06/28 06:20

すみません皆様…
ミニ死の行進してました…

アプロダについて:
あっても、別に構いませんが、必要無いようにします。
具体的には、トップダウンで(例えばCなら)
メインを作る。
↓
個々に使われた関数を作る
みたいに、ソースを(出来るだけ解りやすく)分割して、表示しようと企んでいます。

進行度:
自分で出来る方がドンドン進まれるのは、むしろ、喜ばしいです。ただし、課題はあくまで初心者ラインにしておきます。
だから、焦らなくて大丈夫。今の課題は、｢キーで、赤い四角を動かす｣です。

先生:
や、やっと一人…m(_ _)mﾖﾛｼｸｵﾈｶﾞｲｼﾏｽ

次の課題:
当たり判定。
先ほどの、｢動く赤い四角｣を避けゲーに改造しましょう
敵は敵x = rand() % 640;//rand()*640/RAND_MAX
で…敵y++;のように動く単純な敵です。
当たったら終了と言う仕様で…

**副担任** · 04/06/28 10:23

漏れは先生と考え方が違うので一応書いておきます。うざかったらクビにしてください。＞先生
・動けば正義(いい設計はできたほうがいいけどまだ求める段階ではないと思う)
・ソースは固めてどこかにアップする(バックアップ、成果としてわかりやすい)
・バイナリは付けて欲しい(開発環境を全てそろえるのは難しい)
・課題によけいなものは付けないでください(初心者が提出したソースを参考にしたとき、必要な機能のみが実装されていたほうがいい)

あくまで初心者のためのライブラリとしてとらえています。
「絵を描くにはこうする」「動かすにはこうする」「…」「…」のサンプルコードの固まりにしたいです。

課題の方針には賛成なので従います。

というわけで分からんことがある人は漏れが面倒みます。勉強しながら…。orz

**副担任** · 04/06/28 10:26

訂正すまそ。
× ・課題によけいなものは付けないでください(初心者が提出したソースを参考にしたとき、必要な機能のみが実装されていたほうがいい)
○ ・提出したソースにはよけいな機能は付けないでください(初心者が提出したソースを参考にしたとき、必要な機能のみが実装されていたほうがいい)

**名前は開発中のものです。** · 04/06/28 10:28

>>188
簡単だが添削。ウィンドウプロシージャだけ。

DeleteObjectの2行はWM_PAINT内でやってはダメ。
WM_PAINTは何度も呼ばれるため、最初の描画が終了した時点で、作ったペンやブラシは
無効になるため、色がつかなくなる。DeleteObjectするならWM_DESTROY内で。
ちなみにCreateしたものはちゃんと削除するのがお約束。

SelectObjectしたものに関しても、元に戻しておくのが一応の作法。
holdobj = SelectObject(hdc, hobj);// 以前のオブジェクトハンドルを保存
// 何か処理
holdobj = SelectObject(hdc, holdobj);// 以前のオブジェクトに戻す

何故か赤く塗りつぶされないというのは、ディスプレイDCに複数回描画を行っていて、それが
ちらつきとして現れるから。こういう場合はオフスクリーンに描画し、最後にディスプレイDCに
BitBltする。

**名前は開発中のものです。** · 04/06/28 10:30

ちと訂正・・orz

×holdobj = SelectObject(hdc, holdobj);// 以前のオブジェクトに戻す
○SelectObject(hdc, holdobj);// 以前のオブジェクトに戻す

６３ ◆xdaKt6k1XI · 04/06/28 15:51

>>190
変な質問ですいません
バイナリってなんですか？

**生徒A** · 04/06/28 16:36

>>194 190じゃないですが、もともとは２進数という意味だと思います。
だから、この場合は、1と0の組み合わせで作られた機械語データ
（実行ファイル）の意味だと思います。
他にも、テキストデータ以外のファイル全てを指す事もあります。

**生徒A** · 04/06/28 16:40

>>192　ありがとうございます。
DeleteObjectのやり方は分かったのですが、
オフスクリーンのやり方がちょっとよく分からないです。
具体的には、オフスクリーンの作成方法です。

**名前は開発中のものです。** · 04/06/28 17:06

CreateCompatibleBitmap

**副担任** · 04/06/28 17:37

>>194
Windowsの実行ファイルのことです。"～.exe" ってやつ。
C言語とかはコンパイルして実行ファイルを作らないとプログラムが動きません。
HSPはインタプリタ言語なので実行ファイルは作らなくていいみたいですね。

>>195
正解です

**Ruby@課題6当たり判定** · 04/06/28 18:32

require 'sdl'
SDL.init( SDL::INIT_VIDEO )
screen = SDL.setVideoMode( 640, 480, 16, SDL::SWSURFACE )
x=(639-32)/2
y=(479-32)/2
enemyX=rand(639-32)
enemyY=0
loop do
while event = SDL::Event2.poll
case event
when SDL::Event2::Quit
exit
end
end
SDL::Key.scan
y -= 1 if SDL::Key.press?( SDL::Key::UP )
x += 1 if SDL::Key.press?( SDL::Key::RIGHT )
y += 1 if SDL::Key.press?( SDL::Key::DOWN )
x -= 1 if SDL::Key.press?( SDL::Key::LEFT )
x=0 if x<0
x=(639-32) if x>(639-32)
y=0 if y<0
y=(479-32) if y>(479-32)
enemyY=enemyY+1
enemyY=0 if enemyY>479
if (x-enemyX).abs<32 and (y-enemyY).abs<32 then
exit
end

**Ruby@課題6当たり判定** · 04/06/28 18:33

screen.fillRect( 0, 0, 640, 480, [ 0, 0, 0 ] )
screen.fillRect( x, y, 32, 32, [ 255, 0, 0 ] )
screen.fillRect( enemyX, enemyY, 32, 32, [ 0, 255, 0 ] )
screen.updateRect( 0, 0, 0, 0 )
end

課題6当たり判定(実行ファイル付き)
http://gamdev.org/up/img/764.zip

【Rubyスクリプトを実行ファイルにする方法】
http://exerb.sourceforge.jp/ からExerbををダウンロード
レシピファイルを書く
add_ruby_script[TAB](スクリプト名)
add_extension_library[TAB](ライブラリ名)[TAB](パスを含めたライブラリ名)
例)
add_ruby_script[TAB]collision.rb
add_extension_library[TAB]sdl.so[TAB]sdl.so

※注意
[TAB]はTABキーで入力してください
通常のエディタだと空白と判別できませんので注意

Exerb添付ドキュメントは旧式の書き方になっているようです
サンプルは新しいものだったのでそちらを参考にしました