.net程序设计报告1
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《.Net程序设计》实验报告
电子商务专业班姓名：实验时间：13年05月16日
一、实验目的：
简单程序程序设计，了解程序的基本过程
二、实验内容：
参考第二、三章实例编写简单的程序，要求具备一定的功能和界面。
三、操作步骤：
1.新建项目——“windows应用程序”。
2.选择form1在其属性中设置“BackGroundImage”，导入图片“发射场.jpg”；“Text”
设置为“火箭发射”。
3.在所有windows窗体中选择“Timer1”，添加到form1上，在其属性中设置：“Interval”
为“200”，“Enabled”为“False”。
4.在所有windows窗体中选择“PictureBox”添加，在属性中“Image”，导入图片“火
箭.jpg”.
5.在所有windows窗体中选择“Label1”添加，属性“Text”设置为“6”，“BorderStyle”
设置为“Fixed3D”。
6.在所有windows窗体中选择“Button1”添加，属性“Text”设置为“准备”。
实现需要相应代码：Public Class Form1
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 400
i1 = Val(TextBox1.Text)
i2 = Val(TextBox2.Text)
i3 = Val(TextBox3.Text)
i0 = i1 + i2 + i3 + i2
Timer1.Interval = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer, dx%
Dim k%
i = i + 1
If i <= i1 * 10 Then
PictureBox4.Image = PictureBox1.Image
k = 1
ElseIf i <= (i1 + i2) * 10 Then
PictureBox4.Image = PictureBox2.Image
k = 2
ElseIf i <= (i1 + i2 + i3) * 10 Then
PictureBox4.Image = PictureBox3.Image
k = 3
ElseIf i <= i0 * 10 Then
PictureBox4.Image = PictureBox2.Image
k = 2
If i = i0 * 10 Then i = 0
End If
If k = 3 Then
If dx < 4 Then dx = dx + 1
Else
If x > 130 Or x < 100 Then
dx = 4
ElseIf x > 120 Then
dx = 3
ElseIf x > 110 Then
dx = 2
ElseIf x > 100 Then
dx = 1
Else
dx = 0
End If
End If
x = x - dx
If x <= -100 Then x = 400
PictureBox5.Left = x
End Sub
End Class
7.运行结果：
8.
四、实验收获和建议：
基本上实现了选课系统的主要内容，并较深入体会了.net的编程过程，尤其是对vb2008中各个控件的使用和操作。在整个设计阶段感受最为深刻的是掌握学习的方式和解决问题的方法。