vb.net圖形輪廓,凸輪輪廓設計vb
vb.net讀取txt的數(shù)據(jù)作圖問題
一、分析：
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供沙河網站建設、沙河做網站、沙河網站設計、沙河網站制作等企業(yè)網站建設、網頁設計與制作、沙河企業(yè)網站模板建站服務，十載沙河做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。
1，這一類隨時間而變化的曲線圖，通常把橫軸作為時間，把縱軸作為相應的值，在這里就是密度值。
2，點的集合就是線；一組時間、密度值，對應一個點，把點連接起來就構成了線。
二、在VB.NET中作圖，需要知道并解決幾個問題：
1，與VB6一樣，VB.NET中默認的坐標系統(tǒng)，左上角為坐標原點，X軸的正向為從左向右，Y軸的正向是從上向下。
為了使得它與數(shù)學中的坐標系統(tǒng)相一致，可以使用VB.NET中Graphics類的兩個方法；
1、TranslateTransform----平移變換
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分別是Single數(shù)據(jù)類型
2、ScaleTransform----縮放變換
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分別是Single數(shù)據(jù)類型；
例如：為了符合數(shù)學中的一般格式，可以使用下述代碼：
Graphics.ScaleTransform(1, -1)
這樣就把Y軸的正方向給翻過來了。
三、VB.NET中繪制圖形
1，繪制圓或橢圓
'繪制圖形的三步曲
'1，獲得一個Graphics對象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定義一個Pen對象，用于繪制圖形（輪廓線）
Dim MyPen As New Pen(Color.Black)
'3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
Dim MyBrush As New SolidBrush(Color.Orange)
'繪制一個實心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'繪制一個空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后兩個數(shù)值如果不等，就是繪制橢圓
當圓足夠小，就是點了。
2，繪制直線
'1，獲得一個Graphics對象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定義一個Pen對象，用于繪制圖形（輪廓線）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
大佬們~VisualStudio中vb.net如何畫三角函數(shù)圖像？
VB系統(tǒng)的坐標原點在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線，自己可以通過改變點坐標的方法來實現(xiàn)，當然，VB.NET提供了相應的方法可以來實現(xiàn)坐標變換，也可以通過VB.Net的Graphics類提供的平移、旋轉等轉換來實現(xiàn)。
下面是我通過自己變換實現(xiàn)的示例，提供參考；我的環(huán)境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
? '1，獲得一個Graphics對象
? Dim MyGraphics As Graphics
? MyGraphics = PictureBox1.CreateGraphics
? '2，定義一個Pen對象，用于繪制圖形（輪廓線）
? Dim MyPen As New Pen(Color.Black, 1)
? '3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
? Dim MyBrush As New SolidBrush(Color.Orange)
? '聲明橫向和縱向比例變量
? Dim Heng As Integer = 20
? Dim Zong As Integer = 50
? '先獲得正弦值，保存到點坐標數(shù)組
? Dim MyPoints(700) As Point
? Dim i As Integer
? For i = 0 To 700
? ? ? MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
? Next
? '采用繪制光滑線連接點的方式繪制曲線
? MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
顯示的效果圖：
vb.net2010中如何在窗口中建立畫布
'繪制圖形的三步曲
'1，獲得一個Graphics對象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定義一個Pen對象，用于繪制圖形（輪廓線）
Dim MyPen As New Pen(Color.Black)
'3，定義一個Brush對象，用于填充圖形（如果需要填充的話）
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '繪制一個實心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內
MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '繪制一個空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內
分享文章：vb.net圖形輪廓,凸輪輪廓設計vb
標題網址：http://m.jiaotiyi.com/article/phdgci.html