締切済み

VB6でもぐらたたきを作りたい

2013/12/26 13:03

VB6でもぐらたたきを作っているのですが、時間制限をつけて終了20秒前からもぐらがでてくる速さを速くしたいんですがどうやったらいいのでしょう？具体的にコードを教えていただけますか？

hituziko
お礼率0% (0/1)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

master_gk
ベストアンサー率16% (61/365)

2013/12/26 13:23 回答No.1

タイマーを設置して、残り２０秒になったら、もぐら出現のインターバルを短くするとか、やり方はいろいろあると思います。もぐら叩きのプログラムを作れるレベルに達していれば、この程度はすぐにできると思います。

関連するQ&A

vb2008でもぐらたたきを作りたいのですが

vb2008でもぐらたたきを作っているのですが、まだまだ初心者なので分からないことだらけです。フォーム上のスタートボタンを押すことでゲームを開始させ、Timerを用いてPictureBoxを作成し、PictureBoxにもぐらの画像を対応させて、それを指定された数箇所にランダムに表示させたいのですが、どのようにすれば良いのでしょうか。表示させるもぐらの座標位置は (50,50),(240,50),(430,50) (50,290),(240,290),(430,50) の6つなのですが。答えていただければ幸いです。
VB6でモグラ叩きゲームを作っているのですが…

はじめまして。VB6初心者の者です。実は今ある用途に使用するためにモグラ叩きゲームを作成しているのですが、モグラが出現してから叩くまでにかかった時間をログで出力できるような仕様にしたいのです。スコアの出力（モグラを一回叩くごとに一点加算）はできたのですが、どうしてもこれがわからなくて。。もしよろしければアドバイスのほうをぜひよろしくお願いいたします。
VBでの「もぐらたたきゲーム作成」について

VBで「もぐらたたきゲーム」を作成しています。モグラの出現をRandomizeで乱数にしていますが、複数Imageでモグラを出現させていると、ランダムでモグラがかぶってしまって、一方のモグラしか出現しません。 If で、かぶった時にランダムにするようにしたいのですが、うまくいきません。どうしたらいいでしょうか？
もぐらたたきのプログラミング

大至急返答お願いします。学校の自由実験で、VB2008でもぐらたたきを作っているのですが、以下のソースでデバッグし、ゲームを開始するボタンを押すとすると変なバグが表示されます。 Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Static Hit As Integer 'もぐらを叩いた時 Me.Controls.Remove(sender) 'もぐらが消える Hit += 1 'Hitが1加算される Point = 0 + Hit 'Pointは 0+ Hit で表わされる Label5.Text = Format(Point, "000") End Sub Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick Dim X, Y As Integer '座標指定 Dim mole1 As System.Windows.Forms.PictureBox '表示されるモグラ For Each mole1 In Me.Controls mole1.Tag -= 1 'もぐらの出現している時間のカウント If mole1.Tag < 0 Then Me.Controls.Remove(mole1) 'カウントが0になったらもぐらが消える End If Next If Rnd() * 4 < 1 Then mole1 = New System.Windows.Forms.PictureBox '1/4の確率でもぐらを表示 mole1.Size = New Size(100, 100) 'もぐらのサイズは100*100 X = Rnd() * (Me.ClientSize.Width - 100) Y = Rnd() * (Me.ClientSize.Height - 100) mole1.Location = New Point(X, Y) 'もぐらはX,Yの場所に表示される mole1.Image = My.Resources.Mole mole1.Tag = Int(Rnd() * 9) + 7 'もぐらの停滞している時間のカウント AddHandler mole1.Click, AddressOf PictureBox_Click Me.Controls.Add(mole1) End If End Sub もぐらを表示させるためのTimerのソースはこれなのですが、デバッグしてゲームスタートボタンを押すと InvalidCastExceptionはハンドルされませんでした。型 'System.Windows.Forms.Label' のオブジェクトを型 'System.Windows.Forms.PictureBox' にキャストできません。という意味深な文章が表示されてしまいます。まだ初心者なので、よく分からないことが結構あります。自己解決しようと努力してきましたが結局できず、終了期間間際になってしまいました。是非御返答の程よろしくお願いします。
ＶＢ６とＥｘｉｔＰｒｏｃｅｓｓ

ＶＢ６で作成したプログラムですが、終了コードを返すために ExitProcess で終了させてます。このプログラムをＶＢからＦ５で実行させて、プログラムがExitProcessで終了すると、ＶＢまで終了してしてしまいます。とっても不便で困ってます。ＶＢを終わらせない方法を何方か知りませんか？
CSEとVBで

こんにちは。処理時間のことで教えていただきたいことがあります。 PL/SQLで作成したあるプロシージャをCSEとVBでそれぞれ動作させた時の話です。 CSE上で動作させた時は1秒ほどで処理は終了するのですが、VBからですと、処理は正常に終了するものの、3分以上もかかってしまいます。 VBからでは遅くなるだろうというのは予想できることではありますが、3分はかかりすぎです。この処理時間の差はいったいどこからくるのか、教えていただけないでしょうか？よろしくお願いいたします。 VB6(SP6) CSE Ver.1.59 Oracle10g
VBで時間計算

教えてください。 VBで時間の足し算をしたいのですが、方法が分かりません。例えば、毎日の通信時間の合計を出したい場合ですが、 00:15:30（15分30秒） 00:45:31（45分31秒）の日があったとします。この合計は01:01:01（1時間1分1秒）になると思います。この計算ができずに困っています。教えて頂けないでしょうか。
VB6の寿命

１０年ほど掛け、VB6を使って趣味で作ったプログラムがあります。ソースコードが数万行あり、今さら新バージョンに移植する気力がありません。現在は、XPで使用しておりますが、７や８上でもVB6は稼働するものなのでしょうか？また、VB本体だけでなく、Office2003のAccessデータベース（mdb）に接続するデータベースアプリなので、Office2003が最新OSで稼働するかも心配です。 XPサポート終了後、どうすれば良いか、迷っています。良い知恵はありますか？
VBアプリケーションで終了コードを指定する方法

VB6でアプリケーションを作成しますが、親プロセスに終了コードを返して、Errorの有無を認識させたいと思います。 VB6で可能でしょうか？？可能なら、どのような方法があるでしょう？？よろしくお願い申します。
VBでアプリケーションを自動操作したい。

VBでアプリケーション（動画編集ソフトなど）の特定の操作をワンクリックで実行させたいと思っています。そのようなことが載っている書籍をさがしているのですが、なかなか見つけられません。具体的なコードがわかれば、その機能に関する記述のある書籍を探せば見つけられるかなと思いました。そこで、ＶＢでアプリケーション（動画編集ソフトなど）を操作する際に、どのようなコードを使用するのか教えていただけないでしょうか？
VBでの質問です

VBでの質問ですとあるボタンを押すと5分から0分までカウントダウンするタイマーで0分０秒になったら「時間になりました」と表示するプログラムを作りたいのですが、どのようにしたらいいのでしょうか。ちなみにメッセージボックスの作り方はわかります。
VB2005のLABEL等のコントロールの表示速度がVB6時代よりかな

VB2005のLABEL等のコントロールの表示速度がVB6時代よりかなり遅いように感じます。実際遅いのですが、早くする方法はございますか？例えば何もコードを書いていない新規フォームにLABELを80個ほど並べて実行しても LABELが右から左へぱらぱらと表示されますのでプログラムの影響ではないと思います。表示は我慢するとして、タイマーで1秒周期でデータをファイルに書き込んでいるのですが表示が終わるまでタイマーイベントが待たされるようで、そのフォームの切り替えを何度か行うと1秒周期のデータ書き込みにに歯抜けがでる時がありこれが1番困っています。改善策をご存知の方がいらっしゃいましたら宜しくお願いいたします。
VB2005　FTPでファイルアップロード

はじめまして。VB初心者なのですが質問があります。 VB2005でFTPでtxtファイルをアップロードをしたいです。具体的にはCドライブに入れてある C\test1.txtをレンタルホームページのFTPサーバーにアップロードしたいです。 .NETでのアップロードの仕方はインターネットに情報が割とあるのですが、VB2005だとなかなか出てきません。どのようなコードを書けばいいのでしょうか？よろしくお願いします。
VBからシャットダウンさせる方法

ＶＢのプログラムから、強制的にＷＩＮＤＯＷＳをシャットダウンさせるにはどうすればよいでしょうか。（長時間の処理が終了した後、又は、指定した時刻を過ぎたら自動的にシャットダウンさせたい）ＶＢ６．０、ＯＳはＷｉｎｄｏｗｓＸＰです。
VB2010のデバッグの開始が遅い。

Visual　Basic　2010　を始めました。あるプログラムを、コードを表示した状態でデバッグすると開始までに約５０秒かかります。コードを非表示にした場合は１～２秒で開始、終了します。どういう原因が考えられるでしょうか？なお、途中でタイトルバーに（応答なし）の表示が出ます。エラーメッセージは出ません。プログラムは２５０行程度のもので、他のプログラムでは問題ないようです。
100点でクリアする簡単なモグラ叩きゲームを作りたい

Flash8を使用して簡単なゲームを制作しているFlash初心者です。今仕事でオバケ叩きゲームを作っています。黒いオバケを叩いて10点、黄色いオバケを叩くとマイナス10点という感じのもので、時間制限（30秒）をつけています。で、わからない箇所があります。叩いた点数の合計が100点になると、 1ステージクリアにしたいのですが、なかなかうまくいきません。。流れとしては、ローディング画面 ↓ スタートボタン画面 ↓ ゲーム画面（出てくるオバケのムービークリップ6つ、制限時間のタイマー、　得点が入るダイナミックテキスト＜変数名：score＞） ↓ クリア画面 or タイムオーバー画面という感じのシーンになっています。これがそれです。 http://www.edit-site.com/obake.html どういうふうにすれば出来るでしょうか？お答えよろしくお願いします。
VB2008のプログラムの統合

VB2008のプログラムの統合現在期末試験でTic Tac Toe（三目並べ）とMagic Squareのゲームを作れと言われています。現在三目並べのだいたいのプログラムは終了したのですが、質問です。ボタンをクリックではなくただカーソルを合わせるだけで色が変わるようにするコードが全くわかりません。お知恵をおかし頂ければと思います。また前回VBレスキューのサイトを紹介して下さった方。覗いてみたのですが、VB2008の対応掲示板はないように見受けられたのでまたこちらでお世話になっております。わざわざありがとうございました。
VB2008にて

VB2008にてシンプルコンボボックス入力時、EggやEGGやeggなどどんな感じで入力しても”EGG”と表示されるようにしたいのですがどのようなコードにすればいいでしょうか？また、シンプルコンボボックスの何かをデリートし、その後ボタンを押すとデリート前の表示に戻る”リストア”ボタンを作りたいのですがどうすればいいでしょうか？
visual basic.netでのカウントダウンタイマーと音の鳴る方法

visual basic.netであるゲームを作りたいのですが、時間制限が１０秒で１０秒経つと音がなるような設定にしたいのですが、どうすればいいのでしょうか？現在時間を載せることはできるのですが、１０秒制限で、カウントダウンさせることができないのです。それに、０秒になったときの音の鳴らし方も分かりません。誰か分かる方、やり方だけでもけっこうですのでお願いします。また、コードが分かれば助かります。
ExcelマクロでVBエディタの自動化は出来ない？

Excelのマクロで、VBエディタの操作を自動化したいと考えていますが、出来ないのでしょうか？マクロの記録では VBエディタの操作は一切記録されないようです。バージョンは Excel2003 です。具体的には、全てのマクロのコードをテキストファイルに吐き出したいと考えています。ファイルメニューのエクスポートでも、コードウィンドウ１つ１つを "全てを選択" でも、Excelのマクロから実行させることは出来ないのでしょうか？よろしくお願いします。

VB6でもぐらたたきを作りたい

みんなの回答

関連するQ&A

vb2008でもぐらたたきを作りたいのですが

VB6でモグラ叩きゲームを作っているのですが…

VBでの「もぐらたたきゲーム作成」について

もぐらたたきのプログラミング

ＶＢ６とＥｘｉｔＰｒｏｃｅｓｓ

CSEとVBで

VBで時間計算

VB6の寿命

VBアプリケーションで終了コードを指定する方法

VBでアプリケーションを自動操作したい。

VBでの質問です

VB2005のLABEL等のコントロールの表示速度がVB6時代よりかな

VB2005　FTPでファイルアップロード

VBからシャットダウンさせる方法

VB2010のデバッグの開始が遅い。

100点でクリアする簡単なモグラ叩きゲームを作りたい

VB2008のプログラムの統合

VB2008にて

visual basic.netでのカウントダウンタイマーと音の鳴る方法

ExcelマクロでVBエディタの自動化は出来ない？

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VB6でもぐらたたきを作りたい

みんなの回答

関連するQ&A

vb2008でもぐらたたきを作りたいのですが

VB6でモグラ叩きゲームを作っているのですが…

VBでの「もぐらたたきゲーム作成」について

もぐらたたきのプログラミング

ＶＢ６とＥｘｉｔＰｒｏｃｅｓｓ

CSEとVBで

VBで時間計算

VB6の寿命

VBアプリケーションで終了コードを指定する方法

VBでアプリケーションを自動操作したい。

VBでの質問です

VB2005のLABEL等のコントロールの表示速度がVB6時代よりかな

VB2005 FTPでファイルアップロード

VBからシャットダウンさせる方法

VB2010のデバッグの開始が遅い。

100点でクリアする簡単なモグラ叩きゲームを作りたい

VB2008のプログラムの統合

VB2008にて

visual basic.netでのカウントダウンタイマーと音の鳴る方法

ExcelマクロでVBエディタの自動化は出来ない？

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VB2005　FTPでファイルアップロード

カテゴリ
一覧

専門家に質問してみよう
専門家登録