Downloads « R. Buddy Dharmawan

Downloads

R. Buddy Dharmawan

http://ilmukomputer.internux.net.id/

CorelDRAW Graphics Suite X3 Curriculum

CorelDRAW Graphics Suite X3 curriculum is designed to teach students how to integrate graphics and images into virtually every aspect of their schoolwork, providing them with essential skills that will serve them in any field later in life. Created for students in middle and high school, this complete program features integrated lesson plans that link directly into core curriculum with unit studies and video training, as well as cognitive and interpersonal skills development. Each complete program includes lynda.com training videos, practice sheets, worksheets, lesson plans, and templates to help teachers prepare students for successful business careers.General Instruction Sheet, .PDF, 35 KB

Module 1, .ZIP 766 KB
Module 2, .ZIP 685 KB
Module 3, .ZIP 616 KB
Module 4, .ZIP 456 KB
Module 5, .ZIP 1,116 KB
Module 6, .ZIP 817 KB
Module 7, .ZIP 2,857 KB
Module 8, .ZIP 2,681 KB
Module 9, .ZIP 5,290 KB

Additional modules will be posted in the coming weeks.

CRACKER MANIA

http://ssg.crackteam.ws/pages/ssg/3.shtml

Cambridge Asia

http://www.cambridge.org/asia/

Links of Libraries

http://dir.yahoo.com/Reference/libraries/

Situs dan Email SMA NEGERI 2 DEPOK

http://www.sman2depok.sch.id – Email : smada_depok@yahoo.com

Fungsi Macro TERBILANG pada EXCEL

Sebuah perjalanan panjang mengisi hari-hariku dalam satu minggu ini. Ternyata akhirnya situs ini kelar juga. Sebuah tulisan pertama akan saya tulis yaitu tentang fungsi Macro TERBILANG pada Microsoft Excel. Untuk itu saya akan coba memaparkannya bagi Anda yang mudah-mudahan dapat terbantu dalam melaksanakan tugas-tugas pekerjaan di kantornya seperti teman saya yaitu operator komputer di sebuah sekolah menengah atas yang setiap bulannya harus membuat laporan keuangan yang didalamnya terdapat script TERBILANG yang harus dituliskan pada setiap kwitansi. Menuliskan secara manual sangat melelahkan dan membutuhkan ketelitian terhadap angka rupiahnya. Berikut ini langkah-langkah pembuatannya:

Langkah pertama yaitu bukalah program Microsoft Excel
Langkah kedua yaitu klik menu Tool, Macro, Security
Berikutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
Buka kembali program Microsoft Excel-nya
Lalu klik menu Tool, Macro, Visual Basic Editor atau bisa langsung tekan tombol Alt+F11
Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 – Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.

Option Explicit

Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = “RIBU “
letak(2) = “JUTA “
letak(3) = “MILYAR “
letak(4) = “TRILYUN “

If (x < 0) Then
TERBILANG = “”
Exit Function
End If

If (x = 0) Then
TERBILANG = “NOL”
Exit Function
End If

If (x < 2000) Then
tanda = True
End If
teks = “”

If (x >= 1E+15) Then
TERBILANG = “NILAI TERLALU BESAR”
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x – tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
TERBILANG = teks
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = “SE”
angka(2) = “DUA “
angka(3) = “TIGA “
angka(4) = “EMPAT “
angka(5) = “LIMA “
angka(6) = “ENAM “
angka(7) = “TUJUH “
angka(8) = “DELAPAN “
angka(9) = “SEMBILAN “

Dim posisi(2)
posisi(1) = “PULUH “
posisi(2) = “RATUS “

bilang = “”
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y – tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = “BELAS “
Else
angka(y) = “SE”
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y – tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = “SATU “
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Setelah script di atas diketik, lalu simpan file lembar kerja Excel tersebut dengan nama file “TERBILANG.XLS”. Maka sudah siap deh lembar kerja tersebut dipakai. Cara menggunakannya tinggal anda ketik fungsinya yaitu ucapangka. Sebagai contoh coba anda isikan 1974 pada sel A1, lalu pada sel B1 tuliskan “=TERBILANG(A1)” maka setelah anda menekan enter akan muncul tulisan “SERIBU SEMBILAN RATUS TUJUH PULUH EMPAT” pada sel B1.

Mudah bukan? Langkah di atas sudah saya coba dan berhasil, kalau masih tidak muncul atau muncul pesan kesalahan error berarti macro masil belum benar, coba periksa kembali langkah-langkahnya atau biasanya kesalahan terjadi pada tanda kutip, coba rubah/ganti secara manual tanda kutipnya.

Selamat mencoba semoga bermanfaat.

Atik Dhama Yozaniar
Staf Pengajar pada SMAN 3 Kuningan
Website: http://yozaniar.web.id