單片機打地鼠程序

Ⅰ 單片機一個按鍵如何同時控制兩個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個洞穴）。程序的原理，簡單點是，錘子跟隨滑鼠的程序。計時程序，隨機出現地鼠程序，加分程序。重點是加分程序。在地鼠動畫的影片剪輯里，放置一個按鈕，出現在地鼠鑽出時。地鼠鑽出時如果被點擊到，加分即可。