Halaman Kami


Thursday 21 March 2013

Membuat Animasi Pergerakan Matahari dengan Excel

Saat berselancar kemarin, saya menemukan harta karun :)

Harta karun ini memungkinkan saya untuk bisa membuat gerakan melingkar dari suatu Objek yang dipilih. Misalkan, kita buat suatu objek Oval di Excel. Secara otomatis Excel memberi nama objek tersebut "Oval 1".

Untuk mengetahui nama objek yang diberikan Excel, klik objeknya dan lihat di bagian kiri gambar, tepat di atas header kolom, disitu tertulis "Oval 1"




Membuka Visual Basic Editor

Selanjutnya, kita akan menggunakan Visual Basic Editor untuk menulis kode makro "gerakan melingkar".

Jika versi Excel anda seperti saya, yang tidak ada icon untuk Visual Basic Editornya, ikuti saja langkah berikut:

1. klik logo Microsoft dalam lingkaran paling kiri atas



2. Klik "Excel Options" di kiri bawah dialog box yang muncul



Selanjutnya akan mucul kotak dialog berikut



Klik customize, dan dalam combo box di kotak hijau pilih "All Commands" lalu pilih "Visual Basic" dan klik "Add". Terakhir klik "OK". Icon visual basic akan muncul di ribbon Excel



klik icon tersebut dan selanjutnya copy kode makro berikut
======================================================================


Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'waiting for in milliseconds'

Sub test()

Dim centerLeft As Long, centerTop As Long

Dim Radius As Double

Dim Theta As Double

centerLeft = 500

centerTop = 500

Radius = 450

With ActiveSheet.Shapes("Oval 1")

For Theta = 0 To 2 * Application.Pi() Step Application.Pi() / 180

.Left = centerLeft + (Radius * Cos(Theta))

.Top = centerTop - (Radius * Sin(Theta))

Sleep 40

DoEvents

Next Theta

End With

End Sub
======================================================================


Jalankan makronya dengan cara memilih "View" lalu pilih "Macros" dan "View Macros"



Pilih macro yang sudah kita salin, dalam hal ini macro "test" dan klik "Run"



Setelah mengklik "Run" maka objek yang sudah kita buat ("Oval 1") akan bergerak melingkar seperti berikut



Dengan sedikit imajinasi, tinggal tambahkan gambar bumi dan lintasan matahari seperti ini

No comments:

Post a Comment