游戏开发论坛

 找回密码
 立即注册
搜索
查看: 39118|回复: 141

不使用类的VB游戏程序设计方法(1)

[复制链接]

10

主题

411

帖子

411

积分

中级会员

Rank: 3Rank: 3

积分
411
发表于 2006-9-5 15:51:00 | 显示全部楼层 |阅读模式
不使用类的VB游戏程序设计方法(1)

实际应用中会有多个变量或数组定义,以下程序只是讲原理,程序省略。


A=0    '地图坐标
LP=0   '飞机出动的指针
'假设地图尺寸是1000

'主程序
DO
显示地图
A=A+1   '地图移动速度是1
IF A > 200 THEN LP=1   '地图到200敌人出动
LOOP
'//////////////////////////////////////
IF LP=1 THEN
定义以下变量
'飞机坐标'飞机步长'飞机存在的指针'飞机生命'飞机角度等
LP=2
END IF

IF LP=2 THEN CALL STAGE1

PRIVATE SUB STAGE1()   '这个段程序相当于类的作用
显示飞机
飞机动作
飞机判断
IF 满足发射条件 THEN CALL FIRE
END SUB

PRIVATE SUB FIRE()
飞机发射子弹程序
END SUB

187

主题

6490

帖子

6491

积分

论坛元老

团长

Rank: 8Rank: 8

积分
6491
发表于 2006-9-5 17:46:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

程序关键字大写???

187

主题

6490

帖子

6491

积分

论坛元老

团长

Rank: 8Rank: 8

积分
6491
发表于 2006-9-5 17:59:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

我开头大写,其他小写。

32

主题

1259

帖子

1351

积分

金牌会员

Rank: 6Rank: 6

积分
1351
发表于 2006-9-5 18:35:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

好强的汇编功力!

187

主题

6490

帖子

6491

积分

论坛元老

团长

Rank: 8Rank: 8

积分
6491
发表于 2006-9-5 18:47:00 | 显示全部楼层

Re: Re:不使用类的VB游戏程序设计方法(1)

Devil: Re:不使用类的VB游戏程序设计方法(1)

好强的汇编功力!

他说他用过Z80,没有小写,“习惯了”。

32

主题

1259

帖子

1351

积分

金牌会员

Rank: 6Rank: 6

积分
1351
发表于 2006-9-5 18:52:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

这样写是为了加密你的代码吗?

6

主题

219

帖子

219

积分

中级会员

Rank: 3Rank: 3

积分
219
发表于 2006-9-5 19:00:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

反正他的代码也没人看,加密不加密也无所谓。

6

主题

219

帖子

219

积分

中级会员

Rank: 3Rank: 3

积分
219
发表于 2006-9-5 19:02:00 | 显示全部楼层

Re: 不使用类的VB游戏程序设计方法(1)

游戏之家5世: 不使用类的VB游戏程序设计方法(1)

PRIVATE SUB STAGE1()   '这个段程序相当于类的作用
显示飞机
飞机动作
飞机判断
IF 满足发射条件 THEN CALL FIRE
END SUB

不会吧,微软的类就变成了这样?

6

主题

103

帖子

103

积分

注册会员

Rank: 2

积分
103
发表于 2006-9-5 19:34:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

看不明白
不过不是VB不分大小写嘛

15

主题

2093

帖子

2093

积分

金牌会员

Rank: 6Rank: 6

积分
2093
发表于 2006-9-5 20:47:00 | 显示全部楼层

Re:不使用类的VB游戏程序设计方法(1)

IF A > 200 THEN LP=1   '地图到200敌人出动

有很多敌人要出动,该怎么办呢?一个敌人就写一句??
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

作品发布|文章投稿|广告合作|关于本站|游戏开发论坛 ( 闽ICP备17032699号-3 )

GMT+8, 2026-4-13 09:11

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表