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