Fungsi Terbilang Di Microsoft Access

Terima kasih atas tanggapan yang menyenangkan di artikel Membuat Fungsi Terbilang di Microsoft Excel, melalui email atau komentar. Lalu di halaman ini, ada permintaan atas artikel pembuatan fungsi terbilang di Microsoft Access, kebetulan sih saya pernah membuat proyek dengan Access yang menyertakan fungsi terbilang tersebut di dalamnya (jadi saya tinggal membongkar arsip saya karena proyek ini sudah berumur 6 tahun ketika saya pertama kali menceburkan diri ke dunia programming, saya ngga begitu ingat apakah script ini dari mailing list atau buat sendiri, tetapi kalau ada yang merasa ini adalah script anda, tolong kasi comment disini agar saya pasang link-nya).

Dan inilah langkah yang harus anda ambil untuk memasang fungsi terbilang ini di Microsoft Access:

1. Buka Microsoft Access dulu (ya pastilah hehehe…)
2. Klik tab Modules, lalu buatlah satu module baru atau anda bisa memasukan script terbilang ini ke dalam module yang sudah ada. Untuk membuat module baru, klik tombol New di tab Modules.
   
3. Lalu copy-paste script dibawah ini ke dalam module baru anda atau anda bisa mengunduh script tersebut dalam bentuk teks, ketik script tersebut pada Microsoft Visual Basic for Application Editor yang sedang terbuka.

   Public Function ubah_terbilang(xbil As Double)
     Dim nilai, i, j, k, hasil$, HasilAkhir$, Bilangan#, Digit, Rp$, Bil$
   
     If IsNull(xbil) Then
        ubah_terbilang = Null
        Exit Function
     End If
   
   'pengelompokan
       Dim Kel$(1 To 6), Angka$(1 To 9), Sat$(1 To 3)
      Kel$(1) = "Biliun "
      Kel$(2) = "Triliun "
      Kel$(3) = "Miliar "
      Kel$(4) = "Juta "
      Kel$(5) = "Ribu "
      Kel$(6) = ""
   
   'data angka
       Angka$(1) = "Satu "
      Angka$(2) = "Dua "
      Angka$(3) = "Tiga "
      Angka$(4) = "Empat "
      Angka$(5) = "Lima "
      Angka$(6) = "Enam "
      Angka$(7) = "Tujuh "
      Angka$(8) = "Delapan "
      Angka$(9) = "Sembilan "
   
   'satuan
       Sat$(1) = "Ratus "
      Sat$(2) = "Puluh "
      Sat$(3) = ""
   
   'mulai
      Bilangan# = Val(xbil)
     HasilAkhir$ = ""
     GoSub HitungHuruf
     If hasil$ <> "" Then
      HasilAkhir$ = hasil$ + "Rupiah"
     End If
   
   'hitung pecahan
      Bilangan# = Fix((Bilangan# - Fix(Bilangan#) + 0.005) * 100#)
     If Bilangan# > 0 Then
        GoSub HitungHuruf
        If hasil$ <> "" Then
          HasilAkhir$ = HasilAkhir$ + " " + hasil$ + "Sen"
        End If
     End If
   
   ubah_terbilang = HasilAkhir$
   Exit Function
   
   HitungHuruf:
      Rp$ = Right$(String$(18, "0") + LTrim$(Str$(Fix(Bilangan#))), 18)
      hasil$ = ""
   
      If Val(Rp$) = 0 Then Return
   
   'blg bulat
      For i = 1 To 6
        Bil$ = Mid$(Rp$, i * 3 - 2, 3)
   
        If Val(Bil$) = 1 And i = 5 Then
           hasil$ = hasil$ + "Seribu "
   
        ElseIf Val(Bil$) <> 0 Then
           For j = 1 To 3
              Digit = Val(Mid$(Bil$, j, 1))
              If j = 2 And Right$(Bil$, 2) = "10" Then
                 hasil$ = hasil$ + "Sepuluh "
                 Exit For
   
              ElseIf j = 2 And Right$(Bil$, 2) = "11" Then
                 hasil$ = hasil$ + "Sebelas "
                 Exit For
   
              ElseIf j = 2 And Mid$(Bil$, 2, 1) = "1" Then
                 hasil$ = hasil$ + Angka$(Val(Right$(Bil$, 1))) + "Belas "
                 Exit For
   
              ElseIf Digit = 1 And j = 1 Then
                 hasil$ = hasil$ + "Seratus "
   
              ElseIf Digit <> 0 Then
                 hasil$ = hasil$ + Angka$(Digit) + Sat$(j)
   
              End If
           Next
           hasil$ = hasil$ + Kel$(i)
        End If
     Next
     Return
   End Function

   

4. Lalu tutup jendela VBA editor.
5. Nah sekarang tinggal mencoba fungsi ini.

Ada dua cara untuk mencoba fungsi ini di Microsoft Access, melalui Form atau Report. Nah, kita akan mencoba yang pertama yaitu melalui Form:

1. Buat form baru dengan cara klik tab Forms lalu klik tombol New.
   
2. Di form yang baru tersebut, buat 2 textbox baru. Secara default, maka textbox pertama akan dinamai Text0 dan teks kedua dinamai dengan Text2, anda bisa merubahnya sendiri tetapi dalam contoh ini saya menganggap kita akan memakai nama default yang diberikan.
   
3. Lalu buka Microsoft Visual Basic Editor dengan klik menu View -> Code.
4. Pilih control Text0 yang akan kita tangkap eventnya.
   
5. Lalu ubah event yang akan di tangkap ke Change.
   
6. Lalu ketikan script: Text2.Value = ubah_terbilang(Text0.Text) di dalam blok Private Sub Text0_Change().
   
7. Tutup jendela Microsoft Visual Basic editor-nya.
8. Ubah view form ke Form View.
9. Lalu coba ketikan angka di Text0, kalau anda melakukannya dengan benar maka hasilnya akan muncul di Text2.
   

Nah, dari contoh sederhana diatas anda dapat mengembangkannya sendiri menjadi aplikasi yang lebih baik. Untuk implementasi kedua adalah pada Report, penggunaannya sebagai berikut:

1. Buat report baru dengan klik tab Reports lalu klik New.
   
2. Setelah semua di buat, dan misalnya anda ingin mengimplementasikan fungsi terbilang (yang diwakili pada textbox txtTerbilang) ini untuk total transaksi yang tercantum di control txtTOTAL, anda tinggal mengetikan =ubah_terbilang([txtTOTAL].[Value]) di Control Source dari txtTerbilang.
   
3. Sekarang tinggal coba membuka report tersebut, kalau anda melakukannya dengan benar maka ‘penampakannya’ akan seperti gambar yang saya pasang sebagai logo artikel ini diatas.

Semoga artikel ini dapat sedikit membantu bagi rekan-rekan yang sedang mencari fungsi terbilang ini untuk proyek Microsoft Access anda.

Memberikan Narasi pada Presentasi PowerPoint

Narasi bisa ditambahkan pada presentasi MS PowerPoint. MS PowerPoint 2007 memiliki fasilitas untuk merekam dan memainkan narasi bersamaan dengan presentasi. Fasilitas ini sangat bermanfaat untuk membuat presentasi yang dijalankan secara langsung tanpa perlu kehadiran kita dihadapan audien. Menambahkan narasi pada MS PowerPoint caranya sangat mudah sekali. Agar fasilitas ini dapat berfungsi, sebelumnya Anda harus menyiapkan microphone pada komputer. Ikuti langkah-langkah berikut ini:
1. Buat presentasi sebaik-baiknya. Jika perlu siapkan pula naskah narasinya.


2. Klik menu Slide Show, dan klik menu Record Narration.

3. Muncul jendela Record Narration, untuk mengatur volume suara yang akan direkam, klik tombol Set Microphone level. Geser panel ke kiri atau ke kanan untuk mengatur volume suara.

4. Untuk mengatur kualitas suara klik tombol Change Quality. Pilih kualitas suara yang dinginkan.

5. Sebaiknya tentukan tempat penyimpanan suara di satu folder dengan file presentasi, klik tombol Browse dan beri tanda centang pada pilihan Link Narration in:

6. Setelah semuanya siap, klik tombol OK. Mulai untuk merekam narasi.

7. Pada saat merekam narasi tampilan presentasi berpindah ke tampila Slide Show. Anda bisa mengatur tampilan setiap slide sesuai dengan narasi yang sedang Anda sampaikan.

8. Narasi akan disimpan secara otomatis. Namun, MS PowerPoint memberi pilihan untuk menyimpan atau tidak waktu narasi-nya. Sebaiknya klik Save, agar narasi sesuai dengan slide presentasi.

9. Saat ini di dalam slide akan muncul icon loudspeaker yang menandakan ada link narasi.
10. Jika Anda ingin menyimpannya sebagai file PPS, klik tombol MS Office > Save As > PowerPoint Show.

Mudah sekali bukan. Selamat mencoba.

Memasukkan Tabel MS Excel ke Wordpress

Ditulis oleh Ardo

28 January 2009 1,159 views 4 Comments

Untuk memasukkan tabel dari Microsoft Excel ke Wordpress anda dapat menggunakan plugin WP-Table. Plugin ini sangat membantu bagi mereka yang tidak familiar dengan HTML. Caranya demikian:

1. Pertama-tama simpan (save as) tabel MS Excel yang hendak anda masukkan dalam format “csv” (bukan “xls” atau xlsx) karena WP-Table tidak bisa membaca dalam “xls” atau “xlsx”
2. Aktifkan plugin WP-Table yang sudah diupload dalam folder wp-content/plugins.
3. Import tabel csv tadi ke wordpress anda. Caranya: dari control panel Wordpress >> klik “Manage” lalu “Table”. Tombol import tabel ada di bagian paling bawah. Jangan lupa memberi nama tabel yang akan diimport tersebut.
4. Jika import berhasil maka nama tabel akan muncul di deretan “Manage Table” lengkap dengan nomor id-nya. Catat nomor id ini karena dibutuhkan saat memasukkan tabel dalam wordpress.
5. Untuk mengedit lebar kolom dan warna tabel silahkan klik “edit” dari “manage table” sesuai tabel yang akan diedit. Editing masih dibutuhkan untuk menyesuaikan lebar dan warna tabel dengan lebar kolom & warna template wordpress anda. Untuk kebanyakan template lebar tabel total biasanya 500 px - 600 px.
6. Masukkan tabel dengan perintah [Table=nomor id tabel yang ingin dimasukkan]. Anda dapat memasukkan perintah ini di post atau page sesuai kebutuhan.

Berikut ini contoh tabel yang sudah berhasil dimasukkan dalam wordpress lewat WP-Table:

Menurut pembuatnya, WP-Table plugins hanya support hingga Wordpress 2.5. Meski demikian tidak ada masalah saat saya mencobanya di Wordpress 2.6.3. Tidak diperlukan modifikasi plugins ini.

Demikianlah, selamat mencoba.

Perbandingan Microsoft Word 2007 dan Microsoft Word 2003

Pada awalnya, Ms. Word 2007 tidak jauuh berbeda dengan Ms. Word 2003. Tetapi Ms. Word 2003 sekarang di munculkan dengan tampilan baruu dan dengan nama baruu juga, yaitu Ms. Word 2007. Ms. Word 2007 juga adalah pengolah kata . Ms. Word 2007 tentunya muncul di tahun 2007 pula. Tampilan layarnyapun tidak terlalu jauh dengan Ms. Word 2003, tetapii sedikit lebih rumit.

Di bawah ini saya akan menunjukkan sedikit tampilan layar pada Ms. 2007 yang saya ketahui. Meskipun tak terlalu lengkap . Dan terlalu jelas. Atau dengan kata lain di bawah ini adalah langkah-langkah untuk mengoprasikan Ms. Word 2007 .
Perhatikanlah langkah di bawah .
1. Membuka Ms. Word 2007 tidak jauh berbeda dengan 2003. Mulanya juga berada di dalam h Ms. Office ( perhatikan bulatan dan tanda panah yang berwarna hijau di bawah )

2. Inilah tampilan pertama yang akan anda lihat pada tampilan Ms. Word 2007. Lihatlah dengan baik. Tampilan toolbar pada Ms. Word 2007 adalah Vertikal dan semuanya menjadi satuu dengan di lengkapi gambar-gambar yang dapat membuat tampilannya menarik dam freessh, sedangkan pada Ms. Word 2003, toolbarnya ditampilkan secara Horizontal.

3. Toolbar-toolbal pada Ms. Word 2007 seperti HOME, INSERT, PAGE LAYOUT, VIEW sama dengan toolbar-toolbar pada Ms. Word 2003 ,hanya saja ada beberapa toolbar yang tak ada pada Ms.word 2003 ada pada Ms.word 2007

4. Pada gambar diatas menu B, I, U , jenis tulisan, ukuran huruf, pemberian warna pada huruf, dll ada pada tampilan menu HOME sedangkan yang pada Ms. Word 2003 adalah berada diluar menu HOME.

5. Pada tampilan menu INSERT, menu picture, clipart,dll dilengkapi dengan gambar-gambar dengan ukuran yang sedikit besar dan berwarna yang membuat tampilannya kelihatan sedikit menarik dibandingkan tampilannya pada Ms.word 2003.

6. Pada menu PAGE LAYOUT ,. Disinilah tempat untuk mengatur kertas .mulai dari ukuran, membuat columns, jarak spasi, warna kertas ,dsb.

7. Inilah menu REFERENCES .Menu ini tidak ada pada Ms. Word 2003. Di menu ini yang dijelaskan adalah berbagai menu untuk memudahkan cara membuat daftar pustaka , daftar isi atau sebagainya..( fungsi saya ambil sesuai dengan apa yang saya lihat )

8. Menu MAILINGS. Pada menu ini yang terlihat dapat dipergunakan hanya 3 menu (lihat gambar). Padahal jika sudah ingin di pergunakan , ke 4 menu tersebut terlihat tak dapat dipergunakan karena akan muncul kata-kata yang tidak dapat di mengerti.

9. Menu REVIEW adalah menu yang dapat dipergunakan untuk melihat, mencari dan memberikan comment atau dapat juga dipakai untuk memberikan efek english.

10. Menu VIEW . Menu ini di gunakan untuk melihat ketikan yang dibuat secara besar (zoom) .dan sebagainya.

Penjelasan tentang toolbar–toolbar di atas, hanya berdasarkan yang saya lihat. Karena sebenarnya Ms. Word 2007 agak lebih rumit cara mengoprasikannya dari pada cara mengoprasikan pengolah kata yang terlebih dahulu telah kita kenal yaitu Ms. Word 2003.

Di bawah ini adalah penjelasan tambahan tentang Ms. Word 2007. Penjelasan yang bila di perhatikan perbedaan tersebut juga terdapat di Ms. Word 2003. Tetapi beda.

• Pada gambar di bawah terlihat bahwa jenis tulisan tidak hanya dapat di ganti pada satu tempat , melainkan dua tempat

• Toolbar-toolbar pada Ms. Word 2007 juga tidah seperti pada Ms.word 2003. Toolbars pada Ms. Word 2007 di kelompokkan sesuai kategorinya masing-masing .( perhatikan nomor-nomor pada gambar)

Finish

Dibuat Oleh Siswi : antii.si nona mickeey