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

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

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 日韩专区一区 | 久久草在线 | 三级网址在线播放 | 天天射天天爱天天干 | 国产欧美精品一区二区三区 | 日本影音| 2022精品福利在线小视频 | 四虎影院免费在线播放 | 日本a∨在线播放高清 | 日本免费高清在线 | 91免费视频观看 | 中文字幕欧美亚洲 | 日韩三级久久 | 在线免费观看色视频 | 久久99久久99精品观看 | 天天干天天操天天操 | 欧美福利精品福利视频在线观看 | 精品在线视频免费观看 | 日本性插 | 99国产牛牛视频在线网站 | 国产精品香蕉在线观看首页 | 欧美婷婷综合 | 香蕉午夜视频 | 久久久99精品免费观看 | 91亚洲区国产区精品区 | 黄页成人免费网站 | 天天摸天天揉天天碰天天弄 | 成人小视频网 | 四虎永久免费在线观看 | 国产一级毛片夜一级毛片 | 免费网站日本永久免费观看 | 优优色综合| 亚洲精品在线视频 | 日韩aaa| 精品国产91porncao | 天天色播| 久久99久久精品国产只有 | 24小时日本在线www免费的 | 日韩在线观看第一页 | 国产精品成人观看视频国产 | 国产精品视频大全 |