net编写的打砖块游戏Word文件下载.docx
- 文档编号:20630132
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:17
- 大小:17.54KB
net编写的打砖块游戏Word文件下载.docx
《net编写的打砖块游戏Word文件下载.docx》由会员分享,可在线阅读,更多相关《net编写的打砖块游戏Word文件下载.docx(17页珍藏版)》请在冰豆网上搜索。
PrivatenumAsInteger
PrivatescoreAsInteger
PrivatetAsInteger=0
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
baffle.Text="
"
brick.Text="
baffle.BackColor=Color.Black
brick.BackColor=Color.Black
brick.Width=10
brick.Height=10
initialize()
initializebrick()
Timer1.Interval=100
Label1.Text="
得分为:
"
+score.ToString
EndSub
PrivateSubclear()
DimresAsInteger
DimbtnAsControl
ForEachbtnInControls
Ifbtn.Text="
Orbtn.Text="
L"
R"
W"
Q"
Then
res+=1
EndIf
Next
Whileres>
0
DimoldbtnAsControl
ForEacholdbtnInControls
Ifoldbtn.Text="
Oroldbtn.Text="
Me.Controls.Remove(oldbtn)
res-=1
EndWhile
num=0
PrivateSubinitialize()
baffle.Left=Me.ClientSize.Width/2-baffle.Width/2
baffle.Top=Me.ClientSize.Height-baffle.Height
brick.Top=baffle.Top-brick.Height
brick.Left=baffle.Left+baffle.Width/2-brick.Width/2
life=3
score=0
t=0
PrivateSubinitializebrick()
clear()
Form=1To4
Ifm=1Then
Forn=1To6
DimbtnAsNewButton
btn.Text="
btn.Name=num.ToString
btn.BackColor=Color.Red
btn.Width=Me.Width/6
btn.Height=20
btn.Left=btn.Width*(n-1)
btn.Top=MenuStrip1.Height+btn.Height*(m-1)
Me.Controls.Add(btn)
num+=1
Ifm=2Then
Forn=1To4
btn.BackColor=Color.Yellow
btn.Left=btn.Width*(n)
Ifm=3Then
Forn=1To2
btn.BackColor=Color.Blue
btn.Left=btn.Width*(n+1)
Ifm=4Then
btn.BackColor=Color.Green
btn.Left=(Me.ClientSize.Width-btn.Width)/2
PrivateSub开始ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles开始ToolStripMenuItem.Click
Timer1.Start()
PrivateSub操作ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles操作ToolStripMenuItem.Click
MessageBox.Show("
游戏规则"
+vbNewLine+"
挡板向左:
a"
挡板向右:
b"
暂停:
p"
开始:
空格"
)
PrivateSub关于ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles关于ToolStripMenuItem.Click
此游戏由靳晶晶开发。
PrivateSub初级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles初级ToolStripMenuItem.Click
Timer1.Stop()
PrivateSub中级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles中级ToolStripMenuItem.Click
Timer1.Interval=75
Ifn=1Orn=6Then
btn.Top=MenuStrip1.Height+btn.Height*2
Ifn=2Orn=5Then
Form=1To2
btn.Top=MenuStrip1.Height+btn.Height*1
ElseIfm=2Then
btn.Top=MenuStrip1.Height+btn.Height*3
Ifn=3Orn=4Then
btn.Top=MenuStrip1.Height
btn.Top=MenuStrip1.Height+btn.Height*4
DimxbtnAsNewButton
xbtn.Text="
xbtn.Name=num.ToString
xbtn.BackColor=Color.Red
xbtn.Width=Me.Width/6
xbtn.Height=20
xbtn.Left=Me.ClientSize.Width/2-xbtn.Width/2
xbtn.Top=MenuStrip1.Height+xbtn.Height*2
Me.Controls.Add(xbtn)
PrivateSub高级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles高级ToolStripMenuItem.Click
Timer1.Interval=50
DimxinAsNewButton
xin.Name=num.ToString
xin.Text="
xin.BackColor=Color.Red
xin.Width=30
xin.Height=30
xin.Left=Me.ClientSize.Width/2
xin.Top=160
Me.Controls.Add(xin)
DimrAsDouble
r=60
Forn=1To12
btn.BackColor=Color.OrangeRed
btn.Width=30
btn.Height=30
btn.Left=xin.Left-r*System.Math.Sin(3.14/180*(30*(n-1)))
btn.Top=xin.Top+r*System.Math.Cos(3.14/180*(30*(n-1)))
Form=1To12
btn.BackColor=Color.Orange
btn.Left=xin.Left-r*2*System.Math.Sin(3.14/180*(30*(m-1)))
btn.Top=xin.Top+r*2*System.Math.Cos(3.14/180*(30*(m-1)))
PrivateSub暂停ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles暂停ToolStripMenuItem1.Click
PrivateSub退出ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem1.Click
Me.Close()
PrivateSubbaffle_KeyPress(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)Handlesbaffle.KeyPress
Ife.KeyChar="
Ifbaffle.Left>
0Then
Ifbrick.Top=baffle.Top-brick.HeightThen
brick.Left-=10
baffle.Left-=10
Ifbaffle.Left<
=0Then
baffle.Left=0
d"
Me.ClientSize.Width-baffle.WidthThen
brick.Left+=10
baffle.Left+=10
If(baffle.Left+baffle.Width)>
=Me.ClientSize.WidthThen
baffle.Left=Me.ClientSize.Width-baffle.Width
p"
Timer1.Enabled=False
PrivateSubgetbaowu(ByValbtnAsControl)
DimbaowuAsNewButton
IfInt32.Parse(btn.Name)Mod8=0Then
baowu.Name="
r"
baowu.Text="
baowu.BackColor=Color.Red
baowu.Width=20
baowu.Height=20
baowu.Left=btn.Left+btn.Width/2-baowu.Width/2
baowu.Top=btn.Top+btn.Height
Me.Controls.Add(baowu)
ElseIfInt32.Parse(btn.Name)Mod7=0Then
w"
baowu.BackColor=Color.Yellow
ElseIfInt32.Parse(btn.Name)Mod9=0Then
q"
baowu.BackColor=Color.Green
ElseIfInt32.Parse(btn.Name)Mod11=0Then
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- net 编写 砖块 游戏