|
� WWW.SPYROZONE.TK � |
|
|
[066]. MACRO PADA OPEN OFFICE
------------------------------------------------------ Author : SPYRO KiD Contact : spyro_zone@Yahoo.COM ==> www.spyrozone.tk CopyLEFT (c) 2005 www.spyrozone.tk All Rights Reserved � 17/08/2005 20:30:01 WIB ------------------------------------------------------
Hampir sama dengan Ms Word, pada Open Office juga tersedia tools yang analog, contohnya adalah Macro. ********************************************************************** Macro adalah bahasa pemrograman script (VBA) yang bertujuan untuk memudahkan bagi pengguna Open Office untuk menyelesaikan pekerjaan yang berulang-ulang atau hanya ingin untuk mengcostumize Open Office. Pada dasarnya macro menggunakan bahasa pemrograman hampir sama dengan Microsoft Visual Basic, tetapi kosa kata pemrograman macro sangat terbatas karena tujuannya bukan sebagai aplikasi yang stand alone. **********************************************************************
Langkah-langkah untuk membuat Macro: 1. Buka aplikasi Open Office 2. Pada menu utama klik "Tools" kemudian sorot mouse Anda ke "Macros", dan klik "Macro..." 3. Akan tampil jendela "Macro" dan klik tombol "New".Akan muncul jendela editor Macro (Basic). Nah, pada jendela Basic inilah sebagai media kerja Anda untuk menuliskan Kode Script Macro. Salin kode berikut ini pada Basic Editor :
Sub Main Dim Pesan As String Pesan = "Gogogo!!! Open Office!!" & Chr(10) Pesan = Pesan & "===================================" & Chr(10) Pesan = Pesan & "Sebelum bekerja......" & Chr(10) Pesan = Pesan & "Jangan lupa baca do'a yach.." & Chr(10) Pesan = Pesan & "===================================" & Chr(10) Pesan = Pesan & "Okay.." Msgbox Pesan,64,"Hello" End Sub
4. Simpan script tersebut [CTRL]+[S] lalu Tekan tombol keyboard [F5] untuk melihat hasilnya.
Okay, sekarang kita akan emnampilkan kotak isian password saat Open Office dijalankan ;) Sub Main Dim Password As String Dim Tanya As String Password = "spyrocakep" Tanya = InputBox("Masukkan Password Anda !!!","Password") if Lcase(Tanya) <> Password then Shell "poweroff" end if End Sub
Tekan tombol "F5" untuk melihat hasil dari script yang barusan Anda buat. Apabila tidak ada error maka akan tampil jendela input yang meminta Anda untuk mengisikan password. Jika password salah, bukan spyrocakep, maka komputer akan dimatikan.
/* ------------------------------|EOF|------------------------------ */
|
|
| � Back |
� WWW.SPYROZONE.TK � |