casio fx 82 ms cok fonksiyonlu hesap makinesi vb. kodlarıyla beraber

26-09-2019, 04:50:44

#1
TRJotun

Açık Profil bilgileri

Özel Mesaj Gönder

TRJotun tarafından gönderilen tüm mesajları bul

TRJotun'ı arkadaş olarak ekle
https://hotfile.com/dl/156525337/5f2...inesi.rar.html

Dim a, b, hafıza As Decimal 'a ve b değerleri ondalık sayı olacak
Dim işlem As Char 'işlem kareketer olacak
Dim durum, durum2, sayı As Boolean 'durum ve durum 2 değerleri iki durum soz konusudur (true veya false)
Dim tikla, tiklayukari, tiklaasagi As Integer 'tam sayı degerlerini almalı
Dim asd, kelime As String 'karekter veya rakam olabilir
Dim n, keke As Integer
Dim tiklamode As Integer = 0
Dim anns As Decimal 'anns değeri ondalık sayı olacak
Private Sub shift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If tikla = 0 Then 'eğer tıkla:0 ise
gosterge1.Text = "S" 'gosterge1 in text i S e eşit olacak
tikla = 1 'tıkla degeri 1 e esit olacak
ElseIf tikla = 1 Then 'eger tıkla:1 ise
gosterge1.Text = "" 'gosterge 1 bos olacak
tikla = 0 'tıkla degeri 0 olacak
End If
End Sub
Private Sub sıfır_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(sıfır.Text) 'sıfır butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(sıfır.Text) 'sıfır butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If

End Sub
Private Sub yedi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(yedi.Text) 'yedi butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(yedi.Text) 'yedi butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub sekiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(sekiz.Text) 'sekiz butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(sekiz.Text) 'sekiz butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub dokuz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(dokuz.Text) 'dokuz butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(dokuz.Text) 'dokuz butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub dort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(dort.Text) 'dort butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(dort.Text) 'dort butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub beş_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(beş.Text) 'beş butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(beş.Text) 'beş butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub altı_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = "n=" Then 'eğer gosterge 2 n= ise
gosterge2.Clear() 'gosterge 2 i sil
gosterge3.Clear() 'gosterge 3 u sil
gosterge2.AppendText(altı.Text) 'altı butonunun textini gosterge 2 e yazdır
Else 'gosterge 2 n= degilse

If durum = True Then 'eğer durum dogru ya esit ise
a = CDec(gosterge2.Text) 'a textbox1 deki degeri alacak
gosterge2.Text = sender.text 'textbox1 e buton icindeki texti gonder
durum = False 'durum yanlıs
durum2 = True 'durum2 dogru
Else 'durum doğru değil ise
gosterge2.AppendText(altı.Text) 'altı butonunun textini gosterge 2 e yazdır
End If
sayı = True 'sayı eşittir dogru
End If
End Sub
Private Sub bir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge1.Text = "S" And gosterge4.Text = "SD" And gosterge2.Text ("Mcl Mode All") And gosterge2.Text ("ortx σx sx") Then
'Eğer gosterge1=S ve gosterge4=SD ve gosterge.2= ("Mcl Mode All") değil ve gosterge2=("ortx σx sx") değilse
gosterge2.Text = ("Σx² Σx n") 'gosterge2 bu ifadeye eşit
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge.3 soldan sağa=girilen karekterleri sola yasla
gosterge3.Text = ("1 2 3") 'gosterge.3= bu ifade
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tıkla eşittir 0
ElseIf gosterge2.Text = ("COMP SD REG") Then 'eğer gosterge2 bu ifadeye eşit ise
gosterge6.Text = "D" 'gosterge6 eşittir D
gosterge1.Clear() 'gosterge1 i sil
gosterge4.Clear() 'gosterge4 i sil
gosterge5.Clear() 'gosterge5 i sil
gosterge3.Clear() 'gosterge3 i sil
gosterge2.Clear() 'gosterge2 i sil
tiklamode = 0 'tıklmamode degeri 0 olcak
ElseIf gizli.Text = "sil" And gosterge1.Text = "S" And gosterge2.Text ("Σx² Σx n") Then
'eğer gizli eşittir sil ve gosterge1 eşittir S ve gosterge2 eşit ("Σx² Σx n") değil ise
gosterge2.Text = "Stat Clear" 'gosterge.2 stat clear a eşittir
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge4.Text = "SD" And gosterge2.Text = ("Σx² Σx n") Then
'eğer gosterge4 eşittir SD ve gosterge2 eşittir ("Σx² Σx n") ise
gosterge2.Text = "Σx²" 'gosterge2 "Σx²" ise
gosterge3.Clear() 'gosterge3 u sil
gosterge5.Clear() 'gosterge5 i sil
gosterge1.Clear() 'gosterge1 i sil
tikla = 0 'tıkla değeri 0 olacak
ElseIf gosterge4.Text = "SD" And gosterge2.Text = ("ortx σx sx") Then
'eger gosterge4 eşittir SD ise ve gosterge2 eşittir ("ortx σx sx") ise
gosterge2.Text = "ortx" 'gosterge2 eşittir "ortx" ise
gosterge3.Clear() 'gosterge3 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tıkla degeri 0 olacak
ElseIf gosterge2.Text = "n=" Then 'eğer gosterge2 n= ise
If gosterge1.Text = "S" And gizli1.Text = "lin" And gosterge5.Text = "REG" Then
'eğer gosterge1 eşittir S ve gizli1 eşittirn "lin" ve gosterge5 "REG" ise
gosterge2.Text = ("Σx² Σx n") 'gosterge2 eşitir ("Σx² Σx n") ise
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3") ise
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No
'gosterge3 soldan sağa eşittir text e girilen ifadeyi sola yasla
gosterge1.Clear() 'gosterge1 i sil
Else
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge2.AppendText(bir.Text) 'birdeki texti gosterge2 e yazdır
End If
ElseIf gosterge2.Text = ("Lin Log Exp") Then
'eğer gosterge2 eşittir ("Lin Log Exp") ise
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "lin" 'gizli1 eşittir "lin"
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" Then 'eğer gosterge5 eşittir "REG" ise
If gosterge1.Text = "S" And gizli1.Text = "lin" And gosterge5.Text = "REG" Then
'eğer gosterge1 eşittir S ve gizli1 eşittir "lin" ve gosterge5 eşittir "REG" ise
gosterge2.Text = ("Σx² Σx n") 'gosterge2 eşittir ("Σx² Σx n")
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge3 teki karekterleri sola yasla
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3")
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("Σx² Σx n") Then
'gosterge5 eşittir "REG" ve gosterge2 ("Σx² Σx n") ise
gosterge2.Text = 2 '"Σx²" 'gosterge2 eşittir "Σx²"
gosterge3.Clear() 'gosterge3 sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("Σy² Σy Σxy") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("Σy² Σy Σxy") ise
gosterge2.Text = "Σy²" 'gosterge2 eşittir "Σy²"
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("ortx σx sx") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("ortx σx sx") ise
gosterge2.Text = "ortx" 'gosterge2 eşittir ortx
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("orty σy sy") Then
'gosterge5 eşittir REG ve gosterge2 eşittir ("orty σy sy") ise
gosterge2.Text = "orty" 'gosterge2 eşittir orty
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("A B r") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("A B r") ise
gosterge2.Text = "A" 'gosterge2 eşittir A
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("x y") Then
'gosterge5 eşittir REG ve gosterge2 eşittir ("x y")
gosterge2.Text = "x" 'gosterge2 eşittir X
gosterge3.Clear() 'gosterge3 u sil
Else
gosterge2.AppendText(bir.Text) 'gosterge2 ye bir buttonundaki text i yazdır
End If
ElseIf gosterge2.Text = ("Pwr Inv Quad") Then
'gosterge2 eşittir ("Pwr Inv Quad")
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "Pwr" 'gizli1 eşittir Pwr
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 i sil
Else

If durum = True Then 'eğer durum doğru ise
a = CDec(gosterge2.Text) 'a eşittir textbox1 deki texti al
gosterge2.Text = sender.text 'textbox1 eşittir buttondaki texti gonder
durum = False 'durum yanlış olacak
durum2 = True 'durum2 doğru olacak
Else
'durum doğru değil ise
gosterge2.AppendText(bir.Text) 'gosterge2 ye bir buttonundaki text i yazdır

End If
sayı = True 'sayi eşittir doğru
End If
End Sub
Private Sub iki_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = ("COMP SD REG") Then 'gosterge2 eşittir ("COMP SD REG") ise
gosterge4.Text = ("SD") 'gosterge4 eşittir SD olacak
gosterge6.Clear() 'gosterge6 yı sil
gosterge5.Clear() 'gosterge5 i sil
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge2.Focus() 'gosterge2 ye imleci al
gosterge1.Clear() 'gosterge1 i sil
tiklamode = 0 'tiklamode değeri eşittir 0
tikla = 0 'tikla değeri eşittir 0
ElseIf gizli.Text = "sil" And gosterge1.Text = "S" And gosterge2.Text ("Σx² Σx n") Then
'eğer gizli eşittir sil ve gosterge1 eşittir S ve gosterge2=("Σx² Σx n") değil ise
gosterge2.Text = "Mode Clear" 'gosterge2 eşittir Mode Clear
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge4.Text = "SD" And gosterge2.Text = ("Σx² Σx n") Then
'gosterge4 eşittir SD ve gosterge2 eşittir ("Σx² Σx n") ise
gosterge2.Text = "Σx" 'gosterge2 eşittir Σx
gosterge1.Clear() 'gosterge1 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tikla değeri eşittir
ElseIf gosterge1.Text = "S" And gosterge4.Text = "SD" And gosterge2.Text ("Σx² Σx n") Then
'eğer gosterge1 eşittir S ve gosterge4 eşittir SD ve gosterge2=("Σx² Σx n") değil ise
gosterge2.Text = ("ortx σx sx") 'gosterge2 eşittir ("ortx σx sx")
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge3 soldan sağa=sola yasla
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3")
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tikla değeri sıfır
ElseIf gosterge2.Text = ("ortx σx sx") Then 'gosterge2 eşittir ("ortx σx sx")
gosterge2.Text = "σx" 'gosterge2 eşittir σx
gosterge3.Clear() 'gosterge3 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tikla değeri 0
ElseIf gosterge2.Text = "n=" Then 'eğer gosterge2 eşittir n= ise
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.Text = ("ortx σx sx") 'gosterge2 eşittir ("ortx σx sx")
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3")
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge3 soldan sağa=sola yasla
gosterge1.Clear() 'gosterge1 i sil
Else
'değilse
gosterge1.Clear() 'gosterge1 i sil
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge2.AppendText(iki.Text) 'gosterge2 ye bir buttonundaki text i yazdır
End If
ElseIf gosterge2.Text = ("Lin Log Exp") Then 'gosterge2 eşittir ("Lin Log Exp")
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "Log" 'gizli1 eşittir Log
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" Then 'eğer gosterge5 eşittir REG ise
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.Text = ("ortx σx sx") 'gosterge2 eşittir ("ortx σx sx")
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge3 soldan sağa=sola yasla
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3")
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("Σx² Σx n") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("Σx² Σx n") ise
gosterge2.Text = "Σx" 'gosterge2 eşittir Σx
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("Σy² Σy Σxy") Then
'gosterge5 eşittir REG ve gosterge2 eşittir ("Σy² Σy Σxy")
gosterge2.Text = "Σy" 'gosterge2 eşittir Σy
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("ortx σx sx") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("ortx σx sx") ise
gosterge2.Text = "σx" 'gosterge2 eşittir σx
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("orty σy sy") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("orty σy sy") ise
gosterge2.Text = "σy" 'gosterge2 eşittir σy
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("A B r") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("A B r") ise
gosterge2.Text = "B" 'gosterge2 eşittir B
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("x y") Then
'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("x y") ise
gosterge2.Text = "y" 'gosterge2 eşittir y
gosterge3.Clear() 'gosterge3 u sil
Else
'deilse
gosterge2.AppendText(iki.Text) 'gosterge2 ye iki buttonundaki text i yazdır
End If
ElseIf gosterge2.Text = ("Pwr Inv Quad") Then 'gosterge2 eşittir ("Pwr Inv Quad")
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "Inv" 'gizli1 eşittir Inv
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
Else
'değilse

If durum = True Then 'durum doğru ise
a = CDec(gosterge2.Text) 'a eşittir textbox1 deki texti al
gosterge2.Text = sender.text 'textbox1 eşittir buttondaki texti gonder
durum = False 'durum yanlış
durum2 = True 'durum2 doğru
Else
'durum doğru değil ise
gosterge2.AppendText(iki.Text) 'gosterge2 ye iki buttonundaki text i yazdır

End If
sayı = True 'sayı doğru
End If
End Sub
Private Sub uc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge2.Text = ("COMP SD REG") Then 'eğer gosterge2 eşittir ("COMP SD REG") ise
gosterge5.Text = "REG" 'gosterge5 eşittir REG
gosterge2.Text = ("Lin Log Exp") 'gosterge2 eşittir ("Lin Log Exp")
gosterge3.RightToLeft = Windows.Forms.RightToLeft.No 'gosterge3 soldan sağa=sola yasla
gosterge3.Text = ("1 2 3") 'gosterge3 eşittir ("1 2 3")
gosterge4.Clear() 'gosterge4 u sil
gosterge6.Clear() 'gosterge6 ı sil
gosterge1.Clear() 'gosterge1 i sil
tiklamode = 0 'tiklamodde değeri eşittir 0
tikla = 0 'tikla değeri eşittir 0
ElseIf gizli.Text = "sil" And gosterge1.Text = "S" And gosterge2.Text ("Σx² Σx n") Then
'eğer gizli eşittir sil ve gosterge1 eşittir S ve gosterge2=("Σx² Σx n")değil ise
gosterge2.Text = "RESET ALL" 'gosterge2 eşittir RESET ALL
gosterge3.Text = "----------------" 'gosterge3 eşittir ------------
ElseIf gosterge4.Text = "SD" And gosterge2.Text = ("ortx σx sx") Then
'eğer gosterge4 eşittir SD ve gosterge2 eşittir ("ortx σx sx") ise
gosterge2.Text = "sx" 'gosterge2 eşittir sx
gosterge3.Clear() 'gosterge3 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tikla değeri eşittir 0
ElseIf gosterge4.Text = "SD" And gosterge2.Text = ("Σx² Σx n") Then
'eğer gosterge4 eşittir SD ve gosterge2 eşittir ("Σx² Σx n") ise
gosterge2.Text = "n" 'gosterge2 eşittir n=
gosterge3.Clear() 'gosterge3 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge5.Clear() 'gosterge5 i sil
tikla = 0 'tikla değeri eşittir 0
ElseIf gosterge2.Text = "n=" Then 'eğer gosterge2 eşittir N= ise
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge2.AppendText(uc.Text) 'gosterge2 ye uc buttonundaki texti yazdır
tikla = 0 'tikla değeri eşittir 0
ElseIf gosterge2.Text = ("Lin Log Exp") Then 'eğer gosterge2 eşittir ("Lin Log Exp")
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "Exp" 'gizli1 eşittir Exp
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge2.Text = ("Pwr Inv Quad") Then 'eğer gosterge2 eşittir ("Pwr Inv Quad")
gizli1.Clear() 'gizli1 i sil
gizli1.Text = "Quad" 'gizli1 eşittir Quad
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil

ElseIf gosterge5.Text = "REG" Then 'eğer gosterge5 eşittir REG ise
If gosterge5.Text = "REG" And gosterge2.Text = ("Σx² Σx n") Then 'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("Σx² Σx n") ise
gosterge2.Text = "n" 'gosterge2 eşittir n
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("Σy² Σy Σxy") Then 'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("Σy² Σy Σxy") ise
gosterge2.Text = "Σxy" 'gosterge2 eşittir Σxy
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("ortx σx sx") Then 'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("ortx σx sx") ise
gosterge2.Text = "sx" 'gosterge2 eşittir sx
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("orty σy sy") Then
gosterge2.Text = "sy" 'gosterge2 eşittir sy
gosterge3.Clear() 'gosterge3 u sil
ElseIf gosterge5.Text = "REG" And gosterge2.Text = ("A B r") Then 'eğer gosterge5 eşittir REG ve gosterge2 eşittir ("A B r")
gosterge2.Text = "r" 'gosterge2 eşittir r
gosterge3.Clear() 'gosterge3 u sil
Else
'değilse
gosterge2.AppendText(uc.Text) 'gosterge2 ye uc buttonundaki texti yazdır
End If
Else

If durum = True Then 'eğer durum doğru ise
a = CDec(gosterge2.Text) 'a eşittir textbox1in textini al
gosterge2.Text = sender.text 'textbox1 eşittir buttondaki texti al
durum = False 'durum yanlış
durum2 = True 'durum2 doğru
Else
'durum doğru değilse
gosterge2.AppendText(uc.Text) 'gosterge2 ye uc buttonundaki texti yazdır

End If
sayı = True 'sayı doğru
End If

End Sub
Private Sub nokta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If durum = True Then 'eğer durum doğru ise
a = CDec(gosterge2.Text) 'a eşittir textbox1in textini al
gosterge2.AppendText(nokta.Text) 'textbox1 eşittir buttondaki texti al
durum = False 'durum yanlış
durum2 = True 'durum2 doğru
Else
gosterge2.AppendText(nokta.Text) 'gosterge2 ye nokta buttonundaki texti yazdır
End If
sayı = True 'sayı eşittir doğru
End Sub
Private Sub cıkar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If durum2 = True Then 'eğer durum2 doğru ise
b = CDec(gosterge2.Text) 'b eşittir textbox1in textini al
End If
If işlem = "+" Then gosterge2.Text = a + b 'eğer işlem + ise textbox1 eşittir a topla b dir
If işlem = "-" Then gosterge2.Text = a - b 'eğer işlem - ise textbox1 eşittir a cıkar b dir
If işlem = "*" Then gosterge2.Text = a * b 'eğer işlem * ise textbox1 eşittir a carpma b dir
If işlem = "/" Then gosterge2.Text = a / b 'eğer işlem / ise textbox1 eşittir a bolme b dir
işlem = "-" 'işlem eşittir -
durum = True 'durum eşittir doğru
End Sub
Private Sub bol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If durum2 = True Then 'eğer durum2 eşittir ise
b = CDec(gosterge2.Text) 'b eşittir textbox1in textini al
End If
If işlem = "+" Then gosterge2.Text = a + b 'eğer işlem + ise textbox1 eşittir a topla b dir
If işlem = "-" Then gosterge2.Text = a - b 'eğer işlem - ise textbox1 eşittir a cıkar b dir
If işlem = "*" Then gosterge2.Text = a * b 'eğer işlem * ise textbox1 eşittir a carpma b dir
If işlem = "/" Then gosterge2.Text = a / b 'eğer işlem / ise textbox1 eşittir a bolme b dir
işlem = "/" 'işlem eşittir
durum = True 'durum eşittir doğru
End Sub
Private Sub topla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If durum2 = True Then 'eğer durum2 eşittir ise
b = CDec(gosterge2.Text) 'b eşittir textbox1in textini al
End If
If işlem = "+" Then gosterge2.Text = a + b 'eğer işlem + ise textbox1 eşittir a topla b dir
If işlem = "-" Then gosterge2.Text = a - b 'eğer işlem - ise textbox1 eşittir a cıkar b dir
If işlem = "*" Then gosterge2.Text = a * b 'eğer işlem * ise textbox1 eşittir a carpma b dir
If işlem = "/" Then gosterge2.Text = a / b 'eğer işlem / ise textbox1 eşittir a bolme b dir
işlem = "+" 'işlem eşittir +
durum = True ' durum eşittir doğru
End Sub
Private Sub carp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If durum2 = True Then 'eğer durum2 eşittir ise
b = CDec(gosterge2.Text) 'b eşittir textbox1in textini al
End If
If işlem = "+" Then gosterge2.Text = a + b 'eğer işlem + ise textbox1 eşittir a topla b dir
If işlem = "-" Then gosterge2.Text = a - b 'eğer işlem - ise textbox1 eşittir a cıkar b dir
If işlem = "*" Then gosterge2.Text = a * b 'eğer işlem * ise textbox1 eşittir a carpma b dir
If işlem = "/" Then gosterge2.Text = a / b 'eğer işlem / ise textbox1 eşittir a bolme b dir
işlem = "*" 'işlem eşittir *
durum = True 'durum eşittir doğru
End Sub
Private Sub ncr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
gosterge2.AppendText(ncr.Text) 'gosterge2 ye ncr buttonundaki texti yazdır
gizli.AppendText(ncr.Text) 'gizli ye ncr buttonundaki texti yazdır
End Sub
Private Sub xeksi1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.Text = gosterge2.Text & "!" 'gosterge2 eşittir gosterge2 deki texte !ile birleştir
gizli.Clear() 'gizli yi sil
gizli.Text = "!" 'gizli eşittir !
Else
'gosterge1 Sye eşit değilse
gosterge2.Text = gosterge2.Text & "-1" 'gosterge2 eşittir gosterge2 deki texte -1 ile birleştir
gizli.Clear() 'gizli yi sil
gizli.Text = "-1" 'gizli eşittir -1
End If
End Sub
Private Sub x3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
gosterge2.AppendText(x3.Text) 'gosterge2 ye x3 buttonundaki texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(x3.Text) 'gizli ye x3 buttonundaki texti yazdır
End Sub
Private Sub kok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
gosterge2.Text = "√" 'gosterge2 eşittir karakok
gizli.Clear() 'gizli yi sil
gizli.Text = "√" 'gizi eşittir karakok
End Sub
Private Sub x2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
gosterge2.AppendText(x2.Text) 'gosterge2 ye x2 buttonundaki texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(x2.Text) 'gizli ye x2 buttonundaki texti yazdır
End Sub
Private Sub ˣ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.AppendText(ˣ.Name & "√") 'gosterge2 ye ˣ buttonundaki texti ile √ birleştir yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(ˣ.Name & "√") 'gizli ye ˣ buttonundaki texti ile √ birleştir yazdır
Else
'değilse
gosterge2.AppendText(ˣ.Text) 'gosterge2 ye ˣ buttonundaki texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(ˣ.Text) 'gizli ye ˣ buttonundaki texti yazdır
End If
End Sub
Private Sub log_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Log.Click
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.AppendText("¹º") 'gosterge2 ye "¹º" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("¹º") 'gizli ye "¹º" texti yazdır
Else
'değilse
gosterge2.AppendText(log.Name) 'gosterge2 ye log butonundaki texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(log.Name) 'gizli ye log butonundaki texti yazdır
End If
End Sub
Private Sub ln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ln.Click
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.AppendText("e") 'gosterge2 ye "e" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("e") 'gosterge2 ye "e" texti yazdır
Else
'değilse
gosterge2.AppendText(ln.Name) 'gosterge2 ye ln butonundaki texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText(ln.Name) 'gosterge2 ye ln butonundaki texti yazdır
End If
End Sub
Private Sub sin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sin.Click
If gosterge1.Text = "S" Then 'eğer gosterge1 eşittir S ise
gosterge2.AppendText("sinˉ¹") 'gosterge2 ye "sinˉ¹" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("sinˉ¹") 'gizli ye "sinˉ¹" texti yazdır
Else
gosterge2.AppendText("sin") 'gosterge2 ye "sin" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("sin") 'gosterge2 ye "sin" texti yazdır
End If
End Sub
Private Sub cos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cos.Click
If gosterge1.Text = "S" Then
gosterge2.AppendText("cosˉ¹") 'gosterge2 ye "cosˉ¹" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("cosˉ¹") 'gosterge2 ye "cosˉ¹" texti yazdır
Else
gosterge2.AppendText("cos") 'gosterge2 ye cos texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("cos") 'gosterge2 ye cos texti yazdır
End If
End Sub
Private Sub tan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tan.Click
If gosterge1.Text = "S" Then
gosterge2.AppendText("tanˉ¹") 'gosterge2 ye "tanˉ¹" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("tanˉ¹") 'gosterge2 ye "tanˉ¹" texti yazdır
Else
gosterge2.AppendText("tan") 'gosterge2 ye "tan" texti yazdır
gizli.Clear() 'gizli yi sil
gizli.AppendText("tan") 'gosterge2 ye "tan" texti yazdır
End If
End Sub
Private Sub del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del.Click
On Error Resume Next
gosterge2.Text = gosterge2.Text.Remove(gosterge2.Text.Length - 1) 'gosterge2 eşittir gosterge2 deki metni uzunluğundan bir karakter aşağıya duşurur siler bir karakter
End Sub
Private Sub eşittir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eşittir.Click
Dim ncrr As Integer 'ncrr tamsayı değerler
Dim faktoriyel1 As Decimal = 1 'faktoriyel1 eşittir 1 ve ondalık değerler
Dim faktoriyel2 As Decimal = 1 'faktoriyel2 eşittir 1 ve ondalık değerler
Dim faktoriyel3 As Decimal = 1 'faktoriyel3 eşittir 1 ve ondalık değerler
Dim ilksayi As Decimal 'ilksayi eşittir ondalık değerler
Dim ikincisayi As Decimal 'ikincisayi ondalık değerler
Dim uzunluk As Decimal 'uzunluk ondalık değerler
gosterge3.Text = gosterge2.Text 'gosterge3 eşittir gosterge2
If gizli.Text = "C" Then 'eğer gizli eşittir C ise
ncrr = InStr(gosterge2.Text, "C", vbTextCompare) 'ncrr eşittir gosterge2deki metnin icince Cnin olduğu yeri bulacak tamsayı değeri
uzunluk = Strings.Len(gosterge2.Text) 'uzunluk eşittir gosterge2deki metnin uzunluk değeri
ilksayi = Strings.Left(gosterge2.Text, ncrr - 1) 'ilksayi eşittir ncrr den 1 değerini cıkarıp elde edilen değer gosterge2deki metnin soldan kesilmesi
ikincisayi = Strings.Right(gosterge2.Text, uzunluk - ncrr) 'ikinci eşittir uzunluktan ncrr değerini cıkarıp elde edilen değer gosterge2deki metnin sağdan kesilmesi
For i = 1 To ilksayi '1 den ilksayi ya kadar
faktoriyel1 = i * faktoriyel1 'faktoriyel1 eşittir 1 den ilk sayıya dakar carp faktoriyel1
Next
For j = 1 To ikincisayi '1 den ikinci ye kadar
faktoriyel2 = j * faktoriyel2 'faktoriyel2 eşittir 1 den ikinci sayıya dakar carp faktoriyel1
Next
For k = 1 To (ilksayi - ikincisayi) '1 den ilksayi eksi ikinci ye kadar
faktoriyel3 = k * faktoriyel3 'faktoriyel3 eşittir 1 den ilksayi-ikinci sayıya dakar carp faktoriyel1
Next
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gosterge3.Text = (faktoriyel1) / (faktoriyel3 * faktoriyel2) 'gosterge3 eşittir faktoriyel1i faktoriyel3 ile faktoriyel2 yi carp bol
gizli.Clear() 'gizli yi sil
End If
If gosterge1.Text = "S" And gizli.Text = "!" Then 'gosterge1 eşittir S ve gizli eşittir !
Dim faktor As Double = 1 'faktor değeri eşittir 1 Buyuk gercel sayı
Dim sayii As Double 'sayii değeri buyuk gercel sayı
sayii = Strings.Left(gosterge2.Text, Strings.Len(gosterge2.Text) - 1) 'sayii eşittir gosterge2 deki metnin gosterge2deki metnin uzunluğundan 1 eksisi kadar soldan kesmek
For i = 1 To sayii '1 den sayii ya kadar
faktor = i * faktor 'faktor eşittir 1 den sayii kadar carp faktor
Next
gosterge3.Text = faktor 'gosterge3 eşittir faktor
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli yi sil
ElseIf gizli.Text = "-1" Then 'eğer gizli eşittir -1 ise
Dim islm As Decimal 'islm değeri ondalık sayı
Dim sayii As Decimal 'sayii değeri ondalık sayı
sayii = Strings.Left(gosterge2.Text, Strings.Len(gosterge2.Text) - 2)'sayii eşittir gosterge2deki metnin solundan gosterge2deki metnin uzunluğunun 2 eksiiği kadar kes
islm = 1 / sayii 'islm eşittir 1 bolu sayii carpmaya gore tersi
gosterge3.Text = islm 'gosterge3 eşittir islm
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli yi sil
End If
Dim ase As Integer 'ase tamsayı değeri
Dim ased As Decimal 'ased ondalık değeri
If gizli.Text = "³" Then 'eğer gizli eşittir ³ ise
ase = Strings.Left(gosterge2.Text, Strings.Len(gosterge2.Text) - 2) 'ase değeri eşittir gosterge2deki metnin solundan gosterge2deki metnin uzunluğunun 2 eksiği kadar kes
gosterge3.Text = ase ^ 3 'gosterge3 eşittir ase değerinin kupu
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli yi sil
End If
If gizli.Text = "√" Then 'eğer gizli eşittir √ ise
ased = Strings.Right(gosterge2.Text, Strings.Len(gosterge2.Text) - 1) 'ased değeri eşittir gosterge2deki metnin sağından gosterge2deki metnin uzunluğunun 1 eksiği kadar kes
gosterge3.Text = Math.Sqrt(ased) 'gosterge3 eşittir matematik işlemlerde karakok ased in karakokunu al
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli yi sil
End If
If gizli.Text = "²" Then 'eğer gizli eşittir ² ise
ased = Strings.Left(gosterge2.Text, Strings.Len(gosterge2.Text) - 1) 'ased değeri eşittir gosterge2deki metnin soldan gosterge2deki metnin uzunluğunun 1 eksiği kadar kes
gosterge3.Text = ased ^ 2 'gosterge3 eşittir ased değerinin karesi
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli yi sil
End If

If gosterge2.Text = "Stat Clear" Then 'eğer gosterge2 eşittir stat clear ise
gosterge1.Clear() 'gosterge1 i sil
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gosterge3.Text = "0" 'gosterge3 u sıfıra eşitle
tiklamode = 0 'tiklamode eşittir 0
ElseIf gosterge2.Text = "Mode Clear" Then 'eğer gosterge2 eşittir mode clear ise
gosterge5.Clear() 'gosterge5 i sil
gosterge4.Clear() 'gosterge4 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gosterge3.Text = "0" 'gosterge3 u sıfıra eşitle
tiklamode = 0 'tiklamode eşittir 0
ElseIf gosterge2.Text = "RESET ALL" Then
gosterge5.Clear() 'gosterge5 i sil
gosterge4.Clear() 'gosterge4 u sil
gosterge1.Clear() 'gosterge1 i sil
gosterge2.Clear() 'gosterge2 i sil
gosterge3.Clear() 'gosterge3 u sil
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gosterge3.Text = "0" 'gosterge3 u sıfıra eşitle
tiklamode = 0 'tiklamode eşittir 0
End If
Dim harf As Double 'harf geniş değer
Dim ilkk As Double 'ilkk geniş değer
Dim ikincii As Double 'ikincii geniş değer
Dim derece As Double 'derece geniş değer
If gizli.Text = "^" Then 'eğer gizli eşiittir ^ise
harf = InStr(1, gosterge2.Text, "^", vbTextCompare) 'gosterge2deki metinde ^işareti ara bulunduğu yeri sıra numarası harf e eşitle
ilkk = Strings.Left(gosterge2.Text, harf - 1) 'ilkk eşittir gosterge2deki metnin solundan harf değerinin bir eksiği kadar kes
ikincii = Strings.Right(gosterge2.Text, Strings.Len(gosterge2.Text) - harf) 'ikincii eşittir gosterge2deki metnin sağından gosterge2deki metnin uzunluğunun harf değeri kadar eksiğini kes
gosterge3.Text = ilkk ^ ikincii 'gosterge3 eşittir ilkk bulunan sayi uzeri ikinscii sayi
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
End If
If gizli.Text = "ˣ√" Then 'eğer gizli eşittir ˣ√ ise
harf = InStr(1, gosterge2.Text, "ˣ", vbTextCompare) 'gosterge2deki metinde ˣ işareti ara bulunduğu yeri sıra numarası harf e eşitle
ilkk = Strings.Left(gosterge2.Text, harf - 1) 'ilkk eşittir gosterge2deki metnin solundan harf değerinin bir eksiği kadar kes
ikincii = Strings.Right(gosterge2.Text, Strings.Len(gosterge2.Text) - (harf + 1)) 'ikincii eşittir gosterge2deki metnin sağından gosterge2deki metnin uzunluğunun harf değerinin 1 fazlasının eksiğini kes
gosterge3.Text = ikincii ^ (1 / ilkk) 'gosterge3 ikinci sayı uzeri 1 bolu ilkk sayı
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
End If
If gizli.Text = "log" Then 'eğer gizli eşittir log ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 3) 'ilkk eşittir gosterge2deki metnin sağından harfin 3eksiği kadar kes
gosterge3.Text = Math.Log10(ilkk) 'gosterge3 eşittir matematiksel değerlerden ilkk sayının log10 nu bulmak
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
ElseIf gizli.Text = "¹º" Then 'eğer gizli eşittir ¹º ise

harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 2) 'ilkk eşittir gosterge2deki metnin sağından harfin 2 eksiği kadar kes
gosterge3.Text = 10 ^ ilkk 'gosterge3 eşittir 10 uzeri ilkk sayı
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
End If
Dim kek As Decimal 'kek ondalık sayı değeri
If gizli.Text = "ln" Then 'eğer gizli eşittir ln ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 2) 'ilkk eşittir gosterge2deki metnin sağından harfin 2 eksiği kadar kes
gosterge3.Text = Math.Log(ilkk) 'gosterge3 eşittir matematiksel değerlerden ilkk sayının log nu bulmak
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
ElseIf gizli.Text = "e" Then 'eğer gizi eşittir e ise
kek = (2.718281828) 'kek eşittir 2,718281828 değeridir
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 1) 'ilkk eşittir gosterge2deki metnin sağından harfin 1 eksiği kadar kes
gosterge3.Text = kek ^ ilkk 'gosterge3 eşittir kek değeri uzeri ilkk değeri
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil

End If
If gizli.Text = "sinˉ¹" Then 'eğer gizli eşittir sinˉ¹ ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 5) 'ilkk eşittir gosterge2deki metnin sağından harfin 5 eksiği kadar kes
gosterge3.Text = Math.Asin(ilkk) * 180 / Math.PI 'gosterge3 eşittir matematiksel değerler ilkk sayının arcsinusu carp 180ni matematiksel değer pı ye bol
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
ElseIf gizli.Text = "sin" Then 'eğer gizli eşittir sin ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 3) 'ilkk eşittir gosterge2deki metnin sağından harfin 3 eksiği kadar kes
gosterge3.Text = Math.Sin(ilkk * Math.PI / 180) 'gosterge3 eşittir mattematiksel değer piyi 180 bolup ilk sayı ile carpıp matematiksel değer sinusunu almak
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
End If
If gizli.Text = "cosˉ¹" Then 'eğer gizli eşittir cosˉ¹ ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 5) 'ilkk eşittir gosterge2deki metnin sağından harfin 5 eksiği kadar kes
gosterge3.Text = Math.Acos(ilkk) * 180 / Math.PI 'gosterge3 eşittir matematiksel değerler ilkk sayının arccosinusu carp 180ni matematiksel değer pı ye bol
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
ElseIf gizli.Text = "cos" Then 'eğer gizli eşittir cos ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 3) 'ilkk eşittir gosterge2deki metnin sağından harfin 3 eksiği kadar kes
gosterge3.Text = Math.Cos(ilkk * Math.PI / 180) 'gosterge3 eşittir mattematiksel değer piyi 180 bolup ilk sayı ile carpıp matematiksel değer cosinusunu almak
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
End If
If gizli.Text = "tanˉ¹" Then 'eğer gizli eşittir tanˉ¹ ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 5) 'ilkk eşittir gosterge2deki metnin sağından harfin 5 eksiği kadar kes
derece = Math.Atan(ilkk) 'derece değeri eşittir ilkk sayının matematiksel değer arctanjantını almak
gosterge3.Text = derece * (180 / Math.PI) 'gosterge3 eşittir 180 ni matematiksel değer pi ye bolup derece ile carpmak
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
ElseIf gizli.Text = "tan" Then 'eğer gizli eşittir tan ise
harf = Strings.Len(gosterge2.Text) 'harf eşittir gosterge2deki metnin uzunluğu
ilkk = Strings.Right(gosterge2.Text, harf - 3) 'ilkk eşittir gosterge2deki metnin sağından harfin 3 eksiği kadar kes
gizli.Text = (Math.Tan(ilkk * Math.PI / 180)) 'gizli eşittir 180ni matematiksel değer pi bolup ilkk sayı ile carpıp matematiksel değer tanjantını almak

If gizli.Text = "1,63317787283838E+16" Then 'eğer gizli eşittir "1,63317787283838E+16" ise
gosterge2.Text = "Math ERROR" 'gosterge2 eşittir math error
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
Else
gosterge3.RightToLeft = Windows.Forms.RightToLeft.Yes 'gosterge3 soldan sağa=sağa yasla
gizli.Clear() 'gizli i sil
gosterge3.Text = Math.Tan(ilkk * Math.PI / 180) 'gizli eşittir 180ni matematiksel değer pi bolup ilkk sayı ile carpıp matematiksel değer tanjantını almak
End If
End If
If durum2 = True Then
b = CDec(gosterge2.Text)
End If
If işlem = "+" Then gosterge3.Text = a + b
If işlem = "-" Then gosterge3.Text = a - b
If işlem = "*" Then gosterge3.Text = a * b
If işlem = "/" Then gosterge3.Text = a / b
durum2 = False
işlem = ""
__________________