計(jì)算機(jī)等級(jí)考試二級(jí)VB教程

單擊以編輯母版標(biāo)題樣式,,單擊以編輯母版文本樣式,,第二級(jí),,第三級(jí),,第四級(jí),,第五級(jí),,,*,Visual Basic,程序設(shè)計(jì),9.1,圖形處理,,9.2,多媒體應(yīng)用,,9.3,示例,第9章 圖形處理及多媒體應(yīng)用,,Visual Basic,程序設(shè)計(jì),作業(yè),,實(shí)驗(yàn),,掌握,,掌握,窗體的ScaleMode屬性,,色彩常量，色彩函數(shù),,繪圖控件：shape和line,,繪圖方法：Pset,Line,Circle,Cls,,圖片框，圖像控件,,鼠標(biāo)事件：MouseDown,MouseUp,MouseMove,,鼠標(biāo)事件過程參數(shù)：Button,Shift,X,Y,重點(diǎn),繪圖方法：,Pset,,Line,Circle,,Cls,,計(jì)算機(jī)的繪圖和動(dòng)畫是一件奇妙且引人入勝的主題，Visual Basic下的圖象處理技術(shù)，包括繪圖，色彩，動(dòng)畫，三維空間，虛擬現(xiàn)實(shí)，甚至計(jì)算機(jī)仿真的基礎(chǔ)。聽起來很誘人的東西往往需要大量不誘人的知識(shí)，本章是這些奇妙東西的入門。,,VB可以利用繪圖方法在窗體或某容器類對(duì)象上畫圖。也可以用繪圖控件畫圖。,,其多媒體控件可以讓你感受動(dòng)畫、聲音等。,9.1 圖形處理,,9.1 圖形處理,1.VB 的坐標(biāo)系統(tǒng),,(1) VB坐標(biāo)系,,系統(tǒng)坐標(biāo)系（屏幕坐標(biāo)）,,容器坐標(biāo)系統(tǒng)（“窗體坐標(biāo)”）,所以,：,窗體中調(diào)整、移動(dòng)控件時(shí)，使用容器的坐標(biāo)系統(tǒng)。,,位置用,Left，Top,屬性描述。,,,Left,表示控件左上角到窗體左邊的距離,,,Top,表示控件左上角到窗體上邊的距離。,,9.1 圖形處理,1.VB 的坐標(biāo)系統(tǒng),,,(2),改變默認(rèn)坐標(biāo)系,,利用到窗體的,Scale,系列屬性,,ScaleLeft屬性：確定對(duì)象左邊的水平坐標(biāo)；,,ScaleTop屬性：確定對(duì)象頂端的垂直坐標(biāo)；,,ScaleWidth屬性：確定對(duì)象內(nèi)部水平的單元數(shù)目；,,ScaleHeight屬性：確定對(duì)象內(nèi)部垂直的單元數(shù)目,。,,,如：ScaleLeft = -50 : ScaleTop = 50,,ScaleWidth = 100 : ScaleHeight = -100,,利用窗體的,Scale,方法,,,如：,Form1.Scale (-50, 50) - (50, -50),,,其中:前括號(hào)指左上角坐標(biāo)，后括號(hào)指右下角坐標(biāo),,可讀系統(tǒng)由控件的ScaleMode屬性設(shè)置的。ScaleMode的值有：,,ScaleMode值 意義,,0 用戶自定義,,1 點(diǎn)素（Twip　即“特維”，缺省刻度）,,2 點(diǎn)（Point）,,3 象素（Pixel，這與屏幕分辨率有關(guān)）,,4 字符（Character）,,5 英寸（Inch）,,6 毫米（Millimeter）,,7 厘米（Centimeter）,,,(3),刻度系統(tǒng),9.1 圖形處理,思考題：如將水平滾動(dòng)條的最小值設(shè)置為0，最大值設(shè)置為255，應(yīng)對(duì)其——屬性要進(jìn)行設(shè)置。,,A 。left和top B width和height Csmallchange和largechange D min和max,,(1) 當(dāng)前坐標(biāo),,?,對(duì)象：窗體、圖形框等。,,?,屬性：CurrentX、CurrentY，該屬性設(shè)計(jì)階段不可用,,?,絕對(duì)坐標(biāo) ：(x,y),,?,相對(duì)坐標(biāo)：step ( x, y),,(2) 線寬,,? 窗體、圖形框或打印機(jī)的DrawWidth屬性給出這些對(duì)象上所畫線的寬度或點(diǎn)的大小。,,DrawWidth,屬性以像素為單位來度量，最小值為1。,,2.,,繪圖屬性,9.1 圖形處理,,(3) 線型（DrawStyle）,2.,,繪圖屬性,9.1 圖形處理,(4) 填充,,封閉圖形的填充方式由以下兩個(gè)屬性決定：,,,FillColor,指定填充圖案的顏色，缺省值與,ForeColor,相同,,FillStyle,屬性指定填充的圖案，共有8種內(nèi)部圖案。,DrawStyle設(shè)置值 線型,,0 實(shí)線,,1 長(zhǎng)劃線,,2 點(diǎn)線,,3 點(diǎn)劃線,,4 點(diǎn)點(diǎn)劃線,,5 透明線,,6 內(nèi)實(shí)線,,VB采用對(duì)象前景色（ForeColor）來繪圖,,?,,RGB函數(shù),,格式：,RGB（紅，綠，藍(lán)）,,其中： 紅、綠、藍(lán)三基色的成分使用0~255之間的整數(shù)，共有,,256×256,×256種顏色,,?,,QBColor函數(shù),,格式：,QBColor（顏色碼）,,其中： 顏色碼使用0~15之間的整數(shù)，共有16色,,例：Label1.forecolor=RGB(255,0,0),,Label1.forecolor=vbred,2.,,繪圖屬性,9.1 圖形處理,(5) 色彩,,9.1 圖形處理,3.使用繪圖控件,,(1) Line控件：繪制直線,,屬性：,BorderStyle：直線類型，8種，默認(rèn)為1(實(shí)線) 見206頁(yè)表,,BorderWidth：設(shè)置線寬,,BorderColor：設(shè)置線條顏色,,X1,Y1,X2,Y2：設(shè)置起始點(diǎn)和終止點(diǎn)的坐標(biāo),,,(2)Shape控件：,,屬性：Shape,：設(shè)置圖形的形狀(參見P204表9.2）,,,FillStyle：,設(shè)置填充樣式，默認(rèn)為1,,9.1 圖形處理,(1) Pset方法：,用于畫點(diǎn),,格式：,[object.]Pset[Step](x,y)[,顏色],,,其中：objec 是用于繪圖板的“容器”對(duì)象名，如在本窗體畫點(diǎn)，可以省去，(x,y)為點(diǎn)的坐標(biāo)；Step表示采用采用相對(duì)坐標(biāo)；,,注：采用背景顏色可清除某個(gè)位置上的點(diǎn)。,,,,4.繪圖方法（點(diǎn)，線和圓）,舉例：PSet (1000, 1000), vbRed,,Picture1.PSet (1000, 2000), vbBlue,,PSet (1000, 1000),,PSet (1000, 1000), BackColor,,例9-3,在圖片框上生成“,天女散花,”,Option Explicit,,Private Sub Command1_Click(),,Dim i As Integer,,For i = 1 To 30000,,Call draw,,Next i,,End Sub,,Private Sub Command2_Click(),,End,,End Sub,,Private Sub draw(),,Dim r As Integer, g As Integer, b As Integer,,Dim x As Single, y As Single,,Dim w As Integer, h As Integer,,Randomize,,r = Int(Rnd * 256),,,g = Int(Rnd * 256),,b = Int(Rnd * 256),,w = pic1.Width,,h = pic1.Height,,x = Int(Rnd * w),,y = Int(Rnd * h),,pic1.PSet (x, y), RGB(r, g, b),,End Sub,,9.1 圖形處理,(2) Line方法,：,用于畫直線或矩形,4.繪圖方法,語(yǔ)法:,,[object.],Line,[[Step](x1,y1)] - [Step](x2,y2) [,Color],,說明：Color：指定畫線顏色,,Step：用來指出要畫出的點(diǎn)與前一點(diǎn)的相對(duì)位置,示例：繪制一個(gè)任意三角形,說明： Form1. CurrentX = 2000,,Form1. CurrentY = 2000,語(yǔ)法:,,[object.],Line,[[Step](x1,y1)] - [Step](x2,y2) [,Color],,,B[F],,說明：B：利用給定坐標(biāo)畫矩形.,(使用時(shí)其前兩個(gè)逗號(hào)不可省)。,,F：規(guī)定矩形的填充顏色,(,在使用B參數(shù)的前提下使用)。,,,,例9-4,在窗體上畫“三角形”,Private Sub Command1_Click(),,Line (1500, 500)-(2500,750),,Line -(1750, 1500),,Line -(1500, 500),,End Sub,,,9.1 圖形處理,(3) Circle方法：,用于畫圓、橢圓、圓弧和扇形,4.繪圖方法,,畫圓：,[對(duì)象.],Circle [Step](x,y),,半徑[,,Color],[start],[end],[,aspect],參數(shù),：,start:,指定弧的起點(diǎn)位置,默認(rèn)值為0.,,,end,:,指定弧的終點(diǎn)位置,,默認(rèn)值為2π.,,,Aspect:,,大于1時(shí)，橢圓沿垂直方向拉長(zhǎng)；當(dāng)小于1時(shí)，橢圓沿水平方向拉長(zhǎng)。默認(rèn)值為1，將產(chǎn)生一個(gè)標(biāo)準(zhǔn)圓.,扇形：,start,和,end,均取負(fù)值,,9.1 圖形處理,4.繪圖方法,例1：,,Private Sub Command1_Click(),,,,form1.Circle (1200, 1000), 750, vbRed,,Circle,Step(0,0),,850, RGB(200, 0,255),,End Sub,,,例9-6,在窗體上畫出一個(gè)扇形、圓,,Private Sub Form_Load(),,,Const PI = 3.14159,,Show,,Circle (2500, 1500), 1200, vbBlue, -PI, -PI/2,,Circle Step(-600, -600), 600,,5/25,End Sub,,,9.1 圖形處理,5. 清除圖形：[object.]cls,,6.在圖形中加入文本：,,例：,currentX=1908,,currentY=1908,,Print”輸出位置“,,比較記憶：點(diǎn)、線和圓的語(yǔ)法,,,,,點(diǎn)： [對(duì)象.]Pset[Step](x,y)[,顏色],,線： [對(duì)象.]Line [[Step](x1,y1)] - [Step](x2,y2) [,Color],,圓： [對(duì)象.] Circle [Step](x,y),半徑[,Color],,,小結(jié)：設(shè)定坐標(biāo)，利用繪圖控件（方法）畫畫。,,,,,2001（春）,,在,VB,中最基本的對(duì)象是（ ），它是應(yīng)用程序的基石，也是其他控件的容器。,,A.,文本框,B.,命令按鈕,C.,窗體,,D.,標(biāo)簽,,2000（秋）,,能被對(duì)象所識(shí)別的動(dòng)作與對(duì)象可執(zhí)行的活動(dòng)分別稱為對(duì)象的（ ）。,,A.,方法、事件,B.,事件、方法,,C.,事件、屬性,D.,過程、方法,,2001(,春),,有程序代碼：,Text1.Text="Visual Basic",,其中的,Text1、Text,和",Visual Basic",分別代表( )。,,A.,對(duì)象、值、屬性,B.,對(duì)象、方法、屬性,,C.,對(duì)象、屬性、值,,D.,屬性、對(duì)象、值,,,,,,Visual Basic 等級(jí)試題,,9.1 圖形處理,5. 使用圖片框,1、使用picture屬性顯示圖片,,2、使用loadpicture加載圖片,,loadpicture([fname],[size],[coloredpth],[x,y]),,3、使用paintpicture方法,,[object.]paintpicture picture,dx,dy[,dw[,dh[,sx[,,,9.1 圖形處理,5. Visual Basic的鼠標(biāo)事件,VB系統(tǒng)除了能捕獲Click和Dbl Click以外，還可以捕獲鼠標(biāo)按鈕的按下、釋放和移動(dòng)。即引發(fā)鼠標(biāo)的MouseDown，MouseUp，MouseMove等事件。,,9.1 圖形處理,5. Visual Basic的鼠標(biāo)事件,⑵鼠標(biāo)事件使用的參數(shù),,,MouseUp,(,Button,As Integer,,Shift,As Integer, X As Single, Y As Single),指示哪個(gè)鼠標(biāo)鍵觸發(fā)了鼠標(biāo)事件,判斷在按鍵的同時(shí),是否按下了,Shift、Alt或Ctrl鍵,鼠標(biāo)指針的位置,⑴ 鼠標(biāo)事件及觸發(fā)條件,,,MouseDown,事件,：按下任意鼠標(biāo)按鍵時(shí)觸發(fā),,,MouseUp,事件,：釋放任意鼠標(biāo)按鍵時(shí)觸發(fā),,,MouseMove,事件,：鼠標(biāo)移動(dòng)過程中時(shí)觸發(fā),,Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single),,If Button = vbRightButton Then Print “你按下鼠標(biāo)右鍵",,If Button = vbLeftButton Then Print “你按下鼠標(biāo)左鍵”,,End Sub,示例：檢測(cè)用戶按下了鼠標(biāo)的哪個(gè)鍵？,5.VB的鼠標(biāo)事件,9.1 圖形處理,,1. 使用動(dòng)畫控件（Animation),,,(1) 功能,,用于播放無聲的“.avi”的數(shù)字電影文件。,,,(2) 添加部件,,部件——Microsoft Windows Common Controls-2 6.0,,,(3) 常用屬性,,Center:,設(shè)為,True，,可確保播放的畫面位于動(dòng)畫控件的中間位置。,,Autoplay,:,用于設(shè)定已打開的動(dòng)畫文件的自動(dòng)播放。,9.2 多媒體應(yīng)用,VB中與多媒體有關(guān)的控件有兩個(gè)，都是ActiveX控件。一個(gè)是動(dòng)畫控件，另一個(gè)是媒體控制控件。,,(4) 常用方法,,Open,---,打開播放文件,,格式：,Object.Open,fname,,Play,----,用于進(jìn)行播放,,格式：,Object.Play [repeat][,start][,end],,其中：,repeat：,重復(fù)播放的次數(shù),,,start：,起始播放的楨；,end：,停止播放的楨,,例如：,animat1.play 5,9,24,1. 使用動(dòng)畫控件（Animation),,9.2 多媒體應(yīng)用,表示：使用名為animat1的動(dòng)畫控件要把已打開的“.avi”文,,件的第 10幅畫到第25幅畫面重復(fù)播放5遍。,,Stop,-----,停止播放,,一般形式：,Object.stop,,,Close,-----,關(guān)閉文件,,2. 多媒體控件,,(1)多媒體控件(Multimedia MCI),,,用于管理，控制各種MCI （Media Contol Interface )設(shè)備的控件。它提供了一組控制按鈕，可以通過這些按鈕控制和管理聲卡 、 CD-ROM、VCD播放器等設(shè)備。,,(2)添加部件,,第一步:工程/部件,,第二步:部件,,第三步:在“控件”列表框中選定,,Microsoft Multimedia Control 6.0,9.2 多媒體應(yīng)用,,(3) 主要屬性:,,,Enabled,：使該控件有效,,,Visible：,使該控件可見,,,DeviceType：,設(shè)置多媒體控件所要管理的設(shè)備類型,,,AutoEnable：,為True時(shí)，自動(dòng)激活DeviceType所指定的設(shè)備。,,,FileName：,指定MCI所要使用的文件名稱,,,Command：,在運(yùn)行時(shí)使用，指定需要執(zhí)行的MCI命令,,(4) MCI命令,,,它是通過一套高層的與設(shè)備無關(guān)的命令來控制多媒體設(shè)備的。,,主要命令如表9-7所示(p223)。,,格式：,Mmcontrol1.Command=“commandname”,,例如： Mmcontrol1.Command=“Open”,2. 多媒體控件,9.2 多媒體應(yīng)用,,示例:交叉火力,請(qǐng)演示中的程序,,需要定時(shí)器:,,Private Sub Timer1_Timer(),,If mnuCtlMoveDemo.Checked And DoFlag = True Then,,CtlMoveDemo,,ElseIf mnuLineDemo.Checked And DoFlag = True Then,,LineDemo ‘交叉火力,,ElseIf mnuShapeDemo.Checked And DoFlag = True Then,,ShapeDemo,,ElseIf mnuPSetDemo.Checked And DoFlag = True Then,,PSetDemo,,……………………,,End If,,End Sub,,主要程序代碼:,,Private Sub LineDemo(),,Dim X2,,Dim Y2,,R = 255 * Rnd,,G = 255 * Rnd,,B = 255 * Rnd,,X2 = Int(DemoForm.Width * Rnd + 1),,Y2 = Int(DemoForm.Height * Rnd + 1),,Line -(X2, Y2), RGB(R, G, B),,End Sub,示例:交叉火力,請(qǐng)演示中的程序,,作業(yè),本章后練習(xí)題 第4,5,6,7題 (第224頁(yè)),實(shí)驗(yàn),實(shí)驗(yàn)13: 實(shí)驗(yàn)13-4 實(shí)驗(yàn)13-5 實(shí)驗(yàn)13-6,,實(shí)驗(yàn)13-7 (實(shí)驗(yàn)指導(dǎo)書),,