申请会员ID：vip大师【申请通过】

1、申 请 I D：vip大师(做的程序里一直是用这个用户名的，如果觉得这个用户名不太合适，我可以改一下。）
2、个人邮箱：1437617534@qq.com
3、原创技术文章：见下（原创程序行不行？）
作品较为简陋，请谅解！（因为是会员申请，所以直接把自己以前的程序翻出来了，内有广告请见谅，广告是连接到我的网站上的，网站也没什么（如图

网站

），是给同学的。）




作品均为vb编写
1.关机助手（已经完结）

初始界面

使用界面

好吧，现场改一下

修改后

信息界面

ok 挂程序
工程1.exe (1.06 MB, 下载次数: 7)

2015-2-6 20:43 上传

点击文件名下载附件
关机助手

2画图（半成品，成品在学校，如果需要成品我尽力完成）



半成品下载 工程1.exe (24 KB, 下载次数: 5)

2015-2-6 21:04 上传

点击文件名下载附件
画图

3.自己编的游戏
a：植物大战僵尸（半成品，成品在学校，如果需要成品我就去拿）因为是以前没有编完的，成品已经发走了，所以暂时不挂程序




b：坦克大战（成品，但部分源码有借鉴的，暂时不挂了）



就这么多

h大尽早审核吧，不通过就只能等开放注册了，寒假的开放注册就是一个悲剧（ps:4号学校才放假，结果一上论坛就错过了开放注册）

工程1.exe (24 KB, 下载次数: 6)

2015-2-9 10:55 上传

点击文件名下载附件
画图

画图程序

Hmily

单成品达不到申请要求，写一些植物大战僵尸程序实现过程吧，你怎么做的？

原创文章：
《教你如何用vb制作一个自己的游戏------模拟板植物大战僵尸1》
一、制作准备：
1.素材提取
      1）在安卓手机上安装一个“植物大战僵尸”的游戏(ps：电脑应该也可以，我用的是手机)
      2）用软件连接手机（ps：记得在手机上打开“usb调试”（ps：具体步骤请出门左拐百度一下）
      3）打开软件的文件夹
      4）找到“images”文件夹（ps：这个是素材图片）和“audio”文件夹（ps：这个是音效文件夹）
      5）全部提取出来，找个地方摆好，以后要用的
  在这里VIP大师提供提取好的压缩包：
植物大战僵尸(素材).rar (537.44 KB, 下载次数: 7)

2015-2-9 12:24 上传

点击文件名下载附件

（ps：因为所有素材太大，有近百m，而论坛只能传小于10m的，所以只提供本文提到的部分素材，诺有全部的需求请按照教程自己提取！O(∩_∩)O谢谢支持）


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 = True  Then
    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
单成品达不到申请要求，写一些植物大战僵尸程序实现过程吧，你怎么做的？

这样行不行？

Hmily

ID：vip大师
邮箱：1437617534@qq.com

申请通过，欢迎光临吾爱破解论坛，期待吾爱破解有你更加精彩，ID和密码自己通过邮件密码找回功能修改，请即时登陆并修改密码！
登陆后请在一周内在此帖报道，否则将删除ID信息。