欢迎来到天天文库
浏览记录
ID:30793075
大小:158.18 KB
页数:14页
时间:2019-01-03
《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
此文档下载收益归作者所有