arkadaşlar benim bi arkadaşım dnem 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

sin, cos, tan, cot, faktriyel hesaplayan gelişmiş bir hesap makinesiPrivate Sub artı_Click Text3. Text = Val(Text1. Text) + Val(Text2. Text)End SubPrivate Sub blme_Click If Text1. Text = "" Then Exit SubText3. Text = Val(Text1. Text) / Val(Text2. Text)End SubPrivate Sub CIKIŞ_Click EndEnd SubPrivate Sub cosinüs_Click If Text1. Text = "" Then Exit SubIf Text1. Text = 90 ThenText3. Text = "0"ElseIf Text1. Text = 270 ThenText3. Text = "0"ElseIf Text1. Text = 180 ThenText3. Text = "-1"Elsef = Val(Text1. Text)b = (Cos(f 3.1415 / 180))Text3. Text = ""Text3. Text = bEnd IfEnd IfEnd IfEnd SubPrivate Sub cotanjant_Click If Text1. Text = "" Then Exit Subf = Val(Text1. Text)b = 1 / Tan(f 3.1415 / 180)Text3. Text = ""Text3. Text = bEnd SubPrivate Sub çarpım_Click Text3. Text = Val(Text1. Text) Val(Text2. Text)End SubPrivate Sub çıkış_Click EndEnd SubPrivate Sub eksi_Click Text3. Text = Val(Text1. Text) - Val(Text2. Text)End SubPrivate Sub faktriyel_Click If Text1. Text = "" Then Exit Suba = Text1. Texts = 1For i = 1 To as = s iNextText3. Text = sEnd SubPrivate Sub karekk_Click If Text1. Text = "" Then Exit SubText3. Text = Val(Text1. Text) ^ (1 / 2)End SubPrivate Sub kdv_Click If Text1. Text = "" Then Exit Suba = Text1. TextText3. Text = Val 18 / 100End SubPrivate Sub küp_Click If Text1. Text = "" Then Exit Suba = Text1. TextText3. Text = Val ^ 3End SubPrivate Sub mod_Click If Text2. Text = "" Then Exit SubText3. Text = Val(Text1. Text Mod (Text2. Text))End SubPrivate Sub sinüs_Click If Text1. Text = "" Then Exit SubIf Text1. Text = 90 ThenText3. Text = "1"ElseIf Text1. Text = 180 ThenText3. Text = "0"ElseIf Text1. Text = 30 ThenText3. Text = "0,5"Elsef = Val(Text1. Text)b = (Sin(f 3.1415 / 180))Text3. Text = ""Text3. Text = bEnd IfEnd IfEnd IfEnd SubPrivate Sub tanjant_Click If Text1. Text = "" Then Exit SubIf Text1. Text = 270 ThenText3. Text = "işlevsiz"ElseIf Text1. Text = 90 ThenText3. Text = "işlevsiz"ElseIf Text1. Text = 45 ThenText3. Text = "1"Elsef = Val(Text1. Text)b = (Tan(f 3.1415 / 180))Text3. Text = ""Text3. Text = bEnd IfEnd IfEnd IfEnd SubPrivate Sub TEMİZ_Click Text1. Text = ""Text2. Text = ""Text3. Text = ""End SubPrivate Sub temizle_Click Text1. Text = ""Text2. Text = ""Text3. Text = ""End SubPrivate Sub yardım_Click MsgBox "Bu program MURAT ZTÜRK tarafından yazılmıştır."End SubPrivate Sub yüzde_Click If Text2. Text = "" Then Exit SubText3. Text = Str(Val(Text1. Text) (Text2. Text) / 100)End Sub Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

www.hazirkod.com punto cero

la ben anlamıyom :)ahanda buradabelki burda vardır punto cero