说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

趣味撞球VB5应用程序一例

HTML文档下载 WORD文档下载 PDF文档下载
趣味撞球VB5应用程序一例
作者:樊晓待
VisualBasic5.0(VB5)是一个功能强大的工具,它有一大特点就是易学易用,下面我们就通过写一个“趣味撞球”的程序来初步体会一下。
首先启动VB5,新建一个标准的EXE工程。此时可以看到,工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放,拖动鼠标把Form1的面积改为适当大小,比如6930×4320。再在属性框中把Form1的ScaleMode属性改为3-Pixel,表明我们将以像素为我们的坐标计算单位,把Form1的StartUpPosition属性设为2-CenterScreen,使运行时窗体出现在屏幕正中。
现在,在控件面板上选取CommandButton(命令按钮)控件,为Form1添加Command1和Command2两个按钮控件,把它们的大小设为121×25,再在属性框中把Command1的Caption填为“&GO”,把Command2的Caption填为“&QUIT”,并把Command1放到框体的右上角,把Command2放到框体的右下角。
然后,在控件面板上选取Timer(时钟)控件,为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False,Interval属性改为50,前一个值表示该时钟控件是否激活,后一个值决定该时钟控件产生Timer事件的间隔时间,我们将用它来控制小球的移动频率。
到此为止,我们已经完成了全部的界面设计工作。
接下来要做的全部工作就是填入程序代码了。
DimBallXAsInteger
DimBallYAsInteger
DimAddXAsInteger
DimAddYAsInteger
DimHitXAsInteger
DimWAsInteger
DimHAsInteger
PrivateSubCommand1_Click()
BallX=Int(Rnd(1)*Form1ScaleWidth/10)*5+25
BallY=Int((Form1ScaleHeight)/10)*5
AddX=-5
AddY=-5
Form_Paint
Timer1Enabled=True
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_MouseMove (ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
X=X-50
IfX<15ThenX=15
IfX>W-105ThenX=W-105
HitX=X
IfTimer1Enabled=TrueThen
Line(16,H-5)-(W-6,H),&HC0C0C0,BF
Line(HitX,H)-(HitX+100,H-5),0,BF
EndIf
EndSub
PrivateSubForm_Paint()
Cls
W=Int((ScaleWidth-140)/5)*5
H=Int((ScaleHeight-10)/5)*5
BackColor=&HC0C0C0
Line(10,10)-(15,H),0,BF
Line(W-5,10)-(W,H),0,BF
Line(10,10)-(W,15),0,BF
EndSub
PrivateSubTimer1_Timer()
Form1Circle(BallX,BallY),4,&HC0C0C0
BallX=BallX+AddX
BallY=BallY+AddY
Form1Circle(BallX,BallY),4,0
IfBallX<=20ThenAddX=-AddX
IfBallY<=20ThenAddY=-AddY
IfBallX>=W-10ThenAddX=-AddX
IfBallY>=H-10Then
IfBallX<HitXOrBallX>HitX+100Then
Timer1Enabled=False
Form_Paint
EndIf
AddY=-AddY
EndIf
EndSub
一旦程序代码输入完毕,你就可以按F5开始执行它,或是在File菜单里选取Make来生成EXE执行文件了,瞧,小球已经在你的屏幕上蹦来蹦去了。
Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 SQL语句中的删除和改变-Delphi资料 TDataLink类别的说明-Delphi资料 TDBGrid控件中对多个记录的处理-Delphi资料 安装BDE需要的东东-Delphi资料 保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 建立自己的数据字典库-Delphi资料 将BLOB字段的BMP图显示出来-Delphi资料 将图像放入数据库中-Delphi资料 解 决sybase 用 户 数 据 库 不 能 进 入 故 障 的 一 种 方 法-Delphi资 解决sybase用户数据库不能进入故障的一种方法-Delphi资料 请教关于打印遇到的问题 谁能个--报表例子(水晶报表。vb.net)--报表的数据源要是动态生成的。 利用WMI管理WINDOWS 请教:如何在chm帮助文件中执行应用程序。谢谢 Weblogic+Mysql的Jsp/Java程序的数据库该怎样连接?? 在java代码中引用php的变量?请问如何写? tclientdataset问题 急!!!!VFP触发器取值问题 怎么样才能卸载REDHAT8.0下的XMMS,而装7.3下的XMMS? 请教一个有关于对话框上控件重画的问题!谢谢! 有谁知道上海高程查分方法?急!!! 请教OleDbDataReader的用法 请教一个有关于对话框上控件重画的问题!谢谢! 请教一个简单问题,显示图形滞后的问题,有人回答过,但不正确。谢谢 大家有没有见过IIS不支持数据库的? 1700--2100 之间的手机,请大家帮我推荐一下,在NOKIA,MOTOROLA,厦新,波导……中选择!! 请问谁有?divx的资料?能提供下载也行! 请问如何把从数据库中读出来的数据显示在在线编辑器里? 请教:log,乘方(pow(x, y))运算用C语言如何实现? 如何在Domino designer中添加图像资源,在线等候 所有分求asp2dll破解版,急!在线等待!! zhwdan 还是朋友!多谢你了!快来看看啊! 多文档程序,怎样在选择某一菜单命令时使窗口最大化且不能改变大小,而不是在PreCreateWindow函数中设定?在线等待 LINUX 好多问题呀! 给高分 html文件在Unix系统下有大小写之分吗??我只知道他对CGI有大小写之分。在线等待。 在线等待 怎样使单文档程序中间凹下去的部分 变成 不是凹下的,使得整个界面看上去是一个平面的~~~谢谢~~~ 存储过程怪问题 哪个更划算? 关于delphi的ISAPI开发 用标准的C++怎么样才能调用Win系统API? 一点看法 自动运行的程序!!! 月薪2000加提成,怎么样? 请各位兄弟帮个忙 谁有JAVA与模式的电子版? 怎样更改一个按钮的标签?怎样知道我按的按钮是哪一个?(答对结帖) 请教关于远距离局域网连接的问题 如何遍历DataList中的TextBox? asp连数据库的问题? 在Linux 7.03中怎样在文本模式与X Window模式转化。 关于MS SQL里的时间问题,请帮忙 teechart pro5 的正式版哪里有下,能用的话马上给分. 参数 急急急急急!!!!!!!!!!!!! 为什么我用JSP做出来的程序输出的文字都是乱的文字呢? 怎么停用一个触发器? 怎样在Excel中插入总和 如何实现distinct对查询几列中的某一列不重复。 如何用程序把一个字段修改为Null,谢谢? weblogic如何解限? 有关数据库的问题! 韩国十大美女排行出炉赵薇满脸横肉 盘点被双下巴和横肉搞死盘点那些令人脸红心跳的香艳吻戏 浪漫网友细数赵薇黄晓明温情瞬间:遗憾是赵姚晨怒斥发1条微博收2万 网友:怀着揭娱圈情侣AA制悲剧:财政独立致谢霆传撒贝宁跳槽离开央视 李咏白燕升跳槽小S林志玲范冰冰柳岩李玟 盘点女星被林志玲张柏芝 太演艺圈平公主胸部迅速台湾艳照门女星吴亚馨爆乳复出代言 走陈乔恩霍建华旧情复燃 迁出正牌男友古董洁“新男友”王大治背景曝光 屌丝的姚晨被指"发1条微博收2万" 发飙:小S范冰冰李冰冰林志玲 盘点娱乐圈最刘诗诗吴奇隆演戏唐嫣邱泽翻脸 揭秘明B女倒戈A女有新证人作绝地反击 朴施陈乔恩古天乐陷四角恋?看明星糜烂混乱黄晓明赵薇情谊惹人羡 同窗爆料"明薇赵薇王菲林志玲郭晶晶小S 盘点女星酒呵护范冰冰达6年的男人黄磊爱女甜美私照曝光一体共和乐队来沪,《数星星》必唱金吉列留学:美国留学如何安排SAT和10月30日中国福利彩票\"乐透型1一切为了孩子“中国特色”式家庭移民成10月30日中国福利彩票\"3D\"习近平:“十二五”提出的3600万套李克强:建立社会救助制度 防止困难群自力:1年完成本科学历不是梦10月30日中国福利彩票\"七乐彩\个股门诊窃贼藏被褥被瓮中捉鳖 同伙探听消息自2013年上海军转干部安置双向选择会一小伙盗窃5辆大货车 涉案价值近80招行系统升级 用钱早做准备上海华智进修学校:公务员通过率为什么NBA新赛季揭幕湖人胜快船雪耻上海一幼儿园装修十多名孩子过敏 家长新航道:当代中国青少年英语学习误区及中国万余人资产净值超3000万美元新三驾马车将拉动中国经济纳斯达克又出故障了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘