VB上怎么畫(huà)三角形

定義好三角形的三個(gè)點(diǎn)，用line畫(huà)線(xiàn)連接即可。

成都創(chuàng)新互聯(lián)聯(lián)系電話(huà)：18982081108，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)，成都創(chuàng)新互聯(lián)網(wǎng)頁(yè)制作領(lǐng)域十載，包括封陽(yáng)臺(tái)等多個(gè)領(lǐng)域擁有多年的網(wǎng)站制作經(jīng)驗(yàn)，選擇成都創(chuàng)新互聯(lián)，為網(wǎng)站保駕護(hù)航。

示例如下：

Private?Sub?Form_Load()

Me.AutoRedraw?=?True

Dim?x?As?Integer

Dim?y?As?Integer

CurrentX?=?1500

CurrentY?=?500

Line?-(3000,?2000),?RGB(0,?0,?255)

Line?-(1500,?2000),?RGB(0,?0,?255)

Line?-(1500,?500),?RGB(0,?0,?255)

End?Sub

運(yùn)行效果：

在vb中。如何進(jìn)行三角函數(shù)的程序代碼編寫(xiě)

有幾個(gè)地方要注意：

1、VB中的三角函數(shù)的角度全部是用弧度制表示的，如果是度數(shù)的話(huà)，應(yīng)先乘以180再除以π轉(zhuǎn)成弧度，再用函數(shù)計(jì)算結(jié)果。

2、VB中直接支持的三角函數(shù)有：Sin()、Cos()、Tan()，如果涉及到其它三角函數(shù)，可以從下面列出的代碼中自己選擇相應(yīng)的函數(shù)：

Function

Sec(X)

As

Double

'正割

Sec

=

1

/

Cos(Angle)

End

Function

Function

Csc(X)

As

Double

'余割

Csc

=

1

/

Sin(Angle)

End

Function

Function

Cot(X)

As

Double

'余切

Cot

=

1

/

Tan(Angle)

End

Function

Function

ArcSin(X)

As

Double

'反正弦

ArcSin

=

Atn(X

/

Sqr(-X

*

X

+

1))

End

Function

Function

ArcCos(X)

As

Double

'反余弦

ArcCos

=

Atn(-X

/

Sqr(-X

*

X

+

1))

+

2

*

Atn(1)

End

Function

Function

ArcSec(X)

As

Double

'反正割

ArcSec

=

Atn(X

/

Sqr(X

*

X

-

1))

+

Sgn((X)

-

1)

*

(2

*

Atn(1))

End

Function

Function

ArcCsc(X)

As

Double

'反余割

ArcCsc

=

Atn(X

/

Sqr(X

*

X

-

1))

+

(Sgn(X)

-

1)

*

(2

*

Atn(1))

End

Function

Function

ArcCot(X)

As

Double

'反余切

ArcCot

=

Atn(X)

+

2

*

Atn(1)

End

Function

Function

HSin(X)

As

Double

'雙曲正弦

HSin

=

(Exp(X)

-

Exp(-X))

/

2

End

Function

Function

HCos(X)

As

Double

'雙曲余弦

HCos

=

(Exp(X)

+

Exp(-X))

/

2

End

Function

Function

HTan(X)

As

Double

'雙曲正切

HTan

=

(Exp(X)

-

Exp(-X))

/

(Exp(X)

+

Exp(-X))

End

Function

Function

HSec(X)

As

Double

'雙曲正割

HSec

=

2

/

(Exp(X)

+

Exp(-X))

End

Function

Function

HCsc(X)

As

Double

'雙曲余割

HCsc

=

2

/

(Exp(X)

-

Exp(-X))

End

Function

Function

HCot(X)

As

Double

'雙曲余切

HCot

=

(Exp(X)

+

Exp(-X))

/

(Exp(X)

-

Exp(-X))

End

Function

Function

HArcsin(X)

As

Double

'反雙曲正弦

HArcsin

=

Log(X

+

Sqr(X

*

X

+

1))

End

Function

Function

HArccos(X)

As

Double

'反雙曲余弦

HArccos

=

Log(X

+

Sqr(X

*

X

-

1))

End

Function

Function

HArctan(X)

As

Double

'反雙曲正切

HArctan

=

Log((1

+

X)

/

(1

-

X))

/

2

End

Function

Function

HArcsec(X)

As

Double

'反雙曲正割

HArcsec

=

Log((Sqr(-X

*

X

+

1)

+

1)

/

X)

End

Function

Function

HArccsc(X)

As

Double

'反雙曲余割

HArccsc

=

Log((Sgn(X)

*

Sqr(X

*

X

+

1)

+

1)

/

X)

End

Function

Function

HArccot(X)

As

Double

'反雙曲余切

HArccot

=

Log((X

+

1)

/

(X

-

1))

/

2

End

Function

大佬們~VisualStudio中vb.net如何畫(huà)三角函數(shù)圖像？

VB系統(tǒng)的坐標(biāo)原點(diǎn)在左上角，X軸的正方向是水平向右，而Y軸的正方向是垂直向下。所以，要繪制三角函數(shù)的曲線(xiàn)，自己可以通過(guò)改變點(diǎn)坐標(biāo)的方法來(lái)實(shí)現(xiàn)，當(dāng)然，VB.NET提供了相應(yīng)的方法可以來(lái)實(shí)現(xiàn)坐標(biāo)變換，也可以通過(guò)VB.Net的Graphics類(lèi)提供的平移、旋轉(zhuǎn)等轉(zhuǎn)換來(lái)實(shí)現(xiàn)。

下面是我通過(guò)自己變換實(shí)現(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，獲得一個(gè)Graphics對(duì)象

? Dim MyGraphics As Graphics

? MyGraphics = PictureBox1.CreateGraphics

? '2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線(xiàn)）

? Dim MyPen As New Pen(Color.Black, 1)

? '3，定義一個(gè)Brush對(duì)象，用于填充圖形（如果需要填充的話(huà)）

? 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，獲得一個(gè)Graphics對(duì)象

? Dim MyGraphics As Graphics

? MyGraphics = PictureBox1.CreateGraphics

? '2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線(xiàn)）

? Dim MyPen As New Pen(Color.Black, 1)

? '3，定義一個(gè)Brush對(duì)象，用于填充圖形（如果需要填充的話(huà)）

? Dim MyBrush As New SolidBrush(Color.Orange)

? '聲明橫向和縱向比例變量

? Dim Heng As Integer = 20

? Dim Zong As Integer = 50

? '先獲得正弦值，保存到點(diǎn)坐標(biāo)數(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

? '采用繪制光滑線(xiàn)連接點(diǎn)的方式繪制曲線(xiàn)

? MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

顯示的效果圖：

文章標(biāo)題：vb.net繪制三角符號(hào),vb設(shè)計(jì)三角函數(shù)代碼
地址分享：http://chinadenli.net/article5/dsecooi.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、外貿(mào)建站、App設(shè)計(jì)、面包屑導(dǎo)航、網(wǎng)站制作、軟件開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)