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

趣味撞球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执行文件了,瞧,小球已经在你的屏幕上蹦来蹦去了。
HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 jQuery消息提示框的简单实现 Mozilla CTO:Mozilla不会转向WebKit 这很重要 Pinterest或超Twitter成第二大社交网站 适合儿童上手的八款编程工具 一周云事件:亚马逊对消费者的吸引力超过苹果 比尔&#183;盖茨对微软创新和手机不满意 让我们一起来做最漂亮的Android界面吧! 响应高达6秒 用户揭露Heroku修改路由“50倍圈钱”? [探讨]响应式设计四大原则 Linux Kernel 3.8发布 停止支持386设备 linux启动不了,Bringup loopback interface时出错,请问是什么原因? 帮帮忙!! 我海军一艘潜艇失事 70名官兵不幸全部遇难!! 明天朋友结婚,征集整人的法子 是谁删除了我贴?? 而且没有跟我说一声!!! 白天工作,晚上溜狗,爽呀!比大暑天喝了冰镇雪碧还爽! 我的jsp服务器是iis+TOMCAT+win2000pro 不知怎的每次用不了多久就显示出 网页无法显示 目前访问该 Web 站点的用户过多,我只是自已用怎么 终于有星了,高兴,散分(第一次散分,请斑竹手下留情) 我的刚装的2000进入启动界面时,进度条读到2/3时就蓝屏了! 请问在运行时向ActiveX控件中添加ActiveX控件的方法是什么? 高手请进:如何在WinNT以上系统进行BIOS读取! 毕业设计的问题,请各位大哥帮小弟一个忙 备份与恢复 数据备份与恢复 我用win2k,下载了php4.3.1,extension_dir是c:\php\ext 可是里面没有php_gd.dll,怎么办,到哪里可以down一个补上? 帮我一下:解决中文问题 新手问题:怎么在用ATL COM WIZARD已生成的dll加入MFC 请问如何删除系统? warton给大家散分来了! 求助,请问哪儿提供的域名空间最好? 新手上路,VB中用ODBC连接ACCESS 关于ORACLE中(多)表的备份和恢复问题 MM``狂给分^*^ 找人一同研究JUnit对于数据库的测试架构 怎样在程序中动态生成数据库(内存库)?求救高手 请问,怎样用本机作web服务器? 这样的夜晚 想起一些故人.... 各位的jbuilder是用什么命令运行的 刚学者求问 python+CGI 如何获得客户端IP Win2000上, 对话框没能弹出到桌面顶层 在静态上下文中不能引用非静态变量? 有没有高手可以举例讲解一下self的各种用法? 一个很困惑的问题:文字处理软件中,字体大小改变时,字符的高度,宽度怎么变化? 移动硬盘在重装系统时忘记拔下来。结果给误删了,求助!没有格式化的! 怎样创建自己的 Cursor ? 请问一下 这个是什么意思 public Properties() { this(null)} 在SQL7中日志满了,如何清除日志. ?????????? 一个编程习惯上的问题 为中国争口气!投中国的长城和布达拉宫一票!!恳请置顶! 菜鸟问题4。。。。 网上现在有没有用ASP.NET做的实例 vc.net为什么没classwizard 有关CDC的一个问题,有代码,请指教! 要陪老婆,兄弟们,给我顶住,我先闪了,..... javascript 能否取得客户端的IP? 关于删除xp_cmdshell的问题 哪儿可以下载vc++.net? 那位兄台能否告诉我如何crack Together Edition for JBuilder !(本人纯属学习之用) Cypress EZ-USB 的问题 急! 为中国争口气!投中国的长城和布达拉宫一票!!恳请置顶! 家里挂镜子好吗 世间安得双全法,不负如来不负卿? Do you know?是一般疑问句吗? 指南车为何人所造? 除哪一种外都是由细胞构成的?A,狗 B,烟草花叶病毒 C,蕨 D,向日葵请说明选择理由哦! 楚王想取笑晏子,却被晏子取笑是什么谚语 7上历史题传说谁造指南车 构成向日葵的组织有 晏子的故事有哪些? 黄帝制造指南车反映出人们可能认识到什么现象? 如图所示,左侧是倾角为60°的斜面、右侧是 圆弧面的物体固定在水平地面上,圆弧面底端切线水平,一...如图所示,左侧是倾角为60°的斜面、右侧是圆弧面的物体固定在水平地面上,圆弧面底端 《我的伯父鲁迅先生》为什么说“四周围黑洞洞的,还不容易碰壁吗”? 余额宝里,在金额相同的情况下,为什么七日年化收益的利率越高,反而收益越少呢?比如说,金额相同的情况下,七日年化收益的利率是4.9940%的收益(2.35)比七日年化收益的利率是4.7960%(2.89)的 他们相爱两年了.They have___each other for 2 years, 四周黑洞洞的,还不容易碰壁忙?这句话怎么理解?(《我的伯父鲁迅先生》) 以余额宝的七日年化利率什么上涨什么下跌.a一定b可能c不可能,数学题 《我的伯父鲁迅先生》课后问题:“你想,四周黑洞洞的,还不容易碰壁吗?”找出类似的句子并解释 世间安得双全法,不负如来不负卿! 《我的伯父鲁迅先生 》四周黑洞洞比喻什么 help!math!已知abcd是正数,且满足a+b+c+d=4,用M表示a+b+c+d,c+d+a,d+a+b的最大值,则M的最小值是多少? correct副词 我的伯父鲁迅先生中“四周黑洞洞的,还不容易碰壁吗?”求理解 help!(5年纪math)有一个长方体铁盒,它的宽与高相等.如果长缩短15cm,就成为表面积是54cm^的长方体,这个长方体的宽是长的几分之几? 单给一个企业的利润表叫进行分析,主要对哪些指标分析呢?在这道题中还有上一年的利润表数据.我想应该是从盈利能力方面着手吧?能具体给几个指标么? I like this pink jacket改否定句;They like the school也改否定句并写出一般疑问句,作否定与肯定回答 MAth promble! help !Why is important to learn to communicate mathematics ? give a real-life exmple of communicating mathematics luck的动词形式,friend的动词形式、副词形式,skill的形容词、副词、动词形式及其反义词 able的名、动、副词形式,simple的名词、副词、动词、反义词 They like super robots(否定句)This pair of gloves is yellow(复数句)The are(horses)in English(提问 math help!)某水坝横截面是等腰梯形,坝顶宽6m,坝高10m,斜坡ΑB的坡度为1:2.现要加高2m,在坝顶宽度和斜坡坡度均不变的情况下,加固一条长50m的大坝,需要多少土方? A:Which sport do you prefer,basketball or baseball?B:I ___ basketball to baseball.横线上填一个单词! 我的伯父鲁迅先生++++++++++++++四周黑洞洞的比喻什么++++++碰壁比喻什么 《我的伯父鲁迅先生》中的“黑洞洞”是什么意思? People on Hainan Island like scuba diving.But do you know what makes it possible for people __26___ under water for a long time?It’s the scuba machine.Then do you know _27___ invented the machine?It was Jacques Cousteau and _28____ friend.Cousteau 如图,如果直线L 的表达式为y=kx+b,那么关于x的不等式kx+b>0的解集是______________如果直线L 的表达式为y=kx+b,那么关于x的不等式kx+b>0的解集是______________,kx+b 参加一次聚会的每两人都握了一次手,所有 人共握了10次手,有多少人参加?这种列方程题目,为什么x-1,x-1是哪里来的?而且x-1为什么和x相乘?并且还除以2? people in Hainan与people of Hainan区别 语文一道题;连( )带( )例;连(蹦)带(跳)英语题目;open your books(改为否定句,但意思不变哦 ) they know what each other is doing.为什么错误错在那里. What's the weather like today?(用in Hainan 进行改写) 海带细胞中积累的碘的方式是什么? 《我的伯父鲁迅先生》问:四周黑洞洞是什么意思? 一只蛐蛐6条腿,一只蜘蛛8条腿.现在有蛐蛐和蜘蛛共14只,共有100条腿.蛐蛐和蜘蛛个有多少个? Open the gate.please 改为否定句,句意不变 Kitty is my sister 对画线提问 Kitty是画线的 5人见面,每两人握一次手,一共要握10次()判断 whats the weather like in hainan 这句话译成中文 “任意四边形都可以密铺”这句话对吗? 有个成语后面两个字是善诱,前面前是两个相同的字,是哪个成语? 一只蛐蛐六条腿一只蜘蛛八条腿现在蛐蛐和蜘蛛共10只共有68条腿蛐蛐和蜘蛛有几只用五年级的方程解 任意四边形都可以密铺吗 前面两个字重复的成语有哪些? 一只蛐蛐6条腿,一只蜘蛛8条腿.现在有蛐蛐和蜘蛛共10只.问蛐蛐和蜘蛛各有多少只? 每2个参加宴会的人见面时握一次手,N个人握了几次 (翻译正确必采纳)I live,is to let people see me not pleasing to the eye of each should be! 民航客机一般都有紧急出口,发生意外情况的飞机紧急着陆后,打开紧急出口,狭长的气囊会自动充气生成一条连接出口与地面的斜面,人员可沿斜面滑行到地上.若机藏口下沿距地面3.2M,气囊所构 的水母、海带,陆地上的蜥蜴、小草等 生物细胞中含量最多的是 英语翻译for people to live anywhere near it.中的to是动词不定式吗不能住人,是不是应该是not to live,为什么这儿要用动词不定式呢 关于机械能守恒的叙述,下列说法正确的是A物体做匀速直线运动,机械能一定守恒B物体所受合力做功为0,机械能一定守恒C物体所受合力为0,机械能一定守恒D物体所受合力不等于0,机械能可能守 初中生物学里有哪些海洋下的食物?例:海带请说出这些的名字, 八条腿的蜘蛛和六条腿的蝉共8只,一共52条腿,蜘蛛多少只,蝉多少只? 关于机械能是否守恒的叙述,正确的是( )关于机械能是否守恒的叙述,正确的是( )A.做匀速直线运动的物体机械能一定守恒B.做变速运动的物体机械能不可能守恒C.外力对物体做功为零时, 阿根廷诊所弄错新生儿 经基因检测才各墨西哥逮捕一名毒贩 怀疑其牵涉多达7韩国“独岛日”举行军演宣示主权北漂办跑断腿准生证 感慨规定是管没有大众汽车宁波新工厂建成投产 年产将达韩国军警联合实施独岛防御训练 以抵御墨西哥逮捕一名毒贩 怀疑其牵涉多达7日本伊豆大岛因新一轮台风向2300人美媒:斯诺登仍掌握美针对俄中展开情报南京科委存在项目经费挪用现象 市民要武昌一高校今年171人因挂科留级 教成都亚非牙科命案宣判 母亲:希望看到女孩被女老师亲了一口 兴奋得不愿洗脸好声音姚贝娜有望与导师那英同登马年春英国王储查尔斯不急于登基 忧加冕成“外媒:斯诺登握有美国针对他国情报活动韩国军警联合实施独岛防御训练 以抵御奥巴马顾问称监控门对美与盟国关系构成外媒:斯诺登握有美国针对他国情报活动英国王储查尔斯不急于登基 忧加冕成“联合国将向叙利亚民众提供28.6吨紧布鲁尔51分创3纪录一战封神 超三名韩国第一体育宝贝 天生尤物横跨多栖刘延东视察少林寺 “洋弟子”展示中国驻美国大使崔天凯就中美新型大国关系发驻乌兹别克斯坦大使孙立杰拜会乌国民教刘云平等加州政要公布一系列打击买春嫖兰州市部分地区自来水监测数据第十三次兰州自来水监测数据第十二次发布 西固关于兰州局部自来水苯指标超标处置最新兰州市自来水监测数据第九次发布 城关海南校车事故8死亡学生下葬 每位家属俄军打捞封锁乌港口报废巡洋舰 上月曾小兴安岭:世界最长森林窄轨铁路“变身熊丙奇:与其说“逃离工科” 不如反思奇瑞巴西工业园下半年正式投产外交部副部长张明考察中央电视台非洲分1981年4月12日 美国航天飞机“1944年4月12日 毛泽东发表《学3月居民消费价格指数同比涨2.4% 2002年4月12日 博鳌亚洲论坛首谷歌眼镜正式接受网购 售价1500美
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘