课程设计任务书
要做课程设计了。做什么，条件是什么，完成的成果要求是什么。这些写成一个文档，称“课程设计任务书”。它告诉接受任务的，要做什么，条件是什么，要完成的成果是什么等信息。
中北大学
微机原理与汇编语言
课 程 设 计 说 明 书
学生姓名:学 号：
学 院:
专 业:计算机科学与技术
题 目:
成绩
指导教师乔志伟、陈够喜、徐志永
2011 年6月9日
1. 引言(大标题黑体四号字)
该题目的意义等 （小四号字宋体，1.5倍行距）
2．需求分析
该题目的需求分析（小四号字宋体，1.5倍行距）
3．总体设计
该题目的设计方案与系统构成，主要由文字组成，在必要时，可以添加一些图或者表格。
4. 详细设计（这一部分每个人应该是不同的）
用文字说明自己具体负责模块的实现过程和实现原理以及设计的程序的流程图，必要时可以添加说明性的图形或表格。
必须要写出，为什么这样做来，也就是说，必须在掌握的基础上编写程序。
5. 软件测试
说明自己模块的测试过程和测试原理。如果是组长，则要说明总体的测试情况。给出测试报告。
6. 程序清单
给出自己设计模块的程序清单。
7. 参考资料
说明自己在课程设计中参考的文献资料，参考资料的格式如下：
[1] 作者1，作者2 . 图书名称 . 出版社 . 出版社地点 . 出版年. 参考页码范围
装订次序：
1.课程设计说明书封面 2.任务书封面 3.任务书 4. 设计说明书正文
Option Explicit
Dim 按钮(3, 3) As String
Dim 数 As String, 数1 As String, 显示 As String, 计算 As String
Dim 开始 As Boolean, mXs As Boolean, 复位 As Boolean
Dim pX As Integer, pY As Integer, mW As Long, mH As Long, bW As Long, bH As Long
Const Pi As Double = 3.1415926
'过程和函数
Private Sub ItemSkin(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _
ByVal Caption As String, Optional ByVal State As Integer = 0)
Dim i As Long
Select Case State
Case 0
For i = Y1 To Y2 Step 15
Line (X1, i)-(X2, i), RGB(160 + 95 * (Y2 - i) / (Y2 - Y1), 160 + 95 * (Y2 - i) / (Y2 - Y1), 160 + 95 * (Y2 - i) / (Y2 - Y1)), B
Next
PSet (X1 + 2 * pX, Y1 + 2 * pY), &H80000010
PSet (X2 - 2 * pX, Y1 + 2 * pY), &H80000010
PSet (X1 + 2 * pX, Y2 - 2 * pY), &H80000010
PSet (X2 - 2 * pX, Y2 - 2 * pY), &H80000010
Line (X1 + pX, Y1 + pX)-(X2 - pX, Y2 - pY), &H80000010, B
Case 1
For i = Y1 To Y2 Step 15
Line (X1, i)-(X2, i), RGB(160 + 95 * (Y2 - i) / (Y2 - Y1), 160 + 95 * (Y2 - i) / (Y2 - Y1), 160 + 95 * (Y2 - i) / (Y2 - Y1)), B
Next
Line (X1 + pX, Y1 + pX)-(X2 - pX, Y2 - pY), &H80C0FF, B
Line (X1 + 2 * pX, Y1 + 2 * pX)-(X2 - 2 * pX, Y2 - 2 * pY), &H80C0FF, B
Case 2
For i = Y1 To Y2 Step 15
Line (X1, i)-(X2, i), RGB(255 - 95 * (Y2 - i) / (Y2 - Y1), 255 - 95 * (Y2 - i) / (Y2 - Y1), 255 - 95 * (Y2 - i) / (Y2 - Y1)), B
Next
PSet (X1 + 2 * pX, Y1 + 2 * pY), &H80000015
PSet (X2 - 2 * pX, Y1 + 2 * pY), &H80000015
PSet (X1 + 2 * pX, Y2 - 2 * pY), &H80000015
PSet (X2 - 2 * pX, Y2 - 2 * pY), &H80000015
Line (X1 + pX, Y1 + pX)-(X2 - pX, Y2 - pY), &H80000015, B
End Select
PSet (X1 + pX, Y1 + pY), &HA06040
PSet (X2 - pX, Y1 + pY), &HA06040
PSet (X1 + pX, Y2 - pY), &HA06040
PSet (X2 - pX, Y2 - pY), &HA06040
Line (X1, Y1)-(X2, Y2), &HA06040, B
PSet (X1, Y1), Me.BackColor
PSet (X1, Y2), Me.BackColor
PSet (X2, Y1), Me.BackColor
PSet (X2, Y2), Me.BackColor
Me.CurrentX = (X2 - X1 - Me.TextWidth(Caption)) / 2 + X1
Me.CurrentY = (Y2 - Y1 - Me.TextHeight(Caption)) / 2 + Y1
Print Caption
End Sub
Private Sub FormRecord(ByVal i显示 As String, Optional ByVal i计算 As String = "")
Dim iX As Integer, iY As Integer
Cls
Line (1200, 240)-(mW - 240, 600), &H80000005, BF
Line (1200, 240)-(mW - 240, 600), &HC0A0A0, B
ItemSkin 240, 240, 1080, 600, "AC"
For iX = 0 To 3
For iY = 0 To 3
ItemSkin bW * iX + 240, bH * iY + 840, bW * (iX + 1) - 120, bH * (iY + 1) + 600, 按钮(iX, iY)
Next
Next
Me.CurrentX = mW - Me.TextWidth(i显示) - 360
Me.CurrentY = (360 - Me.TextHeight(i显示)) / 2 + 240
Print i显示
Me.CurrentX = 1320
Me.CurrentY = (360 - Me.TextHeight(i计算)) / 2 + 240
Print i计算
End Sub
Private Sub mMouseMove(Button As Integer, X As Single, Y As Single)
Dim iX As Integer, iY As Integer
If X > 240 And X < 1080 And Y > 240 And Y < 600 Then
ItemSkin 240, 240, 1080, 600, "AC", IIf(Button = 1, 2, 1)
ElseIf X < 240 Or X > mW - 240 Or Y < 840 Or Y > mH - 240 Then
FormRecord Format(显示, "0.#######"), 计算
Else
For iX = 0 To 3
For iY = 0 To 3
If X > bW * iX + 240 And Y > bH * iY + 840 And X < bW * (iX + 1) - 120 And Y < bH * (iY + 1) + 600 Then
ItemSkin bW * iX + 240, bH * iY + 840, bW * (iX + 1) - 120, bH * (iY + 1) + 600, 按钮(iX, iY), IIf(Button = 1, 2, 1)
Else
ItemSkin bW * iX + 240, bH * iY + 840, bW * (iX + 1) - 120, bH * (iY + 1) + 600, 按钮(iX, iY)
End If
Next
Next
End If
End Sub
Private Function mCount(ByVal i数 As String, ByVal i计算 As String, Optional ByVal i等 As Boolean = False) As String
On Error GoTo ErrStr
If 计算 <> i计算 Then
计算 = i计算
数1 = 数
mCount = 数
ElseIf (i等 Or 开始 = False) And 计算 <> "" Then
Select Case 计算
Case "+"
数1 = Val(数1) + Val(i数)
Case "-"
数1 = Val(数1) - Val(i数)
Case "*"
数1 = Val(数1) * Val(i数)
Case "/"
数1 = Val(数1) / Val(i数)
End Select
mCount = 数1
ElseIf i等 Then
mCount = 数
Else
mCount = 数1
End If
复位 = i等
开始 = True
Exit Function
ErrStr:
显示 = 0
数 = 0
数1 = 0
开始 = False
mXs = False
计算 = ""
mCount = "Error"
End Function
'事件
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 27 Then
显示 = 0
数 = 0
数1 = 0
计算 = ""
mXs = False
ElseIf Chr(KeyAscii) >= 0 And Chr(KeyAscii) < 10 Then
If 开始 Then 数 = 0
If 复位 Then
数1 = 0
计算 = ""
End If
If Len(CStr(Val(显示))) < 8 Then 数 = 数 & IIf(mXs, ".", "") & Chr(KeyAscii)
显示 = 数
开始 = False
mXs = False
复位 = False
ElseIf Chr(KeyAscii) = "." Then
If Int(显示) = 显示 Then mXs = True
ElseIf Chr(KeyAscii) = "+" Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "*" Or Chr(KeyAscii) = "/" Then
显示 = mCount(数, Chr(KeyAscii))
ElseIf Chr(KeyAscii) = "=" Then
显示 = mCount(数, 计算, True)
End If
FormRecord Format(显示, "0.#######"), 计算
End Sub
Private Sub Form_Load()
Dim iX As Integer, iY As Integer, n As Integer
pX = Screen.TwipsPerPixelX
pY = Screen.TwipsPerPixelY
Me.AutoRedraw = True
Me.KeyPreview = True
Me.FontSize = 12
Me.Caption = "计算器"
For iY = 0 To 2
For iX = 0 To 2
n = n + 1
按钮(iX, iY) = n
Next
Next
按钮(3, 0) = "*"
按钮(3, 1) = "/"
按钮(3, 2) = "-"
按钮(3, 3) = "+"
按钮(0, 3) = "0"
按钮(1, 3) = "."
按钮(2, 3) = "="
显示 = 0
数 = 0
数1 = 0
开始 = True
FormRecord Format(显示, "0.#######"), 计算
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then mMouseMove Button, X, Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
mMouseMove Button, X, Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > 240 And X < 1080 And Y > 240 And Y < 600 Then
显示 = 0
数 = 0
数1 = 0
计算 = ""
mXs = False
ElseIf X < 240 Or X > mW - 240 Or Y < 840 Or Y > mH - 240 Then
ElseIf (X - 240) \ bW = 3 Then
显示 = mCount(数, 按钮((X - 240) \ bW, (Y - 840) \ bH))
ElseIf (X - 240) \ bW = 2 And (Y - 840) \ bH = 3 Then
显示 = mCount(数, 计算, True)
ElseIf (X - 240) \ bW = 1 And (Y - 840) \ bH = 3 Then
If Int(显示) = 显示 Then mXs = True
Else
If 开始 Then 数 = 0
If 复位 Then
数1 = 0
计算 = ""
End If
If Len(CStr(Val(显示))) < 8 Then 数 = 数 & IIf(mXs, ".", "") & (按钮((X - 240) \ bW, (Y - 840) \ bH))
显示 = 数
开始 = False
mXs = False
复位 = False
End If
FormRecord Format(显示, "0.#######"), 计算
End Sub
Private Sub Form_Resize()
mW = IIf(Me.ScaleWidth > 3000, Me.ScaleWidth, 3000)
mH = IIf(Me.ScaleHeight > 3000, Me.ScaleHeight, 3000)
bW = (mW - 120) / 4
bH = (mH - 840) / 4
FormRecord Format(显示, "0.#######"), 计算
End Sub
我已经发到你的E-mail里去了！
留下Email
w mo zhi a
毕业设计的一般步骤是什么?
毕业设计流程如下：1、选择导师。一般在大四上学期选择毕设导师，有的学校是由教务老师直接分配，有的学校可能是自己和老师进行双选。2、选题。选题也分两种情况，每个学校的情况可能不一样。第一种是导师给定几个题目，自己选择；第 二种是自己拟题，交给导师审核确认。3、书写开题报告。选题完成就是写...
简述智能建筑工程设计的程序和工程设计中各专业的分工配合
智能建筑工程设计的程序：建筑图、设计任务书、设备选型参考资料等；工程设计中各专业的分工及配合：智能建筑也就是建筑智能化系统集成，总体包括3大（系统）部分（3A级、也有叫5A级）20个子系统；7个分子系统：智能建筑系统(IBS):楼宇自动化系统(BAS）: 通信与网络系统(CNS): 办公自动化系统(...
毕业设计是什么?
包括设计、计算、制图、工艺技术、经济论证和合理化建议，最后提交报告。我们要尽量选择与生产、科研任务相结合的实际问题，也要选择假问题。学生必须完成教学计划规定的理论课程、课程设计和实践，并通过考试，方可进行该课程的学习。是评价毕业成绩的重要依据。学生必须通过毕业设计答辩，通过绩效考核，方可毕...
机械设计的一般过程及方法都有哪些内容?
机械设计的一般过程及方法：1、确定设计任务 需要提出设计任务书，其中包含提出任务、分析需求和确定任务三个步骤。2、方案设计 根据制定的设计任务书进行方案设计，对设备的功能、用材、原理等提出可能的解决方案并反复确认，确认一个选定的方案。3、技术设计 确定方案时，需要提供原理图或者机械结构图，亦...
建筑初步设计方案要包括哪些东西
3.6.I 在初步没计阶段,建筑电气专业设计文件应包括设计说明书、设计图纸、主要电气设备表、计算书。3. 6.2 设计说明书。1 设计依据。2 设计范围。1)根据设计任务书和行关设计资料说明本专业的设计内容,以及与相关专业的设计分工与分工界面;2)拟设置的建筑电气系统。3变、配、发电系统。 4 照明系统。5 电气节能...
建筑工程项目包括哪些?
建筑工程项目包括：工程建设项目、单项工程、单位工程、分部工程、分项工程。建设项指具有一个设计任务书和总体设计，经济上实行独立核算，管理上具有独立组织形式的工程建设项目。一个建设项目往往由一个或几个单项工程组成。
企业办理环评的流程和手续
办理流程建设单位提出立项申请后，环境保护局按基本建设程序进行环保审批。1、审查项目建议书有关环保部分，确定立项初步意见；2、审批环境影响报告书(表)；审查可行性研究报告或设计任务书有关环保内容；3、审查初步设计中的环保篇(章)，出具初步设计审查意见；4、审查建设项目施工设计图，核发建设项目环境...
建设实施方案产生的过程和方法包括
建设实施方案立项阶段：根据国民经济和社会发展长远规划，结合行业和所在地区发展规划的要求，提出项目建议书。2)可研阶段：在勘察、试验、调查研究及详细技术经济论证的基础上编制可行性研究报告及建设项目概念设计。3)决策阶段：根据项目的咨询评估情况，对建设项目进行决策，编制设计任务书。4)设计报批阶段：...
关于平面设计毕业论文任务书该怎么写~~~
参考文章 平面设计任务书 设计题目：南宁市某厂房 一、总则 毕业设计的目的和要求：毕业设计是在专业课程已修完的基础上进行的综合教学环节，它以实际工程为课题。在毕业设计的全过期程中，学生在教师的指导下，通过毕业设计的实践，学习贯彻“适用、安全、经济，在可级条件下注意美观“的建筑方针，运用所...
毕业设计过程怎么写
1、学院根据专业培养计划下达毕业设计安排文件（内容涉及时间进度、要求、参考题）；2、学院组织“如何进行毕业设计讲座”指导学生选题；3、学生在网上下载“毕业设计任务书”表格并按要求选题、聘请指导教师、填写任务书；4、学院组织“如何编写任务书”网上答疑；5、学生在规定的时间内向所在总站、学习中心...
池映黄藤： 数模转换电路图 :用温度传感器采集信号把模拟的温度信号(一般都是-10V到10V,或者0~20MA的信号 )注:这是一般一个制作好的外面传感器的标准.可以买到成品直接应用.如果需要自己制作的话来个温度电阻(温度传感器PT型号就可以)自己制作一个温差传感器.具体可以参考传感器的应用.在将其转换成数字信号经过芯片处理后可以采用计算机应用里面的编程程序可以驱动 LED并显示!厉害点的话也可以采用单片机或者ARM嵌入式系统来制作.最可以锻炼人的还是用模拟电子技术中的逻辑集成芯片组合 来设计,但过程中比较复杂.调试也需要比较长时间.当然,最简单的发点小钱买个成品芯片处理下就出来了.原理基本差不多! ...
潞城市15077208558： 单向板肋梁楼盖课程设计 - ？
池映黄藤： 原发布者:尹春迎钢筋混凝土单向板肋梁楼盖课程设计任务书一、设计题目及目的题目:设计某三层轻工厂房车间的整体式钢筋混凝土单向板肋梁楼盖.目的:1、了解单向板肋梁盖的荷载传递关系及其计算简图的确定.2、通过板及次梁的计...
潞城市15077208558： 房屋建筑学》课程设计任务书设计 一、目的要求 通过理论教学、参观和设计实践,使学生初步了解一般民用建筑 - ？
池映黄藤： 单体方案设计任务书 一、项目地块概况 (已提供) 二、规划设计条件(已提供) 三、建筑规模:接合以往会议纪要,保证A2地块总建筑面积的同时尽量加大建筑面积. 四、项目定位 1、功能: 二层至三层商业:中高档商业铺面、超市...
潞城市15077208558： 房屋结构设计任务书.求一套设计!急用! - ？
池映黄藤： 房建课程设计任务书 一、 题目:单元式多层住宅施工图设计 二、 时间:二周 三、 目的要求:根据第四次作业—单元式多层住宅初步设计图,进行局部施工图设计,熟悉施工图的内容、表示方法和工作布骤,培养学生能综合运用所学...
潞城市15077208558： 混凝土结构课程设计任务书怎么做? - ？
池映黄藤： 参考一下下面这个吧,希望对你有帮助: 钢筋混凝土单向板肋形楼盖课程设计任务书 一、设计目的 l、了解钢筋混凝土结构设计的一般程序和内容; 2、了解单向板肋梁楼盖的荷载传递途径及计算简图; 3、熟悉弹性理论和塑性理论的设计方法...
潞城市15077208558： 跪求化工原理课程设计任务书(甲醇水) - ？
池映黄藤： 这是个酒精的,类似 课程设计任务书 (一)课程设计题目:酒精生产过程精馏塔的设计 (二)设计条件 1、生产能力:20 吨/日二级酒精; 2、原料:乙醇含量29.8(W)的粗馏冷凝液,以乙醇—水二元系为主; 3、采取直接蒸汽加热; 4、采取泡...
潞城市15077208558： c语言课程设计任务书？
池映黄藤： 设计图书管理系统 主要功能: 1、新书入库 2、借阅登记、管理 3、借阅查询 4、催还、预约 5、遗损处理 要求:能实现以上基本功能,界面友好、清晰 (注意:该题可以自由发挥其它功能,但要求用结构体数组、文件、函数等工具来处理,也可以用指针、链表等工具来处理)
潞城市15077208558： 房屋建筑学课程设计任务书？
池映黄藤： http://www.baidu.com/s?ie=gb2312&bs=%D5%D2%B8%F6%B9%D8%D3%DA%B9%E9%CA%F4%B8%D0%B5%C4%CE%C4%D5%C2&sr=&z=&cl=3&f=8&tn=baidu&wd=%B7%BF%CE%DD%BD%A8%D6%FE%D1%A7%BF%CE%B3%CC%C9%E8%BC%C6%C8%CE%CE%F1%CA%E9&ct=0 这里有很多 `自己去看看``
潞城市15077208558： 《土力学与地基基础》课程设计任务书 - ？
池映黄藤： 《理论力学》、《材料力学》、《结构力学》、《混凝土结构》、《砌体结构》、《土力学与地基基础》,还有一些相关的设计规范和施工规范. 回答得
潞城市15077208558： 有没有知道施工组织课程设计任务书 - --多层砖混结构办公楼 的答案啊 !!! - ？
池映黄藤： 施工组织课程设计任务书---多层砖混结构办公楼一、设计条件1、修建物概况本工程为某省**公司的办公楼,位于**市郊**公路边,修建总平面或者物体表面的大为6262㎡,最简单的面形式为L型,南北方向长61.77m,东西方向总长39.44m...
