Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Express ücgen prizma hacmi hesaplayici

Merhaba,

Üçgen prizmanın hacmi, dairenin alanı ve çemberin çevresini hesaplayan programlar yaptım ve eklemek istedim... Bu derste basit kodlarla matematik programları yapacağız.

Öncelikle resimdeki gibi 6 adet textbox, 6 adet label, 2 adet buton ekliyoruz.

http://resim.sanalkurs.net/uploads/prog1.jpg

Üçgen prizmanın hacmini hesaplama programı kodları, buradan kopyalamaya başlayabilirsiniz:
Public Class form1
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click


Burada yazı kutusuna tıklandığında üzerindeki -üçgenin alanını girin- yazısının yok olmasını sağlıyoruz, aynı sitelerdeki rumuz girin yazısına tıklayınca olduğu gibi...

        TextBox1.ForeColor = Color.Black
        TextBox1.Text = ""
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


Burada X şeklindeki resmimize tıklayınca programı kapatma komutunu giriyoruz:

        Me.Close()
    End Sub

    Private Sub TextBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Click
        TextBox2.ForeColor = Color.Black
        TextBox2.Text = ""
    End Sub

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


Burada buton1'e tıklayınca textbox3'e textbox1 ve textbox2'nin çarpımını yazmasını istiyoruz:

        textbox3.Text = TextBox1.Text * TextBox2.Text
    End Sub

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


Burada buton2'ye tıklayınca TextBox6'ya TextBox4 ve TextBox5'in çarpımının yarısını yazmasını istiyoruz.

        TextBox6.Text = TextBox4.Text * TextBox5.Text / 2
        TextBox1.Text = TextBox6.Text
    End Sub
End Class
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=