[過去ﾛｸﾞ]
【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
225: 4 ◆3VUXqvbfSY [] 04/07/01 08:34 ID:KOe6GSoY >>222,223 サイズは自由で結構です。 敵の動きは…だからy++;だけですよ？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/225
226: 生徒A [sage] 04/07/01 14:26 ID:MCi74o/R 数日間ソースとにらめっこしてるのですが、バックバッファーの処理が上手くいかないです… http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/226
227: 名前は開発中のものです。 [sage] 04/07/01 15:45 ID:bdPAbTo6 >>226 ｷﾐのソースに少し手を加えたやつをうｐろだにあげたから試してみれ。780.lzhだ。 ただしオフスクリーン処理以外（後始末とか）は端折ってるのでそこは参考にしないように。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/227
228: LGP@課題5キー入力 [] 04/07/01 22:17 ID:TMNGfYFe CH = G@SETUP( 640 , 480 , 16 , 1 ) LOOP //無限ループ //赤い四角を黒で塗りつぶして消す G@GDISETBRUSH( 0 , 0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+320, Y+240 ) I@KEYGET() //キーの状態を得る //I@KEYBTNの引数に調べたいキーをいれ、戻り値が1なら押してる状態 IF I@KEYBTN(0xC8)=1 THEN //0xC8はカーソルキー↑ IF Y>0 THEN Y=Y-1 ENDIF ENDIF IF I@KEYBTN(0xCB)=1 THEN IF X>0 THEN X=X-1 ENDIF ENDIF IF I@KEYBTN(0xCD)=1 THEN IF X<320 THEN X=X+1 ENDIF ENDIF IF I@KEYBTN(0xD0)=1 THEN IF Y<240 THEN Y=Y+1 ENDIF ENDIF //赤い四角を描く G@GDISETBRUSH( 0 , 1.0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+320, Y+240 ) G@FLIP() ENDLOOP http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/228
229: LGP@課題6当たり判定 [] 04/07/02 03:30 ID:4ZvlEEie CH = G@SETUP( 640 , 480 , 16 , 1 ) X=320 Y=240 //無限ループ LOOP //黒で塗りつぶし G@GDISETBRUSH( 0 , 0 , 0 , 0 ) G@GDIBOXFULL( CH , 0, 0, 640, 480) //キー入力 //キーの状態を得る I@KEYGET() //I@KEYBTNの引数に調べたいキーをいれ、戻り値が1なら押してる状態 //0xC8はカーソルキー↑ IF I@KEYBTN(0xC8)=1 THEN IF Y>0 THEN Y=Y-1 ENDIF ENDIF IF I@KEYBTN(0xCB)=1 THEN IF X>0 THEN X=X-1 ENDIF ENDIF http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/229
230: LGP@課題6当たり判定 [] 04/07/02 03:30 ID:4ZvlEEie IF I@KEYBTN(0xCD)=1 THEN IF X<(640-32) THEN X=X+1 ENDIF ENDIF IF I@KEYBTN(0xD0)=1 THEN IF Y<(480-32) THEN Y=Y+1 ENDIF ENDIF //敵移動 TY=TY+1; IF TY>(640-32) THEN TY=0 TX=RAND()%(640-32) ENDIF //赤い四角を描く G@GDISETBRUSH( 0 , 1.0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+32, Y+32 ) //敵を描く G@GDISETBRUSH( 0 , 0 , 1.0 , 0 ) G@GDIBOXFULL( CH , TX, TY, TX+32, TY+32 ) //当たり判定 IF (ABS(X-TX)<32) AND (ABS(Y-TY)<32) THEN END ENDIF G@FLIP() ENDLOOP http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/230
231: 名前は開発中のものです。 [] 04/07/04 00:00 ID:UWWF49AF 保守age http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/231
232: HSPが初プログラム@生徒希望 [sage] 04/07/04 11:07 ID:3DUC6+Xf 課題１ title "数当てゲーム" screen 0,150,65 ;ウィンドウのサイズを調整 mes "1〜9から一つ入力" input a ;入力ボックスを出す *random rnd b,9 ;0〜8の乱数発生 b+=1 ;1〜9にする c=1 *number button "これだ！",*judge stop *judge if a=b:dialog "当たり！",0,""+c+"回目":goto *random if a>b:dialog "もっと小さい",0,""+c+"回目" if a<b:dialog "もっと大きい",0,""+c+"回目" c+=1 goto *number 課題3 title "赤い四角の描画" screen 0,640,480,1 color 255,0,0:boxf 0,0,320,240 stop http://gamdev.org/up/img/801.zip 課題2はﾖｸﾜｶﾗﾅｲです。ヒントくれませんか？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/232
233: 名前は開発中のものです。 [sage] 04/07/04 11:13 ID:dw9vgL9Y >>232 自分以下で2以上の全ての整数の割り算の余りが0にならなければ素数 別の解放にエラトステネスのふるいってのがあるけど別に使わなくていい http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/233
234: 名前は開発中のものです。 [sage] 04/07/04 11:14 ID:dw9vgL9Y 自分未満の整数の間違い 以下だったら自分も含むからね http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/234
235: 名前は開発中のものです。 [sage] 04/07/04 12:05 ID:WDudAYFD 自分の1/2で十分じゃね？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/235
236: 名前は開発中のものです。 [sage] 04/07/04 12:35 ID:yqwpjhZT (√自分)でよくない？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/236
237: 名前は開発中のものです。 [sage] 04/07/04 12:38 ID:WDudAYFD 平方根求めるより楽だし http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/237
238: 名前は開発中のものです。 [sage] 04/07/04 12:55 ID:9GihiSR8 >>236-237 なんで平方根まででいいんだっけ？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/238
239: 名前は開発中のものです。 [sage] 04/07/04 13:00 ID:WDudAYFD それ以上のは今までに計算した分と対応してるだけ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/239
240: HSPが初プログラム@生徒希望 [sage] 04/07/04 19:58 ID:3DUC6+Xf えと、素数はどういうものかはわかるんですが、プログラムというかHSPでの算出方法が… http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/240
241: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:45 ID:WDudAYFD ; 素数判定 with HSP 少しだけ高速版 sdim log, 7000: notesel log title "素数判定 - Calculating..." mesbox log, 640, 480 log = "2": n = 1 repeat 999 repeat n += 2: f = 1 repeat n>>1-1,3 if n \ cnt = 0: f = 0: break continue cnt+2 loop if f: break loop noteadd ""+n await loop objprm 0, log title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/241
242: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:47 ID:WDudAYFD あ、インデントかけるの忘れとった。。。 ; 素数判定 with HSP 単純版 sdim log, 7000: notesel log title "素数判定 - Calculating..." mesbox log, 640, 480 repeat ,2 n = cnt repeat cnt-2, 2 if n \ cnt = 0: n = 0: break loop if n{ noteadd ""+cnt i++ if i >= 1000: break await } loop objprm 0, log title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/242
243: Ruby@素数高速化 [] 04/07/05 00:33 ID:K58VA1M5 以前のバージョン 43.702999830246秒 ループ 31343403回 新しいバージョン（奇数のみ評価、平方根までチェック) 0.921999931335449秒(約47倍) ループ 225062回(約139倍) 思ったより高速化されてﾋﾞｸｰﾘ print "2\n" count=1 loopCount=0 i=3 old=Time.now.to_f; while count<1000 do sosu=true for j in 3..Math.sqrt(i) do loopCount=loopCount+1 if ( (i % j) == 0) sosu=false end end if (sosu) print "#{i}\n" count=count+1 end i=i+2 end print " #{Time.now.to_f - old}秒かかりました\n" print " #{loopCount}回ループしました\n" print "素数を#{count}個みつけました\n" http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/243
244: 名前は開発中のものです。 [] 04/07/05 01:37 ID:o/9mlWPU >>241を改良してみた。 ; 素数判定 with HSP 何気に高速版 title "素数判定 - Calculating..." #const MAX_COUNT 1000 ll_libload dll,"kernel32.dll" :ll_getproc func,"GetTickCount", dll ll_libfree dll :ll_retset refunc sdim log, 7 * MAX_COUNT :notesel log dim result, MAX_COUNT mesbox log, 640, 480 noteadd "2",0,1 :result.0 = 2 :count = 3 :i = 1 ;測定 ll_callfunc temp,0,func start = refunc repeat flg = 1; repeat i if count \ result.cnt = 0 : flg = 0 :break loop if flg { noteadd ""+count, -1 :result.i = count i++ :if i >= MAX_COUNT: break await } count += 2 loop ll_callfunc temp,0,func refunc -= start :dialog "" + refunc + "ms" objprm 0, log :title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/244
245: 名前は開発中のものです。 [sage] 04/07/05 07:17 ID:LZQQVRIy Delphiで素数 http://gamdev.org/up/img/805.zip http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/245
246: 名前は開発中のものです。 [sage] 04/07/05 13:04 ID:LZQQVRIy 最速の素数判定アルゴリズム http://pc.2ch.net/tech/kako/993/993457354.html http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/246
247: 名前は開発中のものです。 [sage] 04/07/05 20:13 ID:axn64mRQ すごいスレの流れと違うような気がしますが、 Cで、ウインドウ表示とか（課題3）、できないんですが･･･どうしたらいいんでしょうか？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/247
248: 名前は開発中のものです。 [sage] 04/07/05 20:40 ID:q8IB8pY7 できないだけ書かれてもどうしようもない。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/248
249: 名前は開発中のものです。 [sage] 04/07/05 20:57 ID:0DOOfkU1 >>247 猫でもわかるプログラミング ttp://www.kumei.ne.jp/c_lang/ このへんでまず勉強してこよう http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/249
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 538 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s