成绩：
高级程序设计语言
课程设计报告
题目：
学院：
专业：
班级：
学号：
姓名：
：
2011年12月27日
一、设计内容、要求与目的
调板是一个小小的程序，在美化软件之方面占有重要的位置，在一些如网页设计软件与fash其软件上，都必不可少的运用上调板，还有一些游戏上，调板的重要性就发挥得至关重要了！而对于调板中的程序，内容较为简单，其结构也比较完整！
本设计要求一个简单的调板，利用RGB三颜的原理来设置三种基的值，来调出各种颜；每种颜利用滚动条来控制值的变化（滚动条的值的变化范围为0~255）；除此之外还可以利用公共对话框中提供的若干种基本颜颜设置功能来设置所需要的颜。
掌握VB的图片控件的使用，滚动条的使用和RGB（）函数的使用等。
二、概要设计和详细设计(涉及到的重要算法设计与分析(包括流程图)要重点阐述。)
(一)概要设计
1、创建用户界面
（1）、滚动条控件三个，用于控制RGB（）函数的参数；
（2）、图片框控件，提供基本颜；
（3）、标签控件：模块的标题，显示所调颜的参数值，预览调出颜或者所选颜；
2、设置对象属性
3、代码编写
4、调试运行
（二）详细设计
1、初步程序界面设计
2、属性设计
控件属性
Label1 基本颜
Label2 示例
Label3 调
Label4 红
Label5 绿
Label6 蓝
Picture1 color
Form1.caption="调板"
Label7.caption=""
Label8.caption=""
Label9.caption=""
Hcroll1.min=0
Max=255
Hcroll2.min=0
Max=255
Hcroll3.min=0
Max=255
3、程序流程
Private Sub Form_Load() "初始化程序
~~~~~~~~~~
Picture1.BackColor = RGB(0, 0, 0) "定义基本颜
Picture2.BackColor = RGB(105, 105, 105)
Picture3.BackColor = RGB(169, 169, 169)
Picture4.BackColor = RGB(211, 211, 211)
Picture5.BackColor = RGB(255, 255, 255)
Picture6.BackColor = RGB(128, 0, 0)
~~~~~~~~~~
End sub
本模块中用RGB（）函数对基本颜框的背景颜进行定义；
Private Sub Picture X_Click() "显示所选颜
Label1.BackColor = RGB(x, y, z)
Label8.Caption = " ”颜“"
End Sub
`````````````````````````
`````````````````````````
这一模块用于显示用户所选的基本颜
Private Sub HScroll1_Change() "用于控制RGB（）函数的参数
Label1.BackColor = RGB(HScroll1.V alue, HScroll2.V alue, HScroll3.V alue)
Label2.Caption = HScroll1.V alue
Label2.BackColor = RGB(HScroll1.V alue, 0, 0)
Label8.Caption = ""
End Sub
Private Sub HScroll2_Change()
Label1.BackColor = RGB(HScroll1.V alue, HScroll2.V alue, HScroll3.V alue)
Label3.Caption = HScroll2.V alue
Label3.BackColor = RGB(0, HScroll2.V alue, 0)
Label8.Caption = ""
End Sub
Private Sub HScroll3_Change()
Label1.BackColor = RGB(HScroll1.V alue, HScroll2.V alue, HScroll3.V alue)
Label4.Caption = HScroll3.V alue
Label4.BackColor = RGB(0, 0, HScroll3.V alue)
Label8.Caption = ""
End Sub
这一模块作用为通过调节滚动条来的值来改变RGB（）函数的参数来达到调的效果；vb程序设计简单吗
二、调试、分析与运行结果
1、单击三个滚动条的箭头，调整红、绿、蓝颜的值，观察示例框中颜的变化；
2、拖动三个滚动条中的滚动块，改变红、绿、蓝的颜值，观察示例中颜的变化；
3、单击三个滚动条的滚动区域，改变红、绿、蓝的颜值，观察示例框中的颜变化；
4、单击基本颜框中的每一颜，观察示例框中锋颜的变化；
在以上的四个操作中所得到的结果都与预想中的一致，说明设计是成功的！！！
示例：
三、源程序及系统文件使用说明
Private Sub Form_Load() "程序初始化Label1.BackColor = RGB(0, 0, 0)
Label2.Caption = HScroll1.V alue
Label3.Caption = HScroll2.V alue
Label4.Caption = HScroll3.V alue
Label8.Caption = "纯黑"
Picture1.BackColor = RGB(0, 0, 0) "定义基本颜Picture2.BackColor = RGB(105, 105, 105)
Picture3.BackColor = RGB(169, 169, 169)
Picture4.BackColor = RGB(211, 211, 211)
Picture5.BackColor = RGB(255, 255, 255)
Picture6.BackColor = RGB(128, 0, 0)
Picture7.BackColor = RGB(178, 34, 34)
Picture8.BackColor = RGB(165, 42, 42)
Picture9.BackColor = RGB(255, 0, 0)
Picture10.BackColor = RGB(205, 92, 92)
Picture11.BackColor = RGB(188, 143, 143)
Picture12.BackColor = RGB(250, 128, 114)
Picture13.BackColor = RGB(255, 228, 225)
Picture14.BackColor = RGB(233, 150, 122)
Picture15.BackColor = RGB(255, 69, 0)
Picture16.BackColor = RGB(255, 127, 80)
Picture17.BackColor = RGB(160, 82, 45)
Picture18.BackColor = RGB(139, 69, 19)
Picture19.BackColor = RGB(210, 105, 30)
Picture20.BackColor = RGB(244, 164, 96)
Picture21.BackColor = RGB(205, 133, 63)
Picture22.BackColor = RGB(255, 140, 0)
Picture23.BackColor = RGB(222, 184, 135)
Picture25.BackColor = RGB(210, 180, 140)
Picture26.BackColor = RGB(255, 222, 173)
Picture27.BackColor = RGB(255, 239, 213)
Picture28.BackColor = RGB(255, 165, 0)
Picture29.BackColor = RGB(245, 222, 179)
Picture30.BackColor = RGB(218, 165, 32)
Picture31.BackColor = RGB(255, 248, 220)
Picture32.BackColor = RGB(255, 215, 0)
Picture33.BackColor = RGB(240, 230, 140)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。