Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
ラジアンと度を変換する
1.度 → ラジアン
以下の関数ToRadianを使うと度をラジアンに変換できる。
'■ToRadian
''' <summary>度からラジアンを求めます。</summary>
''' <param name="Degrees">度。度は1周を度と定義する単位です。</param>
''' <returns>ラジアン</returns>
Private Shared Function ToRadian(ByVal Degrees As Double) As DoubleReturn (Math.PI / 180) * Degrees
End Function
メモ:ラジアンの値は近似値です。
使用例
Dim Rad As Double Rad = ToRadian(30)
MsgBox(Rad) '0.523598775598299
2.ラジアン → 度
以下の関数ToDegreeを使うとラジアンを度に変換できる。
'■ToDegree
''' <summary>ラジアンから度を求めます。</summary>
''' <param name="Radian">ラジアン</param>
''' <returns>度。度は1周を度と定義する単位です。</returns>
Private Shared Function ToDegree(ByVal Radian As Double) As DoubleReturn (180 / Math.PI) * Radian
End Function
メモ:度の値は近似値です。
使用例
Dim Degree As Double Degree = ToDegree(3.1415926535897931)
MsgBox(Degree) '180