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

趣味撞球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执行文件了,瞧,小球已经在你的屏幕上蹦来蹦去了。
玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 关于文本框的问题 在菜单项中加入小图标 求救: 这是什么语言!!!! "::="??? 100分请教,如何将DBGrid中某字段为空的记录全部删除, 和过滤掉重复的记录? 繁体版的软件选什么字体? 关于虚拟主机的问题 DELPHI7带了一个挺不错的工具:ModalMake 6.2 如何得到文件控件中的值? SOS!!!在线等待,立即给分 关于密匙的问题? 关于Kylix unix系统有中间件吗? 架設smtp的問題??? FastNet组件 怎样在sql语句中进行数据转换啊 在线等 ,,,怎样获得汉字的编旁 在程序中用函数设置session的时效、存放路径 如何在ms-dos下降低cpu的运行速度?(汇编,C高手请进) 求解决链表问题 请教:如何在linux嵌入系统中编写外设驱动程序.谢谢 Micrsoft JDK nmake生成的EXE文件反编译问题!!! 多态问题 专业调查:军训练什么,学到什么!!????? 使用IS for Delphi 4制作安装盘.安装时时出现401号错误(字符串变量不够长) 介绍几本VC入门的好书 大家谈谈,数据库应用程序如何设计及使用类! Oracle的登录问题! 请问如何在VC中取得传入的参数? 现在的浏览器还支持不支持applet啊?高手救我!--------怎么写一个applet兼容更多的浏览器? 请问那里有这种工具??近来看看!! 请capboy等写过filter的各位前辈指点 利用DW制作一张确定最佳分辨率为800*600或者1024*768的页面, 急 求助: 怎样获得系统当前可用的字体? 如何打印FormView? 如果你是VC高手,对COM有深入了解,欢迎! 我今天看了我英语过级的公布成绩,我得了一个天险数字60。5分,请问。。。。。? 谁有linux下的mod_webapp.so DW UltraDev里rs.source="select * from stu where banci=request.QueryString("banci")这样是不是不行? Microsoft JDK nmake生成的EXE文件反编译问题!!! 各位大虾:请问谁能告诉我哪里能找到win xp home edition plus???如果能让我找到,送1000分 请问如何将PaintBox.Canvas的当前内容保存至内存, Linux下c语言程序该怎样运行? 请问:vb.net中oracle数据库能否支持blob格式? .ceb文件如何打开? 什么地方能够找到《Exploring Requiremengs:Quality Before Design》这本书? 关于制作一个classwizard的设计思路,欢迎大家讨论 weblogic server console: java.lang.NullpointerException 如何得到本局域网上所有主机的ip? 请问: 如果在网上可以通过网页上传某些文件到服务器空间上,并显示一些关于上传文件的信息~ 一段检测光软驱的程序,大家帮忙除Bug! 为何会死机? 这句话看不懂,谁能帮我分析一下~ 草履虫从细胞膜到核膜,一共有几层膜分别是哪几层 下例物质在一定条件下能跟甲烷发生取代反应的是氧气,氯化钠,溴水,氯气 给父母解释为什么叛逆的一封信 英语作文 目前我国有哪些法律法规给未成年人以特殊的保护? 请帮忙分析句子句法结构.特别是句子的"nothing...less than"nothing gets people talking than child rearing is anything less than a completely fulfilling,life-enriching experience. 古代中原指的是什么地方 在循环水系统中钝化后的碳钢管道在正式运行前还需要进行预膜吗 可降解塑料餐盒化学成分 中国古代的九州是指现在的哪些地方? 如下就是案例.热电厂循环水处理之预膜处理步骤详情咨询北京邦驰世纪水处理科技有限公司 可降解塑料餐盒怎么加工 水处理成套设备是什么 古代的"中原"到底是指哪里?在当时中原以外的地域都是不被中原政权承认属于"中国"的吗? 循环水预膜时钙离子为什么要大于50PPM? 一道物理电磁感应自招题 求教 北极燕鸥阅读题答案 草履虫是通过什么与环境进行物质交换? 一道电磁感应物理题 古代各国都在中原地区吗 能体现汉字谐音特点的古诗有什么 向鲜牛奶中掺入三聚氰胺,能增加牛奶的重量么往牛奶里添这个东西有什么用?有感于牛奶事件 中国古代西域是指哪些地区?是在何时正式并入中国版图的? 4HCl+O2=2Cl2+2H2O,在CuO/CuCl2,400℃的条件.该反应的热化学方程式 . 以牛、牛奶、三聚氰胺为话题的作文(急),以牛、牛奶、三聚氰胺为话题的作文700字,材料也可以(要整理好的)最好能信息发给我, 一根圆柱形水管,内直径为20厘米,水在管内的流动速度为每秒40厘米,每秒流过的水是()立方厘米 可逆反应2Cl2(g)+2H2O(g) 4HCl(g)+O2(g); ΔH 右图表示生长素浓度对植物 A点对应的生长素浓度对根\芽\茎都有促进作用 为什么错?芽\茎在生长素浓度较低的时候是什么状态,是促进还是抑制,还是不生长? 一根圆柱形水管,直径为40厘米,水流速度为每秒3米.这根水管每分钟可流过多少升水 把九立方米的沙垫在一个长5米,宽4米得沙坑里,可以垫多厚? 生长素浓度高为什么会杀死植物?为什么?原理? 汉子与中国心“最最能体现汉字中文的这些特别的首推中国的古典诗词“在文中起到什么作用 一个沙坑长5米,宽4米.往里放入4立方米的沙子可以垫多厚 物理题1个(关于电磁感应的)如图所示,正方形线框abcd 边长为L,线圈水平放置,固 定在磁感应强度为B,方向竖直的匀强磁场中,其中ab边是电阻为R的均匀电阻丝,其余三边电阻不计.现有一段长度 变形虫和草履虫的细胞膜基本组成成分相同吗? 一个沙坑长5米,宽4米,往里放入4立方米的沙子,可以垫多厚? 问一条关于电磁感应的物理题在倾角θ的斜面上,放置一段通有电流强度I,长度L,质量m的导体棒a(电流方向向里),如图,棒与斜面间动摩擦因数u 一个长方体游泳池,长50米,宽25米,深4米.要在游泳池每个面上抹上一层水泥,如果每方米用水泥16千克,一共需要水泥多少千克?(求算式) 有黄沙4立方米,把它垫在长5米,宽4米的沙坑里,可以垫后多少米? 下列气体中,有剧毒的是?一氧化碳 二氧化碳 氧气 氮气中华武术博大精深,中国的武术家更是数不胜数,下列候选人中,是谁具有武术家身份而投身于电影拍射,被世界所公认为一代宗师?A 独体字的结构 厅的墙我想做成镜面的玻璃幕墙,请问费用要多少啊?我在沈阳,我家厅一侧的墙体我想做成镜面的玻璃幕墙,深灰兰色那种吧,面积是2.5米*4.2米,中间带一个正常的门,推开的,或者平开的门都行,大 一道物理电磁感应题目水平面内固定一U形光滑金属导轨,轨道宽d=2m,导轨的左端接有R=0.3Ω的电阻,导轨上放一阻值为R0=0.1Ω,m=0.1kg的导体棒ab,其余电阻不计,导体棒ab用水平轻线通过定滑轮连接处 小孩子早熟怎么办? 换个手机玻璃多少钱? 一道物理电磁感应的题目...将一个正方形线框放在均匀变化的磁场中,线框平面垂直磁场,线框中产生的感应电流为I1,现在将这个线框换成同样阻值且边长为原来2倍的正方形线框,仍放在原来均 最能体现汉字中文特点的首推中国的古典诗词,一个中国孩子在很小时候就能背诵的古典诗词:冬天下雪时吟“_________________,___________________”思念家乡时吟“_________________,___________________” 玻璃险多少钱 夏天----植物的世界(阅读答案) 一个长方体的游泳池长50m,宽20m,深2m,要在四周和池底抹一层水泥,每平方米需要3千克水泥,需要多少水泥算式过程写出来 中国有多少个简体中文汉字? 体现汉字特点的古诗有那些 在汉字与中国古典诗词中,作者对汉字是一种什么样的情感 CO和H2的混合气体中含有少量CO2和水蒸气,可按下列实验步骤,证明CO和H2的存在:(1)将混合气体首先通过① ,目的是② ;(2)将由(1)得到气体,继续通过① ,实验中观察到 请分析这句话,看不懂Writing this book was anything but simple, an irony that has not been lost on me. 草履虫的表膜是细胞膜么 人类的利益不应该建立在动物的生命上.我总是觉得人类不应该吃动物.但却没人认同.你们觉得呢? 请帮我分析这句话!我看不懂!The goal should be to recapture in the universities and research labs much of the excitement that existed at top-rated departments in the past.请分析这句话的语法!我看不懂! 草履虫的细胞膜又称什么,其功能是什么 动物也是生命,为什么要吃动物的肉?如果有一天 老虎是地球的主人 那它也会吃人类吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘