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

趣味撞球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执行文件了,瞧,小球已经在你的屏幕上蹦来蹦去了。
封面的设计 -VB资料 改变 Win95 的 Shell -VB资料 改变墙纸 -VB资料 格式化磁盘 -VB资料 跟我学用ActiveBar-VB资料 VB获得IE的版本号 VB获得Windows启动方式 VB获得打印机驱动程序的设定 VB获得当前计算机上的区域设置 VB获得当前用户名 VB获得分区信息并判断是否有CD VB获得某个文件夹下的所有子目录 VB获得驱动器的卷标 VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 如何在Edit中判断光标是否是在字符串的末尾? 小弟想学java,怎样才能入门,请高手指教,谢谢!!! 急!!VB如何实现让windows2000休眠??? 为什么win2000 Prefessional下安装了补丁2就打印不出? 我把flash文件生成了.exe文件,但我想打开它时就是全屏显示的,请问怎么做? 谁帮我理清一下所有的修饰符的搭配情况啊?比如public不能和private连用,而static可以和native连用. 在TabCtrl对象中动态Create了一个Button(父窗口为TabCtrl对象),但是MAP的ON_BN_CLICKED (IDC_PUSHBUTTON, OnButtonClicked)消息却没有任何反应?其他对象的ON_NOTIFY消息有反应的! 第一页可根据查询条件正常显示,第二页就不受查询条件的限制,开始显示数据库里的所有内容(其实第一页的内容还没显示完)查询条件不能传到下一页 大家都会遇到的问题:程序打包以后太大!!!!请大家来讨论、解决!来着有份! JB5中的classpath! 谁可以给我一份报价文档 有人能介绍几本学习ATL的好书 javascript中调用jsp 如何显示剪贴板的内容 各位前辈好.我有个关于TCP/IP协议应用的问题,请大家指点. 除了本站好象很少有人讨论日志文件的,能介绍点好的website吧(国内外均可)谢了先 用什么软件制作和修改.chm文件阿?? 问个弱问题:web服务器和数据库服务器不用同样系列的东西会有问题吗? createbitmap()里頭有五個參數,最後一個參數怎麽設置?我看了英文和中文的解釋都理解不了,誰能給個例子出來呀 如何添加自定义的ToolBar.怎样在命令菜单被check时随意显示和隐藏该工具条?急! 在线等,为什么我的代码原来可以运行,现在不可以了????TextPad 用GetCommandLine()得到的文件名是c:\test\YTEX~1.XY,而我的实际文件名是c:\test\y.txt.XY,我该怎么办? 急急急...为什么我拨号已经拨通了,但我还是打不开网页,ping各个网站也ping不通 各位前辈好.关于TCP/IP协议应用的问题,请大家指点. ***软件加密,急急急!!!请高手指教*** 寻找与CSDN类似的社区软件 谁有SCJP SL-275的原版电子版教材? 标准C程序中调用类的编译错误 access的mdb数据库如何编程知道里面含有那几个表? 谁有瑞星的升级程序,或是授权ID什么的?现在瑞星升级很烦啊!又是注册,又是授权的。 好象很少有人讨论日志文件的,能介绍点好的website吧(国内外均可)谢了先 Ghost之后,20G只剩下一个2G的C:!!!如何恢复,请指教,多谢!!! 我是初学者,问一个比较傻的问题:既然JAVA是一种纯面向对象的语言,那么为什么int i=new int()或int i=new int(1)不能通过编译?谢谢。 哪位能讲解一下,WEB服务器启动一个PHP 脚本的过程? 哪位朋友有没有做过让asp自动生成 Access数据库中的一张表 现想做一模块,主要是对股票数据在网络(包括公司内部网或是INTERNET)进行实时的发送; 关于DcomConnection的一个问题:连接局域网其他机器的应用程序服务器时“拒绝访问” 在VisData中正常通过,但在程序中不能通过,为什么 图像的小波分解和重构,模极大值算法。 师傅不在QQ,在这里吗?有个问题.//小新的徒弟. 老千,上次的那个rose下载网站,你还记得吗?偶忘了,搜索了几遍野没找到//牛虻 在VisData中正常通过但在程序中不能通过,为什么 向各位高手请教两句:tab_1.post selecttab(3) 的作用是不是向tab发送消息,消息内容是selecttab(3)?yield()是不是从消息中查找是否有相同消息,如果有则将它拿出执行? 我很莱,谁能给我简单的解释一下线程是什么?脱壳是什么? 图象资料,轻而易举30分! 和大家交流一下泛型化编程 文件拷贝的简单问题, 大家好:请问:access的mdb数据库如何编程知道里面含有那几个表? 怎样将mysql驱动加到jbuilder中,让Database pilot能认得出,高分相送 高分求教:关于ADO实现数据库!!!!!!!!!!谢谢 请问如何一次删除数据库中的所有数据? 踢毽子的好处? 气缸气动缓冲和机械缓冲有什么区别 智能气动标记机压力不大,怎么调啊 踢毽子对身体有什么好处? 带导杆气缸有哪些优点 切纸机压力改气动我的是开印刷厂的,用的是半开拉杆切纸机,想把压力部分改成气动的,问一下这个方案可行吗?如果能改,气泵和气缸都要求什么标准的? 踢毽子的好处?帮我解答一下吧!各位帮我一下! 带导杆气缸有哪些? 液压机和气动压力机的区别我们客户要买压力机,英文hydraulic press,请问气动的开始固定台压力机和液压机除了动力源不一样外还有有什么区别?从功能上讲是否是一样的?哪种更先进一些?价钱 一个骑自行车的人,沿长5米高3米的斜面下滑,车人共重700n,求使车沿斜面下滑的力 驾驶装有abs 系统的机动车怎样采取紧急制动? 气动压力机,压力不足是怎么回事 某同学选了一个倾角为的斜坡,他骑自行车电荷量为q的正电荷,均匀分布在由绝缘材料制成的质量为m半径为R的均匀细环上,现设法加外力使圆环从静止开始,绕通过环心垂直于环面的轴线匀加速 ABS详细的含义是什么?具体作用是什么?没有ABS系统,车辆有什么危险?意向车型:大众 朗逸比对方面:操控度 气动压力机的工作原理是什么啊? 什么设备能用到气动元件(气缸 电磁阀等)越详细越好 气缸的公差与配合 有没有可能在外部测量汽车轮胎气压?不在轮胎内安装传感器,而是通过对轮胎的外部分析,或者直接用传感器接触轮胎表面测得轮胎的气压呢?不需要精准,只要大概数值. 二位三通电磁阀 二位二通电磁阀 怎么翻译成英文? 气缸的圆度误差 管材压力试验机有哪些标准? 电磁阀的英文怎样说? 什么叫汽缸的圆柱度误差?我要书面的表达,不要口头上的,因为是做试卷的, 汽车轮胎气压多少正常? 电磁阀英语翻译请各位知道的说一下具体的翻译.冰箱用的电磁阀上面的.线圈骨架:线圈包塑:求以上两个电磁阀上名称的英文翻译.最好正宗一点,英文单词少一点. 那个600MM长气缸怎么做到能再任意位置精确定位啊,误差不大于1毫米的.现在有没有已经成熟的产品能用在这里啊?为什么气电伺服控制器没有成品吗?百度上找不到. 为什么汽车轮胎的气压前后不一样 “电磁阀” 英语怎么说?“电磁阀”是家用可燃气体报警器的组成部分, 有更好的说法没?谢谢各位高手帮助~ 气缸,“气缸带位置感测”请问这个“位置感测”在气缸中具体起什么作用?FESTO标准双作用气缸,型号DNC-32-380-PPV-A,型号中的A表示带位置感测 求汽车上所有控制器,和带PCB板开关、灯等得安装位置和作用. 进口气动球阀,进口不锈钢气动球阀哪家好啊 冬天汽车轮胎气压应该在多少? 在用干电池,小灯泡开关接入的位置不同,对灯泡的控制作用是否发生变化?1.做出实验电路图2.写出实验方案过程及结论(快!) 角行程气动球阀和直行程气动球阀比较想问下角行程气动球阀,和直行程气动球阀,它们在性能比较,哪个更好些我是说气缸一个是直行程,一个是角行程的 汽车轮胎一般应该是多少个气压? 在串联电路中开关的作用是--------------------------------------.开关的位置的改变会影响对各灯的控制在串联电路中开关的作用是--------------------------------------.开关的位置的改变(会不会)影响对 某同学在水平公路上骑自行车,当车胎发生缓慢漏气时,车胎对地面的压力和压强( )A 压力和压强不变 B 压力和压强都变大C 压力不变,压强变小 D压力变小,压强变大 教练车最前面两个小镜子有什么用我知道是后视镜.不过其他车都没有,我想不需要看.踩下离合器踏板就行了.动力切断就行了. 汽车 前后位置灯 是什么 小明骑车上学,由于车胎漏气,小明的自行车对地面的压力和压强的变化是------( ) A、压力不变,压强小明骑车上学,由于车胎漏气,小明的自行车对地面的压力和压强的变化是------( )A、压力 谁能告诉下这是什么车的镜子 压力开关都有什么线 1.某同学在水平公路上骑自行车,当车胎发生缓慢漏气时,(车胎内的空气质量可忽略不计),车胎对地面的压力和压强()A.压力和压强都不变 B.压力和压强都变大 C.压力不变,压强变小 D.压力 物理论文关于车的镜子和灯水平初二左右,主要是写汽车的镜子的反射还有灯就是关于光的反射折射和传播给我个提纲 压力开关的上限和下限是什么意思 小明放学回家在水平道路上骑自行车,发现车胎慢慢漏气,则车胎对地面的压强将( )麻烦附带解释 汽车镜子上的一道线是干什么用的 什么牌子的压力开关好 气动阀门气缸优点? 汽车镜子怎么调 气动上的数显压力开关和真空压力开关有什么区别 机动车在紧急制动时abs系统会起到什么作用 汽车轮胎气压过高对车子有哪些损害?我新手,充气时气压表坏了,过了半月一测量气压600kpa,我靠.我开的是普通轿车.请问对车子有哪些损害?谢谢哥哥姐姐们 压力开关开路是什么意思 物理的压强和V派什么的计算题的公式和讲解我一辈子的事啊 节流阀和调速阀的准确区别 气缸上的调速阀是控制流量还是速度.对气缸工作影响如何.有人说调速阀控制的只是速度.通过改变气体流量来改变气缸的运行速度,对气缸出行压力并无影响.但是, 气缸使用时单向节流阀一般是出气节流,为什么?气缸运行平稳吗? 气缸------这种气动滑台怎么动作的?(图)安装方式是推杆固定呢还是缸体固定的? ------兄弟啊不要随便哪里复制个东西过来好不好啊,这样会误人的. 汽车轮胎标准气压 管接型单向向节流阀排气节流型和进气节流型效果是一样的吗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn