___YöRüKBeYi___
Yönetici
Mesaj Sayısı : 185
Reputation : 16
Kayıt tarihi : 14/03/11
Yaş : 40
Nerden : ESKİŞEHİR
 | | Konu: Hesap Makinesi Çarş. Mart 16, 2011 5:47 pm | |
| [Linkleri görebilmek için üye olun veya giriş yapın.]
Formumuza 3
tane textbox ve 1 tane combobox,3 tane label ve 2 tanede buton
ekliyoruz.Label'ın birine 1.sayı diğerine 2.sayı ve üçüncüsünede işlem
yazıyoruz.1. sayı yazan textbox1'in üst kısmına 2.sayı yazantextbox2'nin
üst kısmına diğerini de combobox'ın üst kısmına yerleştiriyoruz.
1.Butona hesapla 2.butonada temizle yazıyoruz. | Public Class Form1
Dim sayi, sayi1 As Double
Public Class Form1
Dim sayi, sayi1 As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sayi = Val(TextBox1.Text)
sayi1 = Val(TextBox2.Text)
If ComboBox1.Text = "+" Then
TextBox3.Text = sayi + sayi1
End If
If ComboBox1.Text = "-" Then
TextBox3.Text = sayi - sayi1
End If
If ComboBox1.Text = "*" Then
TextBox3.Text = sayi * sayi1
End If
If ComboBox1.Text = "/" Then
TextBox3.Text = sayi / sayi1
End If
If ComboBox1.Text = "" Then
MessageBox.Show("Lütfen yapacağınız işlemi seçiniz", "UYARI")
End If
If TextBox1.Text = "" Then
MessageBox.Show("Lütfen birinci sayıyı giriniz...", "UYARI")
End If
If TextBox2.Text = "" Then
MessageBox.Show("Lütfen ikinci sayıyı giriniz...", "UYARI")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("+")
ComboBox1.Items.Add("-")
ComboBox1.Items.Add("*")
ComboBox1.Items.Add("/")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
ComboBox1.Text = ""
End Sub
End Class | |
|
Anasayfa