Skip to main content

AccessTr.neT


Basit Bir Hesap Makinesi Yapalım

chopper07
chopper07
2
4137

Basit Bir Hesap Makinesi Yapalım

#1
Arkadaşlar Buna Benzer bir tasarım yapmaya çalışın. Daha güzel gözükecektir..

[Resim: hmakqb5.jpg]

Forma;

2 TextBox, 2 Label (1de çıkan sonuç yazacak. 2yede sadece isim olarak "Sonuç" yazınız.. ), 4 tane commandbutton( + - / * ) ve tasarım olarak canlılık kazandıracaksanız resimdeki gibi Shape ekleyin

Kodlamamıza Geçiyoruz.


-----------

Toplama İşlemi yaptırıyoruz.. (+ buttonuna tıklayarak kod bölümünü açın )

Kod:
Private Sub Command1_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 + mc2
End Sub

Topama İşlemi kodu bu kadar..

----------

Çıkartma İşlemi yaptırıyoruz.. (- buttonuna tıklayarak kod bölümünü açın )

Kod:
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 - mc2
End Sub

Çıkartma İşlemi kodu bu kadar..


----------
Bölme İşlemi yaptırıyoruz.. (/ buttonuna tıklayarak kod bölümünü açın )

Kod:
Private Sub Command3_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 / mc2
End Sub

----------

Çarpma İşlemi yaptırıyoruz.. (* buttonuna tıklayarak kod bölümünü açın )

Kod:
Private Sub Command4_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 * mc2
End Sub

----------

Kullandığımız mantık:

text1 ve text2 adlı textboxları mc1 ve mc2 adlı değişkene eşitledik. label1 de ise bu mc1 ve mc2 ile işlemimizi yaptık.. "On Error Resume Next" ise Hata olursa hiçbir işlem yapma anlamındadır. Yani textbox lara sayı yerine harf girerseniz hiçbir hata vermeyecektir..

----------

Kendinize göre düzenlemek ve geliştirmek serbesttir.


Saygılarımla..
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
teşekkurler fakat sadece bir text box kullanarak bunu nasıl yapabilir acaba
Cevapla
#3
[Resim: 67288_137049356347137_100001262192430_19...4926_n.jpg]

Burada Benım yazdıgım bır uygulamalı program war kardesım buyur..!

kodları;
Imports System.Math
Public Class Form1
Dim islem, hafiza As String
Dim eklemod As Boolean
Public current As Double
Public counter As Integer
Private bError As Boolean = False
Private bInverse As Boolean = False



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


Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Me.Close()
End Sub


Private Sub YazıTipiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazıTipiToolStripMenuItem.Click
With FontDialog1
.ShowDialog()
TextBox1.Font = .Font
End With
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If eklemod = True Then TextBox1.Text += "1" Else TextBox1.Text = "1" : eklemod = True
End Sub

Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If eklemod = True Then TextBox1.Text += "2" Else TextBox1.Text = "2" : eklemod = True
End Sub

Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If eklemod = True Then TextBox1.Text += "3" Else TextBox1.Text = "3" : eklemod = True
End Sub

Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If eklemod = True Then TextBox1.Text += "4" Else TextBox1 = TextBox1
End Sub

Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If eklemod = True Then TextBox1.Text += "5" Else TextBox1.Text = "5" : eklemod = True
End Sub

Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If eklemod = True Then TextBox1.Text += "6" Else TextBox1.Text = "6" : eklemod = True
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If eklemod = True Then TextBox1.Text += "7" Else TextBox1.Text = "7" : eklemod = True
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If eklemod = True Then TextBox1.Text += "8" Else TextBox1.Text = "8" : eklemod = True
End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If eklemod = True Then TextBox1.Text += "9" Else TextBox1.Text = "9" : eklemod = True
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If eklemod = True Then TextBox1.Text += "0" Else TextBox1.Text = "0" : eklemod = True
End Sub

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

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If islem = "+" Then TextBox1 = hafiza + Val(TextBox1.Text)
eklemod = False
If islem = "-" Then TextBox1.Text = hafiza - Val(TextBox1.Text)
eklemod = False
If islem = "*" Then TextBox1.Text = hafiza * Val(TextBox1.Text)
eklemod = False
If islem = "/" Then TextBox1 = hafiza / Val(TextBox1.Text)
eklemod = False
End Sub

Private Sub KryptonCheckButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonCheckButton1.Click
hafiza = Val(TextBox1.Text)
islem = "/"
eklemod = False
TextBox1.Clear()
End Sub

Private Sub KryptonCheckButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonCheckButton2.Click
hafiza = Val(TextBox1.Text)
islem = "*"
eklemod = False
TextBox1.Clear()
End Sub

Private Sub KryptonCheckButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonCheckButton3.Click
hafiza = Val(TextBox1.Text)
islem = "-"
eklemod = False
TextBox1.Clear()
End Sub

Private Sub KryptonCheckButton4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonCheckButton4.Click
hafiza = Val(TextBox1.Text)
islem = "+"
eklemod = False
TextBox1.Clear()
End Sub

Private Sub KryptonCheckButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
islem = Val(TextBox1.Text)
TextBox1.Text = Sqrt(islem)
End Sub

Private Sub RibbonMenuButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonMenuButton3.Click
Call TextBox1.Clear()
End Sub

Private Sub RibbonMenuButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonMenuButton2.Click
TextBox1.Text = "0"
islem = False
hafiza = False
islem = True
End Sub


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

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task