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

趣味撞球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资料 跟我学用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资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 我想去北京找个工作,请大家帮帮忙,提供点信息! 装了“猫”为何还有630错误(电话线也接了)? excel 問題 各位:数据窗口有一检索变量,现在想retrieve出所有的记录,检索变量应该怎样赋值?谢谢! linux和windows是不是只能分别装在两个分区中 关于图像处理:如何使图像锐化与柔化? 帮帮我啦! 我在使用jdbc读取数据的时候,碰到了内存溢出的问题,怎么回事呀 哪里有餐饮系统的介绍?90不够的话,先欠着,多谢了! 在两个ASP程序之间怎么传递参数? ccl2000(不帅不酷的Goblin):其实你真的很酷很帅的。 大侠帮帮我啦(关于SQL语句的问题) 关于Vxd的编译问题 用VC编的程序,一运行就说“执行非法操作”,问题出在哪里?? SQL Server有病 一个关于api的简单问题 《易佳自定义报表》用后很失望 请教各位高手一个有关报表控件的问题? 小妹向大家请教!可不可以直接在本页的代码中改变该页面浏览时的属性? 家菲猫:惊悉你昨晚惨遭不幸,被窃大量钱物,今日一天无法和你联系上,估计手机和通信录已全部丢失,如果今晚无法来我处,明早8点以前请务必携猫 MM 赶到上海南站!!! MDI文档模板和应用程序调用问题请教,大侠请进! 一个c++问题???? 请问各位高手,sqlserver2k加密的存储过程是否能解密,看到它的实际的语句?可否能跟踪加密的存储过程? 我下载了一个formula one ,发现她的界面跟excel差不多,在pb中怎么用? 高分求XML 高级编程(足本)[01.pdf到10.pdf]!!!! 招聘汇编程序员 ie 中true dbgrid 的问题 急招聘汇编程序员 关于WINDONWS文件夹 WIN2000有关用户管理的问题 谁可以告诉我怎么调用已有的EXE文件。 有谁知道广州或南海的高级程序员考试的辅导点 如何把系统时间作为一个文件的保存名? TURBO C语言对磁盘操作的问题 着急招聘汇编程序员 为什么大家得的都是0分? 这行代码是什么意思: 不知怎的,不小心访问到一个网站。我已设为使用空页,可它还是要先启动,画面又恶劣,怎么办? 还是关于从字符串中提取汉字的问题,我是从*.txt取出一个字符串(readln),结果无法提取汉字 请大家帮忙,白送分的 为什么我无法安装win2000??? 如何只显示数据库中的最后一条记录?(只显示一条) delphi中编的COM控件如何在WWW服务器上使用? 如何运行时拖动一个控件,如BUTTON等。 别兴奋了,进入正题吧!老是报到什么的,快讨论呀! 着急死我了 请大家帮我编译一下这个程序吧!!! 读日志文件函数ReadEventLog怎么用,每次调为什么失败?数据结构怎么定义?怎样读已知记录号的一条日志?请检查以下函数为什么不正确? 请问怎样实现菜单的渐变?就是鼠标移动到一个菜单的时候就出现一个渐变的选单背景。谢了。以后加分。 请问哪里有下载VS.net beta2 ? hehe着急 “理想”对于人生具有怎样的意义?十万火急, 为什么酸碱盐溶液能导电?既有正离子,又有负离子,这不就乱了套? 钠的熔点和沸点是高还是低钠的熔点是97.81℃和沸点是882.9℃ 章目的意思是什么 说明文的定义是什么?说明对象的特征是什么? 酸碱盐的水溶液导电时,溶液中作定向移动的是 告诉我你的理想是什么 蒸馏和分馏有什么区别? 酸碱盐的水溶液导电的原因 你的目标理想是什么? 分馏和蒸馏的区别是什么? 电解质溶液导电是物理过程还是化学过程?原理是什么呢? 嘎子有哪些理想?分别是什么 分馏是什么?与蒸馏有什么不同? 电解质溶液的导电过程属于物理变化? 方向是什么意思 蒸馏与分馏有什么区别? 金属导电是物理变化吗 论文选题的目的 意义 怎么写? 过滤,结晶,分馏,萃取,分液,蒸馏的区别 为什么海水晒盐属于物理变化?为什么米饭烧焦属于化学变化? 发布文章最终目的是什么?发布文章的目的是的让百度收录就可以了是吗? 请问:分馏与蒸馏之间的区别是什么?感激不尽! 海水晒盐是物理变化还是化学变化 论文选题的目的和意义我的论文题目是《正当防卫与防卫过当》请帮我谈谈选题的目的和意义!小弟在这里谢谢你们了! 化学中【蒸馏】【分馏】【萃取】分别是什么啊?有什么区别啊? 海水晒盐是如何变化的?其中有没有化学变化? 两会是什么?两会的目的和意义是什么?作文500字 石油裂化,裂解,煤干熘,石油分熘,皂化反应,具体都是什么, 海水晒盐属于化学中的蒸发吗?我的问题不涉及海水晒盐是否属于化学变化,是想知道蒸发必须加热,而海水晒盐不需要加热,即海水晒盐属于蒸发吗? 论文的意义和目的大神们帮帮忙我写了关于社会保障与社会和谐的论文,谁能帮我写下研究这个课题的目的和意义啊 熔融状态下的氯化钠,离子键已经断了,再使它导电,不就是离子的定向移动吗.我觉得应该不是化学变化呀啊 海水晒盐是化学变化吗 互联网是哪种语言编的 NaCl水中溶解电离电离后为什么一个Cl-周围有6个水分子Na+周围有5个水分子 熔融盐和电解质溶液导电为什么是化学变化 给我的幻想打了一个零分是什么意思?其中幻想可以换成理想吗?为什么? 下列物质溶解在水中,能电离出氯离子的 A.NaCl B.HCl C.KClO3 D.AgCl这种题都怎么做的,是背下来的吗 溶液导电变化分析用如图所示装置分别进行如下实验,测定导电性变化,请按照要求选择填 空.A.导电性变化不大 B.导电性明显增强 C.导电性明显减弱 D.导电性由强到弱再到强 (1)向 AgNO3 溶 军旅题材的电影电视剧里的“十点钟方向”或是几点钟方向等等,我们常常在军旅题材的电影电视剧里听到多少多少方向的,这个方向是什么方向?如果判断、辩别? 在化学中,Nacl在水中电离时,会跟水分子,水的离子发生什么反应?又生成什么? 氯化钠溶液与硝酸钙溶液能否发生化学变化理由是( ) 看战争电影时总听到说方位在几点钟方向,具体是怎样的? 初中化学 氯化钠溶解在水中电离成氯离子和钠离子 就不是以氯化钠这个化合物的形式存在的 这是溶液的性质改变了么 还是氯化钠溶液?既然都已经散了 不是氯化钠了 怎么还是氯化钠溶液详 熔融食盐是否为为电解质,能导电吗?说明一下 谢谢 一直闹不清楚电影中说的几点钟方向是什么意思? 氯化钠溶于水成为自由移动的离子是化学变化,那没生成新物质啊 电解质溶液或熔融电解质导电的原因是什么?导电的实质是什么? 电影中所说的几点方向是什么意思 NaCl在水溶液中电离是不是化学反应? 煤的气化是物理变化还是化学变化 美国战争片上经常说的十点钟方向,那这个几点钟方向是什么意思?如题 氯化钠的电离把氯化钠加热到液态就能电离出氯离子和钠离子,那么继续加热到氯化钠气体是不是还能继续导电呢?为什么呢意思就是氯化钠气体是不是也能电离出钠离子和氯离子 煤的气化为什么不是物理变化 理想的含义.特征及其对人生的意义? 酸碱盐的水溶液导电原因 硅的熔点比铝高,沸点比铝低,这是为什么?物质由固体变为液体和由液体变为气体所克服的作用力具体有何不同? 理想集成运放具有什么特点?A.开环差模增益Aud=∞,差模输入电阻Rid=∞,输出电阻Ro=∞B.开环差模增益Aud=∞,差模输入电阻Rid=∞,输出电阻Ro=0C.开环差模增益Aud=0,差模输入电阻Rid=∞,输出电阻Ro=∞D 酸碱盐的水溶液靠什么导电?大家不要想得太麻烦.【最好给个原因啊... 有没有什么材料的熔点比较低,沸点非常高的比如熔点只有1~200度 沸点却在2000度以上的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn