Anasayfa > Kodlar > Visual Basic .Net ile Alan hesaplama

Visual Basic .Net ile Alan hesaplama


Üçgen.kare,dikdörtgen ve dairenin alanını hesaplayan program.Karenin ve dairenin tek alanı yazılacağından textbox2 false görünecektir.Öncelikle combobox'ın name özelliğini "c" yapıyoruz ve programın kodlarını yazmaya başlıyoruz.



Dim x As New Control
Dim d As Double 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
c.Text = "Lütfen seçiniz..."
c.Items.Add("Kare")
c.Items.Add("Dikdörtgen")
c.Items.Add("Üçgen")
c.Items.Add("Daire")
End Sub

Private Function hesapla(ByVal t1 As Double, ByVal t2 As Double) As Double
If c.SelectedItem = "Kare" Then
d = t1 * t1
End If
If c.SelectedItem = "Üçgen" Then
d = (t1 * t2) / 2
End If
If c.SelectedItem = "Daire" Then
d = 3.14 * t1 * t1
End If
If c.SelectedItem = "Dikdörtgen" Then
d = t1 * t2
End If
Return d
End Function

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

Private Sub c_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.SelectedIndexChanged
If c.SelectedItem = "Üçgen" Then
TextBox2.Enabled = True
End If
If c.SelectedItem = "Kare" Then
TextBox2.Enabled = False
End If
If c.SelectedItem = "Dikdörtgen" Then
TextBox2.Enabled = True
End If
If c.SelectedItem = "Daire" Then
TextBox2.Enabled = False
End If
End Sub
Private Sub temizle()
For Each x In Controls
If TypeOf x Is TextBox Then
x.Text = ""
End If
Next x
End Sub

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

Private Sub CIKIS()
Me.Close()
End Sub

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

 

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: