講師：戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所 Visual Basic 程式設計 講師：戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所

第七章 繪圖世界 繪圖函式 繪圖控制項

Print函式 Print:畫出文字 CurrentX:x座標值 CurrentY:y座標值 For i=1 to 5 print “CurrentX=”;CurrentX, _ “CurrentY=”;CurrentY Next i Form的屬性 ，不用宣告

Print函式(cont’d) 改變CurrentX與CurrentY的值可以改變文字的位置 Randomize Cls For i=1 to 5 CurrentX=Rnd()*Width CurrentY=Rnd()*Height print “test” Next i

座標系統 修改表單(form)的ScaleMode屬性可以改變座標系統 單位大小:表單(Form)的ScaleMode屬性 ScaleWidth, ScaleHeight…… Width, Height…… x軸 可由屬性視 窗修改 (x,y) y軸

座標系統(cont’d) vbUser 由程式設計師自訂 vbTwips 1 由程式設計師自訂 vbTwips 1 每吋1440twips,每公分567twips,每點20twips vbPoints 2 每吋72個point vbPixels 3 像素--螢幕上最小的單位 vbCharacter 4 字元 vbInches 5 英吋 vbMillimeters 6 公厘 vbCentimeters 7 公分

座標系統(cont’d) 屬性值 說　　　　　　　　　明 使用者自訂。當改變ScaleTop, ScaleLeft, ScaleHeight, ScaleWidth 值時，系統會自動設ScaleMode = 0 1 以Twip為單位，1 Twip = 1/1440英吋(預設值)。 ＊2 以點(Point)為單位，1點 = 1/72英吋。 3 以像素(Pixel)為單位，像素為螢幕上的基本單位。 4 以字元(Character)為單位，每個字元高1/6英吋，寬1/12英吋。 5 以英吋(inch)為單位。 6 以公厘(mm)為單位。 7 以公分(cm)為單位。

Scale() 語法：[物件.] Scale [(x1 ，y1 )－(x2 ，y2 )] 功能：設定物件內部坐標

Scale() Private Sub Form_Load() Me.Scale (-100, 100)-(300,-100) End Sub (-100,100) (300,-100)

利用Scale** 自訂座標系統 也可經由設定ScaleTop, ScaleLeft, ScaleWidth, ScaleHeight四個屬性來自訂座標 Form1.ScaleTop=-100 Form1.ScaleLeft=-100 Form1.ScaleWidth=400 Form1.ScaleHeight=200

Line函式:畫線 Line (x1,y1) – (x2,y2)[, 顏色][, B[F]] 顏色: 型式: vbRed, vbBlue, vbGreen…… RGB(R,G,B)RGB(0,0,255) 型式: 畫線 畫方框:B 畫實心長方形:BF 框線顏色使用ForeColor

Line函式:畫線(cont’d) Line (0,0)-(50,50) Line (10,30)-(60,60),vbRed Line (30,30)-(70,70),vbGreen,B Line (70,70)-(100,100),vbBlue,BF 可試著改變 座標系統

顏色 QBColor(i) :利用QBColor函數，以條狀圖來顯示顏色代碼 0-15所對應的顏色。 vbBlack 黑 0,0,0 vbBlue 藍 0,0,255 vbCyan 0,255,255 vbGreen 綠 0,255,0 vbYellow 黃 255,255,0 vbWhite 白 255,255,255 vbRed 紅 255,0,0 vbMagenta 255,0,255

顏色 RGB (Red, Green, Blue) : 使用RGB函數設定顏色 紅(R) 綠(G) 藍(B) 白 黃 灰藍 紫 範例

Point 方法 [object.] point (x, y) 傳回指定位置的色彩值： PointColor = Point (500, 500)

Circle函式:畫圓(橢圓) Circle (x,y) ,r [,color][,起始角度,結束角度][,比率] (x,y):圓心 Private Sub form_click() Circle (50, 50), 30 Circle (80, 80), 30 Circle (100, 100), 20, vbRed, , , 2 End Sub 以後的例子使用vbPixel模式

Circle函式:畫弧畫扇(cont’d) Dim PI As Single PI = 3.14159 Circle (50, 50), 30, , -PI/2, -PI Circle (100, 100), 30, , -PI/2, PI Circle (140, 140), 30, , PI/2, -PI 1/2 π π 0 or 2π 3/2 π

PSet:畫點 PSet(x,y),顏色

PSet:畫點 (cont’d) 繪製一條拋物線，其方程式：Ｙ＝ X2 /10 (X為整數且-10≦X≦10） Private Sub Form_Activate() Scale (-20, 20)-(20, -20) Line (-20, 0)-(20, 0), RGB(0, 0, 255) '畫x軸 Line (0, 20)-(0, -20), RGB(0, 0, 255) '畫y軸 DrawWidth = 3 '設粗細 For x = -10 To 10 PSet (x, x ^ 2 / 10), RGB(255, 0, 0) 'X^2表示X的2次方 Next x End Sub

PSet:畫點 (cont’d)

DrawStyle 在屬性視窗在修改 DrawStyle=vbSolid vbSolid vbDashDotDot 4 vbDash 1 vbDashDotDot 4 vbDash 1 vbInvisible 5 vbDot 2 vbInsideSolid 6 vbDashDot 3 在屬性視窗在修改 DrawStyle=vbSolid

FillStyle vbFSSolid vbUpwardDiagonal 4 vbFSTransparent 1 vbUpwardDiagonal 4 vbFSTransparent 1 vbDownwardDiagonal 5 vbFSHorizontalLine 2 vbCrose 6 vbVerticaLine 3 vbDiagonalCross 7

FillStyle值 說 明 實心 1 透明(預設值) 2 水平線 3 垂直線 4 左上到右下的斜線 5 左下到右上的斜線 6 垂直交叉線 7 對角交叉線

例子 Private Sub form_click() ForeColor = vbBlack FillColor = vbGreen Line (10, 10)-(30, 30), , BF Line (40, 40)-(60, 60), , B FillStyle = vbSolid Line (70, 70)-(90, 90), , B FillStyle = vbHorizontalLine Line (100, 100)-(120, 120), , B ForeColor = vbGreen Line (110, 110)-(130, 130), , B End Sub

小時鐘II Private Sub Timer1_Timer() Cls Dim hr, min, sec As Integer Const PI As Single = 3.14159 Dim x, y As Integer hr = Hour(Time) min = Minute(Time) sec = Second(Time) Circle (100, 100), 90 程式還沒完喔

小時鐘II(cont’d) x = 100 + 60 * Cos((hr - 3) * (-360 / 12) _ * (PI / 180) + min/60 * (-360 / 12) _ * (PI / 180)) y = 100 - 60 * Sin((hr - 3) * (-360 / 12) _ Line (100, 100)-(x, y) x = 100 + 70 * Cos((min - 15) * (-360 / 60) _ y = 100 - 70 * Sin((min - 15) * (-360 / 60) _ Line (100, 100)-(x, y), vbBlue x = 100 + 80 * Cos((sec - 15) * (-360 / 60) _ y = 100 - 80 * Sin((sec - 15) * (-360 / 60) _ Line (100, 100)-(x, y), vbRed End Sub

小時鐘II(cont’d) 12 2π=360 。 1 。 = π/180 θ=-(hr-3)*(360/12)*(π/180) 3 9 r*sin(θ) θ r*cos(θ) 6

Image控制項 Shape 使用控制項的好處： 不會被Cls清除 有分開的訊息 易於管理 etc…… Line Image

Image控制項(cont’d) 屬性: Picture:用對話盒選取檔案 Scretch:是否放大、縮小

Image控制項(cont’d) 支援的圖形格式 GIF .gif Cursor .cur Bitmap .bmp Windows meta file .wmf .dib Enhance WMF .emf Icon .ico JPEG .jpg

Line控制項 屬性： BorderColor:線條顏色 BorderStyle:線條形式 BorderWidth:線條寬度 X1,Y1:線條起始點 X2,Y2:線條終點

BorderStyle vbTransparent vbBSSolid 1 vbBSDash 2 vbBSDot 3 vbBSDashDot vbBSSolid 1 vbBSDash 2 vbBSDot 3 vbBSDashDot 4 vbBSDashDotDot 5 vbBSInsideSolid 6 注意：與DrawStyle相似，但不同

例子 Private Sub form_click() Line1.BorderWidth = 10 Line2.BorderStyle = vbBSDot Line3.Visible = False End Sub

Shape控制項 改變Shape屬性值可以轉變成多種形狀 其它屬性 BorderStyle BorderWidth FillStyle …… vbShapeRectangle vbShapeCircle vbShapeOval vbShapeRoundedRectangle vbShapeSquare vbShapeRoundedSquare

習題 設計一個可以畫出二元二次方程式的圖形,請自行設定PictureBox的座標系統史琪左上角和右下角座標分別為(-100,500)和(100,-500)