VB de hesap kodları - Oyun Sitesi \ FORUM

Haberler İncelemeler Ön İncelemeler Konsol Hileler Tam Çözüm Klasikler Çıkış Tarihleri Forum

Oyun Sitesi \ FORUM

Kullanıcı Adı:	şifre:
şifreyi Anımsa
şifrenizi mi unuttunuz? ÜYE OL

Tüm Forumlar

Genel Konular

Yazılım & Program

VB de hesap kodları

Yeni Konu

Konuyu Yanıtla

Yazıcı Dostu

Önceki Sayfa | Sonraki Sayfa

Yazar

Konu

Sayfa: / 3

batuhanus
Seçkin Üye

Turkey
İleti 1055

İletim - 20/01/2007 : 22:30:13

(Visual basic 2005 express edition)'da hesap makinesi.

Kimse düzgün anlatamayınca ben bir gün kastım ve hesap makinesini yaptım

.İşte kodlaması;

Öncelikle forma 3 textbox,3 label ve 5 buton ekleyin.Sonra forma çift tıklayın,ekrandaki tüm yazıları silin ve şunu yapıştırın;

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Text = "Une Calculatrice Par Batuhanus"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Label1.Text = "1. Sayı"
Label2.Text = "2. Sayı"
Label3.Text = "sonuç"
Button1.Text = "+"
Button2.Text = "-"
Button3.Text = "*"
Button4.Text = "/"
Button5.Text = "temizle"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = (Str(Val(TextBox1.Text) + Val(TextBox2.Text)))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox3.Text = (Str(Val(TextBox1.Text) - Val(TextBox2.Text)))
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox3.Text = (Str(Val(TextBox1.Text) * Val(TextBox2.Text)))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox3.Text = (Str(Val(TextBox1.Text) / Val(TextBox2.Text)))
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox3.Text = (Str(0))
End Sub
End Class
Olabilecek en açık anlatım. kolay gelsin