冬ごもり…モグラたたきゲーム

雪が降って寒い…^^;
おうちにこもって…
アスキーPCに載ってた
モグラたたきゲームを作りました。

モグラを描いて用意。
b0186959_14475864.png

エクセルマクロを記述。
Sub Mogura()
'モグラのイラストを10回クリックするタイムを競う
Dim LeftPoint As Single
Dim TopPoint As Single
Dim KaisiTime As Single
Dim SyuryouTime As Single
Dim myScore As Single

Randomize
LeftPoint = Rnd() * 301 + 300
TopPoint = Rnd() * 260 + 20

'1回目(最初)
If Range("c4").Value = "" Then
Range("c4").Value = 9
Range("c5").Value = Timer
ActiveSheet.Shapes("モグラ").Left = LeftPoint
ActiveSheet.Shapes("モグラ").Top = TopPoint

'10回目(最後)
ElseIf Range("c4").Value = 1 Then
SyuryoTime = Timer
KaisiTime = Range("c5").Value
myScore = SyuryoTime - KaisiTime
Range("c4:c5").Value = ""
Range("c21").Value = myScore
MsgBox "記録:" & myScore & "秒", vbInformation, "Score"

If myScore < Range("c23").Value Or Range("c23").Value = "" Then
Range("c23").Value = myScore
MsgBox "最高記録更新!", vbInformation
End If

'2~9回目
Else
Range("c4").Value = Range("c4").Value - 1
ActiveSheet.Shapes("モグラ").Left = leftPont
ActiveSheet.Shapes("モグラ").Top = TopPoint
End If
End Sub
b0186959_1455358.jpg

マクロをモグラに登録。
クリックするたびにモグラが移動。
モグラたたきのスピードを表示します。
b0186959_14573772.jpg

by school-pc | 2016-01-20 14:57 | Comments(0)


能力評価・キャリア形成


by school-pc

プロフィールを見る
画像一覧
更新通知を受け取る

S M T W T F S
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31

案内

所在:京都府舞鶴市南田辺105
TEL : 0773-75-5512

タグ

(176)
(147)
(85)
(83)
(64)
(58)
(55)
(35)
(19)
(18)
(15)
(13)
(10)
(8)
(6)
(6)
(5)
(2)
(2)
(2)

カテゴリ

全体
タウンパーク舞鶴
PC-School
未分類

以前の記事

2018年 12月
2018年 11月
2018年 10月
2018年 09月
2018年 08月
2018年 07月
2018年 06月
2018年 05月
2018年 04月
2018年 03月
more...

フォロー中のブログ

エキサイトブログ向上委員会

最新のコメント

お褒めのコメント、ありが..
by school-pc at 10:48
次月の日付の表示をさせな..
by イニシャルK(-ω☆) at 23:44
すごーい!シンプル! ..
by イニシャルK(-ω☆) at 23:43
2018/5/5 のブ..
by Schoo-pc at 16:01
はじめまして エクセル..
by ni at 06:55
ありがとうございます! ..
by Faber Sid at 21:02
ありがとうございました。..
by ぴ at 08:44
MSさん、7/29迄に何..
by school-pc at 13:49
もうWin10の強制アッ..
by yuki at 23:34
school-pcさま ..
by kizen777 at 01:58

最新のトラックバック

venussome.com
from venussome.com
venuspoor.com
from venuspoor.com
www.whilelim..
from www.whilelimit..
http://while..
from http://whileli..
http://www.v..
from http://www.val..
DELL ノートパソコン..
from まいにちの、こと。

ライフログ

ファン

記事ランキング

ブログジャンル

キャリア・資格

画像一覧