Basit Bir Hesap Makinesi Yapalım
Tarih
25/11/2008 19:08
Konu Sahibi
chopper07
Yorumlar
2
Okunma
2488
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
24/11/2016,13:02
Arkadaşlar Buna Benzer bir tasarım yapmaya çalışın. Daha güzel gözükecektir..

resim

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:
1
2
3
4
5
6
7
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:
1
2
3
4
5
6
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:
1
2
3
4
5
6
7
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:
1
2
3
4
5
6
7
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...®

resim
resim
resim
Cevapla


afyok03
Üye
Kullanici Avatari
Üye
29
0
06/04/2009
0
Ankara
Ofis 2003
10/02/2010,21:03
teşekkurler fakat sadece bir text box kullanarak bunu nasıl yapabilir acaba
afyok03, 06-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


acımasız123
Üye
Kullanici Avatari
Üye
1
0
02/11/2010
0
Adana
Ofis XP
27/02/2011,13:37
resim

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

kodları;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
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







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya