刚写好的，打地鼠小游戏。
功能：每三秒，会在游戏区域随机位置刷出地鼠，鼠标点击地鼠，无论点中与否，地鼠都会立即刷新。
点中地鼠按你要求计分，点不中记录失败次数，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-1i<gSizegi++)
{
for(j=0j<gSizek+1j++)
{
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=0i<gSizegi++)
printf("%s\n",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=0i<gSizegi++)
{
//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(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)
return 0
}
下面是源代码：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 EndElse
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 #2Else
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Print #3, Text1.Text + " " + Format(Date, "M/d/yy") Close #3End 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
在 C# 编写的打地鼠游戏中，我们可以通过设计定时器来控制地鼠出现的时间间隔。具体来说，可以使用 Timer 组件，并设置其 Interval 属性来控制地鼠出现的时间间隔。下面是一个设置地鼠出现时间间隔的示例代码：
```
// 创建一个 Timer 控件
private Timer timer1 = new Timer()
// 在初始化时设置 Timer 的属性
public void InitializeTimer()
{
// 设置 Timer 的时间间隔为 1 秒
timer1.Interval = 1000
// 设置 Timer 的 Tick 函数
timer1.Tick += new EventHandler(timer1_Tick)
// 启动 Timer
timer1.Start()
}
// Timer 的 Tick 函数
private void timer1_Tick(object sender, EventArgs e)
{
// 在 Tick 函数中判断当前是否需要显示地鼠
if (needToShowMouse())
{
// 如果需要显示地鼠，则执行显示地鼠的 *** 作
showMouse()
}
}
```
在以上代码中，InitializeTimer() 方法用来初始化 Timer 的属性，并启动 Timer。当 Timer 定时器触发 Tick 事件时，会调用 timer1_Tick() 函数来判断当前是否需要显示地鼠。如果需要显示地鼠，则执行 showMouse() 函数来显示地鼠。
需要注意的是，时间间隔的单位是毫秒，因此在设置 Interval 属性时，需要将时间间隔转化为毫秒数。另外，需要根据游戏需要适当地调整时间间隔，以达到理想的游戏体验效果。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）