计算机小学期实践报告,小学期计算机实践报告

小学期计算机实习报告

一、实习目的

通过完成任务，学习并熟悉相关软件。了解并熟悉设计过程，从初步设计到实现到不断完善，掌握设计流程。

二 、实习任务

1、计算器程序

制作一个计算器程序：

支持2进制、10进制、16进制数的加减乘除运算

支持2进制、10进制、16进制数的相互转化

2、自制小闹钟

制作一个小闹钟：

可多次定时进行提示和多次事件提醒(声音提示并弹出对话框进行事件提醒)

3、模拟信号发生器

制作一个模拟信号发生器：模拟信号和载波信号的频率、幅值可变

载波信号可以是正弦、方波、三角波，并且可加直流偏置

调制信号频率、幅值可变

画出信号波形

对该信号采样，并作文件存入磁盘中

可以适用幅度、频率两种调制方式

三、设计流程及源代码

(一)计算器

1)功能实现：用软件vb6.0来编写程序，生成exe程序

打开exe程序后，显示计算器界面，程序有以下功能：

①点击“科学计算”，选择要计算的进制

②点击“进制转换”，选择原始进制和目标进制进行换算

③点击菜单栏中的“帮助”，弹出使用说明对话框

④点击菜单栏中的“退出”，弹出对话框询问是否退出程序

2)设计流程

①确定使用VB语言

②明确实现功能：

支持2进制、10进制、16进制数的加减乘除运算

支持2进制、10进制、16进制数的相互转化

帮助选项显示程序使用说明

退出系统如若否则返回计算器界面，若确定结束程序。

③安置控件：

选择命令控件分别作为“科学计算”，“进制转换”命令；

用命令控件做数值以及符号输入按钮；

用文本框显示输入的数值；

④设计程序：

对各控件分别进行相应的命令的程序设计

3)源程序部分关键代码：

‘定义变量

Dim Counter As Double

Dim Reg As Double

Dim pi As Double

Dim CalcNumber As Long

Dim DisplayFromNew As Boolean

Dim AlreadyDecimalThere As Boolean

Dim LastClick As String

‘科学计算界面显示情况

Private Sub Command1_Click()

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Command6.Enabled = True

txtDisplay.Text = ""

Frame3.Enabled = False

Frame1.Enabled = False

Frame2.Enabled = False

Text1.Visible = False

Text2.Visible = False

Combo1.Enabled = False

Combo2.Enabled = False

Label1.Enabled = False

txtDisplay.Visible = True

txtDisplay.Enabled = True

End Sub

‘进制转换界面显示情况

Private Sub Command2_Click()

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

txtDisplay.Visible = False

Frame3.Enabled = True

Frame1.Enabled = True

Frame2.Enabled = True

Text1.Visible = True

Text2.Visible = True

Text1.Enabled = True

Text2.Enabled = True

Combo1.Enabled = True

Combo2.Enabled = True

Label1.Enabled = True

Text1.Text = ""

End Sub

‘二进制选项界面现实情况

Private Sub Binary_Click()

Number(2).Enabled = False

Number(3).Enabled = False

Number(4).Enabled = False

Number(5).Enabled = False

Number(6).Enabled = False

Number(7).Enabled = False

Number(8).Enabled = False

Number(9).Enabled = False

Number1.Enabled = False

Number2.Enabled = False

Number3.Enabled = False

Number4.Enabled = False

Number5.Enabled = False

Number6.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

End Sub

‘清除最后一次数值命令

Private Sub ClearEntry_Click()

DisplayFromNew = True

txtDisplay.Text = "0"

End Sub

‘选择原始进制后界面显示情况

Private Sub Combo1_Click()

If Combo1.Text = "2进制" Then

Number(2).Enabled = False

Number(3).Enabled = False

Number(4).Enabled = False

Number(5).Enabled = False

Number(6).Enabled = False

Number(7).Enabled = False

Number(8).Enabled = False

Number(9).Enabled = False

Number1.Enabled = False

Number2.Enabled = False

Number3.Enabled = False

Number4.Enabled = False

Number5.Enabled = False

Number6.Enabled = False

Text1.Text = ""

Text2.Text = ""

End If

If Combo1.Text = "10进制" Then

Number(2).Enabled = True

Number(3).Enabled = True

Number(4).Enabled = True

Number(5).Enabled = True

Number(6).Enabled = True

Number(7).Enabled = True