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

趣味撞球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执行文件了,瞧,小球已经在你的屏幕上蹦来蹦去了。
浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? Swift横空出世,Xcode 6 Beta有了哪些新变化? 《近匠》GameMei:简单易用、快速开发商用游戏 Gartner:2014年一季度浪潮服务器出货量中国第一 【技术博客推荐】张安站:大数据时代下的商业存储 Amazon继续登顶IaaS魔力象限,榜眼是微软而非Google 友盟Q1移动互联网报告:解读三线城市移动互联网用户 智能生活 “视”不可挡——首届TCL杯HTML5智能电视开发大赛等你来挑战 Mobile First!开源HTML5游戏引擎Kiwi.js 1.0正式发布 急,NOTES与SQL SERVER的问题 asp实例 我的Access库文件原来大小是6.78M,我清空所有记录和减少很多记录时,为什么大小没改变? 关于delphi动态加载控件,在线 代人提问:请问.dcu文件是干什么的?如何才能生成该类型文件。 怎么响应Enabled属性 asp.net做网页,运行后,<asp;....></asp:...>字段仍然存在?? 请教VB高手们一个高难问题! 请问,存储过程在VC如何调用,用ADO,ODBC。 怎么实现这个SQL? 没事瞎问~~~黑客软件能走向海外吗?(比如扫描器,键盘记录器,木马等) windows protect --error ,我装不了系统啊 DbEdit里的数据用adoquery如何更新才好? 有没有办法调试存储过程? 我是个菜鸟,请教大家,VC++和C++ Builer的优点和缺点。 请问如何改变显示文本的颜色? delphi 6 的补丁包 浏览器为NS6时如何获取屏幕分辨率? 如何控制 ValueListEditor ?有一个Help这样写道: 各位斑竹请进来,紧急求救呀!!!!! 是否可以把用asa建的数据库转变为access? 在java中如何压缩和解压文件夹? 如何在运行期把最大化,最小化按钮灰掉!? 求一句广告词 请教一个毕业设计的问题,关于在c++buileder中OLe对象调用:怎么样把word中的表格导入到数据库 请问如果在首页中加入一个论坛的登陆对话框? 这样的IIS错误信息,是什么意思,怎么解决? 问一下,vb怎么连接数据库呀`~(access)有代码吧~~给分呀` 如何画箭头? C#进行嵌入式开发,方便吗? 她为什么看上我??! 如何用BCB从mp3文件中得到歌名,歌手名,唱片集,流派等! 各位知道有关于ORACLE系统管理实例方面的书籍吗? ADO访问access数据库,怎样编辑一条记录啊? 请教各位关于win2000默认共享的问题 喜欢德国队的进来,坚韧不拔的意志和不到最后一刻不放弃的精神!!!! 如何判断图像大小 com的参数传递问题 请问:如何将pb数据库中的表倒入vf数据库中???急!!!!!! 大家好,关于数据库的问题请,大家帮忙。 一个关于button的简单问题 有没有将图片设为桌面的api函数,若有怎样用?若没有,怎样实现该功能? 我在adotable中删除数据它老是报错:”键列信息在最后读取中改变“(急用) 如何将CString类型转换为int型? wyx病毒的所有症状表现、危害性、解决方法。 在线等待--100分(很简单的问题) 急急急!! 隐藏任务栏的问题 急急急 我配置的cgi为什么不能访问? 实在不知哪里有问题,csdn....,帮忙up一下好吗。50分捧送。 用热的快在电壶里烧水对电壶有害没?听说那样烧久了壶就不保温了 某同学在做电解水的实验时通电一段时间后,水的质量减少了2.7g(不考虑蒸发),理论上的H2和O2质量分别是多少 在金属活动顺序中H之后的金属都不和酸反应,那么硫酸铜、硝酸银怎么制作出来的?什么叫强氧化性的酸? 电壶烧水,一段时间后发现壶盖在跳动,这种现象中能是整样转化的? 苯酚钠溶液和通入二氧化碳成什么? 下列物质可以由相应的金属和稀酸发生置换反应而制得的是A cuso4 B alcl3(说明理下列物质可以由相应的金属和稀酸发生置换反应而制得的是A cuso4 B alcl3(说明理由,急…给好评呦) 电水壶不烧水时壶身与电座分开放好吗 一根铜导线和一根镍铬合金线.长短粗细都相同.把它们并联在电路里,通过哪根导线的电流大?为什么? 下列物质中,能直接用金属与稀酸反应制取的是A.Agcl B.Feso4C.Fecl3 D .Cuso4哪个正确呢,思路是怎样的,能告诉吗 电壶烧水把电能转化为()能1.2.热能 3.机械能 NaH是一种离子化合物,其中钠显+1价.NaH与水反应放出氢气.下列叙述错误的是A.NaH还原剂,水是氧化剂B.生成的另一种产物是氢氧化钠C.NaH的氧化产物是氢气D.水的氧化产物是氢气请问答案C正确吗, 如果利用金属与酸来制取FeCl3或CuSo4是否可以?为什么? 所有的原电池中是不是都是电解质溶液中的阴离子移向负极,阳离子移向正极? 从化学角度分析,甲醇有哪些特性?有什么通途? 马上就要!硫酸钾与氯化钡反应方程式 春雨的诗句15句 甲醇、丙醇是怎么命名的,就是说有什么特征,为什么这么叫还有甲酸,乙酸还有那个丙三醇, 求 硫酸钾与硝酸钡反应的方程式 电解水反应的化学方程式为 . 氢化锂是制作氢气的来源,反应化学式为LiH+H2O=LiOH+H2↑.计算80g氢化锂与足量水反应产生氢气质量 盐酸与硫酸钾反应方程式互滴法鉴别的......用互滴法鉴别是硫酸钾和盐酸 从电解水的化学方程式 金属氢化物可以快速与水反应制取氢气,如:氢化锂与水反应的化学方程式为LiH+H2O=LiOH+H2.若制取10克氢气,需要消耗多少克氢化锂? 细菌吸收紫外线最快的波长是 电解水的化学方程式 化学上利用氢化锂和水在常温下反应制取氢气同时生成氢氧化锂反应的化学式为LiH+H2O=LiOH+H2↑生成的氢氧化锂能和多少克质量分数为10%的稀盐酸恰好完全反应 水在直流电作用下分解成氢气和氧气属于化学性质还是化学变化 电解水的反应的化学方程式 苯酚,NaOH,CO2怎么反应?生成物好像是水杨酸钠反应式是什么?还有反应条件~ 水在直流电的作用下分解成氢气和氧气,此过程是将——能转化为——能. 采用紫外分光光度计法测定时如何选择分析波长 苯酚与过量的烧碱反应后通入二氧化碳,未出现沉淀的原因可能有哪些 b.在常温下,水可以变成水蒸气 c.水在直流电作用下能分解成氢气和氧气 哪个是化b.在常温下,水可以变成水蒸气c.水在直流电作用下能分解成氢气和氧气哪个是化学性质 ( )C2H6OH+( )O2---点燃---( )CO2+( )H2O 电解铜现在价格? 硼砂、硼酸属于什么行业 一句写春雨的诗句 电解铜价格多少一吨 硫酸铜溶液中提取硫酸铜粉末? 原电池里的盐桥里面的离子能移动到溶液中吗?同时溶液中的离子能通过盐桥吗?如果只是让离子集中在盐桥与溶液接触的部分使两边溶液保持电中性,那么突然拿掉盐桥后,盐桥里面的离子不就 电解铜现在什么价格 向苯酚里面滴加溴水会有沉淀生成吗? 电解质溶液在原电池中有什么用?书上说“原电池一定要形成闭合回路”,我不明白“闭合回路”是什么意思?参考书里说要离子的移动来导电,为什么?电子从负极流向正极,然后在正极和水中的 谁知道2004年7月电解铜价格?准确点的! 酸度和PH值有什么区别?表征实验中什么时候适宜测量酸度,什么时候该测量PH?还是二者皆可呢? 电解水的化学方程式有几个? 物体重30N,用F=50N的力垂直压在墙上静止不动,物体所受的摩擦力是=?N 哪些蛋白质可用紫外吸收法测浓度 电解水化学方程式表示的意义? 亚硫酸钠的水溶液和二氧化硫生成什么 蛋白质中存在着哪三种氨基酸具有紫外吸收特性? 电解水的化学反应方程式 环保甲醇燃料对身体有害吗 Phe、Tyr、Try(p)对紫外吸收峰在多少nm?蛋白质的最大吸收波长为多少nm? 有哪些根据化学结构计算最大紫外吸收波长的经验规则 我们怎样保护环境的理由 298K ,1大气压下.气态水的标准摩尔生产焓减去液态水的差值大约是44KJ/MOL,而水的气化热是40KJ/MOL .求之间的关系! 紫外最大吸收波长是650nm的话,荧光激发波长该选什么?如果激发波长选了650nm,那根据斯托克斯定理,发射波长不是在可见光外面了? A物体重30N.用F50的力垂直压在墙上静止不动则A受到多少摩擦力.物体B重30N.受20N力.水平推力静止不动.物体B受多少摩擦力. 298K,OsO4(S)标准摩尔生成焓为-391,OsO4(s)的标准摩尔升华焓为56,反应OsO4(g)=Os(s)+2O2(g)标准摩尔焓变?这是热化学反应里的一道题,看来下面多数是来混分数的.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘