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

Download Windows 8.1 (Blue) ISO

Salam Blogger..

Pada postingan kali ini akan disediakan link downod Windows 8.1 (Blue). Windows Blue adalah windows keluaran terbaru dari window untuk melengkapi jajaran OS Windows..Ya, mungkin sebagian orang memang sudah sangat familiar dengan Windows Seven (7) yang biasa dipakai oleh kebanyakan user.

Windows 8.1 ini mengusung metro style. Penggunaannya pun tergolong menarik dari segi tampilan home screennya. Sebenarnya Windows Blue ini sangat cocok jika diinstal pada netbook atau laptoop dengan fasilits Touchscreen. Tapi bagi yang ingin mencoba perbedaannya patut untuk mencoba Windows ini.

Penulis sendiri sudah mendapatkan Update Otomatis yang diberikan oleh microsoft ketika menginstal windows 8. Bagi Anda yang sudah menginstal window 8 dan ingin mengupdate ke versi Blue bisa langsung melakukan upgrade saja, agar setingan Anda tidak hilang ataupun berubah. Tapi untuk mengupdate ke windows blue harus mendownload secara langsung melalui App Store yang ada pada tampilan home screen.

Dari pengalaman penulis, keunikan pada windows blue ini adalah sudah terintegrasinya penyimpanan awan atau one drive pada komputer. Jadi dapat menyimpan file ke onedrive tanpa harus membuka browser dan mengupload file. Cukup dengan meletakan file-file yang akan Anda upload ke dalam folder OneDrive, ketika komputer/laptop terhubung dengan internet akan langsung mengupload secara otomatis.

Berikut ini beberapa screenshoot dari windows 8.1 di netbook saya. 

Tambahan dari penulis, bagi yang belum terbiasa dengan windows 8.1 ini mungkin akan sulit untuk mencari program yang sudah terinstal. Dan lebih sulit lagi untuk mencari program windows yang tidak nampak dalam list program pada gambar ke-3 di atas. Caranya yaitu dengan memunculkan gambar seperti gambar ke-3 di atas lalu mengetik nama program yang Anda akan buka. Jika ada maka akan muncul daftar program di sebelah kiri. Tapi jika tidak ada, berarti Anda tidak hafal nama program tersebut atau memang tidak ada..he

Yup..ini dia link download untuk windows 8.1 yang diberikan langsung oleh microsoft. (Dulu saat pertama peluncuran windows ini tidak disediakan langsung, tetapi harus beli)

Windows 8.1 32 bit

Windows 8.1 64 bit

Jika butuh Serial Number :

NTTX3-RV7VB-T7X7F-WQYYY-9Y92F

Sekian postingan kali ini. 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

Download PHP Designer 8

Sudah lama tidak posting lagi, alhamdulillah sekarang bisa posting arikel yang terkait Software Editor. 

Software Editor PHP ini seperti namanya adalah untuk menulis baris-baris kode PHP. Tapi ternyata bukan hanya PHP saja yang bisa dijalankan, melalainkan hampir semua bisa dijalankan seperti SQL, HTML, JAVA SCRIPT dll.

Kenapa kita perlu editor ini?

1. Memudahkan kita dalam pembuatan listing php, bayangkan saja kalo kita ingin membuat sebuah tabel dalam php berapa panjang listing kode yang akan kita ketik, kalo kita memakai editor ini bisa langsung diletakan tabel lalu akan muncul kode listing dari php nya.

2. Dalam penulisan kode tidak jarang hasilnya tidak running atau mungkin eror. Kalo kita mengetik manual misalnya tidak akan terlihat mana yang salah, kecuali kita ingin meneliti ulang. So, pasti akan lama. Dengan editor ini kita akan langsung diberitahu jika ada kesalahan, terletak di baris keberapa. Kan jadi gampang untuk mengubahnya.

3. Dengan editor ini hasil yang telah kita ketik ini bisa langsung kita running untuk melihat hasilnya, tidak perlu membuka browser Anda yang terkadang sedikit berat.

Yuup langsung saja saya akan berikan link download software tersebut dan juga beberapa screenshootnya.

Ok..tu beberapa contoh screen shootnya..kalo mau liat ya download saja langsung..he

Klik gambar download di bawah ini untuk langsung mendownloadnya.

PHPDesigner V.8.0.0 Full Version

PHPDesigner V.8.2 Trial Version

Read More