单片机打地鼠程序

Ⅰ 单片机一个按键如何同时控制两个C文件的程序执行。。打地鼠游戏的锤子和老鼠。。

先不说按键的事，就是单片机也不可能同时执行两个C程序。按普通的方法是实凯神袜现不了的。
这要模拟电脑的瞎档操作系统才行，即同时执行多个任务，即多个线程。
你这能跑操作系统吗？
实在不行，自己写个简单的切换系统，即两个程序分时来执行，可以用定时方法，一个盯激程序执行一小段时间后，切换到另一个程序上。
真要写起来，有点难度。

Ⅱ 求下用FLASH做一个简单的打地鼠的游戏的具体步骤

1.
准备美术素材,
鼠洞,鼠进洞动画,出洞动画,
打鼠的锤子
2.
把 鼠洞,鼠进洞动画,出洞动画
,这些组合到一个MovieClip,然后复制几个(假如是10个)放到舞台上,取好名mc0~mc9
3.
写程序,
(1)用打鼠的锤子
代替鼠标

(2)
控制地vnu
: 设个定时器,一定时间内用随机数取,取0-9的中任意数,播放出洞动画,
出洞的mc侦听鼠标点击,被点后计分,
没被点,定时播放进洞动画,收进洞里,不能点击.
4.
这是最简单的,要其它规则自己加,比如,设定有不同的地鼠,打到多少后游戏结束,或者定时结束,统计打了多少个

Ⅲ protues单片机仿真打地鼠汇编程序

启动软件。点击开始－－Proteus 7 Professional ISIS 7 Professional

进入软件介面。放置元件。点击左边缩放图下面的P字母。则出来元件选择对话框。在Category里面有许多元件类型。找到所须要的双击即可。

元件太多，不易找，也可在Keywords里写上元件关键字搜索找到。如输入RES,则在中间Results下面出来电阻参数，最右边RES Preview则为元件预览。双击元件则可。再找其它元件。LED灯为LED、按键为BUTTON、单片机为89C51

绘制原理图。把元件放置到设计介面。方法如下：在左边缩放图下面点击元件名，鼠标移动设计介面再点击左键，就会出来一元件。

放完元件后就开始连线，方法为鼠标移动到元件端点，出现红色虚线边框时就可画线。

放置地与电源，方法如下，在最左边点击Terminals Mode标志。在里面选择地标志。proteus软件中单片机可以不接电源及复位之类的。

设置元件参数。双击元件或在元件上右键，选择Edit Properties。很多元件是不需要设置的。电阻只改下大小即可。

设置单片机，双击元件，在对话框中选择Program File项文件，这是一个指示单片机怎样运行的机器码，由编写的程序生成的*.hex 文件。Clock Frequency则为单片机运行的时钟。一般设为12M或24M。
设置好了就可以运行了。单击软件最左下方play按钮,程序就在单片机内运行了。就时按一下按钮，LED灯就变，再按一下，LED灯又灭了。重复此功能。程序也就这功能。若显示的功能达不到要求，重复修改程序，直到达到功能

Ⅳ 求助，一个基于labview的打地鼠游戏设计

基于Labview的打地鼠游戏程序VI，打开可直接使用。

程序图：

Ⅳ C语言编程打地鼠

刚写好的，打地鼠小游戏。

功能：每三秒，会在游戏区域随机位置刷出地鼠，鼠标点击地鼠，无论点中与否，地鼠都会立即刷新。

点中地鼠按你要求计分，点不中记录失败次数，3次失败，游戏结束，显示GAME OVER！

#include<stdio.h>
#include<stdlib.h>
#include<windows.h>
#include<conio.h>
#include<time.h>
#include<string.h>
#include<malloc.h>
#definegSizek30//区域大小宽度
#definegSizeg20//区域大小高度
#definegBegin3//活动区域起始行
intmain()
{
intt=0,s0,s1,i,j,count=0,fen=0,row=0,clo=0;
chargameA[gSizeg][gSizek+1],fSave[10]={0};
SetConsoleTitle("打地鼠");
HANDLEhInput=GetStdHandle(STD_INPUT_HANDLE);//获取标准输入设备句柄
INPUT_RECORDinRec;
DWORDres;
COORDp0;
p0.X=0;
p0.Y=0;

srand(time(0));
s0=time(NULL);
strcpy(gameA[0],"GAME");
strcpy(gameA[1],"未命中次数:0,计分:000000");
for(i=gBegin-1;i<gSizeg;i++)
{
for(j=0;j<gSizek+1;j++)
{
if(i>gBegin-1&&i<gSizeg-1&&j>0&&j<gSizek-1)
gameA[i][j]='';
else
gameA[i][j]=4;
if(j==gSizek)
gameA[i][j]=0;
}
}
for(i=0;i<gSizeg;i++)
printf("%s ",gameA[i]);

while(1)
{

if(t>=3)
{
if(row>0&&clo>0)
gameA[row][clo]='';
row=rand()%(gSizeg-1);
clo=rand()%(gSizek-1);
s0=time(NULL);
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),p0);

丛蔽if(row<3)
row=4;
if(clo<1)
clo=1;
gameA[row][clo]=2;
for(i=0;i<gSizeg;i++)
{
//gameA[i][gSizeg+1]=0;
printf("%s ",gameA[i]);
}

}
if(count==3)
{
p0.X=10;
p0.Y=8;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),p0);
printf("GAMEOVER!");
break;
}
s1=time(NULL);
t=s1-s0;
渗凳州ReadConsoleInput(hInput,&inRec,1,&res);
if(inRec.EventType==MOUSE_EVENT&&inRec.Event.MouseEvent.dwButtonState==FROM_LEFT_1ST_BUTTON_PRESSED)//鼠标左键
{
if(inRec.Event.MouseEvent.dwMousePosition.X==clo&&inRec.Event.MouseEvent.dwMousePosition.Y==row)
{

if(fen==0)
fen=1;
if(fen>999999)
fen=999999;
else
fen=fen*2;

粗碧sprintf(fSave,"%06d",fen);
gameA[1][18]=0;
strcat(gameA[1],fSave);
}
else
{
count++;
fen=0;
gameA[1][11]=count+'0';
}
t=4;
}
}
while(1);
return0;
}

Ⅵ java入门程序，简易打地鼠。

增加一个count计数，用来统计打中的次数。
点击一个button的时候，判断当前点击的button的颜色是不是红色，如果是，count++

Ⅶ 如何用VB程序设计打地鼠游戏

下面是源代码：
Form1:
Private Sub Form_Load() Dim temp As Integer Randomize
temp = Int(Rnd * 3) + 1
Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg") WindowsMediaPlayer1.URL = "C:\Users\Administrator\Desktop\打地鼠\Heaven's Devils.wma" End Sub
Private Sub Label1_Click() Form2.Show Form2.num = -1 Form1.Hide
WindowsMediaPlayer1.URL = ""
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作 Close #1
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2 Close #2
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3 Close #3 End Sub
Private Sub Label2_Click() End End Sub
Form2:
Dim allnum As Integer, oknum As Integer '定义变化次数 打中次数 Public num As Integer '判别是否第一次开始游戏 Dim flags1 As Boolean '判别文件是否保存 Public flags As Boolean '判别是否播放声音 Private Sub countine_Click() pause.Enabled = True Timer1.Enabled = True countine.Enabled = False WLXZ.Enabled = True End Sub
Private Sub exit_Click() Dim X As Integer Dim tt As Integer
X = MsgBox("是否真的退出？", vbYesNo, "退出游戏框")
If X = 6 Then
tt = MsgBox("退出游戏之前,是否保存", vbYesNo, "保存提示") If tt = 6 Then
If flags1 = True Then End Else
If Timer1.Interval = 1000 Then
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作
Print #1, Text1.Text + " " + Format(Date, "M/d/yy") Close #1
ElseIf Timer1.Interval = 500 Then
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
Print #2, Text1.Text + " " + Format(Date, "M/d/yy") Close #2 Else
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Print #3, Text1.Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If End End If End Sub
Private Sub Form_Load() Form4.Check1.Value = 1
WindowsMediaPlayer1.Controls.stop countine.Enabled = False pause.Enabled = False WLXZ.Enabled = False
Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left flags1 = False flags = True End Sub
Private Sub help_Click() Form3.Show End Sub
Private Sub new_game_Click() num = num + 1 Dim t As Integer
If (num > 0) Then
t = MsgBox("新游戏开始之前,是否保存", vbYesNo, "保存提示") If t = 6 Then
flags1 = True
If Timer1.Interval = 1000 Then
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作
Print #1, Text1.Text + " " + Format(Date, "M/d/yy") Close #1
ElseIf Timer1.Interval = 500 Then
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
Print #2, Text1.Text + " " + Format(Date, "M/d/yy") Close #2 Else
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Print #3, Text1.Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If
Call Form_Load
allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 Timer1.Enabled = True pause.Enabled = True WLXZ.Enabled = True End Sub
Private Sub options_Click() Timer1.Enabled = False Form4.Show
WLXZ.Enabled = False countine.Enabled = True End Sub
Private Sub pause_Click() Dim r, g, b As Integer Timer1.Enabled = False countine.Enabled = True pause.Enabled = False WLXZ.Enabled = False
Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left Form5.Show

Ⅷ flash制作动画打地鼠游戏过程

首先准复备好所需要的素材，简单的如制锤子，地鼠，地洞。然后开始制作做所需要的动画个程序。动画方面，主要是制作一个地鼠从地洞钻出和钻入的动画影片剪辑，第一帧的状态为停止。然后再场景中复制9个，摆放到指定位置（一般的地鼠游戏为9个洞穴）。程序的原理，简单点是，锤子跟随鼠标的程序。计时程序，随机出现地鼠程序，加分程序。重点是加分程序。在地鼠动画的影片剪辑里，放置一个按钮，出现在地鼠钻出时。地鼠钻出时如果被点击到，加分即可。