ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

表紙 > VB.NET サンプル >

ラジアンと度を変換する

1.度 → ラジアン

以下の関数ToRadianを使うと度をラジアンに変換できる。

VB.NET2002対応 VB.NET2003対応 VB2005対応

'■ToRadian
''' <summary>度からラジアンを求めます。</summary>
''' <param name="Degrees">度。度は1周を度と定義する単位です。</param>
''' <returns>ラジアン</returns>
Private Shared Function ToRadian(ByVal Degrees As Double) As Double

    Return (Math.PI / 180) * Degrees

End Function

メモ:ラジアンの値は近似値です。

 

使用例

VB.NET2002対応 VB.NET2003対応 VB2005対応

Dim Rad As Double

Rad = ToRadian(30)

MsgBox(Rad) '0.523598775598299

 

2.ラジアン → 度

以下の関数ToDegreeを使うとラジアンを度に変換できる。

VB.NET2002対応 VB.NET2003対応 VB2005対応

'■ToDegree
''' <summary>ラジアンから度を求めます。</summary>
''' <param name="Radian">ラジアン</param>
''' <returns>度。度は1周を度と定義する単位です。</returns>
Private Shared Function ToDegree(ByVal Radian As Double) As Double

    Return (180 / Math.PI) * Radian

End Function

メモ:度の値は近似値です。

 

使用例

VB.NET2002対応 VB.NET2003対応 VB2005対応

Dim Degree As Double

Degree = ToDegree(3.1415926535897931)

MsgBox(Degree) '180