VB中的三角函數(shù)程序怎么寫

Function ArcSin(X) As Double '反正弦

目前成都創(chuàng)新互聯(lián)公司已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁(yè)空間、網(wǎng)站托管運(yùn)營(yíng)、企業(yè)網(wǎng)站設(shè)計(jì)、騰沖網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

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

擴(kuò)展資料：

Visual Basic 開發(fā)的程序只能運(yùn)行在Microsoft Windows中；且運(yùn)行時(shí)還需要 VB 運(yùn)行庫(kù)。

Visual Basic 不能很好的綜合Windows的基礎(chǔ) API，很多時(shí)候要使用低級(jí)運(yùn)算的“小伎倆”來進(jìn)行編程。而C 語言的低級(jí)內(nèi)存運(yùn)算比 VB 的要簡(jiǎn)單得多。

VB語言作為計(jì)算機(jī)語言的入門，是很多學(xué)生學(xué)習(xí)編程的入門級(jí)語言，大學(xué)生利用VB語言開始了他們學(xué)習(xí)計(jì)算機(jī)的世界。

Visual Basic的強(qiáng)大在于能夠快速開發(fā)企業(yè)級(jí)軟件，使程序員有更多的時(shí)間和精力考慮用戶的需求，生產(chǎn)出滿足用戶需要的軟件，特別適合大型企業(yè)級(jí)軟件的開發(fā)，比如MIS、MRP、MRP II、ERP等重量級(jí)的軟件，而不是花很長(zhǎng)時(shí)間去制作一個(gè)只有幾K的DLL。

參考資料來源：百度百科-vb

參考資料來源：百度百科-三角函數(shù)

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

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

下面是我通過自己變換實(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ì)象，用于繪制圖形（輪廓線）

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

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

? 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ì)象，用于繪制圖形（輪廓線）

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

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

? 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

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

? MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

顯示的效果圖：

在visual studio中編寫VB程序時(shí)sin cos為何不識(shí)別，如何才能輸入三角函數(shù)？

vb.net提供了許多命名空間，三角函數(shù)在?System.Math 命名里：

在代碼窗口的最上面添加如下代碼：

Imports System.Math

見下圖：

分享文章：vb.net的三角函數(shù) VB三角函數(shù)
分享路徑：http://chinadenli.net/article18/hhjsgp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站制作、定制網(wǎng)站、、移動(dòng)網(wǎng)站建設(shè)

廣告

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