GoZaLi "AssaLamuaLaikum" n_n

Menghitung volume tabung menggunakan Visual Basic.

Rumus yang digunakan adalah:

V = luas alas * tinggi

Luas alas = phi  * jari-jari * jari-jari

atau

Volume tabung = phi*r*r*t

Ini print screen programnya setelah jadi:
 
Buatlah :

Name : frmhitungvolumetabung

Caption : disesuaikan

·     Label

Label 1

Name : lbl1

Caption : Aplikasi Mencari Volume Tabung

Label 2

Name : l
 
bltinggi

Caption : Tinggi Tabung

Label 3

Name : lbljarijari

Caption : Jari-jari Tabung

Label 4

Name : lblvolume

Caption : Volume Tabung

·     TextBox

TextBox 1

Name : txttinggi

Text : kosongkan

TextBox 2

Name : txtjarijari

Text : kosongkan

TextBox 3

Name : txtvolume

Text : kosongkan

·     CommandButton

CommandButton 1

Name : cmdhitung

Caption : Hitung

CommandButton 2

Name : cmdkeluar

Caption : Keluar

    Listing Program :

    1. Letakkan pada General

      Const phi As Double = 3.14

      Dim volumetabung As Double

    2. Object cmdhitung, Event Click

      Private Sub cmdhitung_Click()

      luasalas = phi * (txtjarijari.Text * txtjarijari.Text)

      volumetabung = luasalas * txttinggi.Text

      txtvolume.Text = volumetabung

      End Sub

  3. Object cmdkeluar, event Click

      Private Sub cmdkeluar_Click()

      Unload Me

      End Sub

Label: PENULISAN