Hitung Volume Bangun Ruang Pada VB.NET

halo guys,,
gimana kabar kalian?? ready buat belajar VB.NET lagi??? (^_^')
jadi, untuk kali ini kita akan membahas mengenai bagaimana memanfaatkan toolbox radio button yg sekaligus kita rangkai dan susun dengan berbagai event dan prosedur, sehingga dapat menjadi program sederhana yg sekiranya bisa membantu kalian dalam menyelesaikan persoalan mgkin yg berkaitan dengan tugas2 anda mengenai prosedur pada VB.NET

suport by :



jadi saya mulai dengan menampilkan scriptnya ya kawaNn :

jadi pertama saya buat class dulu kawan, cara nya di toolbar project kemudian langsung aja add class, dan inilah scriptnya pada class tersebut :

 Public Class rumus_volume    Sub Balok()
        Dim panjang, lebar, tinggi, volume As Integer
        panjang = InputBox("Panjang")
        lebar = InputBox("Lebar")
        tinggi = InputBox("Tinggi")
        volume = panjang * lebar * tinggi
        MessageBox.Show("Panjang: " & panjang & vbCrLf & "Lebar: " & lebar & vbCrLf & "Tinggi: " & tinggi & vbCrLf & "Volume= " & volume)
    End Sub
    Sub prismasegi3()
        Dim alas, tinggiS, tinggiP, Volume As Integer
        alas = InputBox("Alas Seg3")
        tinggiS = InputBox("Tinggi Segi3")
        tinggiP = InputBox("Tinggi Prisma")
        Volume = 1 / 2 * (alas * tinggiS) * tinggiP
        MessageBox.Show("Alas: " & alas & vbCrLf & " Tinggi Segitiga: " & tinggiS & vbCrLf & "Tinggi Prisma: " & tinggiP & vbCrLf & "Volume: " & Volume)
    End Sub
    Sub limassegi3()
        Dim alasS, tinggiS, tinggiL, volume As Integer
        alasS = InputBox("Alas Segi3")
        tinggiS = InputBox("Tinggi Segi3")
        tinggiL = InputBox("Tinggi Limas")
        volume = 1 / 3 * 1 / 2 * alasS * tinggiS * tinggiL
        MessageBox.Show("Alas: " & alasS & vbCrLf & " Tinggi Segitiga: " & tinggiS & vbCrLf & "Tinggi Limas: " & tinggiL & vbCrLf & "Volume: " & volume)
    End Sub
    Sub bola()
        Dim r, t, volume As Integer
        r = InputBox("Jari-Jari")
        volume = 3 / 4 * 3.14 * r * r * r
        MessageBox.Show("Kalikan: 3/4" & vbCrLf & "Jari-jari: " & r & vbCrLf & "Phi: 3.14" & vbCrLf & "Volume: " & volume)
    End Sub
End Class



------>>>>>>>>--------
lanjutnya kawaNn, saya tampilkan script pada event2 yg ada dan sesuai dengan form. lembar kerja saya.
ini scrptnya :



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Hitung Volume:..."
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Dim Vbalok As New rumus_volume
            Vbalok.Balok()
        ElseIf RadioButton2.Checked = True Then
            Dim Vprisma As New rumus_volume
            Vprisma.prismasegi3()
        ElseIf RadioButton3.Checked = True Then
            Dim Vlimas As New rumus_volume
            Vlimas.limassegi3()
        ElseIf RadioButton4.Checked = True Then
            Dim Vbola As New rumus_volume
            Vbola.bola()
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    End Sub

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


dari script di atas, maka tampilan program nya, bisa seperti ini : ( ini sih cuma kreasi biasa aja ) silahkan berkreasi dengan khayalanmu mengenai tampilan nya, hehe
jadi saya akan menampilkan untuk menghitung volume bola aja ya kawaNn :


lanjutnya kita akan di suruh untuk menginputkan nilai panjang, lebar, tinggi, jangan lupa kalian klik radioButton nya dulu ya Guyyss.. hehe
ini adalah tampilan kita menginputkan nilai nya :




NaHhh,, jelas kaNn Guyss...
silahkan mencoba dan moga berhasil,,
silahkan kasih kritik dan saran jika ada yg salah dari ilmu yg sudah saya share kan..
Karena saya yakin dengan kita menularkan ilmu yg kita punya bukan lawan yg muncul , dibalik itu semua ada berkah yg membuat kita semakin Terampilll.....
OK,
Gud Luck GuySs...

Leave a Reply