?? 56.txt
字號(hào):
用VB繪制拋物線動(dòng)畫(huà)曲線
(作者:許俊 2000年10月13日 10:04)
繪制動(dòng)畫(huà)曲線是編程人員感興趣的問(wèn)題之一,下面筆者將向大家詳細(xì)介紹繪制拋物線的全過(guò)程。
首先,啟動(dòng)VB6,新建標(biāo)準(zhǔn)EXE工程,添加一個(gè)PictureBox控件,兩個(gè)CommandButton控件到窗體,其Caption屬性值分別設(shè)為拋物線和結(jié)束。
雙擊Command1,打開(kāi)代碼編輯器窗口,相應(yīng)事件的代碼如下:
通用聲明模塊:
Const pi = 3.14159
Dim a
Private Sub Command2_Click() 注釋:畫(huà)拋物線
注釋:首先清除picture1內(nèi)的圖形
Picture1.Cls
注釋:Scale方法設(shè)定用戶坐標(biāo)系,坐標(biāo)原點(diǎn)在Picture1中心
Picture1.ScaleMode = 0
Picture1.ScaleMode = 3
Picture1.Scale (-20, 20)-(20, -20)
注釋:設(shè)置繪線寬度
Picture1.DrawWidth = 1
注釋:繪坐標(biāo)系的X軸及箭頭線
Picture1.Line (-20, 0)-(20, 0), vbBlue
Picture1.Line (18, 1)-(20, 0), vbBlue
Picture1.Line -(18, -1), vbBlue
Picture1.ForeColor = vbBlue
Picture1.Print "X"
注釋:繪坐標(biāo)系的Y軸及箭頭線
Picture1.Line (0, 20)-(0, -20), vbBlue
Picture1.Line (1, 18)-(0, 20), vbBlue
Picture1.Line -(-1, 18), vbBlue
Picture1.Print "Y"
注釋:指定位置顯示原點(diǎn)O
Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.Print "O"
注釋:重設(shè)繪線寬度
Picture1.DrawWidth = 2
注釋:用For循環(huán)繪點(diǎn),使其按拋物線規(guī)律變化。步長(zhǎng)值很小,使之形成動(dòng)畫(huà)效果
For a = -10 To 10 Step pi / 6000
Picture1.PSet (a, a ^ 2 / 5), vbRed
Next a
注釋:指定位置顯示描述文字
Picture1.CurrentX = pi / 2
Picture1.CurrentY = -7
Picture1.ForeColor = vbBlack
Picture1.Print "拋物線示意"
End Sub
Private Sub Command3_Click() 注釋:運(yùn)行結(jié)果如圖1
圖1
Unload Me
End Sub
以上程序代碼在VB6.0,Windows 98中調(diào)試通過(guò)。
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -