Sinus Code"

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Sinus Code"

21/Nis/06 19:27 Kısayol Şikayet Özel Mesaj

Fikibok
KaptaN

Kayıt Tarihi: 30/Ağustos/2005

arkadaşlar benim bi arkadaşım dönem ödevi almış
microsoftun hesap makinasını yapıyormuş 5 işleme kadar yapmış ama geri kalan sinus hesaplama gibi hesapların visual basic kodları lazım elinde olan varmı varsa lütfen paylaşırmısınız teşekkürler

Alıntı yap
21/Nis/06 19:40 Kısayol Şikayet Özel Mesaj

tuncaxxz

Kayıt Tarihi: 23/Ağustos/2005

la ben anlamıyom :)

ahanda burada

belki burda vardır

punto cero

Alıntı yap
21/Nis/06 19:41 Kısayol Şikayet Özel Mesaj

tuncaxxz

Kayıt Tarihi: 23/Ağustos/2005

www.hazirkod.com

punto cero

Alıntı yap
21/Nis/06 19:50 Kısayol Şikayet Özel Mesaj

ertan

Kayıt Tarihi: 21/Temmuz/2005

sin,cos,tan,cot, faktöriyel hesaplayan gelişmiş bir hesap makinesi

Private Sub artı_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub bölme_Click()
If Text1.Text = "" Then Exit Sub
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub CIKIŞ_Click()
End
End Sub

Private Sub cosinüs_Click()
If Text1.Text = "" Then Exit Sub
If Text1.Text = 90 Then
Text3.Text = "0"
Else
If Text1.Text = 270 Then
Text3.Text = "0"
Else
If Text1.Text = 180 Then
Text3.Text = "-1"
Else
f = Val(Text1.Text)
b = (Cos(f * 3.1415 / 180))
Text3.Text = ""
Text3.Text = b
End If
End If
End If
End Sub

Private Sub cotanjant_Click()
If Text1.Text = "" Then Exit Sub
f = Val(Text1.Text)
b = 1 / Tan(f * 3.1415 / 180)
Text3.Text = ""
Text3.Text = b
End Sub

Private Sub çarpım_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub çıkış_Click()
End
End Sub

Private Sub eksi_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub faktöriyel_Click()
If Text1.Text = "" Then Exit Sub
a = Text1.Text
s = 1
For i = 1 To a
s = s * i
Next
Text3.Text = s
End Sub

Private Sub karekök_Click()
If Text1.Text = "" Then Exit Sub
Text3.Text = Val(Text1.Text) ^ (1 / 2)
End Sub

Private Sub kdv_Click()
If Text1.Text = "" Then Exit Sub
a = Text1.Text
Text3.Text = Val(a) * 18 / 100
End Sub

Private Sub küp_Click()
If Text1.Text = "" Then Exit Sub
a = Text1.Text
Text3.Text = Val(a) ^ 3
End Sub

Private Sub mod_Click()
If Text2.Text = "" Then Exit Sub
Text3.Text = Val(Text1.Text Mod (Text2.Text))
End Sub

Private Sub sinüs_Click()
If Text1.Text = "" Then Exit Sub
If Text1.Text = 90 Then
Text3.Text = "1"
Else
If Text1.Text = 180 Then
Text3.Text = "0"
Else
If Text1.Text = 30 Then
Text3.Text = "0,5"
Else
f = Val(Text1.Text)
b = (Sin(f * 3.1415 / 180))
Text3.Text = ""
Text3.Text = b
End If
End If
End If
End Sub

Private Sub tanjant_Click()
If Text1.Text = "" Then Exit Sub
If Text1.Text = 270 Then
Text3.Text = "işlevsiz"
Else
If Text1.Text = 90 Then
Text3.Text = "işlevsiz"
Else
If Text1.Text = 45 Then
Text3.Text = "1"
Else
f = Val(Text1.Text)
b = (Tan(f * 3.1415 / 180))
Text3.Text = ""
Text3.Text = b
End If
End If
End If
End Sub

Private Sub TEMİZ_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub temizle_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub yardım_Click()
MsgBox "Bu program MURAT ÖZTÜRK tarafından yazılmıştır."
End Sub

Private Sub yüzde_Click()
If Text2.Text = "" Then Exit Sub
Text3.Text = Str(Val(Text1.Text) * (Text2.Text) / 100)
End Sub

Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...

Alıntı yap

Toplam Hit: 2437 Toplam Mesaj: 4

Cevapla