- 締切済み
VB6でもぐらたたきを作りたい
VB6でもぐらたたきを作っているのですが、時間制限をつけて終了20秒前からもぐらがでてくる速さを速くしたいんですがどうやったらいいのでしょう？ 具体的にコードを教えていただけますか？
- hituziko
- お礼率0% (0/1)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- master_gk
- ベストアンサー率16% (61/365)
タイマーを設置して、残り２０秒になったら、もぐら出現のインターバルを短くするとか、やり方はいろいろあると思います。もぐら叩きのプログラムを作れるレベルに達していれば、この程度はすぐにできると思います。
関連するQ&A
- vb2008でもぐらたたきを作りたいのですが
vb2008でもぐらたたきを作っているのですが、まだまだ初心者なので分からないことだらけです。 フォーム上のスタートボタンを押すことでゲームを開始させ、Timerを用いてPictureBoxを作成し、PictureBoxにもぐらの画像を対応させて、それを指定された数箇所にランダムに表示させたいのですが、どのようにすれば良いのでしょうか。 表示させるもぐらの座標位置は (50,50),(240,50),(430,50) (50,290),(240,290),(430,50) の6つなのですが。 答えていただければ幸いです。
- ベストアンサー
- Visual Basic
- VB6でモグラ叩きゲームを作っているのですが…
はじめまして。VB6初心者の者です。 実は今ある用途に使用するためにモグラ叩きゲームを作成しているのですが、モグラが出現してから叩くまでにかかった時間をログで出力できるような仕様にしたいのです。スコアの出力（モグラを一回叩くごとに一点加算）はできたのですが、どうしてもこれがわからなくて。。 もしよろしければアドバイスのほうをぜひよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBでの「もぐらたたきゲーム作成」について
VBで「もぐらたたきゲーム」を作成しています。 モグラの出現をRandomizeで乱数にしていますが、複数Imageでモグラを出現させていると、ランダムでモグラがかぶってしまって、一方のモグラしか出現しません。 If で、かぶった時にランダムにするようにしたいのですが、うまくいきません。 どうしたらいいでしょうか？
- ベストアンサー
- Visual Basic
- もぐらたたきのプログラミング
大至急返答お願いします。 学校の自由実験で、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' にキャストできません。 という意味深な文章が表示されてしまいます。 まだ初心者なので、よく分からないことが結構あります。 自己解決しようと努力してきましたが結局できず、終了期間間際になってしまいました。 是非御返答の程よろしくお願いします。
- ベストアンサー
- Visual Basic
- ＶＢ６とＥｘｉｔＰｒｏｃｅｓｓ
ＶＢ６で作成したプログラムですが、終了コードを返すために ExitProcess で終了させてます。 このプログラムをＶＢからＦ５で実行させて、プログラムがExitProcessで終了すると、ＶＢまで終了してしてしまいます。 とっても不便で困ってます。 ＶＢを終わらせない方法を何方か知りませんか？
- 締切済み
- Visual Basic
- VBで時間計算
教えてください。 VBで時間の足し算をしたいのですが、方法が分かりません。 例えば、毎日の通信時間の合計を出したい場合ですが、 00:15:30（15分30秒） 00:45:31（45分31秒） の日があったとします。 この合計は01:01:01（1時間1分1秒）になると思います。この計算ができずに困っています。 教えて頂けないでしょうか。
- ベストアンサー
- Visual Basic
- VB6の寿命
１０年ほど掛け、VB6を使って趣味で作ったプログラムがあります。 ソースコードが数万行あり、今さら新バージョンに移植する気力がありません。 現在は、XPで使用しておりますが、７や８上でもVB6は稼働するものなのでしょうか？ また、VB本体だけでなく、Office2003のAccessデータベース（mdb）に接続するデータベースアプリなので、Office2003が最新OSで稼働するかも心配です。 XPサポート終了後、どうすれば良いか、迷っています。 良い知恵はありますか？
- ベストアンサー
- Visual Basic
- VBアプリケーションで終了コードを指定する方法
VB6でアプリケーションを作成しますが、 親プロセスに終了コードを返して、Errorの有無を 認識させたいと思います。 VB6で可能でしょうか？？ 可能なら、どのような方法があるでしょう？？ よろしくお願い申します。
- ベストアンサー
- Visual Basic
- VBでアプリケーションを自動操作したい。
VBでアプリケーション（動画編集ソフトなど）の特定の操作をワンクリックで実行させたいと思っています。そのようなことが載っている書籍をさがしているのですが、なかなか見つけられません。 具体的なコードがわかれば、その機能に関する記述のある書籍を探せば見つけられるかなと思いました。 そこで、ＶＢでアプリケーション（動画編集ソフトなど）を操作する際に、どのようなコードを使用するのか教えていただけないでしょうか？
- 締切済み
- Visual Basic
