日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

用VB繪制正弦動畫曲線

用VB繪制正弦動畫曲線

更新時間:2022-05-08 文章作者:未知 信息來源:網絡 閱讀次數:

VB提供了繪圖的基本方法,如Pset、Line、Circle,能夠繪出點、直線、圓等基本圖形,但沒有提供繪曲線的方法。其實,我們可以靈活運用基本繪圖方法,來繪出所需要的曲線,甚至達到動畫的效果。

  一、VB坐標系介紹
  VB里有三種坐標系,屏幕坐標系、窗體坐標系和窗體內的對象坐標系,這三種坐標系都是以其左上角為坐標原點,與平常使用的幾何坐標系不一致,我們繪圖時感到不習慣。VB允許編程人員自定義坐標系,根據需要定義坐標原點的位置。

  自定義坐標系的方法是Scale,語法格式:

  Scale (X1,Y1) - (X2,Y2)

  其中: X1是繪圖區域左上角的橫坐標;

  Y1是繪圖區域左上角的縱坐標;

  X2是繪圖區域右下角的橫坐標;

  Y2是繪圖區域右下角的縱坐標。

  例如:Scale (-320,240) - (320,-240) 定義了繪圖區域大小為640×480,坐標原點(0,0)在繪圖區域中心。

  二、繪制正弦動畫曲線
  啟動VB6,新建標準EXE工程,添加一個PictureBox控件,兩個CommandButton控件到窗體,其Caption屬性值分別設為正弦曲線和結束。

  雙擊Command1,打開代碼編輯器窗口,相應事件的代碼如下:

  通用聲明模塊:

  Const pi = 3.14159

  Dim a

  Private Sub Command1_Click() '畫正弦曲線

  '首先清除picture1內的圖形

   Picture1.Cls

   'Scale方法設定用戶坐標系,坐標原點在Picture1中心

   Picture1.ScaleMode = 0

   Picture1.ScaleMode = 3

   Picture1.Scale (-10, 10)- (10, -10)

   '設置繪線寬度

   Picture1.DrawWidth = 1

   '繪坐標系的X軸及箭頭線

   Picture1.Line (-10, 0)-(10, 0), vbBlue

   Picture1.Line (9, 0.5)-(10, 0), vbBlue

   Picture1.Line -(9, -0.5), vbBlue

   Picture1.ForeColor = vbBlue

   Picture1.Print "X"

   '繪坐標系的Y軸及箭頭線

   Picture1.Line (0, 10)-(0, -10), vbBlue

   Picture1.Line (0.5, 9)-(0, 10), vbBlue

   Picture1.Line -(-0.5, 9), vbBlue

   Picture1.Print "Y"

   '指定位置顯示原點O

   Picture1.CurrentX = 0.5

   Picture1.CurrentY = -0.5

   Picture1.Print "O"

   '重設繪線寬度

   Picture1.DrawWidth = 2

   '用For循環繪點,使其按正弦規律變化。步長值很小,使其形成動畫效果

   For a = -2 * pi To 2 * pi Step pi / 6000

   Picture1.PSet (a, Sin(a) * 5), vbRed

   Next

   '指定位置顯示描述文字

   Picture1.CurrentX = pi / 2

   Picture1.CurrentY = -7

   Picture1.ForeColor = vbBlack

   Picture1.Print "正弦曲線示意"

  End Sub

  運行后看效果。

  以上程序代碼在VB 6.0,Windows 98中調試通過。 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 福利视频999 | 成人国产免费 | 轻轻操在线观看 | 欧美一级看片a免费视频 | 劲爆欧美第1页婷婷 | 第九色影院 | 亚洲天堂视频在线播放 | 夜夜爽66 | 99re6这里有精品热视频在线 | www亚洲欲色成人久久精品 | 九色在线看 | 亚洲欧美不卡中文字幕 | 日本精品3d动漫一区二区 | 特级毛片在线播放 | 欧美黄色一级片免费看 | 欧美视频在线观看 | 久久精品韩国日本国产 | 日韩第五页 | 国产福利兔女郎在线观看 | 欧美亚洲日本国产综合网 | 另类欧美日韩 | 欧美一区二区视频三区 | 亚洲欧美综合国产不卡 | 亚洲一区免费 | 亚洲a级片| 黑丝在线 | 动漫成年美女h漫网站视频 动漫成人精品一区二区 | 丁香激情六月天 | 午夜视频免费在线播放 | 老司机精品视频在线 | 精品视频一区二区三区免费 | 日韩123| 91短视频版高清在线观看免费 | 免费一级欧美片在线观免看 | 久久成人a毛片免费观看网站 | 欧美国产成人一区二区三区 | 国产v精品欧美精品v日韩 | 最近中文字幕 | 亚洲日本在线播放 | 波多野结衣在线免费视频 | 亚洲欧美成aⅴ人在线观看 亚洲欧美国产精品 |