bu yanında basit bir hesap makinesi yaptık
Forma eklenecekler olanlar
4 tane buton
2 tane textbox
Basit Hesap Makinesi vb.net |
RAR PASS:www.visualbasicdersleri.com
Public Class Form1 Dim s2 As Integer Dim s1 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'visualbasicdersleri.com s1 = TextBox1.Text s2 = TextBox2.Text MsgBox("toplama işleminin sonucu " & s1 + s2) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click s1 = TextBox1.Text s2 = TextBox2.Text MsgBox("çıkarma işleminin sonucu " & s1 - s2) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click s1 = TextBox1.Text s2 = TextBox2.Text MsgBox("bölme işleminin sonucu " & s1 / s2) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click s1 = TextBox1.Text 'visualbasicdersleri.com s2 = TextBox2.Text MsgBox("çarpma işleminin sonucu " & s1 * s2) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("Hoş Geldiniz.VisualBasicdersleri.com") End Sub End Class