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

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

用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中調試通過。 

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产女人好爽好多水 | 久久精品国产免费 | 午夜免费网站 | 欧美一区视频 | 亚洲免费成人 | 伊人天伊人天天网综合视频 | 午夜精品aaa国产福利 | 91精品视频观看 | 久久久国产成人精品 | 亚洲女精品一区二区三区 | 国产欧美日韩不卡一区二区三区 | 久久99精品国产99久久 | 免费一级欧美片片线观看 | 亚洲精品ai换脸一区二区三区 | 国产午夜精品理论片久久影视 | 精品视频在线观看视频免费视频 | 成人福利在线观看 | 中文字幕一区二区三区久久网站 | 成人午夜免费福利 | 黄网站在线免费 | 免费观看无遮挡www的视频 | 国产精品久久久久久亚洲小说 | 亚洲福利视频一区二区 | 久草新在线观看 | 国产精品久久久精品a级小说 | 婷婷丁香亚洲 | 亚洲欧美一级夜夜爽w | 国产一区二区三区欧美精品 | 精品久久久久久久久免费影院 | 国产精品久久免费视频 | 日韩小视频在线 | 欧美一级毛片做受 | 国产精品午夜性视频 | 国产成人精品一区二区免费 | 98国产精品永久在线观看 | 波多野结衣国产一区二区三区 | 国产90后美女露脸在线观看 | 午夜毛片视频高清不卡免费 | 人人色在线视频播放 | 国产精品九九 | 亚洲3级|