Download Slide Pemikiran Islam di Indonesia

Salam blogger!!

Pada postingan kali ini, saya ingin mengupload slide presntasi kelompok untuk mata kuliah Agama Islam pada semester 3 (jika tidak salah). 

Untuk mahasiswa yang membutuhkannya untuk presntasi maupun sebagai materi tambahan bisa mendownload power point ini.

Silahkan klik link di bawah ini untuk memuali download Power Point.

Link Download Ppt

Read More

Membuat Utility Ganti Password VB.6 Menggunakan 1 Textbox

Salam Blogger!!

Postingan kali ini ingin share tutorial cara membuat form ganti password. Mungkin kalian sudah sering menemukan form ganti password itu terdiri dari beberapa buah textbox. Misalnya, password lama, password baru n ulangi password baru.

Kalo yg seperti itu saya rasa sudah bosan, di sini saya buat sedikit berbeda tapi cara kerjanya hampir sama.

Oke..Begini hasil design ganti password yg sudah saya buat. Disini masih sederhana, kalian masih bisa kembangkan dengan kreatifitas masing-masing.

Oh ya sebagai catatan, saya menggunakan database PHP. Tapi bisa diterapkan dengan databse Acces maupun tanpa database sekalipun. Karena yang kita pelajari dari form ini adalah logikanya.

Tampilan form ganti passwordnya lebih simple bukan..

Ok. Untuk membuat sperti contoh di atas diperlukan minimal 3 buah textbox dan 2 comand button.

Ini listing programnya, silahkan disesuaikan penamaannya dengan yg Anda buat!

Private Sub batal_Click()

Me.password.Text = ""

Me.password.SetFocus

Me.plama.Text = "plama"

Me.pbaru.Text = "pbaru"

Me.Label1.Caption = "Masukan Password yg Lama"

Me.batal.Enabled = False

End Sub

Private Sub Command1_Click()

If Me.password.Text = "" Then

With MDIForm1

Unload Me

.tlogin.Enabled = False

.mnmaster.Enabled = True

.mntransaksi.Enabled = True

.mnlaporan.Enabled = True

.mnutility.Enabled = True

End With

Else

a = MsgBox("Data belum disimpan, yakin ingin keluar?", vbYesNo)

    If a = vbYes Then

    With MDIForm1

    Unload Me

    .tlogin.Enabled = False

    .mnmaster.Enabled = True

    .mntransaksi.Enabled = True

    .mnlaporan.Enabled = True

    .mnutility.Enabled = True

    End With

    End If

End If

End Sub

Private Sub Form_Activate()

Call koneksi

kon.CursorLocation = adUseClient

Me.password.SetFocus

Me.batal.Enabled = False

Me.Text1.Text = MDIForm1.StatusBar1.Panels(2)

End Sub

Private Sub password_Change()

Me.batal.Enabled = True

End Sub

Private Sub password_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Set rsadmin = kon.Execute("select password from admin where kode = '" & Me.Text1.Text & "'")

    Me.Text2.Text = rsadmin!password

    If Me.plama.Text = "plama" Then

        If Me.password.Text = Me.Text2.Text Then

        Me.plama.Text = Me.password.Text

        Me.Label1.Caption = "Input password yg baru!"

        Me.password.Text = ""

        Me.password.SetFocus

       

        Else

         

        MsgBox "Password Salah!!"

        Me.password.Text = ""

        Me.password.SetFocus

        End If

    Else

        If Me.password.Text = Me.plama.Text Then

        MsgBox "Password Anda sama dengan yg lama" & Chr(13) & "Silahkan coba yg lain!"

        Me.password.Text = ""

        Me.password.SetFocus

        

        ElseIf Me.pbaru.Text = "pbaru" Then

        Me.pbaru.Text = Me.password.Text

        Me.Label1.Caption = "Ulangi Password!"

        Me.password.Text = ""

        Me.password.SetFocus

        Else

            If Me.password.Text = Me.pbaru.Text Then

            Set rsadmin = kon.Execute(" update admin set password = '" & Me.pbaru.Text & "'")

            MsgBox "Password berhasil diubah"

            Me.password.Text = ""

            Me.password.SetFocus

            Me.plama.Text = "plama"

            Me.pbaru.Text = "pbaru"

            Me.Label1.Caption = "Masukan Password yg Lama"

            Me.batal.Enabled = False

            Else

            MsgBox "Password tidak sama!!"

            Me.pbaru.Text = "pbaru"

            Me.Label1.Caption = "Input password yg baru!"

            Me.password.Text = ""

            Me.password.SetFocus

            End If

        End If

    End If

End If

End Sub

Semoga Bermanfaat,

Read More

UU ITE Tentang Kejahatan Cyber

BAB VII

PERBUATAN YANG DILARANG

Pasal 28

1. Setiap Orang dengan sengaja dan tanpa hak menyebarkan berita bohong danmenyesatkan yang mengakibatkan kerugian konsumen dalam Transaksi Elektronik.
2. Setiap Orang dengan sengaja dan tanpa hak menyebarkan informasi yang ditujukanuntuk menimbulkan rasa kebencian atau permusuhan individu dan/atau kelompokmasyarakat tertentu berdasarkan atas suku, agama, ras, dan antargolongan (SARA).

Pasal 29

Setiap Orang dengan sengaja dan tanpa hak mengirimkan Informasi Elektronik dan/atauDokumen Elektronik yang berisi ancaman kekerasan atau menakut-nakuti yang ditujukan secara pribadi.

Pasal 30

1. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum mengakses Komputer dan/atau Sistem Elektronik milik Orang lain dengan cara apa pun.
2. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum mengakses Komputer dan/atau Sistem Elektronik dengan cara apa pun dengan tujuan untuk memperoleh Informasi Elektronik dan/atau Dokumen Elektronik.
3. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum mengakses Komputer dan/atau Sistem Elektronik dengan cara apa pun dengan melanggar, menerobos, melampaui, atau menjebol sistem pengamanan.

Pasal 31

1. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum melakukan intersepsi atau penyadapan atas Informasi Elektronik dan/atau Dokumen Elektronik dalam suatu Komputer dan/atau Sistem Elektronik tertentu milik Orang lain.
2. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum melakukan intersepsi atas transmisi Informasi Elektronik dan/atau Dokumen Elektronik yang tidak bersifat publik dari, ke, dan di dalam suatu Komputer dan/atau Sistem Elektronik tertentu milik Orang lain, baik yang tidak menyebabkan perubahan apa pun maupun yang menyebabkan adanya perubahan, penghilangan, dan/atau penghentian Informasi Elektronik dan/atau Dokumen Elektronik yang sedang ditransmisikan.
3. Kecuali intersepsi sebagaimana dimaksud pada ayat (1) dan ayat (2), intersepsi yang dilakukan dalam rangka penegakan hukum atas permintaan kepolisian, kejaksaan, dan/atau institusi penegak hukum lainnya yang ditetapkan berdasarkan undang-undang.
4. Ketentuan lebih lanjut mengenai tata cara intersepsi sebagaimana dimaksud pada ayat (3) diatur dengan Peraturan Pemerintah.

Pasal 32

1. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum dengan cara apa pun mengubah, menambah, mengurangi, melakukan transmisi, merusak, menghilangkan, memindahkan, menyembunyikan suatu Informasi Elektronik dan/atau Dokumen Elektronik milik Orang lain atau milik publik.
2. Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum dengan cara apa pun memindahkan atau mentransfer Informasi Elektronik dan/atau Dokumen Elektronik kepada Sistem Elektronik Orang lain yang tidak berhak.
3. Terhadap perbuatan sebagaimana dimaksud pada ayat (1) yang mengakibatkan terbukanya suatu Informasi Elektronik dan/atau Dokumen Elektronik yang bersifat rahasia menjadi dapat diakses oleh publik dengan keutuhan data yang tidak sebagaimana mestinya.

Pasal 33

Setiap Orang dengan sengaja dan tanpa hak atau melawan hukum melakukan tindakan apa pun yang berakibat terganggunya Sistem Elektronik dan/atau mengakibatkan Sistem Elektronik menjadi tidak bekerja sebagaimana mestinya.

Read More

STATISTIKA - ANGKA INDEKS

Saat saya kuliah di semester 3, saya mendapat tugas presentasi untuk menerangkan tentang Angka Indeks. Tujuan dari penulisan ini ya buat temen-temen yang suatu saat butuh untuk presntasi atau mau memperdalam pemahaman tentang Angka Indeks. 

Angka Indeks itu mudah untuk dipelajari, mesikupun mudah tapi ilmu ini juga sangat penting untuk menilai dan membandingkan sesuatu dengan yang lain. Bingung ya? Langsunga aja ke pembahasannya ya

Pengertian Angka Indeks

Angka indeks adalah angka yang diharapkan dapat memberitahukan perubahan variable sebuah atau lebih karakteristik pada waktu dan tempat yang sama atau berlainan.

2.1.2        Sumber Angka Indeks

Sumber dalam pembuatan angka indeks dapat berasal dari :

1.        Data Internal

Data internal adalah data yang menggambarkan situasi dan kondisi pada suatu organisasi secara internal. Contohnya : data keuangan,data pegawai, data produksi dan lain-lain.

2.        Data Eksternal

Data eksternal adalah data yang menggambarkan suatu keadaan tertentu yang terjadi diluar. Kemudian diolah menjadi data yang siap pakai.

1.1.3        Jenis Angka Indeks

Dalam praktek perhitungan angka indeks digunakan beberapa pengukuran, diantaranya

1.             Indeks Harga (Price Index)

Indeks ini bertujuan mengukur perubahan harga antara dua interval waktu tertentu, misal antar tahun, antar bulan, antar quartal dan sebagainya. Dalam praktek indeks adalah indeks yang paling sering digunakan, seperti indeks harga konsumen, indeks harga saham gabungan (IHSG) dan lainnya.

2.             Indeks Kuantitas (Quality Indeks)

Indeks kuantitas mengukur perubahan sejumlah kuantitas barang dari masa ke masa. Contoh dari pemakaian indeks kuantitas terdapat pada jumlah produksi suatu perusahaan atau jumlah impor atau ekspor suatu negara.

3.             Indeks Nilai (Value Indeks)

Indeks nilai mengukur perubahan nilai barang, yang merupakan perkalian harga suatu barang dengan jumlah barang tersebut, dari waktu ke waktu. Sebagai contoh, indeks biaya hidup di beberapa kota besar, yang mencerminkan perbandingan biaya hidup yang diukur dari jumlah barang yang dikonsumsi dikalikan dengan harga barang-barang tersebut, semakin tinggi indeks biaya hidup di sebuah kota, mencerminkan semakin mahal biaya hidup di kota tersbut.

1.1.3        Komponen Penyusun Angka Indeks

1.      Tahun Dasar (Base Year)

Tahun yang menjadi dasar perbandingan. Dalam perbandingan variable tahun dasar berfungsi sebagai penyebut angka indeks tahun ini adalah = 100%

Pemilihan taun dasar dapat berdasarkan hal-hal berikut:

a.       Tahun dengan kondisi prekonomian yang relatif stabil

b.      Tidak terlalu jauh dengan tahun-tahun tertentu

c.       Tahun dimana terjadi perubahan penting

2.      Tahun Tertentu (Given Year)

Tahun yang variabelnya ingin kita bandingkan dengan tahun dasar, untuk melihat persentase perubahan yang terjadi antara tahun sekarang/tertentu dengan tahun dasar.

Lumayan juga banyak..Sebenarnya masih banyak lagi ci..Tapi lebih enak jika langsung download aja buat liat lebih detailnya dan contoh-contoh yang udah lengkap.

Monggo di Download

CATATAN :

Sebaiknya jika ada yang mengambil untuk bahan Presentasi harus dipelajari terlebih dahulu, agar ketika ada tanya jawab paham untuk menjawab. Sekian..

Read More