1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Visual Basic.NET Hesap Makinesi Yapımı


  1. Unforgiven

    Unforgiven Buralıyım rank8

    Kayıt:
    13 Temmuz 2009
    Mesajlar:
    3.605
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    [​IMG]

    Kodlar:

    Kod:
    Public Class Form1
        Private IslemSecildi As Boolean = False
        Private Sayi As Double
        Private Islem As String
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button0.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
            If Not IslemSecildi Then
                txtSayi.Text &= sender.Text
            Else
                txtSayi.Text = sender.Text
                IslemSecildi = False
            End If
        End Sub
    
        Private Sub btnCarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarp.Click, btnBol.Click, btnCikar.Click, btnTopla.Click
            Islem = sender.Text
            Try
                Sayi = txtSayi.Text
                IslemSecildi = True
            Catch ex As Exception
                MsgBox("Sayı düzgün formatta girilmedi")
            Finally
                txtSayi.Text = ""
                txtSayi.Focus()
            End Try
        End Sub
    
        Private Sub btnEsit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsit.Click
            Select Islem
                Case "*"
                    Sayi *= txtSayi.Text
                Case "/"
                    Sayi /= txtSayi.Text
                Case "-"
                    Sayi -= txtSayi.Text
                Case "+"
                    Sayi += txtSayi.Text
            End Select
            txtSayi.Text = Sayi
        End Sub
    
        Private Sub btnTemizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTemizle.Click
            Sayi = 0
            IslemSecildi = False
            txtSayi.Text = ""
            txtSayi.Focus()
        End Sub
    End Class
     
  2. omeryetim

    omeryetim Yeni üye rank8

    Kayıt:
    5 Ekim 2012
    Mesajlar:
    1
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Arkadaşımız Çok Güzel ellerine sağlık.
     
  3. Collapse

    Collapse   asistan rank8

    Kayıt:
    22 Aralık 2010
    Mesajlar:
    7.289
    Beğenilen Mesajlar:
    166
    Ödül Puanları:
    73
    Hortun böylesi..
     
  4. Apprehension

    Apprehension Öğretiyorum rank8

    Kayıt:
    25 Temmuz 2010
    Mesajlar:
    707
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    16
    Şehir:
    İzmit / Kocaeli
    bu hort bir harika dostum :muck: