BİR SAYININ KARESİNİ, KAREKÖKÜNÜ,SİNÜSÜNÜ, COSÜNÜSÜNÜ, TANJANTINI bulma

[qazmq]

BİR SAYININ KARESİNİ, KAREKÖKÜNÜ,SİNÜSÜNÜ, COSÜNÜSÜNÜ, TANJANTINI ALDIRMA.

EN ÖNCE FORMUMUZA 6 TANE COMMAND BUTON( CAPTIONLARI KARE, KAREKÖK, SİN...) 1 TANE TEXTBOX VE 1 TANE LABEL EKLİYORUZ. KODLARI COMMANDLARIN İÇİNE TEKER TEKER YAZIYORUZ. KODLAR ŞÖYLE: (text1.text name = x)



Private Sub Command1_Click()
Label1 = x ^ 2 'karesi'
End Sub

Private Sub Command2_Click()
Label1 = Sqr(x) 'karekökü'
End Sub

Private Sub Command3_Click()
Label1 = Sin(x)
End Sub

Private Sub Command4_Click()
Label1 = Cos(x)
End Sub

Private Sub Command5_Click()
Label1 = Tan(x)
End Sub