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

雪が降って寒い…^^;
おうちにこもって…
アスキー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

[PR]
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

案内

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

タグ

(173)
(147)
(85)
(79)
(62)
(58)
(54)
(35)
(18)
(18)
(15)
(13)
(10)
(8)
(6)
(6)
(5)
(2)
(2)
(2)

カテゴリ

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

以前の記事

2018年 09月
2018年 08月
2018年 07月
2018年 06月
2018年 05月
2018年 04月
2018年 03月
2018年 02月
2018年 01月
2017年 12月
more...

フォロー中のブログ

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

最新のコメント

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
参考になるのでしたらどう..
by school-pc at 16:59
内容、修正しました。 ..
by school-pc at 10:19
こんにちは。こちらでいろ..
by Tatsuya at 17:59

最新のトラックバック

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 まいにちの、こと。

ライフログ

ファン

記事ランキング

ブログジャンル

キャリア・資格

画像一覧