Semoga Bermanfaat n_n

Tutorial Menghitung Volume Tabung Dari Visual Basic 6.0

Senin, September 20, 2010 / Diposting oleh GoZaLi /

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 :

·     Form

Name : frmhitungvolumetabung

Caption : disesuaikan


·     Label

Label 1

Name : lbl1

Caption : Aplikasi Mencari Volume Tabung


Label 2

Name : l

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9WIEkiAyiq4agvf1KVXKLg_fYLZxdXVxsz6XLcJq0Cnr3377_S4kbGRuuQ1QE5QPBBd5Qg5s8EBZeonaEnvHvPgqMvBO3CHqirmUe30F047vHvwZSwqmcFVjckLR3vHB-iIRZNx07E5pW/s320/kal.JPG 
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:

0 komentar:

Posting Komentar