Geometrik Şekillerin Alan Hesaplaması

Üçgende alan vb.. geometrik şekillerin sayı girildiğinde sonucunu rahatlıkla ve hatasız bulcağınız programdır...

Üçgende alan vb.. geometrik şekillerin sayı girildiğinde sonucunu rahatlıkla ve hatasız bulcağınız programdır...


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b As Double

        a = Convert.ToDouble(TextBox1.Text)

        b = Convert.ToDouble(TextBox2.Text)



        a = a * b / 2

        Label11.Text = Convert.ToString(a)

    End Sub



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

        Dim a As Double

        Dim b As Double

        Dim c As Double

        a = Convert.ToDouble(TextBox3.Text)

        b = Convert.ToDouble(TextBox4.Text)

        c = Convert.ToDouble(TextBox5.Text)

        a = a + b + c

        Label11.Text = Convert.ToString(a)

    End Sub



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

        Dim a, b As Double

        a = Convert.ToDouble(TextBox6.Text)

        b = Convert.ToDouble(TextBox7.Text)

        a = 3 * (a ^ 2) * b

        Label11.Text = Convert.ToString(a)



    End Sub



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

        Dim a, b As Double

        a = Convert.ToDouble(TextBox9.Text)

        b = Convert.ToDouble(TextBox8.Text)

        a = 2 * 3 * (a ^ 2) + 2 * 3 * a * b

        Label11.Text = Convert.ToString(a)

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim a, b As Double

        a = Convert.ToDouble(TextBox11.Text)

        b = Convert.ToDouble(TextBox10.Text)

        a = a * b

        Label11.Text = Convert.ToString(a)



    End Sub



    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim a, b As Double

        a = Convert.ToDouble(TextBox12.Text)

        b = Convert.ToDouble(TextBox13.Text)

        a = 2 * (a + b)

        Label11.Text = Convert.ToString(a)



    End Sub

End Class

  • Etiketler;
Burak Kızıltaş
Bilgisayar Mühendis Adayı
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Kardeş her şey güzelde benim bilgisayarda visual basic yüklü degil nette de bulamadım programı nasıl yükleyebilirim yada link atsanız.....
bende dvd var ama bn snn için interntten bakarım
yardım edin lütfen bi sorum var
basicte bir fizik sorusunun çözümünü veren proğramın kodu acele lazım yardım edermsnz
ben aynısını kopyaladım, taslağı da kurdum. ama hata veriyor. yardımcı olur musunuz. handles kısmında
ve bana mail olarak atabilir misiniz

Yukarı Git