申请会员ID：vip大师【申请通过】
1、申 请 I D：vip大师(做的程序里一直是用这个用户名的，如果觉得这个用户名不太合适，我可以改一下。）2、个人邮箱：1437617534@qq.com
3、原创技术文章：见下（原创程序行不行？）
作品较为简陋，请谅解！（因为是会员申请，所以直接把自己以前的程序翻出来了，内有广告请见谅，广告是连接到我的网站上的，网站也没什么（如图
），是给同学的。）
作品均为vb编写
1.关机助手（已经完结）
{:1_908:}
好吧，现场改一下
ok 挂程序
2画图（半成品，成品在学校，如果需要成品我尽力完成）
半成品下载
3.自己编的游戏
a：植物大战僵尸（半成品，成品在学校，如果需要成品我就去拿）因为是以前没有编完的，成品已经发走了，所以暂时不挂程序
b：坦克大战（成品，但部分源码有借鉴的，暂时不挂了）
就这么多
h大尽早审核吧，不通过就只能等开放注册了，寒假的开放注册就是一个悲剧（ps:4号学校才放假，结果一上论坛就错过了开放注册）
画图程序
单成品达不到申请要求，写一些植物大战僵尸程序实现过程吧，你怎么做的？ 原创文章：
《教你如何用vb制作一个自己的游戏------模拟板植物大战僵尸1》
一、制作准备：
1.素材提取
1）在安卓手机上安装一个“植物大战僵尸”的游戏(ps：电脑应该也可以，我用的是手机)
2）用软件连接手机（ps：记得在手机上打开“usb调试”（ps：具体步骤请出门左拐百度一下）
3）打开软件的文件夹
4）找到“images”文件夹（ps：这个是素材图片）和“audio”文件夹（ps：这个是音效文件夹）
5）全部提取出来，找个地方摆好，以后要用的
在这里VIP大师提供提取好的压缩包：
（ps：因为所有素材太大，有近百m，而论坛只能传小于10m的，所以只提供本文提到的部分素材，诺有全部的需求请按照教程自己提取！O(∩_∩)O谢谢支持{:1_918:}）
2.软件准备：
1）下载vb（ps：下载完整版，不要精简的！）
2）安装vb（ps：具体步骤请出门左拐百度一下）
二、开始制作1.打开vb 选择标准exe
2.在添加俩个窗体
1）在工程窗口上右击，如图
2）选择“添加”-->“添加窗体”
3）选择“窗体”
4）重复上面的步骤
3.添加控件
1）窗体1（一个按钮，caption属性为“开始”）
高级内容（ps：小白不要体验，建议有经验的vb程序员阅读）
（再加上一堆输入框和一个滚动条，ps：为自己的游戏做后门，方便以后作弊，有能力的可以不要只局限于这么几个作弊内容哦！）
ps：高级版的暂时没有图，以后补，因为高级版的完工程序在另一台电脑上，昨天修电脑的时候发现的，本来因为在学校的，没想到那里也有，不过电脑拿去修了，电源键坏了，电脑回来之后给高级版补图！）
2）窗体2（两个标签，四张图片，图片是用image那个控件，6个定时器，暂时就用6个，有多的再删除）
如图
标签1的caption属性为“阳光：”
标签1的caption属性为“50”
标签的字体自己设置
四个image控件分别加载上僵尸图片、阳光图片、植物图片、子弹图片
计时器如图摆，容易理解
窗体的picture属性加载上背景图片
高级内容：用10个计时器
3）窗体3
（一个标签，caption属性为“你输了-@-！886”，一个图片框是image控件那种，加载上另一个僵尸图片）
高级内容：再加上一个定时器,用于定时关闭窗体
4代码1）窗体1的代码
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
作用：点击开始按钮时，出现窗体2，隐藏窗体1
高级内容的代码：
Private Sub HScroll1_Change()
Form2.zd.Left = HScroll1.Value
End Sub
作用：调整子弹的位置（作弊）
Private Sub rnd_Change()
If rnd.Text = "y" Then
zdsd.Enabled = False
ElseIf rnd.Text = "n" Then
zdsd.Enabled = True
Else
MsgBox "错误！"
End If
End Sub
作用：如果rnd输入框是y就禁用子弹速度（zdsd）输入框，是n就取消禁用
Private Sub yg_Change()
Form2.yg.Caption = Form1.yg.Text
End Sub
作用：调整阳光（作弊）
2）窗体2的代码
Private Sub Timer1_Timer()
If zd.Visible = TrueThen
zd.Left = Val(zd.Left) + Val(100)
End If
If zd.Left >= 16000 Then
js1.Visible = False
end if
End Sub
作用：（js1为僵尸图片框，zd为子弹图片框）让阳光动起来，并且判断是否大于16000，如果是就让僵尸死亡（隐藏），默认本定时器的enable属性为true。
Private Sub Timer6_Timer()
js1.Left = js1.Left - 100
If js1.Left = js1.Width Then
Form3.Show
Form2.Hide
End If
End Sub
作用：让僵尸前进，如果僵尸走到了头就结束游戏，显示窗体3，隐藏窗体2.
Private Sub tyh_Click()
tyh.Visible = False
yg.Caption = Val(yg.Caption) + 25
End Sub
作用：点击到太阳花就加阳光，然后太阳花隐藏
Private Sub Timer2_Timer()
tyh.Visible = True
End Sub
作用：定时显示太阳花
Private Sub Timer3_Timer()
tyh.Visible = False
End Sub
作用：定时隐藏太阳花
Private Sub Timer4_Timer()
tyh.Top = tyh.Top + 15
If tyh.Top > 500 Then
tyh.Top = 0
tyh.Left = rnd * 12810
End If
End Sub
作用：让太阳花下落
Private Sub Image1_Click()
yn = MsgBox("购买子弹？", vbYesNo)
If Val(yg.Caption) >= 50 And yn = vbYes Then
yg.Caption = Val(yg.Caption) - 50
zd.Visible = True
ElseIf Val(yg.Caption) < 50 Then
MsgBox "阳光不足！"
Else
MsgBox "您取消了购买"
End If
End Sub
作用：点击植物购买子弹，并且扣除阳光
高级内容：
Private Sub Timer1_Timer()
Dim a
If zd.Visible = True And Form1.rnd.Text = "y" Then
a = rnd * 100
zd.Left = Val(zd.Left) + Val(a)
ElseIf zd.Visible = True And Form1.rnd.Text = "n" Then
a = Form1.zdsd.Text
zd.Left = Val(zd.Left) + Val(a)
End If
If zd.Left >= 16000 Then
js1.Visible = False
end if
End Sub
作用：（js1为僵尸图片框，zd为子弹图片框）让阳光动起来，判断窗体1的rnd输入框是否为y，是y就用rnd来决定子弹的速度，如果为n就使用窗体1的子弹速度（zdsd）输入框的内容来决定子弹的速度，并且判断子弹的距离是否大于16000，如果是就让僵尸死亡（隐藏），默认本定时器的enable属性为true。
Private Sub Timer6_Timer()
js1.Left = js1.Left - 100
If js1.Left = js1.Width Then
Form3.Show
Form2.Hide
End If
End Sub
作用：让僵尸前进，如果僵尸走到了头就结束游戏，显示窗体3，隐藏窗体2.
Private Sub tyh_Click()
tyh.Visible = False
yg.Caption = Val(yg.Caption) + 25
End Sub
作用：点击到太阳花就加阳光，然后太阳花隐藏
Private Sub Timer2_Timer()
tyh.Visible = True
End Sub
作用：定时显示太阳花
Private Sub Timer3_Timer()
tyh.Visible = False
End Sub
作用：定时隐藏太阳花
Private Sub Timer4_Timer()
tyh.Top = tyh.Top + 15
If tyh.Top > 500 Then
tyh.Top = 0
tyh.Left = rnd * 12810
End If
End Sub
让太阳花下落
Private Sub Image1_Click()
yn = MsgBox("购买子弹？", vbYesNo)
If Val(yg.Caption) >= 50 And yn = vbYes Then
yg.Caption = Val(yg.Caption) - 50
zd.Visible = True
ElseIf Val(yg.Caption) < 50 Then
MsgBox "阳光不足！"
Else
MsgBox "您取消了购买"
End If
End Sub
作用：点击植物购买子弹，并且扣除阳光
Private Sub Timer5_Timer()
js1.Visible = True
End Sub
定时出现僵尸
3）窗体3
高级内容：
Private Sub Form_Load()
Dim a
a=10
End Sub
作用：生成变量a
Private Sub Timer1_Timer()
If a > 0 Then
a = a - 1
Else
End
MsgBox "886"
End If
End Sub
作用：判断时间，a小于0时结束程序 h大这样行不行？
单成品达不到申请要求，写一些植物大战僵尸程序实现过程吧，你怎么做的？ Hmily 发表于 2015-2-9 11:05
单成品达不到申请要求，写一些植物大战僵尸程序实现过程吧，你怎么做的？
这样行不行？ ID：vip大师
邮箱：1437617534@qq.com
申请通过，欢迎光临吾爱破解论坛，期待吾爱破解有你更加精彩，ID和密码自己通过邮件密码找回功能修改，请即时登陆并修改密码！
登陆后请在一周内在此帖报道，否则将删除ID信息。
页:
[1]
2