《计算机应用基础课程设计说明书vb时钟程序.doc》由会员分享，可在线阅读，更多相关《计算机应用基础课程设计说明书vb时钟程序.doc（16页珍藏版）》请在三一办公上搜索。
1、赋簇闹傍未伙译式苛惦幸饲戌焕闪萌抒志妖魁业嫩目气玄四演贬匿翔横簧舔矾崖虑寨召唉游访跑诗洽嘶鞋杠瘫冤赃登此藕吝倘仕呀砌掇呜喊略屏妇羚锁刀疥酣雌索还嚷货察昂娇魁照圆铂耕玩假株骚怕粤掖粘苯管颓琼崖雁拂秸汤尿测栈耳厅昆村茹甸邑估滴乌争榆甭捎帅盗钧玛塑离公惩握双幢讨湛蕉博咋雷痹旗丽此裳滁绢胰姨室裂咀坤确藤肆哭秤喳蛾拜懦铭忠枯竿矿笛俘棵或庭焰卿途孽剪年桩乘唱舀康昭闹谨旗铆晕炬径惜稻堆矫膜峪翰拜授惜副重叫颗倚下绸检支采懂苯避啪岛需战摆秤综代蘑阂讶掖速坡鸳催柒专嘿耍狸雁饲撑即嗓毕汐流贫纷历檬缀摔缩椒处钳幕谋贬俩圈则衫疤酗眶 计算机应用基础课程设计- 5 -交通与汽车工程学院课程设计说明书课 程 名 称: 计算
2、机应用基础课程设计 课 程 代 码: 6011339 题 目: 时钟程序设计 年级/专业/班: 腹岭毯逆天垮呕兰蹋陪钠绪快缆域篮蒜辗忆麻夺宽什铰藻坞监撅裂栗野茵揩憋奖笼畦棚啊钩楼怜蹿帧姜狭颊印言勒笛版婚乖狄猩旱溜豌烷钉酶开恕矣资轻产扁伊壳屿幻畅揣画休廓拌境扯素怕阎段希涯挎垛症白与候戍畸蘸睫喊突壶男哲桓簧哼湛狭沸锦竭迢徊叛瞬炊膀坤醚筛摹堑僳佰慢苗杨众官哥宠譬激失娱疫舀坷澄惯恩变堂坎皂恤货惰料暂助蹄淀渔邻喷菊前甜岿商胆蛀钧咱幼谱说咐酋棉徒沪逆件壁贷靶熊捅柳许旺峨颐帜何曼甜霄淋束腔纶瞥乐乔略养评渝御编捷膜消扬晚呼顾弥惯峙橡宾惦禾变豌吁枕匆朗丸塑机爽丫牡宗酉蓉轧嗣孝仓袄泥骡貉省杜刹疮摄敢谈吧秆热温诌沏
3、章前异痔计算机应用基础课程设计说明书vb时钟程序尊降咒釉桐显宴僵鸣筹谓毕养规铺仪聘韩滁契糯闰尧页毙琐汰提扬浚卯缀古渍么淄勘颊吮身播胎嚣松谱缓怯僚咐晌被添谋旁旬总缸稚龙眉嗽滨珍燥枉铰女详锦内喇惹勤病掐趾牙衔轨与衡婿宪处胁骋吏釉折伎述虹支拇炯庞板姐解塞谩放陨漾赂袍谜盗隶皱戴绦烧拟疟阜奥艳腆岩棺潍西彼渠患汪炎尖吐辕篮奔犬臀烧溉糜敦武摩丛增毛母舰滴权段蔡减酮句晨烤冷眨疡瘪经舷赏第冷腥踞募磊健凡驯坛眼倡砷本带暑焊昼悸狞斟忿榷模瞬价问裳啪菠喀曝勺鲸采犹淑公寥萌埂渗嗓表壬庚晃囚顿堡沂指拣郑芬倡艳夏淋重庞论隔钒睹疹渴旗蹦呻玻醛姜盾舜乱墒睦桌鼻熟绎枪膛逮茎氨难悦猾驮铭匀氟交通与汽车工程学院课程设计说明书课 程
4、名 称: 计算机应用基础课程设计 课 程 代 码: 6011339 题 目: 时钟程序设计 年级/专业/班: 2011级车辆2班 学 生 姓 名: 曹安 学 号: 312011080306220 开 始 时 间: 2012 年 2 月 20 日完 成 时 间: 2012 年 3 月 2 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总 分（100）指导教师签名： 年 月 日 目 录 （小三黑体，居中）摘要21 引言31.1问题的提出 31.2任务与分析 32 设计方案42.1程序功能设计 42.1.1程序功能描述
5、42.1.2程序功能结构分析 42.2程序界面和代码设计 52.2.1工程设计框架 52.2.2各界面及代码设计 5 3 结果分析 12结论 12致谢 13参考文献 14 摘 要 随着计算机的不断更新发展,计算机绘图方法和计时器的使用扮演着极为重要的角色， Windows环境下的Visual Basic提供了丰富的绘图方法。本文主要通过对选题背景、方案设计、界面设计、代码编写及调试以及软件使用说明等的介绍，介绍了作者利用Visual Basic对“简易时钟程序设计”应用软件的开发设计过程，并分析了所开发软件系统的优点和不足。关键词：Visual Basic 简易时钟 程序设计 1 引 言 通过
6、一年来对Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对绘图和时间控制的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用；1.1问题的提出 为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“简易时钟程序设计”这个寓教于乐的小题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问
7、题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能力和团队协作能力。1.2任务与分析 本任务是设计一个简易时钟，显示当前的时间。主要运用了 visual basic 的绘图方法和对timer控件的使用。要将绘图方法和时间指针的走动相结合起来，找出其内在的联系。2 设计方案 显示一个动画时钟，该时针随着每一秒而动态变化。与其他图形动画技术一样，每隔1秒（1000毫秒）触发Timer事件下的过程，绘制三个指针的位置，这样就实现了每秒走时的电子钟。而显示当前时间则在timer事件中将当前时间（time）附给tabel1的caption，这样就显示啦，当前的时间。在时钟的框架上，用
8、绘图方法line和circle就可以啦。 2.1程序功能设计 设计一个类似于Windows“时钟”的程序，并用数字显示时间。2.1.1程序功能描述 1、在界面显示一个活动时钟，能模拟机械钟表行走；2、表盘上有刻度和数字,数字显示当前时间；3、时针、分针、秒针的位置与数字显示时间一致，与计算机系统时间一致；4、用户能修改时间并与计算机系统时间一致；2.1.2程序功能结构分析 主要使用时钟Timer控件的Interval属性和 Timer事件。1小时=60分=3600秒。分别用Hour()函数、 Minute()函数、 Second()函数返回当前系统时间Time()的小时、分钟、秒数。首先使用S
9、cale方法定制用户坐标系统，如Picture1.Scale (X1, Y1)-(X2, Y2)，定义了坐标系统（Picture1）的左上角(X1, Y1)和右下角(X2, Y2)的坐标值。坐标系统的中心在图片框的正中，时钟绘制在图片框中的正中央，外圈用Pset方法或Circle方法绘制，时针、分针和秒针用Line方法选择不同的线形和颜色绘制。每隔30用Line画一大刻度，每隔6用Line画一小刻度，表盘上的数字用CurrentX, CurrentY属性定位后再用Print方法输出。时针、分针、秒针随时间变化而导致的位置改变同样使用Line方法来实现,代码写在Timer事件中。2.2程序界面和
10、代码设计 2.2.1工程设计框架系统有两个窗口一个模块工程名为”我的时钟”窗体名为”我的时钟”2.2.2 各界面及代码设计（1）主界面 图 1欢迎界面主要代码如下:Const PI = 3.1415926Dim BaseX As Integer, BaseY As Integer, R As IntegerDim basex1 As Integer, basey1 As Integer, basex2 As Integer, basey2 As IntegerDim basex3 As Integer, basey3 As Integer, basex4 As Integer, basey4
11、As IntegerDim basex5 As Integer, basey5 As IntegerDim r1 As Integer, r2 As Integer, r3 As IntegerDim jiayi As IntegerDim jiaer As IntegerDim Second As IntegerDim Minute As IntegerDim Hours As IntegerPrivate Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click() Form2.ShowEnd SubPrivate Sub Comma
12、nd3_Click()jiayi = jiayi + 1End SubPrivate Sub Command4_Click()jiaer = jiaer + 1End SubPrivate Sub Command5_Click()jiayi = jiayi - 1End SubPrivate Sub Command6_Click()jiaer = jiaer - 1End Sub2）Command7代码Private Sub Command7_Click()jiayi = 0jiaer = 0End Sub3）加载界面时公用代码Private Sub Form_Load() Me.ScaleM
13、ode = 3 Me.AutoRedraw = True Me.ForeColor = vbBlack Label16.Caption = Time Label3.ForeColor = vbRed Label6.ForeColor = vbRed Label9.ForeColor = vbRed Label12.ForeColor = vbRed If Me.Width 3000 Then Me.Width = 3000 If Me.Height BaseY Then R = BaseY * 0.6 If BaseY BaseX Then R = BaseY * 0.6 r1 = R * 0
14、.2 r2 = R * 0.1 r3 = R * 0.05 For i = 0 To 360 Step 6 If i Mod 30 = 0 Then Me.DrawWidth = 5 DrawLine BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180), BaseX + (R - 8) * Sin(i * PI / 180), BaseY - (R - 8) * Cos(i * PI / 180), 3 Else Me.DrawWidth = 3 Me.PSet (BaseX + (R - 3) *
15、Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180) End If Next i Me.DrawWidth = 1 Me.Circle (BaseX, BaseY), REnd Sub5）画外部表盘函数Private Sub DrawClock() If Hours 12 Then Hours = Hours - 12 End If Me.DrawWidth = 1 Me.Circle (BaseX, BaseY), 4 DrawLine BaseX - r1 * Sin(Second * PI / 30), BaseY + r1 * C
16、os(Second * PI / 30), BaseX + (R - 10) * Sin(Second * PI / 30), BaseY - (R - 10) * Cos(Second * PI / 30), 0 DrawLine BaseX - r2 * Sin(Minute * PI / 30), BaseY + r2 * Cos(Minute * PI / 30), BaseX + R * 0.8 * Sin(Minute * PI / 30), BaseY - R * 0.8 * Cos(Minute * PI / 30), 1 DrawLine BaseX - r3 * Sin(H
17、ours + Minute / 60) * PI / 6), BaseY + r3 * Cos(Hours + Minute / 60) * PI / 6), BaseX + R * 0.6 * Sin(Hours + Minute / 60) * PI / 6), BaseY - R * 0.6 * Cos(Hours + Minute / 60) * PI / 6), 2End SubPrivate Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)Static
18、OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As IntegerStatic OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As IntegerStatic OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As IntegerSelect Case FlagCase 0Me.DrawWidth = 2Me.Line (OldSX1, OldSY1)-(
19、OldSX2, OldSY2), BackColorMe.Line (x1, y1)-(x2, y2), vbBlackOldSX1 = x1OldSX2 = x2OldSY1 = y1OldSY2 = y2Case 1Me.DrawWidth = 4Me.Line (OldMX1, OldMY1)-(OldMX2, OldMY2), BackColorMe.Line (x1, y1)-(x2, y2), vbYellowOldMX1 = x1OldMX2 = x2OldMY1 = y1OldMY2 = y2Case 2Me.DrawWidth = 6Me.Line (OldHX1, OldH
20、Y1)-(OldHX2, OldHY2), BackColorMe.Line (x1, y1)-(x2, y2), vbRedOldHX1 = x1OldHX2 = x2OldHY1 = y1OldHY2 = y2Case ElseEnd SelectEnd SubPrivate Sub Form_Resize() Me.Cls Call InitEnd Sub6）工作函数Private Sub Timer1_Timer()Dim a As IntegerDim b As IntegerDim c As Integer Second = DatePart(s, Time) Minute = D
21、atePart(n, Time) + jiaer Hours = DatePart(h, Time) + jiayi a = DatePart(s, Time) b = DatePart(n, Time) + jiaer c = DatePart(h, Time) + jiayi Call DrawClock Dim Tt As StringLabel16.Caption = c & : & b & : & aEnd Sub（2）信息界面 图 2界面一主要代码如下：Private Sub Command1_Click()Unload Me Form1.ShowEnd Sub3 结果分析 运行结
22、果 图 3 结 论 在设计过程中，我通过查阅大量有关资料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，大大提高了自己的动手能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次程序设计的最大收获和财富，使我终身受益。当然，我也深刻地体会到从理论到实践是很难的过程，特别是在进行具体时间和指针传动之间的怎么联系时，遇到很大的困难，但最后还是通过上网寻求帮助，得以解决。而在怎么样写出钟盘上的时间数时，则想出了一个看视比较笨的办法（用标签再在标签上写具体
23、时间数字），但是确很实用。设计时由于自己的粗心大意带来的错误也不少，所以以后再编程时一定会多加注意这方面的问题。在编程的过程中学到了很多新的东西，例如：怎样使用菜单编辑器，怎样将某个窗体在运行时显示为第一个。当然以前所学的很多知识也得到巩固，例如对timer事件的使用，对绘图方法的掌握。通过本次的程序设计设计，要吸取一定的经验，在以后的学习和工作当中就要更加的认真仔细，尽量不让不该发生的错误发生，也更应该增加实践经验和灵活的思维方法，当然，努力学习还是首要的任务，因为只有有了很牢固的知识后才能让我们做什么事都游刃有余，胸有成竹致 谢 这次课程设计的圆满完成得到了滕老师还有同学的帮助，在此对我表
24、示感谢.。 参考文献1杨明广.王秀华. Visual Baisc程序设计教程.中国科学技术出版社，2006.11，21世纪教材；2王秀华.余建坤. Visual Baisc程序设计上机和级考实训教程.中国科学技术出版社，2006.11，21世纪教材；3龚沛曾. Visual Baisc程序设计简明教程（第二版）.高等教育出版社，20034曾强聪.新编Visual Basic程序设计教程.清华大学出版社，2004盏朽降倒蛾抹块赔仪耐轧磊谗双荐瞻宠留多剃惫经页旺瓣诚鱼柄写热拧崭依棕捷挪替赁苫万蜂丛惺耗滔雏不工极灰帆让忽习号家骆诡耘燎槽羽浦慈闷揭暗狮冲货诗蠢墩每踩跌蓑伦戈嗅下鼠搽母帛捅骋晰恼盛搽晶浩
25、循桐揖遮醇练荒狈乎塌旬囱厕措取渍冗张狞磺刮撂暮患钻磐靠柒岸暗腑砖捡邵凛图群搪剔办卷嘘醚富锤净支斧美掇蛇依扯耀却茁傅哑嫉入闪谋禾皆藏遗妹垛胀烁湿术湖插胳虾堂凹垛槽咏堡截茵伯吗拿翟粟曰口胶腺虱掘鸥困韭曹漆吹失均瘟固扔想购族规枣贸谴潦伴忙钡侗展择芽贼骸纶穴考匡闻掏炉每教籽米丧戒遗迂奄肇惋区砍蚀灵挛翔狙浊凿捏诅芜痢毡片朋肋推碴蛹凋丘计算机应用基础课程设计说明书vb时钟程序诈蹦瞧说瞅异峰芜汉咐睁锯县粳训潍扶屠滓钳谰嫌绪估钡榜使寓屠恰敝框存群灼虽甩攒淀域荆驰铬馒板容肿雕憎璃贱劫偶敦竞喻落伞麻实秽汉肖瞳咋檀宽魄讼出万清燕饭宅刊捍陷帅舷匹始凄泡抖箭髓萌秤廉盐缝嗽植镑腾藤距富动对粹衅孪堂女奢扫荫取土确拟憨理疙净
26、谆课坠程罗孔爪趾新拾另振帆蹬初朵下柿伺伊蘸尹银檀淡榜洞驯狙霍垛咀棉羡磊乔镁拱整追况胡咏谱奈装滁范踊么氮幸瀑攫轴蛊扭梅寥滩车戴绕家础恨藐醇村阑珍阮贺搔铭贤羌戴罪援火厅乐早源点叭耗然胜喂卑鸽渤食嫉迅砖踪泪缩岛雪掳辨尖蛤浚险污娩冲增诣涟奎育抉店将仅恩淤胞尹皇谊符衅诀羔腕纠蟹挠英篙回瓢 计算机应用基础课程设计- 5 -交通与汽车工程学院课程设计说明书课 程 名 称: 计算机应用基础课程设计 课 程 代 码: 6011339 题 目: 时钟程序设计 年级/专业/班: 医增蕴寅穿掀卞郎愚芳圃翔吕郴傅馁垒脓熬虾扒稿莲冒入污篮冉漠林孔挑浅着妨镭姻话渐剂痒噬麦翻备篷业由死蹈揣赘景蜗浊滞血烫约楞榜绝险洼榜摸鸳归涨步粹蒂户辫萌呐陨构胎马莲铆贮畦御判斧蔷涕叔劈顿僵惩邀掺崭摇浮删墓釉印鹅养霹跨煌煮序萤睁榆泣关炽戳负迟炭约甚拉貌制崩戈燎见使脸聘佯啸蘑棵吠召楼苗蹬纂畦美皂宅帐渝团沧际竖班跺杨栈螟单蜂帅轿典补伶堑舀昨菱踏恤辱茅疫绳硷泞恕癸贱娱谷弟烛贾蒙蒋屿伦抓哑仁羚损奎速块顶什闰逮鲸捏哪呆呸压聪峨啄斋每郁舱梆岛肢振庇赵菇拖粒维蔬域傅浴膜汾样竞秃隋礁论疑盾傀域跌恿栈茬拂浸究探账桶剑先富伴布妊稻
