MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > VB.Net > Kodlar

Hesap Makinası

www.vbcodindir.com adresinden zip dosyasını indirebilirsiniz.

hesap makinası  hesap makinesi  calculator 

Kategori : VB.Net
Gönderen : seref
Telif :
Tarih : 12 Temmuz 2006
Örnek Dosya : İndir
Okunma Sayısı : 53771
Puan
: 7,1 / 10 (61 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Dim geçici As Integer
    Dim geçici1 As String
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
            TextBox1.Text = TextBox1.Text & "1"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       
            TextBox1.Text = TextBox1.Text & "2"

    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        
            TextBox1.Text = TextBox1.Text & "3"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        
            TextBox1.Text = TextBox1.Text & "4"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
      
            TextBox1.Text = TextBox1.Text & "5"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
      
            TextBox1.Text = TextBox1.Text & "6"

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & "7"

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & "8"


    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & "9"

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text = TextBox1.Text & "0"

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        TextBox1.Text = TextBox1.Text & "00"

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        geçici = TextBox1.Text
        geçici1 = "topla"
        TextBox1.Text = ""

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If geçici1 = "topla" Then
            TextBox1.Text = geçici + TextBox1.Text
        ElseIf geçici1 = "çarp" Then
            TextBox1.Text = geçici * TextBox1.Text
        ElseIf geçici1 = "çıkart" Then
            TextBox1.Text = geçici - TextBox1.Text
        ElseIf geçici1 = "böl" Then
            TextBox1.Text = geçici / TextBox1.Text
        ElseIf geçici1 = "yüzde" Then
            TextBox1.Text = geçici * TextBox1.Text / 100
        ElseIf TextBox1.Text = "" Then
            MsgBox("lütfen rakam giriniz")
        End If
       
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        geçici = TextBox1.Text
        geçici1 = "çarp"
        TextBox1.Text = ""
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        geçici = TextBox1.Text
        geçici1 = "çıkart"
        TextBox1.Text = ""
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        geçici = TextBox1.Text
        geçici1 = "böl"
        TextBox1.Text = ""
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        geçici = TextBox1.Text
        geçici1 = "yüzde"
        TextBox1.Text = ""
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "HESAP MAKİNASI"
    End Sub
 
 

Hesap Makinası için yazılan yorumlar

ahmet  { 16 Mart 2011 }
ARKADAŞLAR "+ " gibi işlemleri yazınca değilde ikinci sayıyı girince ekranı sıfırlamak istiyorum(hesap makinasında olduğu gibi) ne yapmama gerekiyor

ahmet  { 15 Mart 2011 }
eywallah çok işime yaradı.

BuRaq ``  { 15 Aral�k 2010 }
Çok Saolun Çok yardımcı Oldunuz TeşekkürLer :)

Charizart  { 21 Temmuz 2010 }

Hesap Makinesi Kodu

Arkadaşlar Öncelikle From ' a gerekli Materyaller eklenmedikten sonra kod yazmanın hiç bir anlamı olmaz . Materyalleri ekledikten Sonra Her meteryalin özel Kodu bu kodun içine dahildir.

Şuana Kadar bu konu üzerine yaılmış olan en pratik Kod arkadaşlar.

Fromu Değişkenlere Boğmaya gerek yok 2 tane genel değişkenle Halledilmiş Bir Hesap Makinesi .

Buyun kodlar

Not : bu hesapmakinesi "Microsoft Visual Studio 2010 ultimate " programlama Dilinde Yazılmıştır.

Herkese Kolay gelsin


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & "2"

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & "3"

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & "4"

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & "5"

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & "6"

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & "7"

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & "8"

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & "9"

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & "0"

End Sub
Dim ilksayı As Integer
Dim komut As String

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

ilksayı = TextBox1.Text
komut = "+"
TextBox1.Text = ""

End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

ilksayı = TextBox1.Text
komut = "-"
TextBox1.Text = ""

End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

ilksayı = TextBox1.Text
komut = "*"
TextBox1.Text = ""

End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

ilksayı = TextBox1.Text
komut = "/"
TextBox1.Text = ""

End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

ilksayı = TextBox1.Text
komut = "((ilksayı*textbox1.text)/ 100)"
TextBox1.Text = ""

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

Select Case komut
Case "+"
TextBox1.Text = ilksayı + Integer.Parse(TextBox1.Text)
Case "-"
TextBox1.Text = ilksayı - Integer.Parse(TextBox1.Text)
Case "*"
TextBox1.Text = ilksayı * Integer.Parse(TextBox1.Text)
Case "/"
TextBox1.Text = ilksayı / Integer.Parse(TextBox1.Text)

If ilksayı = "yüzde" Then
TextBox1.Text = (ilksayı / 100) * TextBox1.Text
End If

MsgBox("Önce Komut Giriniz")

End Select
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
TextBox1.Clear()
End Sub
End Class


umit   { 27 Mart 2010 }
adam gibi kod yazın yha xD

seda   { 30 Aral�k 2009 }
hiççç beğenmedim hepsi hata veriyor !

hayrunisa   { 20 May�s 2009 }
tusemcim anlaşılmayacak bişey yok aslında = cliğine girip ordaki kodları yapıştırman yeterli görüntüsünü koymayı denedim ama beceremedm cnm ama istersen hangi buton hangi işlem onları yazabilirim sana ..

Tusem   { 13 May�s 2009 }
yha biraz karışık olmus sanki çözdüm ama direk çok güsel olmş ama tasarımda olsaydı anlardım ve bide bunun eşittir kısmını yapamadım bana yardım cı olacak biri varmı:S kolay gelsin A.E.O

hayrunisa   { 09 May�s 2009 }
mports System.Math
Public Class Form1

Dim say As Integer
Dim say1 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T1.Text = "0"
End Sub

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
T1.Text = "0"
End Sub

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Dim c As Integer
c = Len(T1.Text)
If c <> 0 Then
T1.Text = Mid(T1.Text, 1, c - 1)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


If T1.Text <> "0" Then
T1.Text = T1.Text & "1"
Else
T1.Text = "1"
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "2"
Else
T1.Text = "2"
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "3"
Else
T1.Text = "3"
End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "4"
Else
T1.Text = "4"
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "5"
Else
T1.Text = "5"
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "6"
Else
T1.Text = "6"
End If
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "7"
Else
T1.Text = "7"
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "8"
Else
T1.Text = "8"
End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "9"
Else
T1.Text = "9"
End If
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If T1.Text <> "0" Then
T1.Text = T1.Text & "0"
Else
T1.Text = "0"
End If
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
say = Val(T1.Text)
say1 = "topla"
T1.Text = "0"
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
say = Val(T1.Text)
say1 = "çıkart"
T1.Text = "0"
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
say = Val(T1.Text)
say1 = "çarp"
T1.Text = "0"
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
say = Val(T1.Text)
say1 = "böl"
T1.Text = "0"
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If say1 = "topla" Then
T1.Text = say + Val(T1.Text)
ElseIf say1 = "çarp" Then
T1.Text = say * Val(T1.Text)
ElseIf say1 = "çıkart" Then
T1.Text = say - Val(T1.Text)
ElseIf say1 = "böl" Then
T1.Text = say / Val(T1.Text)

End If

End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
T1.Text = T1.Text + ","
End Sub

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

T1.Text = Val(T1.Text) / 100

End Sub

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
say = Val(T1.Text)
T1.Text = Sqrt(say)
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
T1.Text = Val(-T1.Text)


End Sub
End Class

hayrunisa   { 09 May�s 2009 }
bn hiç bişey anlamadım bu koddan ama yaptım bnde bitane ellerinize sağlık

gulsen   { 02 Nisan 2009 }
Arkadaşlar çok güzel olmuş da tasarım olarak da gösterseydiniz keşke.

yasemin   { 22 Mart 2009 }
çok süpeer olmuş saolun işime yardı ama bu dersten fazla anlamıorum buda cnımı çook sıkıo:(:(

Emre Kurt   { 19 Mart 2009 }
Buyrun Arkadaşlar Kendi Hazırladığım işk windows calculate benzeri hesap makinesi.

http://rapidshare.com/files/211194035/Hesap_Makinesi.rar

gamse   { 15 Mart 2009 }
meraba arkadaslar hesap makinesini oluşturdum ancak sin ve cos değerlerini yapamsdım yardımcı olurmusunuz lutfen.??

bekir   { 24 ï¿½ubat 2009 }
öğrenciyim donem odevım hesap makınası vb.net de yapılacak yardım istiyorum

emine   { 23 Aral�k 2008 }
ya arkadaşlar gerçekten çok büyüksünüz ya sağolun sizde olmasanız dersten kalıcaz

gül   { 15 Kas�m 2008 }
ya arkadaşlar sizin yazdıklarınız hangi dilde pascal mı ne ben basic diline yazdım çalişmiyo yardımcı olurmusunuz lütfen:(

Semih   { 29 Nisan 2008 }
Arkadaşlar buda basit bir Hesap makinesi uygulaması...

Dim a As Double, b As Double
Dim c As String
Dim s As Boolean


Private Sub Command1_Click(Index As Integer)

If s = True Then

Text1.Text = ""
s = False

End If

Text1.Text = Text1.Text + Command1(Index).Caption

End Sub


Private Sub Command2_Click(Index As Integer)

a = Val(Text1.Text)
c = "+"
s = True

End Sub

Private Sub Command3_Click(Index As Integer)

a = Val(Text1.Text)
c = "-"
s = True

End Sub

Private Sub Command4_Click(Index As Integer)

a = Val(Text1.Text)
c = "*"
s = True

End Sub

Private Sub Command5_Click(Index As Integer)

a = Val(Text1.Text)
c = "/"
s = True

End Sub

Private Sub Command6_Click(Index As Integer)

Text1.Text = ""

End Sub

Private Sub Command7_Click(Index As Integer)

Dim snc As Double

b = Val(Text1.Text)

If c = "+" Then snc = a + b
If c = "-" Then snc = a - b
If c = "*" Then snc = a * b
If c = "/" Then snc = a / b

Text1.Text = snc

End Sub

başak   { 28 Mart 2008 }
bu yazdığınız kodlar işime yaradı ancak şu en sonda yazan toplama ve çarpma çıkrtma bölme işlemlerinde hata verdi hep geçici de hata veriyo ne yapmam lazım

büşra   { 17 ï¿½ubat 2008 }
kodlar çok güzel ve açık yalnız form tasarımını da verirseniz çok iyi olur diye düşünüyorum şimdiden tskrler

nuray   { 17 Ocak 2008 }
çok güzel olmuş saol banada çok yardımcı oldu. :)

büşra   { 08 Aral�k 2007 }
çok güsel çok işime yaradı teşekkürler...

Yorum ekleyin

Anasayfa > VB.Net > Kodlar > Hesap Makinası
Kategoriler:


Forum:



Bağlantılar:



    En Son Yorumlanan İçerikler:


    Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.82.79.137 | 0,16 Saniye
    © Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
    MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.