VB课设MP3设计报告

V B程序设计课程设计报告HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】《VB程序设计》课程设计报告（2016 — 2017 学年第 1 学期）题目：排序演示学院：经济与管理学院班级：物流管理1502学号：姓名：指导教师：阮冰时间：起 2017年1月3日止 1月6日一、课程设计基本信息课程代码：05190124课程名称：计算机基础课程设计课程英文名称: Computer-based Course Design课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制剂、物流管理课程类型：必修课先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16二、课程设计目标掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。

通过综合设计要求达到下列基本技能：1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。

2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。

3．系统设计编程简练，可用，功能全面，并有一定的容错能力。

用户界面良好，有较好的输出功能。

在完成课题基本要求后，具有创新型设计，具有一定的实用价值。

4．根据个人的设计调试过程，撰写设计报告。

三、课程设计内容利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。

在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。

四、课程设计要求1.要求每个同学都要认真对待，积极参与。

VB程序设计
课程设计报告
设计题目：_________________________________
学院__________________
班级/学号__________________
指导教师__________________
学生姓名__________________
起止日期__________________
成绩__________________
（目录）
（正文）
一．课程设计题目
二．小组成员
三．系统分析及界面设计
1．
2．
3．
... ...
四．系统主要功能及流程图
五．源程序及功能描述
…………
（注意：源代码中要求在必要的地方加注释）
六．课程设计体会
（可以从以下方面考虑：1、具体叙述课程设计中的收获。

2、程序设计中的闪光点。

3、程序设计中遇到的困难以及是如何解决的。

4、程序仍有哪写需要改进的地方以及改进的思路。

）
参考文献：
按参考文献规范列出各种参考文献，包括参考书目，论文和网址等。

第2页。

沈阳航空航天大学课程设计任务书学院：机电工程专业：机械设计制造及其自动化班级：04060101 学号：2010040601020 题目：高考分数统计系统一、课程设计时间2012年3月5~9日（第1周），共计1周，20学时。

二、课程设计内容用VB编写软件完成以下任务：1 录入考生信息（考生信息包括考号、姓名、成绩等）；2 根据总分统计各分数段考生情况并显示（由高到低20分为一段）；3 显示超过重点线的考生信息（重点线自己设计）；4 将考生信息保存在文件myfile.txt文件中。

5自己再增加一项功能。

三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。

✧用户界面中的菜单至少应包括“考生信息录入”、“统计各分数段人数”、“显示过重点线考生信息”、“保存”、“退出”5项。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的格式和内容参见提供的模板。

四、指导教师和学生签字指导教师：________ 学生签名：________五、说明书成绩六、教师评语目录需求分析 (4)设计分析 (4)技术要点 (6)主要界面截图 (6)总结 (7)完整的源程序 (9)参考文献 (17)需求分析高考分数统计系统，主要指对信息的“录入”、“查询”、“分段”和“统计”。

即:对文件的输入和分段要求：①能够随时录入学生的信息（姓名、总成绩）。

②能够随时显示学生已经录入的信息。

③能够随时对学生已经录入的成绩进行分段。

④能够随时显示过重点线的已录入的学生信息。

设计分析（1）概述：该程序主要使用了顺序文件的相关技术包括: (1)打开文件(2)写操作(3)关闭文件(4)读操作并且使用了For循环和Do While循环.主要实现考生信息录入,查询,统计,分段,保存,退出等功能.(2)总体设计：（3）详细设计：技术要点本程序最重要的组成部分就是文件读取部分，也就是随时能查看添加功能部分。

南京工程学院课程设计说明书(论文)题目密码登录课程名称VB课程设计报告院（系、部、中心）能源与动力工程专业建筑环境与设备工程班级暖通091学生姓名刘江淮学号207090822设计地点图书馆指导教师于雷1设计起止时间：2010 年6 月28 日至2010 年7 月 3一、设计任务补全代码，并按要求完成课程设计报告二、系统总体设计方案密码登录是每一个数据库应用程序所必备的一个功能模块，觅得是为了保证系统及数据的安全。

在用户进入某个系统时会弹出如同的对话框。

确认用户输入的权限师傅正确，级点击“确认”的按钮。

当用户输入的密码不正确时，系统将给出提示，如下图所示。

该模块的实现比较通用，在类似数据库应用中都需要用到。

有的系统还根据用户的需要提供了密码更改的功能。

当你需要更改密码的时候会出现如下的对话框。

首先输入原始密码，在输入新密码，确认新密码，然后点击“确认”键即可。

三、程序总体框架图四、系统的调试源代码写完后，对系统进行调试运行，要求变量声明，对可能出现的几种错误，如：编辑时错误、编译时错误、运行时错误、逻辑错误，进行修改，调试，运行，直至系统能正常运行。

五、收获体会Visual basic 语言是以结构化basic语言为基础，以事件驱动为运行机制。

他的诞生标志着元件设计和开发的新时代的开始。

VB具有面向对象可视化设计工具，是事件驱动的编程机制，同时也提供了易学易用的应用程序集成开发环境。

从Basic 语言、Visual basic 语言的学习开始接触到编程，以前有过一段Basic 语言的学习，觉得比较简单。

当时很想自己能够熟练的进行程序编辑，工程上的软件编辑。

随着大一的Visual basic 语言的学习才逐渐发现这理想想要实现的难度。

对我而言学习编程，不仅能够帮自己解决在生活中可能遇到的一些问题；自己设计一些小游戏还可以给自己带来一些乐趣。

同时也为自己在寻找理想工作添加重要的砝码。

所以，我觉得在学习VB是我们要明确学习的目的。

洛阳理工学院课程设计报告课程名称高级语言程序设计设计题目程序设计综合训练专业高分子材料与工程班级B110111学号B11011123姓名邓文旗完成日期2013年1月11日课程设计任务书设计题目：程序设计综合训练_________________________________________________________ 设计内容与要求菜单的使用图片框的使用列表框的使用文本框的使用单选按钮的使用复选按钮的使用命令按钮的使用图片的插入与移动等界面美观代码规范报告格式符合要求题目要求功能全部实现指导教师：郭恒川2013 年1 月11 日课程设计评语成绩：指导教师：_______________年月日第一章课程设计目的一年的vb程序设计课程已经结束，随着老师的辛勤指导与自己平时的努力训练，已经掌握的基本的掌握了简单的程序设计内容。

为了有效地提高学习效率，更有效的掌握所学知识，特此完成了以下简单的程序设计。

本课题主要进行了控件数组、框架、键盘事件处理、定时器控件、图片框、列表框等知识的运用。

第二章课程设计的要求题目介绍（1）画一个框架，添加三个复写框。

（2）画一个图片框，运行其中相关的图片的程序。

（3）通过控制按钮来控制汽车的各种运动。

（4）运行程序，计算正弦余弦值。

（6）通过“菜单”的各种命令，控制图片框中的变化。

（7）在列表框中添加项目，通过程序控制它的各种变化。

（8）通过图片框与其中的单选按钮，运行程序在文本框中显示不同的内容。

（9）通过单选按钮，程序运行时是文本框中的内容相互“交换”“连接”，并显示出来。

（10）通过“计算”“读入数据”“存盘”按钮，把已知文件中的数据计算并存盘。

课程设计功能要求（1）框架标题为“目的地”，框架中的三个复选框的标题分别为“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态。

（2）图片框名称为picture1，其高的宽分别为1900、1700.运行时，单击图片框，则装入相应的图片，单击窗体图片框中的图片消失。

VB MP3播放器今天，我们将制作一个MP3播放器。

程序运行时，可以选择MP3文件，选择左右声道声音，总共播放所需的时间等。

程序运行结果如图所示。

运行结果技术要点●注册Mp3Play控件●获得MP3文件的播放总时间●设置左右声道的声音●获得MP3文件的总帧数实现过程■新建项目打开Visual ，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“Mp3Play”，然后选择保存路径。

单击“确认”。

■添加控件向当前窗体添加七个Label控件，其中四个作为说明之用，其余三个分别用于显示MP3文件的播放时间、总帧数和文件名称。

鼠标右击工具箱，选择“自定义工具箱”，在弹出的对话框中选择Com组件，选中“Microsoft Common Dialog Control6.0”、“Microsoft Common Controls 6.0”、单击“浏览”，选中文件Mp3play.ocx，这时会在“”选项卡中出现“Dialog-Media Mp3Play ActiveX Control Module”一项。

添加一个CommonDialog控件、三个Slider控件和一个Mp3PlayCtrl控件。

■设置属性切换到“属性栏”，对窗体上的控件设置属性如下所示。

属性表■添加代码' 选择mp3文件Private Sub button1_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles button1.ClickDim totaltimes As IntegerAXCommonDialog1.ShowOpen()If Len(AXCommonDialog1.FileName) = 0 Then Exit SubErr.Number = Mp3Play1.Open(AXCommonDialog1.FileName, "")' 取得mp3文件的总时间totaltimes = Mp3Play1.TotalTimelbltotaltime.Text = "播放时间：" & Str(totaltimes \ 60000) & ":" & Str(Int((totaltimesMod 60000) / 1000))lblmp3name.Text = AXCommonDialog1.FileName' 取得mp3文件的左右声道音量leftvolume = Mp3Play1.GetVolumeLeftrightvolume = Mp3Play1.GetVolumeRightsldPos.Value = 0' 取得mp3文件的总帧数sldPos.Max = Mp3Play1.FrameCountlblframe.Text = "共" & sldPos.Max & "帧"button2.Enabled = Truebutton3.Enabled = Truebutton4.Enabled = TrueEnd Sub' 开始播放Private Sub button2_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles button2.ClickMp3Play1.Play()End Sub' 暂停播放Private Sub button3_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles button3.ClickMp3Play1.Pause()End Sub' 停止播放Private Sub button4_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles button4.ClickMp3Play1.Stop()End Sub' 程序启动时，必须进行注册，否则不能正确播放' 设置左右声道默认值为中间值Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles MyBase.LoadMp3Play1.Authorize("LightBringer", "1441658209")SldLeft.Value = 50SldRight.Value = 50' 在没有选择mp3文件之前，令播放、暂停、停止按钮不可用button2.Enabled = Falsebutton3.Enabled = Falsebutton4.Enabled = FalseEnd Sub' 改变左声道的音量Private Sub SldLeft_Change(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles SldLeft.ChangeMp3Play1.SetVolume(leftvolume * SldLeft.Value / 100, rightvolume *SldRight.Value / 100)End Sub' 改变播放mp3文件的位置Private Sub sldPos_Change(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles sldPos.ChangeMp3Play1.Seek(sldPos.Value)Mp3Play1.Play()End Sub■运行结果单击菜单“调试|启动”或单击图标运行程序。

VB课程设计报告报告名称 MP3播放器详细设计报告年级 10级学院计算机学院专业计算机科学与技术专业学号 12101113 姓名张木春任课教师于时飞完成时间 2013.5.31 成绩（报告在给出成绩的同时须由评阅人写出评语）详细设计说明1.引言 (3)1.1编写目的 (3)1.2项目背景 (3)1.3定义 (3)1.4参考资料 (4)2.总体设计 (4)2.1需求概述 (4)2.2软件结构 (4)3.程序描述 (4)3.1功能 (8)3.2性能 (8)3.3输入项目 (8)3.4输出项目 (9)3.5限制条件 (9)3.6测试要点 (9)1．引言1.1编写目的编写本程序的目的是设计一个MP3播放器,能实现,播放,停止,暂停,音量设置,左右声道,音乐添加删除,音乐列表的记忆功能,顺序播放,随机播放,循环播放等功能.通过阅读详细设计说明书,我们可以清楚的知道界面上每个控件的功能及每段代码所实现的功能.该说明说适合于所有了解VB语言的读者,可读性强.1.2项目背景本项目是在我们上完Visual Basic 2005 程序设计课和软件工程课之后,王国伟老师为了对我们进行简单考核而提出的课程设计题目.该项目由王国伟老师直接主管,并依托于信息技术学院六楼数学实验室来完成,项目时间为两周.1.3定义1.3定义（1）数据类型：String 字符串Boolean 浮点型Integer 整型（2）常用控件及属性Button 命令按钮控件RadioButton 单选框控件OpenFileDialog 打开文件对话框控件File close（）关闭文件函数ListView控件：（属性）Add: 添加列表项SelectedItems()：选中的列表项Remove: 删除列表项AxWindowsMediaPlayer控件：（属性）URL：获取多媒体文件的路径及文件名Ctlcontrols: 获取多媒体文件的控制方法CurrentPosition:获取多媒体当前的播放进度TrackBar控件：（属性）Value:获取滑块目前所在的位置1.4参考资料[1] 李捷. Visual Basic 2005—程序设计教程-北京机械工业出版社,2007.7[2] 杨富国. Visual Basic 程序开发案例解析-清华大学出版社,2006.1[3]康祥顺. Visual Basic 案例开发集锦-电子工业出版社,2006.12．总体设计2.1需求概述本项目的开发宗旨是实现Windows Media player 的MP3播放器功能,使用户方便的播放音乐,并根据兴趣添加播放列表.根据系统实现的目的,可以描述出MP3播放器功能,该系统主要包括下列四部分:1.音乐播放功能;2.歌曲列表管理功能;3.音量设置,左右声道设置;4.播放模式更换功能.其中,音乐播放功能包括音乐的播放,暂停,停止, ,是本程序的基本功能.歌曲列表管理功能实现了歌曲列表的添加,删除保存等功能,方便用户使用.音量,声道设置功能可以实现,歌曲音量大小的调节和左右声道模式的转换.播放模式更换功能,可以实现顺序播放,随机播放,单曲循环等不同模式之间的转换,,使播放方式更加人性化.2.2软件结构需求分析---详细设计---调试----改进---再调试3．程序描述1.全局变量声明Public Class Form1'设置全局变量Dim paths() As String'定义打开文件路径数组Dim FileName As String'定义文件名Dim SingName As String'定义歌曲名称Dim i As IntegerDim selIndex As IntegerDim path As StringDim d1, d2 As Integer2.‘添加按纽事件Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim sfile As String'定义歌曲名称Dim j As Integer'定义循环变量Dim count As Integer'定义已有歌曲数目With OpenFileDialog1 '打开新文件.Title = "打开mp3文件".Multiselect = True.Filter = "mp3文件(*.mp3)|*.mp3".ShowDialog()paths = .FileNamesEnd Withi = paths.GetUpperBound(0) '获取此次打开文件的数目For j = 0 To icount = ListView1.Items.Countsfile = paths(i - j).Substring(paths(j).LastIndexOf("/") + 1) '获取歌曲名称Dim mitem As New ListViewItem(Str(count + 1), j)mitem.SubItems.Add(sfile)mitem.SubItems.Add(paths(i - j))ListView1.Items.Add(mitem) '把新打开的文件添加到列表控件中NextEnd Sub3.'播放按纽事件Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickselIndex = ListView1.SelectedItems(0).Text - 1FileName = ListView1.SelectedItems.Item(0).SubItems(1).Text '获取歌曲名称 path = ListView1.SelectedItems.Item(0).SubItems(2).TextAxWindowsMediaPlayer1.URL = path '设置播放文件 AxWindowsMediaPlayer1.Ctlcontrols.play() '开始播放Label2.Text = FileNameDim Str As StringLabel2.Text = FileNameTimer1.Enabled = TrueButton2.Enabled = TrueStr = FileName.Substring(stIndexOf("."))FileName = FileName.Remove(FileName.Length - _Str.Length, Str.Length)Label2.Text = FileName '对字符串进行处理,仅获取无后缀歌曲名End Sub4.'停止按纽事件,Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickAxWindowsMediaPlayer1.Ctlcontrols.stop()End Sub5.'退出并保存列表按纽事件Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickFileOpen(1, "d:\xs.txt", OpenMode.Output)Dim i, j As IntegerDim st As String = ""j = ListView1.Items.Count - 1For i = 0 To jst = ListView1.Items(i).SubItems(2).TextPrintLine(1, st)NextFileClose(1)Close()EndEnd Sub6.'计时器事件Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickDim m1, m2 As IntegerDim s1, s2 As IntegerDim n As Integerd1 = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition '获取当前播放进度 d2 = AxWindowsMediaPlayer1.currentMedia.duration '获取需要的总时间 TrackBar1.Value = d1TrackBar1.TickFrequency = d2TrackBar1.Maximum = d2m1 = d1 \ 60 : s1 = d1 Mod 60m2 = d2 \ 60 : s2 = d2 Mod 60Label1.Text = "已播放" & m1 & ":" & Format(s1, "00") & "(" & m2 & ":" & Format(s2, "00") & ")"'显示播放进度If m1 = m2 And m1 <> 0 And s1 = s2 ThenIf RadioButton1.Checked = True Thenn = selIndexListView1.Items(n).Selected = Falsen = n + 1If n < ListView1.Items.Count - 1 ThenListView1.Items(n).Selected = Truebf()End IfElseIf RadioButton2.Checked = True Thenn = selIndexListView1.Items(n).Selected = FalseRandomize()n = CInt(Int((ListView1.Items.Count - 1 - 0 + 1) * Rnd()))ListView1.Items(n).Selected = Truebf()Elsebf()End IfEnd IfEnd Sub7 '列表视图控件Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClickDim str As StringselIndex = ListView1.SelectedItems(0).Text - 1FileName = ListView1.SelectedItems.Item(0).SubItems(1).Text '获取歌曲名称 path = ListView1.SelectedItems.Item(0).SubItems(2).Text '获取歌曲路径 AxWindowsMediaPlayer1.URL = path '设置播放文件 AxWindowsMediaPlayer1.Ctlcontrols.play() '开始播放Label2.Text = FileNameTimer1.Enabled = TrueButton2.Enabled = Truestr = FileName.Substring(stIndexOf("."))FileName = FileName.Remove(FileName.Length - str.Length, str.Length)Label2.Text = FileNameEnd Sub8'删除Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim INQ As IntegerDim ri As IntegerDim count As IntegerINQ = ListView1.SelectedItems(0).Text - 1ListView1.Items(INQ).Remove()count = ListView1.Items.CountFor ri = 0 To count - 1ListView1.Items(ri).SubItems(0).Text = Str(ri + 1)NextEnd Sub9 '左声道Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickAxWindowsMediaPlayer1.settings.balance = -100End Sub10'右声道Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickAxWindowsMediaPlayer1.settings.balance = 100End Sub11'暂停Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickAxWindowsMediaPlayer1.Ctlcontrols.pause()End SubSub bf()selIndex = ListView1.SelectedItems(0).Text - 1FileName = ListView1.SelectedItems.Item(0).SubItems(1).Text '获取歌曲名称 path = ListView1.SelectedItems.Item(0).SubItems(2).TextAxWindowsMediaPlayer1.URL = path '设置播放文件 AxWindowsMediaPlayer1.Ctlcontrols.play() '开始播放Label2.Text = FileNameEnd SubEnd Class3.1功能1.音乐播放功能;2.歌曲列表管理功能;3.音量设置,左右声道设置;4.播放模式更换功能.3.2性能本播放器结构简单,性能良好,操作简单,适合于大众人群的使用.3.3输入项目对该播放器的播放列表添加想要播放的歌曲,播放器就能按要求播放音乐.3.4输出项目3.5限制条件硬件条件:普通的计算机和工作站软件条件:运行环境需安装Visual Basic 2005软件3.6测试要点对播放器的每个功能都需要逐一测试,具体要求是:1.对播放功能的各个控件功能进行测试2.对歌曲列表管理功能进行测试3.对音量设置功能进行测试,包括音量测试,和左右声道功能测试4.对不同的播放模式进行测试,看能否实现音乐的顺序播放,随机播放,单曲循环功能.。

VB课程设计(论文)任务书土木建筑学院土木工程专业 4 班一、课程设计(论文)题目：小人移动二、课程设计(论文)工作自2014 年 6 月16日起至 2014 年6 月 22 日止三、课程设计(论文) 地点: 计算中心8#605四、课程设计(论文)内容要求：1. 本课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。

（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。

（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。

2. 课程设计的任务及要求(1) 基本要求：（1）对系统功能进行需求分析；（2）使用Visual basic开发环境进行程序开发；（3）提出系统的设计方案；（4）编写源程序代码并进行调试。

(2) 创新要求在基本要求达到后，可进行创新设计。

(3) 课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。

报告按如下内容和顺序用A4纸进行打印并装订成册。

（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。

（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献(4) 课程设计评分标准：（1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；（2）能正确回答设计的中老师所提问题，可增加10分；（3）课程设计报告书写规范整齐，可增加10分；（4）心得体会认真总结，可增加10分；（5）程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、及格和不及格五个等级。

不及格者需重做。

(5) 课程设计进度安排华东交通大学VB课程设计报告（1）准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。

（2）程序模块设计分析阶段（8学时）：程序总体设计、详细设计。

(3) 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。

vb课程设计实践报告一、教学目标本课程的教学目标是让学习者掌握Visual Basic编程语言的基本语法、编程技巧以及数据库访问技术。

通过本课程的学习，学生应能设计并实现简单的应用程序，为后续的软件开发学习打下坚实的基础。

具体来说，知识目标包括：1.理解Visual Basic编程语言的基本概念和语法。

2.掌握常用的数据类型、运算符和表达式。

3.学会使用Visual Basic的窗体和控件。

4.掌握事件驱动编程的基本概念。

5.理解并能够使用Visual Basic进行数据库访问。

技能目标则要求学生：1.能够使用Visual Basic编写简单的程序。

2.能够使用Visual Basic进行数据库的连接和操作。

3.能够对程序进行调试和优化。

情感态度价值观目标则在于培养学生的创新精神和团队合作意识，通过完成项目任务，使学生感受到编程的乐趣，增强对计算机科学的热爱。

二、教学内容本课程的教学内容主要包括Visual Basic的基本语法、数据类型、控制结构、窗体和控件、以及数据库访问技术。

具体的教学大纲安排如下：1.课程引言：介绍Visual Basic的发展历程和应用领域。

2.基本语法：变量、数据类型、运算符、表达式等。

3.控制结构：条件语句、循环语句等。

4.窗体和控件：窗体的基本属性、控件的属性和事件等。

5.数据库访问：使用ADO对象进行数据库的连接和操作。

三、教学方法为了提高教学效果，将采用多种教学方法相结合的方式进行教学。

包括：1.讲授法：用于讲解基本语法和概念。

2.案例分析法：通过分析具体的案例，使学生理解编程思想和方法。

3.实验法：安排上机实验，让学生亲手编写代码，提高实践能力。

四、教学资源为了支持教学，将准备以下教学资源：1.教材：《Visual Basic编程教程》。

2.参考书：提供相关的编程书籍，供学生课后自学。

3.多媒体资料：制作教学PPT，辅助讲解。

4.实验设备：提供计算机实验室，让学生进行上机实验。

沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：04060101 学号：2010040601034 题目：“冒泡法”排序的动漫演示一、课程设计时间2012年3月5~9日（第一周），共计一周，20学时。

二、课程设计内容用控件数组技术实现动画，演示用冒泡法对数组（18,12,16,10,11,19）由小到大排序，元素变换的完整过程。

要求：准备换值的2个元素，使用明显颜色，闪烁效果。

三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字指导教师：______ 学生签名：_____五、成绩六、教师评语目录需求分析 (4)设计分析 (4)技术要点 (5)主要界面截图 (6)总结 (7)完整的源程序 (8)参考文献 (12)一．需求分析题目要求用“冒泡法”对一组数据进行由小到大排序，并且动画演示排序过程中元素变换的过程。

也就是表示，比较相邻两个数大小和交换过程要可见，并用明显的颜色来区分正在比较的两个数字。

颜色的变换、数字的交换实现了动画的效果.二．设计分析1·基本原理：“冒泡法”排序——使用Label，Timer控件。

分别用来进行数组的输入和控制程序的运行。

2·总体设计思想：（1）从第一个元素开始，对数组中两辆相邻的元素比较，Label(0)与Label (1)比较，若为逆序，则Label (0)与Label (1)交换；然后Label (1) 与Label (2)比较，···，直到最后Label (N-1) 与Label (N)比较，这时一轮比较完毕，一个最大的数“沉底”，成为数组中的最后一个元素Label (N)，一些较小的数如同气泡一样“上浮”一个位置。