三角関数 VB.NET入門

      2016/04/24


三角関数の初級編。

sin,cos,tanのメソッドを使います。

仕様
テキストボックス1に角度を入れて
対応するボタンを押したら
テキストボックス2に解が表示される。

Mathクラスのメソッドに引数はラジアンを入れます。
角度からラジアンに変換してます。

Public Class Form1
Dim degrees As Double

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text "" Then
degrees = TextBox1.Text
TextBox2.Text = System.Math.Sin(degrees * System.Math.PI / 180)
End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text "" Then
degrees = TextBox1.Text
TextBox2.Text = System.Math.Cos(degrees * System.Math.PI / 180)

End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If TextBox1.Text "" Then
degrees = TextBox1.Text
TextBox2.Text = System.Math.Tan(degrees * System.Math.PI / 180)
End If
End Sub

当方は数字大苦手ですので。
90度入れたらsin以外当然バグります。
仕様です。
本来は例外書けばいいですが今回は割愛します。

PR



 - 未分類 , , ,

Translate »