vb实现简单的计算器和时钟实验报告

vb实现简单的计算器和时钟实验报告

ID:30793075

大小:158.18 KB

页数:14页

时间:2019-01-03

vb实现简单的计算器和时钟实验报告_第1页
vb实现简单的计算器和时钟实验报告_第2页
vb实现简单的计算器和时钟实验报告_第3页
vb实现简单的计算器和时钟实验报告_第4页
vb实现简单的计算器和时钟实验报告_第5页
资源描述:

《vb实现简单的计算器和时钟实验报告》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、一、实验目的及实验运行环境1、实验目的:掌握VB6.0环境下定时器的使用方法及其作用,绘制非矩形窗口的方法,如何使用对话框;重点掌握VC++6.0环境下各控件的使用方法2、实验环境:VB6.0、VC++6.0二、实验内容利用VB设计时钟,用VB、VC实现十进制数的简单计算的计算器三、实验设计概要1、时钟(1)使用非矩形窗口设计时钟的轮廓,运用鼠标可将时钟拖至任何位置,使用快捷菜单小的退出选项可关闭程序。(2)在对话框中更改时针、分针、秒针及背景颜色。(3)程序运行时时钟显示系统时间,指针运行止常。2、计算器(1)结果显示框重新输入吋需清空。(2)实现简单的四则运算。

2、四、代码设计1、VB环境下时钟Dimr%,h%,m%,s%Dimhh!,mm!,ss!PrivateSubForm_Load()Me.Scale(-200,200)-(200,-200)Linel.Xl=0Linel.Yl=0Line2.Xl=0Line2.Yl=0Line3.Xl=0Line3.Yl=0r=10()EndSubPrivateSubTinierl_Timer()h=Hour(Time)m=Minute(Time)s=Second(Time)ss=6*smm=(m+s/60)*6hh=(h+m/60+s/3600)*30Linel.X2=r*0.5*S

3、in(ss*3.1415926/180)Linel.Y2=r*0.5*Cos(ss*3」415926/180)Line2.X2=r*0.4*Sin(mm*3.1415926/180)Line2.Y2=r*0.4*Cos(mm*3.1415926/180)Line3.X2=r*0.3*Sin(hh*3.1415926/180)Line3.Y2=r*0.3*Cos(hh*3」415926/180)EndSub2、VC++环境下计算器的代码//计算器IDIg.cpp:implementationfile#include"stdafx.h"#include"计算器l.h"i

4、nclude“计算器IDIg.h”#ifdef_DEBUG#definenewDEBUG.NEW#undefTHIS_FILEstaticcharTHIS_FILE[]=_FILE_;#endif///////////////////////////////////////////////////////////////////////////////CAboutDlgdialogusedforAppAboutclassCAboutDlg:publicCDialog{public:CAboutDlgO;//DialogData//{{AFX_DATA(CAboutD

5、lg)enum{1DD=IDD.ABOUTBOX};//}}AFX_DATA//ClassWizardgeneratedvirtualfunctionoverrides//{{AFX_VIRTUAL(CAboutDlg)//DDX/DDVsupportprotected:virtualvoidDoDataExchange(CDataExchange*pDX);//)}AFX_VIRTUAL//Implementationprotected://{{AFX_MSG(CAboutDlg)//}}AFX_MSGDECLARE_MESSAGE_MAP()};CAboutDl

6、g::CAboutDlgO:CDialog(CAboutDlg::IDD){//{{AFX_DATA」NIT(CAboutDlg)//}}AFX_DATA_INITvoidCAboutDlg::DoDataExchange(CDataExchange*pDX){CDialog::DoDataExchange(pDX);//{{AFX_DATA_MAP(CAboutDlg)//}}AFX_DATA_MAPBEGlN_MESSAGE_MAP(CAboutDlg,CDialog)//{{AFX_MSG_MAP(CAboutDlg)//Nomessagehandlers〃}

7、}AFX_MSG_MAPEND_MESSAGE_MAP()IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIU//CMylDigdialogCMylDlg::CMy1Dlg(CWnd*pParent/*=NULL*/):CDialog(CMy1Dig::IDD,pParent){//{{AFX_DATA_INIT(CMy1Dig)//NOTE:theClassWizardwilladdmemberinitializationhere//}}AFX_DATA」NIT//N

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。