Arkadaşlar öncelikle başlayalı 3-4 gün oldu lütfen dalga geçmeyin ve bu benim 2.programım.Hesapmakinesı yapmak basit ama daha yeni başladım ve kendimi geliştireceğim Allahın izni ile uzatmadan kodları paylaşayım.
Bu arada form 1'e 5 adet button ekleyin 2 adet text box vede bir label.
Çok Basit Ama Kesinlikle Alıntı Değil Kendi Kafamdan yaptım.
Bu arada form 1'e 5 adet button ekleyin 2 adet text box vede bir label.
Kod:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
[U]TOPLAMA[/U]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
[U]ÇIKARMA[/U]
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
[U]BÖLME[/U]
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
[U]ÇARPMA[/U]
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
[U]TEMİZLE[/U]
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label1.Text = ("Sonuç")
TextBox1.Text = ("")
TextBox2.Text = ("")
End Sub
End Class
Son düzenleme:
bende daha yeniyim ilk yaptığım program hesap makinesiydi güzel paylaşım .d 
