Artikel Power Point

6 Kiat Presentasi Efektif dengan PowerPoint

1. Pakai Kalimat Sederhana

Aplikasi PowerPoint bukanlah aplikasi pengolah kata layaknya Microsoft Word. Untuk itu, pakai kalimat yang jelas dan seperlunya saja. Jangan pula menjejalkan terlalu banyak informasi dalam satu slide PowerPoint karena audiens mungkin akan kebingungan.

2. Gambar Bermakna Ribuan Kata

Pakai gambar atau ilustrasi yang benar-benar menarik di PowerPoint untuk menjelaskan presentasi Anda sehingga audiens mau menyimak dan mudah memahaminya. Namun jangan sampai pula resolusi gambar Anda pecah sehingga tampak menganggu.

3. Kuasai Topik Presentasi Secara Detail

Seringkali presentasi PowerPoint didesain secara cukup kompleks dalam banyak slide. Jangan sampai Anda gagap menjelaskan detail sekecil apapun dalam presentasi. Persiapkan diri dengan baik untuk membuat presentasi PowerPoint yang berkesan dan diterima audiens.

4. Berceritalah Saat Presentasi

Jangan hanya membacakan poin presentasi Anda secara monoton. Berceritalah! Ilustrasikan konten di PowerPoint Anda, misalnya dengan pengalaman hidup sehari-hari sehingga audiens dapat mencerna maksudnya dengan baik.

5. Konten Dalam Presentasi Sangat Penting

Pastikan konten yang Anda masukkan dalam presentasi  PowerPoint Anda memang berguna bagi audiens. Jangan pula terlalu banyak menggunakan animasi atau efek-efek khusus karena selain bisa membosankan, hal ini bahkan bisa mengakibatkan presentasi Anda dianggap tidak serius.

6. Hargai Audiens Anda

Buat desain PowerPoint yang terlihat jelas, baik gambar maupun tulisannya. Pastikan kontras warna benar-benar tepat sehingga tidak menyakiti mata mereka yang melihatnya. Pastikan pula seluruh audiens dapat melihat konten dengan baik, meskipun mereka berada di jajaran paling belakang.

Artikel access

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 terlebih dulu 
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

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

Ada dua cara untuk mencoba fungsi ini di Microsoft Access, melalui Form atauReport. 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 daritxtTerbilang.




3. Sekarang tinggal coba membuka report tersebut, kalau anda melakukannya dengan benar,  hasilnya 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.

Cheat ninja saga Natal Even

Cheat ni menggunakan fiddler, kalian para cheater pasti tau pa fddler kan, ok langsung ja.
cheat ini da bnyak kegunaan, liat aja nih di bawah


Fitur-fitur :
- Instant di E,D,C,MISI TP,DAILY MISSION,SPECIAL MISSION
- Instan learn jutsu[harus ada 4/4 atau 6/6] [Sehari satu kali]
- Gold mission di Grade C reward practice Naginata[ harus ada 4/4 atau 6/6]
- Free user dapat menjalankan emblem user sesuai dengan levelnya
- MISI CHUNIN, MISI JOUNIN INSTAN (untuk misi chunin dan jounin setelah menyelesaikan misi terakhir 5/5 diharuskan untuk refresh/restart Ninja Saganya atau tekan F5).
- ONE HIT KILL HUNTING HOUSE
- sistem gift lama[ cheat ini di peruntuk kan bagi kalian yg mempunya char banyak] [YG MENGIRIM DAN MENERIMA GIFT HRS PUNYA CHEAT INI!!]


download ja di link ni, di jamin work lah, coba ja langsung


http://www.ziddu.com/download/13035832/Spoocky_V4.1_Edisi_Natal_.rar.html

Ryan Poenya Nurani