VB厨が作ったゲーム

**あきまさ（VB厨であり、リ厨）** · 01/11/18 12:03

ＶＢでゲーム作ったんですけど、このゲームやってて「マジつまんねぇ」と思う。
友達（だと思ってる奴）にやらしてもつまらんとか言うし。
どうすれば面白くなるかネタくれませんか？
ゲーム名は"realUFO"。
できるだけネタ盗り込もうと思っているのでよろしく。

まぁ、自分で言うのもなんだけど糞スレの予感…。

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

>>166
ファイル壊れてるぞ

**TRICKY** · 01/12/12 16:04

あきまさ
ガンバレー....。

**あきまさ** · 01/12/12 16:16

>>167 揚げなおしました。多分大丈夫。
>>168 ありがとう。マリファ…（自粛）。

改良しました。

・レーザー（らしきもの）が撃てる！
・敵が爆発する

ようになりました。
なんか、よくファイル壊れるなぁ…。
ftp通信がうまく逝ってないのかな？

http://akimasa.any.za.net/

**ヒッキー＠プログラミング** · 01/12/12 16:49

こんにちわー。
STG(仮)、見させていただきました。
DirectX使ってるんですねー。参考にさせていただきます。
それから、実はここ結構覗いてます（藁
これからもお互いがんばりましょう。

※前のパックマンとRealUFO、ウチではなぜか起動できませんでした…。

**あきまさ** · 01/12/12 17:31

>>170 おぉ！ヒッキー＠プログラミングさんですか！
実は僕もあなたのスレをROMしてました。
あなたのブロック崩しは色々学ぶべきところがあって参考になります。
あと、DirectX使ったほうがプログラミングも楽になりますよ。多分。
ﾃﾄﾘｽｶﾞﾑﾊﾞｯﾃください。
期待してますから。

自分はリ厨ですが、よろしくお願いします。

あと、
realUFOは見ないほうがｲｲです。ｷﾓｲですから。
ﾊﾟｸｰﾏﾝはｶﾞﾑﾊﾞｯﾀほうなので見てほしい気もしますが、なんで動かないんだろ…。
グラボが対応してなかったとかかなぁ…。

文章見なおしてみると、日本語おかしいな…。

**あきまさ** · 01/12/13 05:51

UPしました。
改良点は

・敵が攻撃してくる
・敵の登場パターン追加

です。
あと、敵と自機が接触したときは爆発するようにしたほうがｲｲでしょうか？
教えてください。
お願いします。

http://akimasa.any.za.net/

**あきまさ** · 01/12/14 18:25

今日も少し改良しました。
改良したといっても画像を変えただけですが…（時間はかかった）。
画像が変わるだけでも雰囲気が全然違うと感じた今日この頃。
クリッピング処理もするようにしなければ…。

http://akimasa.any.za.net/

**名前は開発中のものです。** · 01/12/14 23:58

報告です。

・パックマン
　背景が更新されてないみたいでキャラの残像が出続ける＋画面全体がチカチカしてる。
　バックバッファに何も描かずにフリップした時の症状かな？
・ギャラガ
　起動すると画面が灰色一色。ＥｎｔｅｒかＥＳＣキー押すとそのまま終了・・・。

**あきまさ** · 01/12/15 13:03

>>174 パックマンはいちおうバックバッファに黒いbmpを並べて描画しているはずなんですが…。
ギャラガは家ではちゃんと動いてるんですがねぇ…。
どっちのバグも原因が分からない…。

よろしければPCの環境を教えていただけませんか？
あと、動作報告は非常にありがたいので可能な限りお願いします。

**174** · 01/12/15 20:19

DirectXは8でVBは6です。本体ビデオボード共かなり古いです。

ＶＢわからないなりに一応ソース読んでみたけど、
描画の部分のr.Leftとr.Topは省略しない方が良いかも・・。
あと背景用のオフスクリーンサーフェス用意して、
全部描いておいた物を一度にBltした方が早いし簡単だと思います。

**名前は開発中のものです。** · 01/12/16 00:28

　Mod_DDRAW.BASの協調レベル設定のDDSCL_ALLOWMODEXがちょっと気になったんだけど。なんでこんなの設定してるん？

**あきまさ** · 01/12/16 12:16

>>176 アドバイスありがとうございます。背景用のサーフェイスを用意してみます。
>>177 あ、いや、参考書の通りに打っていたので…。別になくても動きますね…。と、いうわけで消しました。

**あきまさ** · 01/12/16 12:41

とりあえず指摘されたところを改良。
あまり変わっていないのでsageです。

http://akimasa.any.za.net/

あと、>>174さんが動かないのはボードが古いからかなぁ…。
ちょっと自分には分かりません…。
ｽﾏｿ。

**あきまさ** · 01/12/16 17:26

2ｃｈは日曜日の書きこみは少ないなぁ…。

**名無しさんお腹いっぱい** · 01/12/17 15:02

ﾏﾀｰﾘがんばれ
リソースファイルと
DirectPlay覚えてけれ

**名前は開発中のものです。** · 01/12/17 15:02

糞スレ晒しage

**名無しさんお腹いっぱい** · 01/12/17 15:41

豆くいソース見た
ちゃんと終了しないじゃないか
終了時の処理をきっちりやってけれ
EndはだめだめUnloadでよろしく
マウスカーソルちゃんと戻してけろ
使ったものは開放してぴょん

**あきまさ** · 01/12/17 17:39

>>181 ﾏﾀｰﾘｶﾞﾑﾊﾞﾘます。
DirectPlayというものの存在は知っていますが、リソースファイルってなんでしょうか？
検索にかけてみよう…。
あと、>>182と同時に書き込みだぁ…。
ID違うから同一人物では無いと思うけど鬱。

>>183 あ、すみません。
直してみます。
あと、ちゃんと終了しないそうですが、マウスカーソルが非表示のままだったりしたとかですか？
Win98ではそんなことは無いですが、他のWinだと戻らないのですね？多分。
まぁ、どちらにせよ開放してないのとかはヤバそうなので直します。
アドバイスありがとうございました。

**あきまさ** · 01/12/17 17:51

う～、DirectPlayの参考になるようなｲｲｻｲﾄが見つかりません…（10分間探しただけだけど…）。
どなたかVB6+DX7用に書かれているようなｽﾃｷｻｲﾄ情報があったら教えてください。
おねがいします。

**あきまさ** · 01/12/17 18:11

う、あ、すみません…。
サーフェイスの解放の仕方が分かりません…。
どなたか分かる方、教えてください…。
参考書に載ってません…（プログラムの終了もEndだし…）。
おねがいします。

**あきまさ** · 01/12/17 18:36

DirectPlayは最後でいいと思うが。

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

↑すまん、
「名前は開発中のものです。」をコピペするつもりが「あきまさ」になってた。

**ななしさん** · 01/12/17 21:09

Game_MainのESCキーが押されたときの処理で
DXEndFull frm_Mainの処理の後関数をぬけて
終了処理として
Unload frm_Main
ShowCursor True
Set dd = Nothing
Set dx = Nothing
として
Exit Do
でメインループぬけて終わり

**ななしさん** · 01/12/17 21:13

>>187
そうだね
まだその段階じゃないね
あれは設計を考えてからじゃないと大変だから
ネットゲー作りに挑戦するときは頭に入れといてね

**名前は開発中のものです。** · 01/12/17 21:15

自作自演疑惑

**あきまさ** · 01/12/18 04:47

>>187-188 DirectPlayはﾔﾊﾟｰﾘ最後でｲｲですか。
実はあまりDirectPlayのことを知らなくて検索したらネットプレイだとか出てきたのでﾋﾞｸｰﾘしました。
DirectInputと同じだと思ってました…。

>>189-190 アドバイスありがとうございます。
そうすればｲｲんですね？
ちょっと組み込んでみます…。

>>191 何がｼﾞｻｸｼﾞｴﾝなんですか？
自分？

**あきまさ** · 01/12/18 05:43

なんか>>189さんの通りに組んでも下のようなエラーメッセージが出ます…。
どうすればｲｲか分かる方、教えてください。
お願いします。

ていうかオートメーションエラーってなんだYO!ﾁｸｼｮｳ！

http://akimasa.any.za.net/images/help2.jpg

**あきまさ** · 01/12/18 06:12

…。
リソースファイルの作り方は分かったのですが、
そこからどうやってサーフェイスにとりこめばｲｲか分かりません…。
質問ばかりですが、分かる方はおしえてください。
おねがいします。

**名無しさんお腹いっぱい** · 01/12/18 11:56

Game_Mainをfunction化
Function Game_Main() As Boolean

んでESC押下時のところ
If Vkey_Down(vbKeyEscape) = True Then
DXEndFull frm_Main
Game_Main = True
Exit Function
End If

Game_Mainの呼び元を
If Game_Main Then
Unload frm_Main
ShowCursor True
Set dd = Nothing
Set dx = Nothing
Exit Do
End If

うちではうまくいったけど･･･

**名無しさんお腹いっぱい** · 01/12/18 12:01

sage忘れたｽﾝﾏｿ
リソースファイルからの読み込み
ネセロ作ったとき使ったけど行方不明
使い方サイトは検索したら引っかかったから
がんばって探せば見つかると思う

**ｱﾌｫ** ◆hTHZ4Kno · 01/12/18 16:51

このいたいつできたんだろう。今知ったよ。

**あきまさ** · 01/12/18 17:35

>>195-196 アドバイスありがとうございます。
最近まともにUPできなくてsageばっか…。
今日は４時半に起きれたと思ったらコード組むの詰まって結局何もできなかったし…。
鬱。
>>197 なんか昔のＰＣ板とかいうのができてましたけど最近板が増えてるんですか？
自分は２ちゃんねる最近（１ヶ月前から）見始めた初心者なのでよく知りませんが…。

**あきまさ＠近況報告** · 01/12/19 05:40

なんとか、終了処理ができました（アドバイス通りに組んだだけだけど…）。
リソースファイルのことを勉強しないと…。

**あきまさ** · 01/12/19 06:28

う～ん…。
どうもリソースファイルをDirectXで使う方法が分かりません…。
参考になりそうなｻｲﾄが見つからないし…。

リソースファイルを使う利点ってなんでしょうか？
すごく面倒だと思うのですが…。

というか、面倒だから使いたくない…。

どうしよう…。

とりあえず参考になるｻｲﾄがあったら教えてください（自分でも探してみますが…）。
あと、リソースファイルを使う利点も教えていただけたらお願いします。

最近進まないなぁ…。鬱。

**名無しさんお腹いっぱい** · 01/12/19 10:04

ああ、悩ませてｽﾏｿ
ﾘｿｰｽﾌｧｲﾙを使ったらは画像とかをＥＸＥに組み込める
配布するときとかにスマートになって良いんだけど
今はソースごと公開してるのであまり必要ではないね
最後に組み込んだらいいから今は気にしなくても良いかな

たとえば
CreateSurfaceFromResource
CreateSoundBufferFromResource
なんてものがある

**あきまさ** · 01/12/19 16:55

>>201
>ああ、悩ませてｽﾏｿ
いえいえ、新しい知識が手に入ったのでむしろありがたいことです。
確かにスマートになりそうですね。
最後に組み込んでみます。
>たとえば
>CreateSurfaceFromResource
>CreateSoundBufferFromResource
>なんてものがある
ん、なんか凄く簡単にできそうな予感のする命令ですね…。
アドバイスありがとうございます。

最近は全然UPしてないので人がどんどん離れていく気がします。
はやくまともにしないと…。

**あきまさ** · 01/12/19 17:34

…。
問題をﾊｹｰﾝしました…。
frm_MainをUnloadしたりしてプログラムが終わったと見せかけて、
実はAlt+Ctrl+Deleteで見てみると終わっていませんでした（おかげで削除できなかった…）。
応急処置としてEndをかましておきましたが、どうもEndは良くないような事を聞くのですが…。
でも、Unloadかましてるのに終わってない…。
なぜ終わらないか理由が分からない…。
自分としてはEndかましとけばｲｲや～って感じなんですが、
原因が分かる方は教えてください。

**あきまさ** · 01/12/19 19:16

はぁ、やっとage。
改良点は

・縦方向の移動が可能に
・敵との接触判定追加
・星の描画

などなどです。
なんか、zipファイルを揚げても破損することが多いので
他の垢に移行しようかと思う今日この頃。
Spaceportsにしようかと思ってます（容量無制限だし）。

**ななしさん** · 01/12/19 23:33

>>203
フォームをUnloadした後に
そのフォームに対しての処理が残っていた為に
またそのフォームがロードされてしまっている

**名無しさん** · 01/12/19 23:57

Unloadの後ＥＮＤでも良いと思うが。
ENDまでに使ったサーフェイスやらなんやら
全て開放していれば良いハズ。

**あきまさ** · 01/12/20 05:59

>>205 フォームに対する処理って何かしてるかなぁ…。
ちょっと思いつきません…。
まぁ、>>206さんがこう言ってくださるのでEndでｲｲや、などと思ってます。

**あきまさ** · 01/12/20 06:20

今日も多少改良しました。

・スコアとステージが表示される

ステージは無いけど…。
こうしたほうがｲｲ！というようなところがあればアドバイスをお願いします。

http://akimasa.any.za.net/

**名無しさんお腹いっぱい** · 01/12/20 09:46

Unload frm_Mainした後に
DXEndFull frm_Mainの
フォームのハンドル取得で再度呼び出されてる
これが終了しない原因

>>206でもあるように全て開放が完了していれば
ENDでも良いけど、そのへんが微妙なので極力使わない方がいい

書くとすればこうかな
If Game_Main Then
DXEndFull frm_Main
ShowCursor True
Set dd = Nothing
Set dx = Nothing
Unload frm_Main
Exit Do
End If

で、最後のENDは消す

Initは初期処理ということで
メインループはMainの中にあるほうがいいかな

**あきまさ** · 01/12/21 15:45

>>209 アドバイスありがとうございます。
指摘されたところを直してみました（見事終了されるようになりました）。

あと、Spaceportsを使おうと思っていたのですが、
BlueRibbonなるWizっぽい（関係なかったけど）垢がとれる鯖があったのでそちらにしてしまいました。
速いというところ以外とくにｲｲところは無いと思いますがね…。

http://blue.ribbon.to/~akimasa/

**あきまさ** · 01/12/22 15:02

改良しました。

・メッセージが表示される
・ステージの追加
・音の追加

です。
DirectSoundを久しぶりに使ってみたのですがどうも遅い気がしました。
高速化の余地があったら教えてください。
おねがいします。

ていうか見てくれている人どれくらいいるのかぁ？
年末だから少ないかな？
最近更新遅かったから人がほとんどいなくなってしまった気がします…。

http://blue.ribbon.to/~akimasa/

**名前は開発中のものです。** · 01/12/22 16:00

>>あきまさ氏
年がら年中がらがらですよ　ここは

**あきまさ** · 01/12/23 07:26

>>212
う゛、そうなんですか…。

**名前は開発中のものです。** · 01/12/24 01:52

おおっこんなものがあったとは
更新楽しみ～

**あきまさ** · 01/12/24 07:18

>>214
更新楽しみにしてくださる方が１人でもいるならｶﾞﾑﾊﾞﾙしかない！
やる気が２倍ぐらいになったので景気良くage。

カウント数3…。
http://blue.ribbon.to/~akimasa/

**あきまさ** · 01/12/24 08:03

少し改良しました。

・ＢＧＭの追加

です。
某後輩がつくってきてくれました。
音楽作れなさそうな顔してるのに…。
あと、この処理をつけるだけで時間がかなりかかった…。
ﾍﾞｰﾏｶﾞﾏﾝｾｰ！

http://blue.ribbon.to/~akimasa/

**名前は開発中の名無しさん** · 01/12/24 11:06

今気づいたけど、ベーマガの掲示板にいた子か（ｗ

stgの方、あいかわらず灰色で動かない。
VB用のDirectXはよく知らんけど、CreateSurfaceFromFile
使うときに、ｻｰﾌｪｽ記述子にｻｰﾌｪｽの寸法を書いておいた方
がいいと思う。

**名前は開発中の名無しさん** · 01/12/24 11:06

今気づいたけど、ベーマガの掲示板にいた子か（ｗ

stgの方、あいかわらず灰色で動かない。
VB用のDirectXはよく知らんけど、CreateSurfaceFromFile
使うときに、ｻｰﾌｪｽ記述子にｻｰﾌｪｽの寸法を書いておいた方
がいいと思う。

**名前は開発中の名無しさん** · 01/12/24 11:08

ごめん、２重になった。アフォが電話使おうとしてね・・・

**あきまさ** · 01/12/24 13:48

>>217 う゛、気付かれてしまった…。
あのときは他力本願とか言い出してｳﾞｧｶな事をしてしまいました…。
情けない…。

あと、
stg動かないですか…。
stgの方という事はﾊﾟｸｰﾏﾝのほうは動いたのでしょうか？
それなら音楽を聴きながら起動しようとしたとかそれぐらいしか原因が思いつかないのですが…。
どうなんでしょうか？
それと、
>ｻｰﾌｪｽ記述子にｻｰﾌｪｽの寸法を書いておいた方がいいと思う。
とのありがたいアドバイスですが、
これをやると面倒なコードが増えそうだし、今のところ困っていないので実装しない方針で…。
絶対に実装したほうがｲｲようなら最後に実装します。

あと、質問ですが、midiのループ時に一瞬止まる気がするのですがループを高速化する方法って物は無いでしょうか？
もしあるようなら教えてください。
お願いします。
さらに、余分かもしれませんが、コード中に
Dim a As String * 255
と変数を定義しているところがありますが、*255っていうのはどのような意味があるのでしょうか？
ﾍﾞｰﾏｶﾞのソースをパクってるだけなので自分は分かりません…。
これも分かる方がいらしたらお願いします。

**あきまさ** · 01/12/24 14:42

また揚げました。
改良点は

・タイトルの表示
・Push Space Keyの表示です
・クリッピング処理の追加

です。

http://blue.ribbon.to/~akimasa/

**ななしさんお腹いっぱい** · 01/12/24 15:09

Dim a As String * 255

aを255バイト固定の文字列型で宣言
足りないところはスペースがはいる

**あきまさ** · 01/12/24 15:36

>>222
おぉ、そういう意味なんですか。
ありがとうございます。

**あきまさ** · 01/12/25 06:58

少しながらも重要な改良をして、致命的なミスを直しました。
致命的なミスとは、プレイヤーが半分より上に逝った時に敵が戻ってこなくなるというものです。
これじゃゲームになりません…。

http://blue.ribbon.to/~akimasa/

**あきまさ** · 01/12/25 15:09

多少改良しました。

・ゲームがエンドレスに…

なりました。
少しずつ改良を重ねていきます。
次は『TATSUJINBOM』でも付けようかと思っていますが…。

http://blue.ribbon.to/~akimasa/

**あきまさ** · 01/12/25 17:44

また改良しました。
ﾍﾎﾞﾎﾞﾑを撃てるようになりました。
敵を沢山ためてから撃つと点数が沢山入ります。
引き続きアドバイス求む。

http://blue.ribbon.to/~akimasa/

**名前は開発中の名無しさん** · 01/12/25 19:58

>>ｱｷﾏｻ
　動かない原因わかった。
　bombchip.bmp用に横384ドットのｻｰﾌｪｽ確保しようとしてる
ようだけど、プライマリサーフェスより横幅が大きいﾜｲﾄﾞｻｰﾌｪｽ
に俺のビデオカードが対応してなかったようだ。
　ﾜｲﾄﾞｻｰﾌｪｽに対応してないカードは結構あるはずだから、
絶対に使わないことをｵｽｽﾒしとく（古いDirectXでは厳禁だった
ぐらいのものだし）

**あきまさ** · 01/12/25 20:41

>>227
そうなんですか！
早く直さなければ！

…でも、今からMP3ﾌﾟﾚｲﾔｰの設定をしなければならないので明日直します。
アドバイスありがとうございました。

**あきまさ** · 01/12/26 06:40

>>227 一応直してみました。
動くことを祈りつつage。

http://blue.ribbon.to/~akimasa/

**あきまさ** · 01/12/26 13:54

…。
なんとなく、Gates32のようなSTGが作りたくなってきた…。
対抗してAsahara32でも作ろうかな…。

などと思う今日この頃。

こっちの方が作ってて面白そうだし…、どうしよう。
害虫STGは製作終了ってことにしようかな…。
全然人がいないし…。

ア゛ぁ、どうしよう…。

**名前は開発中のものです。** · 01/12/26 14:55

はじめまして。技術的なことはまだ分かりませんが感想書きます。

○シューティング
　いい感じですね。でも、ヌルい私にゃかなり難しかったです。

　以下、プレイヤーとしての要求(参考程度で、、)
　　敵の弾をもう少し遅めにしてください。
　　全弾を見やすい色で、大きくしてください。
　　ボム、ミサイルキーを入れ替えてください。(Z,Xキー)
　　残機制を取り入れてください。(３機ぐらい)

○豆イート
　例のゲームにｿｸｰﾘでﾋﾞｸｰﾘ（W
　敵がどこまでも追っかけてくるので回避方法がなくなりますね。ムズい！
　自機をハトに、敵を猫かアミ持った人に、
　デカイ餌を七味とんがらしにしてください（うそ）

　プレイヤーとしての要求
　　やはり残機制を希望
　　敵に性格をつけてください。(ますます似てしまいますが、、)
　　食べるSEつけてください。

ではでは。

**あきまさ** · 01/12/26 15:09

おぉ！
とても参考になるアドバイスをありがとうございます。
STGの方は比較的簡単に改造できるので実装してみます。
しかし、豆のほうは自分が稚拙なあたり判定を組んだせいで改造が非常にしにくくなってしまいました…。
なので、敵のスピードを変えることができず、どこまでも追ってくるようになってしまいました…。
まぁ、ある程度距離があれば逃げ切ることもできるので許してください…。
でも、食べるSEは簡単に実装できそうなので実装します。

とりあえず、全て実装したらAsahara32を作り始めようかと…。

**名前は開発中のものです。** · 01/12/26 15:27

レス早いッスね。キターイしてます。

**あきまさ** · 01/12/26 16:04

改良しました（STGだけですが）。

・残機制の導入
・死んだときにメッセージを表示
・残機の表示
・弾が見やすく
・敵の弾の減速

です。
１時間かかった…。
今日はＰＣいじるのこれぐらいかな…。

http://blue.ribbon.to/~akimasa/

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

わ、マジに早いっ！
プレイしてみましたが、格段に遊びやすいです。
注文すべて取り入れていただいたようで、サンクスです。
おーーーえーん！
では。

**名前は開発中の名無しさん** · 01/12/26 17:23

動いたよオメデトサン。

そろそろフレームスキップなんかの実装に挑戦するといいと思った。

**あきまさ** · 01/12/26 19:46

>>236
ｽﾏｿ、フレームスキップって何なんでしょうか？
処理落ち？

教えてください。

**あきまさ** · 01/12/27 08:37

うぅぅ、
検索にかけて調べてみましたが、
要は一定のスピードを古いパソコンでも出せるようにするもののようなものでしょうか？
どのように実装するのでしょうか？
FPSを調べながら60逝ってなかったらスキップさせるとかかな…？
ん、それじゃぁ意味が無いような…。
…。
思いつきません…。

分かる方は是非教えてください。
お願いします。

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

そうだよ。>>238
目標フレームレートに描画が追いつかないとき
動きと処理か、当たり判定とかだけして、描画を行わないこと。

**あきまさ** · 01/12/27 11:11

おぉ、あってましたか。
でも、それを実装するにはどのようなコードを組めばｲｲのでしょうか？
ちょっと、思いつきません…。
参考になるｻｲﾄとかｿｰｽがあったら教えてください。
お願いします。

**名前は開発中の名無しさん** · 01/12/27 12:35

　実装方法はいろいろあるだろうけど、俺は

[1]内部処理

[2]Ｔ＞tなら[3A]へ、それ以外なら[3B]へ
[3A]描画して　 t ← 描画にかかった時間　（→[4]へ）
[3B]t ← t - Ｔ　（→[4]へ）
[4]１に戻ってループ

こんな感じでやってる。T=18～19msぐらいがいいと思う。
　前回の描画である一定以上時間がかかったら、超えた分がチャラになるまで
以降の描画をとばすだけ。

**名前は開発中のものです。** · 01/12/27 12:56

んじゃ、もう一つ具体的に。
VBじゃないけど。

// 30fpsを目標とする場合
#define FPS 30
#define ONE_FRAME_TIME (1000/FPS)

// 次の描画の目標時間
int next_draw_time = GetTickCount() + ONE_FRAME_TIME;

// game loop
while (1) {
　　//ゲームの計算だけする
　　process_a_game_frame();

　　// まだ時間があるなら、目標時間まで待って描画を行う
　　// そうでないなら描画をスキップ
　　int now_time = GetTickCount();
　　if (next_draw_time > now_time) {
　　　　Sleep(next_draw_time - now_time);
　　　　// 描画
　　　　draw_all_game();
　　　　flip_screen();
　　}

　　// 次の描画の目標時間
　　next_draw_time += ONE_FRAME_TIME;
}

GetTickCount()がミリ秒単位でシステム時間を取ってくる関数、
Sleep()は、ミリ秒を指定して実行をとめる関数。

実はこれだと、計算に時間がかかる場合、ずっと描画されなくなってしまう
という罠がある。
その辺が心配ならもう少し工夫する必要あり。

**あきまさ** · 01/12/27 13:06

丁寧な解説ありがとうございます。
質問したら答えてくれる人がいるって素晴らしいなぁ…。
ｶﾞﾑﾊﾞｯﾃみます。

**あきまさ** · 01/12/27 14:05

…。
一応は実装してみたのですが、なぜかキーの判定が無くなってしまいました…。
理由は全然分かりません…。
むかしのバージョンを動かしてみたら難なく動きました。

原因が分かる方はどうか教えてください。
おねがいします。

**あきまさ** · 01/12/27 14:06

揚げておきましたのでどうぞ…。
http://blue.ribbon.to/~akimasa/

お願いします。

**あきまさ** · 01/12/27 19:56

原因が分からないと何にもできないので、
どなたか親切な方がいらしたら教えてください。

お願いします（ﾏﾁﾞで）。

**名前は開発中のものです。** · 01/12/27 20:24

windowsのメッセージ受け取れてない？

**あきまさ** · 01/12/27 20:32

>>247Windowsのメッセージとは！？
もしかしたらFullScreenで実行してるからメッセージが表示されていても見れないかも…。
もし、>>247さんがWindowsのメッセージを受け取ったのなら是非教えてください。
お願いします。

**名前は開発中のものです。** · 01/12/27 21:20

VBはよくわからないんだけども、
メインループにDoEventsを入れ忘れてるとか？

フルスクリーンでキーをまったく受け付けなかったんで困っちゃったよ。
動いてたころのソースがあるならもう少し詳しく見れるけど。

**名前は開発中のものです。** · 01/12/27 21:23

君が連想してるﾒｯｾｰｼﾞとはたぶん違う・・・

**名前は開発中のものです。** · 01/12/27 21:41

VBはWindowsメッセージをほぼ完全に隠蔽しちゃってるからVBしかやったこと無いと分からないだろうね。
CでWindows API使ったプログラムもちょっとだけ勉強しといたほうがいいかも。
いろいろ知っとくだけでずいぶん違うよ。>>246みたいなときどこが悪いかの当たりをつける勘が鋭くなる。

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

とりあえずPlatformSDKのサンプルGeneric.cのソースでも[読んで|改造して]勉強しとけ　と。＜メッセージ

**名前は開発中のものです。** · 01/12/28 00:49

>>252
確かに、ＳＤＫは基本だが重要だ。
Windowsのプログラムの仕組みも解るようになるしナ。

**名無しさんお腹いっぱい** · 01/12/28 09:53

Windowsのプログラムの仕組みを理解することは必要だと思うけど
今回は単純にメインループの中で息抜きしてないのが原因
メインループでは必ず Sleep か Doevents を入れること
CPU使用率がかなり下がる
>>249が正解と思われ
Do While brunning
　　・
　　・
　　・
ndt = ndt + oft
DoEvents　'息抜き
Loop
で、こちらでは動くようになった

**>>254** · 01/12/28 13:17

ｳｿついちまった
CPU使用率が下げるのは
Sleep 1 だった
Do While brunning
　　・
　　・
　　・
　　ndt = ndt + oft
　　DoEvents　'息抜き1
　　Sleep 1　 '息抜き2
Loop
かな・・・

**あきまさ** · 01/12/28 14:15

>>249的確なアドバイスをありがとうございます。
>>250ダイアログがポンポン出てきて…ってやつでは無いと！？
>>251やっぱり、VBだけだとﾔｳﾞｧｲですかぁ～…？まぁ、今のところはVBで逝きます。
>>252Cですか…。お金も無いし、Cをやる気も無いので辛い…。でも、いずれかやることになるのでしょう…。
>>253SDKって何の略でしたっけ？DirectXSDKとかもあったような…。
>>254-255あなたのコードをいれたらうまく動くようになりました。感謝です。

いやぁ、皆さんがわざわざ自分のために時間を割いてくださってありがたいです。
自分はとても恵まれていますね。
これからもｶﾞﾑﾊﾞｯﾃ作って逝きます。

**あきまさ** · 01/12/28 14:23

と、いうわけでフレームスキップの実装に成功したのでageます。

http://blue.ribbon.to/~akimasa/

**253** · 01/12/28 14:52

SoftwareDevelopmentKitの略だよ。
WindowsSDKなら、
ウィンドウズプログラムを作るための開発キットという事。

**あきまさ** · 01/12/28 14:54

>>258おぉ、また新しい知識がっ。
ありがとうございます。

**あきまさ** · 01/12/28 15:17

一応害虫STGは完成ってことで、
次はAsahara32改め、MAD32を作ろうかな…。

**あきまさ** · 01/12/28 15:27

とりあえず、タイトルだけ作ってみました。

http://blue.ribbon.to/~akimasa/images/mad_title.gif

**名前は開発中のものです。** · 01/12/28 17:47

>>256
最後のSleep 1はいらないね。フレームレート調整のところでSleepしてるから。
(その何の疑問も無くSleep 1まで入れてしまう姿勢には疑問が残るぞ。)
あと、豪華なGUI開発環境を望まなければC(C++)はただで手に入る。

**あきまさ** · 01/12/28 20:29

>>262うっ、そうでしたか…。
自分も何でSleep 1をかましてるのかなぁ～、
とは疑問には思いましたが、自分よりできる人が言ってるんだしｲｲかぁ～とか思いまして…。
必要無いなら消します。

あと、Cはただで手に入るんですか。
たしかBorlandの奴でしたっけ？
えぇ～と、まぁ、いまのところはVBで足りてると思うので移行する気は無いです。
VBだと手軽に作れますし。
でも、本格的にプログラミングをするようになるとCを使うようになるんですよねぇ、多分…。
鬱な気分になりそう…。

**あきまさ** · 01/12/28 21:53

一応レィザァの画像を作ってみました。
結構面倒だなぁ…。

http://blue.ribbon.to/~akimasa/images/playerlaser.gif
http://blue.ribbon.to/~akimasa/images/enemylaser.gif

画像についてもアドバイスがあればお願いします。

**あきまさ** · 01/12/28 22:06

…。
害虫STGでうまく逝ってないところをﾊｹｰﾝしました。
どうもデスクトップからフォルダを移動すると音楽が鳴らなくなって、
しかも動作が非常に重くなってしまいます…。
みなさんのPCではこのような事態に陥ることは無いでしょうか？
あと、原因が分かる方は是非教えてください。
お願いします。

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

フレームスキップの最大値を設定しといたほうがいいかも。
遅くなりだすとかなり悲惨なことに…