MENENTUKAN LUAS & VOLUME TABUNG DENGAN MACRO EXCEL

Bagaimana menentukan ‘luas tabung’ dan ‘Volume Tabung’? Dengan menggunakan Microsoft Excel permasalahan ini mudah di selesaikan setelah kita buat programnya maka tinggal kita masukkan nilai variabel-variabelnya.Langkah-Langkah Algoritma Untuk Mencari Luas & Volume Tabung

Sebelum kita membuat program dari permasalahan, kita harus tahu bagaimana algoritmanya adapun algoritmanya:

  • Algoritma mencari ‘Luas Tabung’:

Input jari-jari = r
Input tinggi = t
Input pi = 3,14

Hitung luas L = 2 x pi x r x ( r + t )

Cetak Luas L.

  • Algoritma mencari ‘Volume Tabung

Input jari-jari = r
Input tinggi = t
Input pi = 3,14
Hitung Volume V = pi x r2 x  t
Cetak Volume V.

Setelah kita tahu algoritma penyelesaian dari permasalahan maka kita masuk ke Microsoft Excel, pilih View kemudian klik macros maka akan tampil table dialog pada pilihan ‘Macros Name’ tulis sembarang nama, kemudian pilih Cereate maka akan muncul lembar kerja Microsof

t Visual Basic sbb:

isilah lembar kerja tersebut dengan langka-langkah program macros.

Langkah-Langkah program Macros Untuk Mencari Luas Tabung & Volume Tabun

  1. Langkah-langkah program macros untuk mencari luas Tabung.

Copylah langkah-langkah berikut ini pada lembar kerja Microsoft Visual basic untuk menentukan luas tabung.

Sub Ltabung()

Dim r As Double

Dim t As Double

Dim pi As Double

Dim L As Integer

r = InputBox(“Temaq nilai jari2 ne…!”, jari – jari, 0)

t = InputBox(“Temaq nilai tinggi ne…!”, Tinggi, 0)

pi = 3.14

Cells(1, 1) = “r”

Cells(1, 2) = “t”

Cells(1, 3) = “pi”

Cells(1, 5) = “L. Lingkaranmya”

Cells(2, 1) = (r)

Cells(2, 2) = (t)

Cells(2, 3) = (pi)

L = 2 * pi * r * (r + t)

Cells(2, 5) = L

End Sub

NOTE: apabila program ini di copy kemudian di paste di lembar kerja Microsoft visual basic maka ‘sub()’ dan ‘End sub’ yang ada dilembar kerja sebelumnya harus dihapus.

Setelah langkah-langkah program dipaste maka klik menu ‘Run’

maka akan muncul lembar dialog sbb:

Nah… silahkan anda isi jari-jari tabung sesuai keinginan misalnya kita isi 7, lembar dialog ini akan muncul lagi sekali yaitu untuk menetapkan nilai tingginya, misalkan kita isi 16. Maka hasilnya akan tampil sbb:

2.    Langkah-langkah Program Macros Untuk Mencari Volume Tabung

Langkah kerjanya sama dengan mencari luas tabung silahkan coba sendiri disini saya berikan langkah-langkah programnya

Sub V.Tabung()

Dim r As Double

Dim t As Double

Dim pi As Double

Dim L As Integer

r = InputBox(“Temaq nilai jari2 ne…!”, jari – jari, 0)

t = InputBox(“Temaq nilai tinggi ne…!”, Tinggi, 0)

pi = 3.14

Cells(4,1)=”r”

Cells(4,2)=”t”

Cells(5,3)=”pi”

Cells(5,5)=”Volume”

Cells(5, 1) = (r)

Cells(5, 2) = (t)

Cells(5, 3) = (pi)

V= pi * (r ^2)*t

Cells(5, 5) = V

End Sub

About these ads

Tag:, , , , , , ,

2 responses to “MENENTUKAN LUAS & VOLUME TABUNG DENGAN MACRO EXCEL”

  1. Stevanus says :

    aku copy luas tabung koq tidak bisa ya.Pada baris : r = InputBox(“Temaq nilai jari2 ne…!”, jari – jari, 0) muncul keterangan compile error: syntax error. kenapa ya? thanks

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.