安卓打地鼠游戏编程报告(android打地鼠流程图)
如何用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
自制打地鼠教程
制作自制打地鼠游戏教程如下:
材料：硬纸板或者木板/打地鼠机关部件（包括锤子、机关装置、地鼠模型等）/颜料或者彩色纸张/制作工具（剪刀、胶水、钉子等）。
制作步骤如下：
1、选一块硬纸板或者木板作为游戏的基础，可以根据需要进行大小和形状的调整，然后在板上画出游戏的格子和洞口位置。
2、制作打地鼠机关部件，包括锤子、机关装置和地鼠模型等。可以在彩色纸张或者颜料中为机关部件和地鼠模型上色，使它们更加生动和有趣。
3、将打地鼠机关部件安装到硬纸板或者木板上，按照画好的格子和洞口位置进行布置。使用钉子或者胶水将机关部件固定在游戏板上。
4、在每个洞口下方安装弹簧，用于把地鼠弹起。将弹簧固定在洞口的下方，然后将地鼠模型固定在弹簧上，使其能够顺利弹起。
5、将锤子固定在机关装置上，并将机关装置安装在游戏板的一侧。然后将机关装置上的触发器与地鼠模型相连，使锤子能够按下并击打地鼠模型。
总的来说，制作自制打地鼠游戏需要一些耐心和创意，但只要按照以上步骤进行操作，相信你一定可以制作出一个有趣、富有创意的打地鼠游戏。同时，自制打地鼠游戏也可以根据自己的喜好和风格进行个性化的调整和装饰，让它更加独特和富有创意。
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
#define?gSizek?30//区域大小宽度
#define?gSizeg?20//区域大小高度
#define?gBegin?3//活动区域起始行
int?main()
{
????int?t=0,s0,s1,i,j,count=0,fen=0,row=0,clo=0;
????char?gameA[gSizeg][gSizek+1],fSave[10]={0};
????SetConsoleTitle("打地鼠");
????HANDLE?hInput?=?GetStdHandle(STD_INPUT_HANDLE);?//?获取标准输入设备句柄
????INPUT_RECORD?inRec;
????DWORD?res;
????COORD?p0;
????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;igSizeg;i++)
????{
????????for(j=0;jgSizek+1;j++)
????????{
????????????if(igBegin-1??igSizeg-1??j0??jgSizek-1)
????????????????gameA[i][j]='?';
????????????else
????????????????gameA[i][j]=4;
????????????if(j==gSizek)
????????????????gameA[i][j]=0;
????????}
????}
????for(i=0;igSizeg;i++)
????????printf("%s\n",gameA[i]);
????while?(1)
????{
????????if(t=3)
????????{
????????????if(row0??clo0)
????????????????gameA[row][clo]='?';
????????????row=rand()%(gSizeg-1);
????????????clo=rand()%(gSizek-1);
????????????s0=?time(NULL);
????????????SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),p0);
????????????if(row3)
????????????????row=4;
????????????if(clo1)
????????????????clo=1;
????????????gameA[row][clo]=2;
????????????for(i=0;igSizeg;i++)
????????????{
????????????????//gameA[i][gSizeg+1]=0;
????????????????printf("%s\n",gameA[i]);
????????????}
????????}
????????if(count==3)
????????{
????????????p0.X=10;
????????????p0.Y=8;
????????????SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),p0);
????????????printf("GAME?OVER!");
????????????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(fen999999)
????????????????????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);
????return?0;
}
