Hesap Makinası

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...

Hesap Makinası için yazılan yorumlar