测绘软件开发实习报告.doc

西南林业大学测绘软件开发与应用实验报告 西南林业大学测绘软件开发与应用实 验 报 告 实验学期2014-2015学年第2学期学院土木工程学院专业测绘工程学号XXX学生姓名XXX任课教师XXX测绘工程系制实验一 开发平台常用部件的使用实验日期_ 2015年5月3日 _得 分_ _1.1 实验项目在窗体上放置一个标签、一个文本框和一个命令按钮，单击命令按钮，则在标签上显示“大家好！”，在文本框显示“欢迎来到这里！”。1.1.1 界面设计1、界面设计截图2、界面设计属性表窗体名控件名属性表属性值Form1Form1Caption我的第一个VB从程序Label1Caption空Text1Text空Command1Caption显示1.1.2算法描述及代码Command1的单击事件进行编程，输入如下代码：Private Sub Command1_Click()更改文本框内容Label1.Caption = 大家好！Label1.FontName = 宋体Label1.FontSize = 15Label1.FontBold = TrueText1.Text = 欢迎来到这里！更改文本框内容Text1.FontName = 黑体设置文本框字体Text1.FontSize = 16设置文本框字体大小Text1.FontBold = TrueEnd Sub1.1.3 调试过程及实验结果1、实验结果截图如下：1.1.4 总结本次实验主要练习了标签、文本框和命令按钮的显示，本次实验比较简单，用时也较短，中间没有出现什么问题。通过本程序，掌握了利用VB进行程序设计的整个流程。本次实验附件包括：程序源代码、可执行文件。1.2 实验项目熟悉新建工程和窗体1.2.1 界面设计实验结果截图如下：1.2.2用三种除法运算（/,mod）做计算实验结果截图如下：Dimbeichushu,chushuAsSinglebeichushu=Val(Text1.Text)chushu=Val(Text2.Text)Text3.Text=beichushu/chushuText4.Text=beichushuchushuText5.Text=beichushuModchushu1.2.2 熟悉多窗体的操作实验结果截图如下：Private Sub Cmdexit_Click()Unload MeEnd SubPrivate Sub Cmdok_Click()If txtname.Text = lx And txtpassword.Text = 1234 ThenForm2.ShowMe.HideElseForm3.ShowUnload MeEnd IfEnd SubPrivate Sub Command1_Click()Form1.ShowUnload.ShowEnd SubPrivate Sub Text1_Change()Text1.Text = 软件资源 & vbCrLf & 软件资源End SubPrivate Sub Form_Load()Unload MeEnd Sub1.2.4 简易计算器的程序设计实验结果截图如下：Private Sub Command1_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val(Text1.Text)num2 = Val(Text3.Text)op = Trim(Text2.Text) Select Case opCase + result = num1 + num2Case - result = num1 - num2Case * result = num1 * num2Case / If num2 = 0 Then MsgBox (运算符不能为0，请重新输入第二个数) Text3.Text = Text4.Text = Text3.SetFocus Exit Sub Else result = num1 / num2 End If Case Else MsgBox (运算符不符合要求，请重新输入运算符！) Text2.Text = Text4.Text = Text2.SetFocus Exit Sub End Select Text4.Text = result End SubPrivate Sub Label2_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val(Text1.Text)num2 = Val(Text3.Text)op = Trim(Text2.Text) If op = + Then result = num1 + num2ElseIf op = - Then result = num1 - num2ElseIf op = * Then result = num1 * num2ElseIf op = / Then If num2 = 0 Then MsgBox (运算符不能为0，请重新输入第二个数) Text3.Text = Text4.Text = Text3.SetFocus Exit Sub Else result = num1 / num2 End If Else MsgBox (运算符不符合要求，请重新输入运算符！) Text2.Text = Text4.Text = Text2.SetFocus Exit Sub End If Text4.Text = resultEnd Sub1.2.5 单按钮和复按钮的使用实验结果截图如下：Private Sub Command1_Click()Dim zihao As IntegerDim ziti As StringIf Option1.Value = True Then zihao = 16 Else zihao = 20End IfIf Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfIf Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfIf Option3.Value = True Then ziti = 宋体 Else ziti = 黑体End IfText