1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Vb.NET Hesap Makinası


  1. Statuss

    Statuss Bilgiliyim rank8

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.178
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    the wrong place
    Kod:
    Public Class Form1
        Dim degisiklik As Boolean
        Dim sayac, sayi, islem, toplam As Double
    Form1_Load
            sayac = 1
            TextBox1.Text = ""
        End Sub
    Button15_Click
            If degisiklik = True Then
                TextBox1.Text = TextBox1.Text + "0"
            End If
        End Sub
    Button16_Click
            If degisiklik = True Then
                TextBox1.Text = TextBox1.Text + "00"
            End If
        End Sub
    Button6_Click
            TextBox1.Text = TextBox1.Text + "1"
            degisiklik = True
        End Sub
    Button7_Click
            TextBox1.Text = TextBox1.Text + "2"
            degisiklik = True
        End Sub
    Button8_Click
            TextBox1.Text = TextBox1.Text + "3"
            degisiklik = True
        End Sub
    Button9_Click
            TextBox1.Text = TextBox1.Text + "4"
            degisiklik = True
    
        End Sub
    Button10_Click
            TextBox1.Text = TextBox1.Text + "5"
            degisiklik = True
    
        End Sub
    Button11_Click
            TextBox1.Text = TextBox1.Text + "6"
            degisiklik = True
    
        End Sub
    Button12_Click
            TextBox1.Text = TextBox1.Text + "7"
            degisiklik = True
    
        End Sub
    Button13_Click
            TextBox1.Text = TextBox1.Text + "8"
            degisiklik = True
    
        End Sub
    Button14_Click
            TextBox1.Text = TextBox1.Text + "9"
            degisiklik = True
    
        End Sub
    
        Button17_Click
            TextBox1.Clear()
            degisiklik = False
            sayac = 1
        End Sub
    Button1_Click
            islem = 1
            sayi = TextBox1.Text
            TextBox1.Clear()
            TextBox1.Text = ""
            degisiklik = False
        End Sub
    
    Button3_Click
            islem = 4
            sayi = TextBox1.Text
            TextBox1.Clear()
            TextBox1.Text = ""
            degisiklik = False
    
        End Sub
    
        Button2_Click
            islem = 3
            sayi = TextBox1.Text
            TextBox1.Clear()
            TextBox1.Text = ""
            degisiklik = False
    
        End Sub
    Button4_Click
            islem = 2
            sayi = TextBox1.Text
            TextBox1.Clear()
            TextBox1.Text = ""
            degisiklik = False
    
        End Sub
    Button5_Click
            degisiklik = False
            Select Case (islem)
                Case 1
                    toplam = CDbl(sayi) + CDbl(TextBox1.Text)
                Case 2
                    toplam = CDbl(sayi) * CDbl(TextBox1.Text)
                Case 3
                    toplam = CDbl(sayi) / CDbl(TextBox1.Text)
                Case 4
                    toplam = CDbl(sayi) - CDbl(TextBox1.Text)
            End Select
            TextBox1.Text = toplam
        End Sub
    TextBox1_KeyPress
            If Not IsNumeric(TextBox1.Text) Then
                MsgBox("Sayısal değer giriniz.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Hata")
                TextBox1.Clear()
            End If
        End Sub
    End Class
    Visual Basic
    Kolaygelsin