Gorsel Programlama

Belli bir derece açının sinüsünü ve cosinüsünü hesaplayan ve bunları listboxtta gösteren program yapımı. 1.sınav 2.soru.

0-180 derece arasındaki açılardan sadece  0-90 derece arasındaki açıların sinüslerini  , 90 – 180 derecenin de Cosinüslerini hesaplayan ve bunu listboxda gösteren  programı tasarlayınız. FOR-NEXT döngüsü içinde if-then  komutu  kullanılacaktır.

Yapılışı;

Button1(Hesapla) yazılacaklar;

Dim a As Integer

For a = 0 To 180
If a <= 90 Then
ListBox1.Items.Add(a & " lik açının sinüsü=" & Math.Sin(Math.PI * a / 180))
Else
ListBox1.Items.Add(a & " lik açının cosinüsü=" & Math.Cos(Math.PI * a / 180))
End If
Next