Aplikasi Absensi Pribadi

Pada dasarnya aplikasi ini hanya mempunyai feature "Buat, Edit, Hapus, Backup" jadi tidak ada yang spesial, tapi walaupun demikian saya tetap berharap semoga aplikasi ini bisa berguna untuk anda.

Aplikasi ini sengaja saya buat untuk rekan-rekan BMI yang ada di korea, karena seperti yang sudah kita ketahui bahwa data absensi setiap bulannya itu bisa berguna buat kita nanti, selain itu juga bisa buat mengatasi jika terjadinya kecurangan yang terjadi pada perusahaan di mana kita bekerja misalnya perhitungan gaji yang tidak sesuai dengan jam kerja , maka kita bisa menunjukan bukti hasil absensi yang sudah kita isi setiap hari.

Petunjuk
Jika menemui kendala saat menjalankan aplikasi ini mungkin di karenakan laptop / kompi anda belum ter registrasi ocx, dan berikut ocx yang di gunakan pada aplikasi ini:

XPControls.ocx
COMDLG32.ocx
MSCOMCTL.ocx
MSCOMCT2.ocx

Downloadlah ke empat ocx tersebut , jika windos yang anda gunakan 32bit maka pindahkan ke empat ocx tersebut ke dalam folder system32 ( C:\Windows\System32) tapi jika windows yang anda gunakan 64bit selain di System32 sertakan juga ke empat ocx tersebut ke dalam folder SySWOW64 ( C:\Windows\SySWOW64)

Setelah ke empat ocx tersebut sudah berada di folder System32 dan SySWOW64 maka bukalah cmd (Start > Search > cmd > Run Administrator)

Setelah terbuka lakukanlah registrasi ocx dengan mengetik regsvr32 XPControls.ocx lalu enter

Ulangi proses seperti itu berulang-ulang hingga semua ter registrasi (ganti tulisan yang berwarna merah dengan nama ocx lainya)

Tapi jika anda masih bingung bisa langsung menghubungi saya di http://facebook.com/nanank.family dan saya akan memberikan layanan melalui Teamviewer sampai aplikasi itu bisa terbuka.

Untuk download aplikasi absensi pribadi anda bisa klik disini
4shared : Download
Mediafire : Download

Selamat Mencoba.

Backup Database Menggunakan VB6

Berhubung hari minggu dan tidak kerja sehingga saya mempunyai waktu untuk kujum dengan laptop maka kali ini saya akan mencoba memberikan tutorial untuk men Backup Database dengan menggunakan VB6.

Saya sendiri menggunakan Backup Database ini sebagai menu pokok paada program yang saya buat dengan tujuan mempunyai data cadangan dari isi program tersebut.

It's Ok , sekarang kita akan memulai nya dengan memasukan component Microsoft Commond Dialog Control 6.0 dengan cara klik Project lalu pilih Components...

Setelah sudah maka masukan Components CommonDialog ke dalam Form

Masukan juga satu CommandButton ke dalam Form sebagai menu backup nanti

Terserah kalian mau memberi nama apa pada CommanButton tersebut (disini saya memberi nama Caption nya "Backup").

Nah, jika Components sudah di masukan semua maka sekarang giliran memberikan sintek pada program tersebut, disini tidak perlu banyak memasukan sintek ke dalam program , cukup hanya beberapa baris saja dalam melakukan Backup Database.

Tapi sebelumnya saya sarankan untuk menyimpan terlebih dahulu project tersebut dengan cara klik menu Save yang ada di bagian kiri atas lalu simpanlah di folder anda (buat saja folder baru supaya tidak bingung).

Jika muncul pemberitahuan "Add this project to SourceSafe?" maka pilih saja "No"

Tapi kenapa sih ko harus simpan project terlebih dahulu ?
Ini di karenakan pada contoh yang saya berikan sekarang adalah dengan mengambil Database yang ada pada Folder aplikasi (Database yang nantinya mau di Backup).

Ok, ini baru beneran di bagian sintek nya
Isi sintek di bawah ini ke dalam Button tadi(yang sudah saya beri nama Backup)  dengan cara Double Klik pada button tersebut.

Me.CommonDialog1.Filter = "*.mdb"
Me.CommonDialog1.ShowOpen
 If Me.CommonDialog1.FileName <> "" Then
 FileCopy App.Path & "\\Data\\Newbie-Soft.mdb", Me.CommonDialog1.FileName & ".mdb"
 MsgBox "Database had been successfully Saved on " & Me.CommonDialog1.FileName & ".mdb"
 End If

Perhatikan tulisan yang berwarna merah, itu adalah letak Folder dan nama Database nya , misal nama Database kalian adalah Belajar dan di letakan pada folder Aku , maka gantilah \\Data\\NewbiSoft.mdb menjadi \\Aku\\Belajar.mdb
Lihat gambar di bawah ini untuk lebih jelasnya

Di gambar tersebut sudah jelas bahwa Database yang saya punya di letakan pada folder Data dan di beri nama Newbie-Soft

Setelah itu cobalah untuk Run project dan lihat hasilnya.

Dan simpanlah Database hasil Backup tersebut ke dalam folder yang kalian mau (disini saya menyimpan kedalam folder project)

Sukses deh , lihatlah gambar di atas disitu terlihat file Database hasil Backup (yang saya beri nama dengan "Beri Nama Disini") sudah ada di folder project.

Semoga ini bisa bermanfaat bagi kalian semua.
Selamat Menncoba.

Menampilkan Title Pada Judul Postingan

Sudah lama ya saya tidak menulis postingan tentang trik Blogging, maka dari itu di kesempatan kali ini saya akan mencoba membahas tentang bagaimana cara menampilkan title pada setiap judul postingan yang kamu buat.

Tapi sebelumnya apa sih yang di maksud Title itu ?
Title adalah ketika sebuah link yang di sorot oleh mouse maka akan keluar sebuah tulisan kecil di bawahnya (seperti yang kamu lihat di contoh gambar postingan ini).

Berikut caranya:
1. Login ke akun Blogger kamu.
2. Masuklah ke bagian Template lau pilih Edit HTML.
3. Klik tombol Ctrl + F pada keyboard kamu (bertujuan supaya muncul kolom pencarian).
4. Carilah kode di bawah ini:

  <a expr:href='data:post.link'><data:post.title/></a>

Jika sudah ketemu maka hapuslah kode tersebut dan ganti dengan kode di bawah ini

 <a expr:href='data:post.link' expr:title='data:post.title'><data:post.title/></a>

Lalu cari lagi kode ini

 <a expr:href='data:post.link' expr:title='data:post.title'><data:post.title/></a>

Hapus kode tersebut dan ganti dengan kode di bawah ini

<a expr:href='data:post.url' expr:title='data:post.title'><data:post.title/></a>

5. Simpan Template.

Semoga postingan ini bisa bermanfaat untuk kamu.

Selamat Mencoba.

Cerita Di Balik Foto Albert Einstain

Siapa yang tidak kenal ilmuwan jenius yang satu ini? Mungkin kamu juga tidak asing lagi dengan foto Einstein dengan pose menjulurkan lidah. Foto ini sangat populer, kadang dipajang juga di sekolah-sekolah. Bagaimana ceritanya seorang ilmuwan seperti Einstein berfoto dengan pose yang cukup konyol? Sebenarnya foto itu diambil pada tanggal 14 Maret 1951, saat Albert Einstein berulang tahun ke-72.

Einstein menggelar acara ulangtahunnya di Princeton University. Setelah selesai acara, Einstein dan istrinya pun ingin pulang. Namun, para wartawan dan fotografer terus memburunya. Einstein buru-buru masuk ke mobilnya bersama istrinya dan Dr. Fank Aydelotte yang menemaninya. Sampai Einstein duduk di jok belakang di antara istrinya dan Dr. Fank, ternyata para wartawan tak putus asa mengejarnya.

Di antara kerumunan itu, Einstein melihat Arthur Sasse, seorang fotografer yang telah dikenalnya. Melihat seorang temannya di antara kerumunan, Einstein pun mengejeknya dengan menjulurkan lidahnya. Sasse tak melewatkan momen ini, dia mengabadikannya dengan kameranya. Setelah foto itu dicetak, Sasse menunjukkannya kepada Einstein dan ternyata Einstein menyukainya. Dalam foto itu terlihat Einstein menjulurkan lidahnya sedang duduk di antara istri dan koleganya. Ia lantas menggunting foto itu hingga hanya dirinya yang terlihat dan mengirimkan foto itu kepada teman-temannya. Sejak saat itu, foto Einstein dengan pose menjulurkan lidah itu menjadi begitu terkenal hingga sekarang.

Sumber: ******

Merantau

Sutradara : Gareth Evans
Produser : Ario Sagantro
Penulis : Gareth Evans
Pemeran : Uwais Qorny, Sisca Jessica, Christine Hakim, Donny Alamsyah, Yusuf Aulia, Laurent Buson, Alex Abbad, Mads Koudal, Ratna Galih, Yayan Ruhian
Distributor : Merantau Films
Tahun Rilis : 6 Agustus 2009
Negara : Indonesia

Sinopsis :
Di Minangkabau, Sumatera Barat, Yuda (Iko Uwais), seorang pendekar silat Minangkabau aliran Harimau dalam persiapan akhir untuk memulai perantauannya. Ia harus meninggalkan keluarganya, ibu tercinta, Wulan (Christine Hakim), dan udanya, Yayan (Donny Alamsyah), kenyamanan, keindahan kampung halamannya, dan mencari eksistensi dirinya di keserabutan kota Jakarta.

Nasib mempertemukan Yuda dengan yatim piatu Adit (Yusuf Aulia) dan kakaknya, Astri (Sisca Jessica), yang akan menjadi korban organisasi ilegal human trafficking. Organinsasi yang memperlakukan manusia seperti barang ini dipimpin seorang Eropa berhati batu, Ratger (Mads Koudal) dan tangan kanannya Luc (Laurent Buson). Ketika terluka dalam perkelahian antara Johni (Alex Abbad), para tukang pukulnya dan Yuda, Ratger bersikeras mencari Astri, atau “barangnya”, yang berhasil di selamatkan dan ingin pembalasan berdarah setimpal.

Perkenalan Yuda dengan kota serabutan ini seperti api yang menyulut ketika situasi memaksanya untuk melarikan diri bersama Astri dan Adit dari kejaran mucikari dan preman-preman yang menguasai malam, menggerayangi setiap jalanan, dan mengejar setiap langkah mereka.





Dwnload Film :
4shared : Download
Mediafire : Download

Man Of Steel

Sutradara : Zack Snyder
Produser : Christopher Nolan, Charles Roven, Emma Thomas, Deborah Snyder
Skenario : David S. Goyer
Cerita : Christopher Nolan, David S. Goyer
Berdasarkan : Superman  Karya dari Jerry Siegel, Joe Shuster
Pemeran : Henry Cavill, Amy Adams,  Michael Shannon, Diane Lane, Kevin Costner, Laurence Fishburne, Antje Traue, Ayelet Zurer, Russell Crowe
Musik : Hans Zimmer
Sinematografi : Amir Mokri
Penyunting : David Brenner
Studio : Legendaty Pictures, Syncopy, DC Entertainment
Distributor : Warner Bros, Pictures
Tanggal Rilis : 14 Juni 2013
Durasi : 143 Menit
Negara : Amerika Serikat
Bahasa : Inggris

Plot :
Planet Krypton menghadapi kehancuran dalam waktu dekat karena intinya tidak stabil, dan dewan yang berkuasa berada di bawah ancaman pemberontak Jenderal Zod dan para pengikutnya. Ilmuwan Jor-El dan istrinya Lara-El meluncurkan anak mereka yang baru lahir, Kal-El pada pesawat ruang angkasa ke bumi, menanamkan sel-selnya dengan codex genetik untuk melestarikan ras Krypton. Setelah pembunuhan Zod tehadap Jor-El, ia dan pengikutnya ditangkap dan dibuang ke Zona Bayangan. Namun, Krypton meledak beberapa waktu kemudian dan membebaskan mereka.

Bayi Kal-El diangkat sebagai anak angkat Jonathan dan Martha Kent, dan dia diberi nama Clark Kent. Fisiologi Krypton Clark memberikan dia kemampuan super di Bumi, yang awalnya menyebabkan dia kebingungan, tapi dia secara bertahap belajar untuk memanfaatkan kekuatannya untuk membantu orang lain. Jonathan mengungkapkan ke Clark remaja bahwa ia adalah alien dan menyarankan dia untuk tidak menggunakan kekuatannya secara terbuka, karena takut bahwa masyarakat akan menolaknya. Setelah kematian Jonathan, seorang Clark dewasa menghabiskan beberapa tahun hidup secara nomaden, mengerjakan pekerjaan yang berbeda di bawah nama palsu. Suatu ketika ia menyusup ke tempat penemuan ilmiah pesawat luar angkasa Kryptonian di Arktik. Clark memasuki kapal asing tersebut, dan memungkinkan dia untuk berkomunikasi dengan kesadaran Jor-El yang diawetkan dalam bentuk hologram. Lois Lane, seorang wartawan dari Daily Planet yang diutus untuk menulis cerita tentang penemuan ini, menyelinap di dalam kapal saat mengikuti Clark dan diselamatkan olehnya ketika dia terluka. Atasan Lois, Perry White menolak ceritanya tentang "manusia super" penyelamat, jadi kemudian Lois menelusuri Clark kembali. Ia ke Kansas dengan tujuan menulis sebuah uraian. Setelah mendengar cerita sebenarnya tentang Clark, Lois memutuskan untuk tidak mengungkapkan rahasianya lagi.

Zod dan pengikutnya mencari dunia koloni lain, dan akhirnya mengikuti sinyal marabahaya Krypton yang dikirim dari kapal Clark yang ditemukan di Bumi. Tuntutan Zod adalah bahwa manusia harus menyerah Kal-El, yang ia percaya memiliki codex, sebagai imbalan bagi perdamaian. Clark setuju, dan akhirnya militer AS menyerahkan Clark. Namun, Faora utusan Jenderal Zod menginginkan agar Lois Lane mereka berduapun dibawa. Zod mengungkapkan bahwa ia bermaksud untuk menggunakan "mesin dunia" terraform untuk mengubah bumi menjadi Krypton baru, memberantas populasi manusia, dan menggunakan codex untuk mengisi kembali planet dengan bangsa Krypton rekayasa genetik. Setelah kapal Clark dan Lois melarikan diri Zod, Clark mengalahkan Faora, meyakinkan militer bahwa ia adalah sekutu. Zod menyebarkan mesin dunia dan memulai proses di Metropolis dan di Samudra Hindia.

Clark, sekarang dijuluki "Superman", ia berusaha menghentikan mesin dunia di Samudera Hindia. Militer menggunakan pesawat ruang angkasa yang membawa Clark ke Bumi dalam serangan udara terhadap kapal Zod diatas kota Metropolis, untuk membawa kembali kru Zod ke Zona Bayangan. Hanya Zod yang tetap berada di bumi, dan dia terlibat dalam pertarungan dengan Superman di Metropolis. Ketika upaya Zod membunuh warga sipil untuk balas dendam atas kekalahannya, Superman terpaksa membunuh Zod. Beberapa waktu kemudian, Superman terus mendapatkan kepercayaan oleh pemerintah AS, meskipun menghindari upaya mereka untuk mengungkap identitas rahasianya. Untuk membuat alias yang memberinya akses ke situasi berbahaya tanpa menimbulkan kecurigaan, Clark mengambil pekerjaan sebagai reporter di Daily Planet.




Download Film :
4Shared : Download (maaf file di hapus karena di anggap melanggar oleh pihak 4shared)
Mediafire : Download

Subtitle Indonesia By Dorothea : Download

Jokowi [ Full Movie 2013 ]

Sutradara : Azhar Kinoi Lubis
Produser : KK Dheeraj
Pemeran : Teuku Rifnu Wikana, Prisia Nasution, Ratna Riantiarno, Ayu Diah Pasha, Susilo Badar, Landung Simatupang
Studio : K2K Pictures
Tanggal Rilis : 20 Juni 2013
Lokasi : Jakarta
Negara : Indonesia
Bahasa : Bahasa Indonesia

Sinopsis :
Ini adalah cerita seorang anak tukang kayu bernama Joko Widodo, yang tinggal dan hidup di rumah kecil pinggiran sungai. Masa kanak-kanak yang jauh dari istilah berkecukupan telah dilaluinya. Namun hal itu tidak menyurutkan semangat anak kampung pemburu telor bebek ini untuk meneruskan sekolahnya ke pendidikan yang lebih tinggi. Kecintaannya pada Musik Rock yang tetap bertahan hingga saat ia menjadi pemimpin besar nantinya itu, seolah mampu memotivasi semangat hidupnya.
Kisah cinta dengan Iriana, seorang gadis sederhana, teman sekolah adiknya menjadi pendorong semangat sang pemimpin masa depan ini untuk menghadapi berbagai tantangan. Sepeninggal Pak Notomiharjo, orang tua, guru sekaligus sahabatnya, Joko seperti tak mau tenggelam dalam kedukaan. Usahanya untuk membuktikan semua pelajaran dari sang ayah, makin keras ia lakukan. Dan waktu mengantarkan anak bantaran kali ini, menjadi sosok yang bukan hanya besar dimata orang-orang disekitarnya namun juga rendah hati dan selalu memanusiakan sesamanya. Dari pinggiran sungai di desa kecil bernama Srambatan, Joko telah mampu tampil menjadi pemimpin kota yang menulis lembar sejarah baru.


Download Film :
4shared : Download
Mediafire : Download

Fungsi-Fungsi String Ala VB.Net Di VB6

Ternyata lumayan lama ya saya tidak posting disini, tuntutan kerja yang sangat menyebalkan sehingga saya tidak punya banyak waktu, namun di kesempatan kali ini saya akan mencoba memberikan beberapa fungsi String.

Menghilangkan karakter-karakter tertentu pada awal String

Function TrimStart(Source As Variant, ParamArray sChar()) As String
    Dim i As Integer
    Dim j As Integer
    Dim strNewChar As String
    Dim strResult As String
   
    Source = Trim(CStr(Source))
   
    If Len(Source) = 0 Then Exit Function
   
    strResult = ""
   
    For i = 1 To Len(CStr(Source))
        strNewChar = Mid(Source, i, 1)
        For j = LBound(sChar) To UBound(sChar)
            If strNewChar = sChar(j) Then
                strNewChar = ""
            End If
        Next
       
        strResult = strResult & strNewChar
       
        If strNewChar "" Then
            Dim intLast As Integer
            intLast = i + 1
           
            strResult = strResult & Mid(Source, i + 1)
          
            Exit For
        End If
    Next
   
    Source = strResult
    TrimStart = Source
End Function

Menghilangkan karakter-karakter tertentu pada akhir String

Function TrimEnd(Source As Variant, ParamArray sChar()) As String
    Dim i As Integer
    Dim j As Integer
    Dim strNewChar As String
    Dim strResult As String
   
    Source = Trim(CStr(Source))
    Source = StrReverse(CStr(Source))
   
    If Len(Source) = 0 Then Exit Function
   
    strResult = ""
   
    For i = 1 To Len(CStr(Source))
        strNewChar = Mid(Source, i, 1)
        For j = LBound(sChar) To UBound(sChar)
            If strNewChar = sChar(j) Then
                strNewChar = ""
            End If
        Next
       
        strResult = strResult & strNewChar
       
        If strNewChar "" Then
            Dim intLast As Integer
            intLast = i + 1
            strResult = strResult & Mid(Source, i + 1)
            Exit For
        End If
    Next
   
    Source = StrReverse(strResult)
    TrimEnd = Source
End Function

Menghilangkan karakter-karakter tertentu pada awal dan akhir String

Function TrimAll(Source As Variant, ParamArray sChar()) As String
    Dim i As Integer
    Dim j As Integer
    Dim strNewChar As String
    Dim strResult As String
   
    Dim intLast As Integer
   
    Source = Trim(CStr(Source))
   
    If Len(Source) = 0 Then Exit Function
   
    strResult = ""
   
    For i = 1 To Len(CStr(Source))
        strNewChar = Mid(Source, i, 1)
        For j = LBound(sChar) To UBound(sChar)
            If strNewChar = sChar(j) Then
                strNewChar = ""
            End If
        Next
       
        strResult = strResult & strNewChar
       
        If strNewChar "" Then
            intLast = i + 1
           
            strResult = strResult & Mid(Source, i + 1)
          
            Exit For
        End If
    Next
   
    Source = strResult
   
    Source = Trim(CStr(Source))
    Source = StrReverse(CStr(Source))
   
    If Len(Source) = 0 Then Exit Function
   
    strResult = ""
   
    For i = 1 To Len(CStr(Source))
        strNewChar = Mid(Source, i, 1)
        For j = LBound(sChar) To UBound(sChar)
            If strNewChar = sChar(j) Then
                strNewChar = ""
            End If
        Next
       
        strResult = strResult & strNewChar
       
        If strNewChar "" Then
            intLast = i + 1
            strResult = strResult & Mid(Source, i + 1)
            Exit For
        End If
    Next
   
    Source = StrReverse(strResult)
    TrimAll = Source
End Function

Memeriksa kandungan teks tertentu pada seluruh bagianString

Function Contains(Source As String, FindText As String) As Boolean
    If InStr(1, Source, FindText, vbTextCompare) 0 Then
        Contains = True
    End If
End Function

 Memeriksa kandungan teks tertentu pada awal String

Function StartWith(Source As String, FindText As String) As Boolean
    If LCase(Mid(Source, 1, Len(FindText))) = LCase(FindText) Then
        StartWith = True
    End If
End Function

 Memeriksa kandungan teks tertentu pada akhir String

Function EndsWith(Source As String, FindText As String) As Boolean
    If LCase(Right(Source, Len(FindText))) = LCase(FindText) Then
        EndsWith = True
    End If
End Function

Selamat Mencoba.

Membuat Kolom Komentar Facebook Di Blogspot

Mungkin kalian sering lihat di blog atau website yang kolom komentarnya menggunakan via facebook, tertarik ? ingin membuat seperti itu juga di blog kalian ?

Sangat sederhana dan mudah sebenarnya, kalian tinggal mengoprek sedikit di bagian HTML template nya, dan untuk mempermudah dalam pengeditan saya sarankan kalian menggunakan kolom pencarian yaitu dengan men klik tombol Ctrl + F pada keyoard kalian.

Setelah itu cobalah cari kode ]]></b:skin> dan jika sudah ketemu maka pasanglah kode berikut di tepat di atas kode ]]></b:skin>

.comments-page { background-color: #f2f2f2;}#blogger-comments-page { padding: 0px 5px; display: none;}.comments-tab { float: left; padding: 5px; margin-right: 3px;cursor: pointer; background-color: #f2f2f2;}.comments-tab-icon { height: 14px; width: auto; margin-right: 3px;}.comments-tab:hover { background-color: #eeeeee;}.inactive-select-tab { background-color: #d1d1d1;}

Setelah itu cobalah cari kode </head> lalu letakan kode berikut di atas kode </head>

<script src='http://connect.facebook.net/en_US/all.js#xfbml=1'/>
<script src='http://code.jquery.com/jquery-latest.js'/>
<meta content='IDfacebook' property='fb:admins'/>
<script type='text/javascript'>
function commentToggle(selectTab) {
$(".comments-tab").addClass("inactive-select-tab");
$(selectTab).removeClass("inactive-select-tab");
$(".comments-page").hide();
$(selectTab + "-page").show();}
</script>

Gantilah IDfacebook dengan ID kalian, misalnya http://facebook.com/webnank
Setelah itu carilah kode  <div class='comments' id='comments'> dan kalian akan menemuka 2 kode , lalu letakan kode berikut di 2 kode yang kalian temukan tadi

<div class='comments-tab' id='fb-comments' onclick='javascript:commentToggle(&quot;#fb-comments&quot;);' title='Comments made with Facebook'><img class='comments-tab-icon' src='http://static.ak.fbcdn.net/rsrc.php/v1/yH/r/eIpbnVKI9lR.png'/><fb:comments-count expr:href='data:post.url'/> Comments</div><div class='comments-tab inactive-select-tab' id='blogger-comments' onclick='javascript:commentToggle(&quot;#blogger-comments&quot;);' title='Comments from Blogger'><img class='comments-tab-icon' src='http://www.blogger.com/img/icon_logo32.gif'/> <data:post.numComments/> Comments</div><div class='clear'/></div><div class='comments-page' id='fb-comments-page'><b:if cond='data:blog.pageType == &quot;item&quot;'><div id='fb-root'/><fb:comments expr:href='data:post.url' num_posts='5' width='450'/></b:if></div><div class='comments comments-page' id='blogger-comments-page'>

5 = Jumlah per page komentar yang akan di munculkan
450 = lebar dari kolom komentar
 

Membuat Cryption dan Decryption Password Pada VB6

Sebelum kita memulainya terlebih dahulu saya jelaskan terlebih dahulu kegunaan dari Cryption dan Decryption.

Cryption adalah penerjemahan data menjadi kode rahasia. Cryption merupakan cara yang paling efektip untuk memperoleh pengamanan data. Untuk membaca file yang di-enkrip, kita harus mempunyai akses terhadap kata sandi yang memungkinkan kita men-dekrip pesan tersebut. Data yang tidak di-enkrip disebut plain text, sedangkan yang di-enkrip disebut cipher text.

Decryption adalah mengembalikan data yang sudah kita Encrypp sehingga memungkinkan data tersebut bisa di baca.

Terus Crypt dan Decrypt basanya di gunakan dalam hal apa saja sih ?
Kebanyakan penggunaan Crypt dan Decrypt untuk melindungi sebuah password karena di nilai lebih aman, tapi banyak juga yang menggunakannya untuk melindungi sebuah data yang di nilai penting sehingga ketika data itu bocor maka data tersebut tidak bisa terbaca oleh orang lain.

Berikut Sinteknya:

Cryption

Public Function Encrypt(ByVal s_text As String)
    s_text = Replace(s_text, "0", "%r", , , vbBinaryCompare)
    s_text = Replace(s_text, "1", "#g", , , vbBinaryCompare)
    s_text = Replace(s_text, "2", "1$", , , vbBinaryCompare)
    s_text = Replace(s_text, "3", "j~", , , vbBinaryCompare)
    s_text = Replace(s_text, "4", "j#", , , vbBinaryCompare)
    s_text = Replace(s_text, "5", "3?", , , vbBinaryCompare)
    s_text = Replace(s_text, "6", "*t", , , vbBinaryCompare)
    s_text = Replace(s_text, "7", "u@", , , vbBinaryCompare)
    s_text = Replace(s_text, "8", "n!", , , vbBinaryCompare)
    s_text = Replace(s_text, "9", "&x", , , vbBinaryCompare)
   
    s_text = Replace(s_text, "a", "1!", , , vbBinaryCompare)
    s_text = Replace(s_text, "b", "2@", , , vbBinaryCompare)
    s_text = Replace(s_text, "c", "3#", , , vbBinaryCompare)
    s_text = Replace(s_text, "d", "4$", , , vbBinaryCompare)
    s_text = Replace(s_text, "e", "5$", , , vbBinaryCompare)
    s_text = Replace(s_text, "f", "7*", , , vbBinaryCompare)
    s_text = Replace(s_text, "g", "9#", , , vbBinaryCompare)
    s_text = Replace(s_text, "h", "0#", , , vbBinaryCompare)
    s_text = Replace(s_text, "i", "4@", , , vbBinaryCompare)
    s_text = Replace(s_text, "j", "7#", , , vbBinaryCompare)
    s_text = Replace(s_text, "k", "8^", , , vbBinaryCompare)
    s_text = Replace(s_text, "l", "0^", , , vbBinaryCompare)
    s_text = Replace(s_text, "m", "5%", , , vbBinaryCompare)
    s_text = Replace(s_text, "n", "a%", , , vbBinaryCompare)
    s_text = Replace(s_text, "o", "e$", , , vbBinaryCompare)
    s_text = Replace(s_text, "p", "f5", , , vbBinaryCompare)
    s_text = Replace(s_text, "q", "6$", , , vbBinaryCompare)
    s_text = Replace(s_text, "r", "h&", , , vbBinaryCompare)
    s_text = Replace(s_text, "s", "0.", , , vbBinaryCompare)
    s_text = Replace(s_text, "t", "e`", , , vbBinaryCompare)
    s_text = Replace(s_text, "u", "4r", , , vbBinaryCompare)
    s_text = Replace(s_text, "v", "7@", , , vbBinaryCompare)
    s_text = Replace(s_text, "w", "f^", , , vbBinaryCompare)
    s_text = Replace(s_text, "x", "t%", , , vbBinaryCompare)
    s_text = Replace(s_text, "y", "g@", , , vbBinaryCompare)
    s_text = Replace(s_text, "z", "h0", , , vbBinaryCompare)
   
    s_text = Replace(s_text, "A", ".2", , , vbBinaryCompare)
    s_text = Replace(s_text, "B", ".3", , , vbBinaryCompare)
    s_text = Replace(s_text, "C", ".4", , , vbBinaryCompare)
    s_text = Replace(s_text, "D", ".5", , , vbBinaryCompare)
    s_text = Replace(s_text, "E", ".6", , , vbBinaryCompare)
    s_text = Replace(s_text, "F", ".7", , , vbBinaryCompare)
    s_text = Replace(s_text, "G", ".8", , , vbBinaryCompare)
    s_text = Replace(s_text, "H", ".9", , , vbBinaryCompare)
    s_text = Replace(s_text, "I", ".0", , , vbBinaryCompare)
    s_text = Replace(s_text, "J", ".1", , , vbBinaryCompare)
    s_text = Replace(s_text, "K", "/3", , , vbBinaryCompare)
    s_text = Replace(s_text, "L", "/5", , , vbBinaryCompare)
    s_text = Replace(s_text, "M", "/7", , , vbBinaryCompare)
    s_text = Replace(s_text, "N", "/9", , , vbBinaryCompare)
    s_text = Replace(s_text, "O", "/1", , , vbBinaryCompare)
    s_text = Replace(s_text, "P", "/0", , , vbBinaryCompare)
    s_text = Replace(s_text, "Q", "/8", , , vbBinaryCompare)
    s_text = Replace(s_text, "R", "/6", , , vbBinaryCompare)
    s_text = Replace(s_text, "S", "/4", , , vbBinaryCompare)
    s_text = Replace(s_text, "T", "/2", , , vbBinaryCompare)
    s_text = Replace(s_text, "U", ";0", , , vbBinaryCompare)
    s_text = Replace(s_text, "V", ";2", , , vbBinaryCompare)
    s_text = Replace(s_text, "W", ";3", , , vbBinaryCompare)
    s_text = Replace(s_text, "X", ";4", , , vbBinaryCompare)
    s_text = Replace(s_text, "Y", ";6", , , vbBinaryCompare)
    s_text = Replace(s_text, "Z", ";7", , , vbBinaryCompare)
   
    Encrypt = s_text
End Function

Decryption

Public Function Decrypt(ByVal s_text As String)
    s_text = Replace(s_text, "1!", "a", , , vbBinaryCompare)
    s_text = Replace(s_text, "2@", "b", , , vbBinaryCompare)
    s_text = Replace(s_text, "3#", "c", , , vbBinaryCompare)
    s_text = Replace(s_text, "4$", "d", , , vbBinaryCompare)
    s_text = Replace(s_text, "5$", "e", , , vbBinaryCompare)
    s_text = Replace(s_text, "6#", "d", , , vbBinaryCompare)
    s_text = Replace(s_text, "7*", "f", , , vbBinaryCompare)
    s_text = Replace(s_text, "9#", "g", , , vbBinaryCompare)
    s_text = Replace(s_text, "0#", "h", , , vbBinaryCompare)
    s_text = Replace(s_text, "4@", "i", , , vbBinaryCompare)
    s_text = Replace(s_text, "7#", "j", , , vbBinaryCompare)
    s_text = Replace(s_text, "8^", "k", , , vbBinaryCompare)
    s_text = Replace(s_text, "0^", "l", , , vbBinaryCompare)
    s_text = Replace(s_text, "5%", "m", , , vbBinaryCompare)
    s_text = Replace(s_text, "a%", "n", , , vbBinaryCompare)
    s_text = Replace(s_text, "e$", "o", , , vbBinaryCompare)
    s_text = Replace(s_text, "f5", "p", , , vbBinaryCompare)
    s_text = Replace(s_text, "6$", "q", , , vbBinaryCompare)
    s_text = Replace(s_text, "h&", "r", , , vbBinaryCompare)
    s_text = Replace(s_text, "0.", "s", , , vbBinaryCompare)
    s_text = Replace(s_text, "e`", "t", , , vbBinaryCompare)
    s_text = Replace(s_text, "4r", "u", , , vbBinaryCompare)
    s_text = Replace(s_text, "7@", "v", , , vbBinaryCompare)
    s_text = Replace(s_text, "f^", "w", , , vbBinaryCompare)
    s_text = Replace(s_text, "t%", "x", , , vbBinaryCompare)
    s_text = Replace(s_text, "g@", "y", , , vbBinaryCompare)
    s_text = Replace(s_text, "h0", "z", , , vbBinaryCompare)
   
    s_text = Replace(s_text, ".2", "A", , , vbBinaryCompare)
    s_text = Replace(s_text, ".3", "B", , , vbBinaryCompare)
    s_text = Replace(s_text, ".4", "C", , , vbBinaryCompare)
    s_text = Replace(s_text, ".5", "D", , , vbBinaryCompare)
    s_text = Replace(s_text, ".6", "E", , , vbBinaryCompare)
    s_text = Replace(s_text, ".7", "F", , , vbBinaryCompare)
    s_text = Replace(s_text, ".8", "G", , , vbBinaryCompare)
    s_text = Replace(s_text, ".9", "H", , , vbBinaryCompare)
    s_text = Replace(s_text, ".0", "I", , , vbBinaryCompare)
    s_text = Replace(s_text, ".1", "J", , , vbBinaryCompare)
    s_text = Replace(s_text, "/3", "K", , , vbBinaryCompare)
    s_text = Replace(s_text, "/5", "L", , , vbBinaryCompare)
    s_text = Replace(s_text, "/7", "M", , , vbBinaryCompare)
    s_text = Replace(s_text, "/9", "N", , , vbBinaryCompare)
    s_text = Replace(s_text, "/1", "O", , , vbBinaryCompare)
    s_text = Replace(s_text, "/0", "P", , , vbBinaryCompare)
    s_text = Replace(s_text, "/8", "Q", , , vbBinaryCompare)
    s_text = Replace(s_text, "/6", "R", , , vbBinaryCompare)
    s_text = Replace(s_text, "/4", "S", , , vbBinaryCompare)
    s_text = Replace(s_text, "/2", "T", , , vbBinaryCompare)
    s_text = Replace(s_text, ";0", "U", , , vbBinaryCompare)
    s_text = Replace(s_text, ";2", "V", , , vbBinaryCompare)
    s_text = Replace(s_text, ";3", "W", , , vbBinaryCompare)
    s_text = Replace(s_text, ";4", "X", , , vbBinaryCompare)
    s_text = Replace(s_text, ";6", "Y", , , vbBinaryCompare)
    s_text = Replace(s_text, ";7", "Z", , , vbBinaryCompare)
   
   
    s_text = Replace(s_text, "%r", "0", , , vbBinaryCompare)
    s_text = Replace(s_text, "#g", "1", , , vbBinaryCompare)
    s_text = Replace(s_text, "1$", "2", , , vbBinaryCompare)
    s_text = Replace(s_text, "j~", "3", , , vbBinaryCompare)
    s_text = Replace(s_text, "j#", "4", , , vbBinaryCompare)
    s_text = Replace(s_text, "3?", "5", , , vbBinaryCompare)
    s_text = Replace(s_text, "*t", "6", , , vbBinaryCompare)
    s_text = Replace(s_text, "u@", "7", , , vbBinaryCompare)
    s_text = Replace(s_text, "n!", "8", , , vbBinaryCompare)
    s_text = Replace(s_text, "&x", "9", , , vbBinaryCompare)
    Decrypt = s_text
End Function

Selamat Mencoba.

The Avengers

Sutradara : Joss Whedon
Produser : Kevin Feige
Pemeran : Robert Downey Jr, Chris Evans, Chris Hemsworth, Mark Ruffalo, Scarlett Johansson, Jeremy Renner, Tom Hiddleston, Clark Gregg, Samuel L Jackson, Cobie Smulders, Stellan Skarsgard
Musik : Alan Silvestri
Sinematografi : Seamus McGarvey
Penyunting : Jeffrey Ford, Lisa Lassek
Studio : Marvel Studios
Distributor : Walt Disney Studios, Motion Pictures
Tanggal Rilis : 11 April 2012 ( Hollywood Premiere), 4 Mei 2012 (Amerika Serikat)
Negara : Amerika Serikat
Bahasa : Inggris
Sinopsis:

Loki  bertemu dengan Other, pemimpin pasukan luar angkasa yang dikenal sebagai Chitauri. Dalam pertukaran untuk mengambil Tesseract, sumber energi yang sangat kuat, Other menjanjikan Loki tentara Chitauri yang dapat ia pimpin untuk menundukkan Bumi. Nick Fury, direktur badan pengawas S.H.I.E.L.D, dan letnan Agen Maria Hill  tiba di sebuah fasilitas penelitian terpencil selama evakuasi, di mana fisikawan Dr. Erik Selvig  memimpin sebuah tim peneliti melakukan percobaan pada Tesseract tersebut. Agen Phil Coulson menjelaskan bahwa objek telah mulai memancar bentuk energi yang tidak biasa. Tesseract tiba-tiba mengaktifkan dan membuka lubang cacing, memungkinkan Loki untuk mencapai Bumi. Loki mengambil Tesseract dan menggunakan tongkatnya untuk memperbudak Selvig dan beberapa agen, termasuk Clint Barton/Hawkeye, untuk membantunya.

Dalam menanggapi serangan itu, Fury mengaktifkan kembali Avengers Initiative. Agen Natasha Romanoff dikirim ke Calcutta untuk merekrut Dr. Bruce Banner untuk melacak Tesseract melalui emisi radiasi gammanya. Coulson mengunjungi Tony Stark untuk meninjau penelitian Selvig, dan Fury mendekati Steve Rogers/Captain America dengan tugas untuk mengambil Tesseract. Sementara Barton mencuri iridium diperlukan untuk menstabilkan daya Tesseract ini, Loki menyebabkan gangguan di Stuttgart mengarah ke konfrontasi dengan Rogers, Stark, dan Romanoff yang berakhir dengan penyerahan Loki. Sementara Loki sedang diantar ke S.H.I.E.L.D, Thor, saudara angkatnya, datang dan membebaskan dirinya berharap untuk meyakinkan dia untuk meninggalkan rencananya dan kembali ke Asgard. Setelah konfrontasi dengan Stark dan Rogers, Thor setuju untuk mengambil Loki ke kapal induk terbang S.H.I.E.L.D., Helicarrier. Ada Loki dipenjarakan sementara Banner dan Stark mencari Tesseract tersebut.

The Avengers terbagi, baik bagaimana untuk mendekati Loki dan wahyu yang S.H.I.E.L.D rencanakan untuk memanfaatkan Tesseract untuk mengembangkan senjata sebagai pencegahan terhadap makhluk luar angkasa. Sebagai kelompok yang berpendapat, Barton dan agen lainnya yang dimiliki Loki menyerang Helicarrier, menonaktifkan mesin dalam penerbangan dan menyebabkan Banner berubah menjadi Hulk. Stark dan Rogers mencoba untuk me-restart mesin yang rusak, dan Thor mencoba untuk menghentikan amukan Hulk. Romanoff berkelahi Barton, dan dengan membenturkan kepala Barton, Barton sadar. Loki lolos setelah membunuh Coulson dan Thor mendepak dari pesawat, sementara Hulk jatuh ke tanah setelah menyerang sebuah jet tempur S.H.I.E.L.D. . Fury menggunakan kematian Coulson untuk memotivasi Avengers untuk bekerja sebagai tim. Stark dan Rogers menyadari bahwa hanya mengalahkan mereka tidak akan cukup untuk Loki, ia harus mengalahkan mereka di depan umum untuk memvalidasi dirinya sebagai penguasa Bumi. Loki menggunakan Tesseract, dalam hubungannya dengan perangkat Selvig dibangun, untuk membuka lubang cacing di atas Menara Stark ke armada Chitauri di ruang angkasa, meluncurkan invasi.

The Avengers siap dalam membela New York City, lokasi lubang cacing itu, tapi dengan cepat menyadari bahwa mereka akan kewalahan sebagai gelombang demi gelombang Chitauri turun atas Bumi. Banner berubah menjadi Hulk, dan bersama-sama dengan Rogers, Stark, Thor, Barton dan Romanoff, mereka pertempuran Chitauri saat mengevakuasi warga sipil. Hulk pergi setelah Loki dan mengalahkan dia ke pengiriman. Romanoff membuat perjalanan ke lubang cacing, di mana Selvig, dibebaskan dari kontrol Loki, mengungkapkan bahwa tongkat Loki dapat digunakan untuk menutup lubang cacing. Sementara itu, atasan Fury mencoba untuk mengakhiri invasi dengan meluncurkan rudal nuklir di Manhattan. Stark menyadap rudal dan membawanya melalui lubang cacing terhadap armada Chitauri. Meledakan rudal, menghancurkan kapal induk Chitauri dan meninggalkan pasukan mereka di Bumi. Setelan Stark kehabisan daya dan ia jatuh kembali melalui lubang cacing, tetapi Hulk menyelamatkan dia dari jatuh ke tanah. Romanoff menonaktifkan lubang cacing untuk mencegah invasi lebih lanjut. Setelah kejadian itu, Thor dan Loki menggunakan Tesseract untuk kembali ke Asgard. Fury mengungkapkan keyakinan bahwa Avengers akan kembali jika mereka dibutuhkan.


Download Film :
4shared : Download
Mediafire : Download

Download Subtitle Indonesia :
Subtitle By IrvanDroFly : Download

Memasukan Logo Pada Video

Sebelumnya saya sendiri sudah mencoba beberapa software untuk memasukan sebuah logo kedalam video (tidak bisa saya sebutkan namanya), namun semuanya tidak terbukti efektif, ada yang memerlukan prosses lama, ada yang mesti merubah format videonya terlebih dahulu dan macam macam.

Hingga akhirnya saya menemukan Video Watermark Pro, di samping ringan, software ini juga sangat mudah dalam penggunaannya, tapi sebenarnya software ini berbayar (tidak gratis)  namun saya sendiri tidak tau harga yang di pasang pada software ini.

Tapi tenang, disini saya akan memberikannya gratis.

Nah bener kan terbukti registered, ok berarti masalah register udah beres, sedangkan untuk link downloadnya sendiri bisa di ambil pada akhir artikel ini, sekarang saya akan memberi tahukan cara pemakaiannya terlebih dahulu.

Pertama buka dulu software Video Watermark Pro, lalu masukan video yang mau kalian berikan logo dengan cara klik button Add Video.

Jika video sudah di masukan, kalian tinggal memberikan logo, disitu tersedia 3 pilihan (Text, Image, Shape).

Sebagai contoh saya akan memasukan logo berupa image ke dalam video.

Disitu terlihat tombol Browse yang berguna untuk memilih image yang mau kalian jadikan logo, setelah image sudah masuk maka klik lah button Add.

Kalian bisa merubah letaknya dimana saja dengan cara mendrag logo yang sudah di masukan, atau bisa memakai menu yang sudah di sediakan (lihat pada gambar yang di lingkari warna merah), jika sudah sesuai maka kalian tinggal klik button Ok yang ada di pojok kanan bawah.

Setelah itu cobalah untuk play video untuk melihat hasilnya.

Muncul deh logo saya di video, pikir-pikir lagi deh sekiranya itu logo sudah pantas apa belum ya ? kalau belum maka kalian bisa klik button AddImage lagi lalu memperbaikinya, tapi jika sudah merasa pantas kalian tinggal klik button Run lalutunggu prossesnya hingga selesai.

Link Download:
4shared: Download
Mediafire: Download

Keterangan:
Ukuran File 15 MB
Untuk username dan serial key sudah saya sediakan di dalam folder.

Fast & Furious 6

Judul: Fast & Furious 6
Sutradara: Justin Lin
Produser: Neal H. Moritz, Vin Diesel, Clayton Townsend
Penulis: Chris Morgan
Pemeran: Vin Diesel, Paul Walker, Dwayne Johnson, Michelle Rodriguez, Jordana Brewster, Tyrese Gibson, Chris Bridges, Sung Kang, Luke Evans, Gina Carano, John Ortiz, Joe Taslim
Musik: Lucas Vidal
Sinematografi: Stephen F. Windon
Penyunting: Christian Wagner, Kelly Matsumoto
Studio: Original Film, One Race Film
Distributor: Universal Pictures
Tanggal Rilis: 7 Mei 2013 (London), 24 Mei 2013 (Internasional)
Durasi: 130 Menit
Negara: Amerika Serikat
Bahasa: Inggris

Sinopsis:
Setelah perampokan di Rio, Dominic Toretto dan timnya menyebar ke seluruh dunia: Dominic tinggal bersama Elena; adiknya Mia dan Brian O'Conner dikaruniai seorang putra, Jack; Gisele dan Hang pindah ke Tokyo, dan Roman dan Tej hidup mewah.

Agen Diplomatic Security Service (DSS) Luke Hobbs dan rekannya Riley menyelidiki serangan ke konvoi militer Rusia dan meyakini mantan anggota United Kingdom Special Forces Owen Shaw dan krunya sebagai pelakunya. Hobbs melacak Dominic dan meminta bantuannya untuk menangkap Shaw; Dominic setuju setelah Hobbs memperlihatkan foto mantan kekasih Dominic, Letty Ortiz, yang ia duga sudah mati. Dominic mengumpulkan teman-temannya dan mereka menerima misi ini dengan syarat catatan kriminal mereka diputihkan dan mereka diizinkan pulang ke Amerika Serikat; Mia dan Elena tinggal bersama Jack.

Tim dipancing ke tempat persembunyian Shaw di London oleh salah satu tangan kanannya. Mereka dan kepolisian ternyata dijebak, sementara rekan-rekan Shaw melakukan perampokan di tempat lain. Shaw kabur dengan mobil, meledakkan tempat persembunyiannya, dan membuat polisi tidak berkutik. Dominic, Brian, Tej, Han, Gisele, Hobbs, dan Riley mengejarnya. Letty datang membantu Shaw dan menembak Dominic sebelum kabur. Di markas mereka, Hobbs memberitahu tim Dominic bahwa Shaw mencuri komponen untuk merakit alat Nightshade yang dapat memadamkan listrik satu negara; ia berusaha menjualnya ke penawar tertinggi. Sementara itu, upaya Shaw untuk mengetahui tim lawannya mengungkapkan fakta hubungan Letty dengan Dominic, namun Letty diketahui menderita amnesia.

Roman, Han, Gisele, dan Riley menyelidiki anak buah Shaw dan mengetahui hubungan Shaw dengan Arturo Braga, bos narkoba yang ditahan Brian. Brian pulang ke Amerika Serikat sebagai tahanan agar bisa bertemu Braga. Braga mengatakan bahwa Brian bisa menemui Shaw jika Shaw sendiri ingin menemuinya. Ia juga mengungkapkan bagaimana Letty selamat dari ledakan yang diduga menewaskannya. Shaw hendak membunuhnya, tetapi setelah tahu Letty hilang ingatan, ia merekrutnya. Dibantu mantan rekan di FBI, Brian bebas dari penjara. Di London, Dominic bertarung melawan Letty dalam ajang balap jalanan. Setelah itu, keduanya berbicara dan Dominic mengembalikan kalungnya. Setelah Letty pergi, Shaw tiba dan menawarkan agar Dominic dan timnya bebas pergi, namun Dominic menolak pergi tanpa Letty.

Tej melacak serangan Shaw selanjutnya ke sebuah pangkalan militer NATO di Spanyol. Shaw dan timnya menyerang konvoi militer yang mengangkut cip komputer untuk menyelesaikan perakitan Nightshade-nya. Dominic dan timnya datang menyerobot mereka, sedangkan Shaw, dibantu Letty dan Jah, mengendarai tank dan mulai menggilas mobil di jalan. Roman berusaha mengikatkan mobilnya dengan tank, lalu didorong Brian keluar jembatan, sehingga tanknya terbalik. Letty terlempar dari tank dan Dominic berusaha menyelamatkannya. Shaw dan timnya berhasil ditangkap, namun ia mengungkapkan bahwa orang-orangnya sudah menculik Mia. Mereka terpaksa membebaskan Shaw, dan Riley (ternyata anak buah Shaw) pergi bersama mereka; Letty memutuskan untuk tetap bersama Dom. Shaw dan timnya menaiki pesawat kargo saat masih berjalan di landasan sambil dikejar Dominic dan timnya. Dominic, Letty, Brian, dan Hobbs menaiki pesawat; Brian menyelamatkan Mia dan mereka keluar pesawat menggunakan mobil. Pesawat berusaha lepas landas tetapi tertahan oleh kabel yang terikat dengan kendaraan yang dikemudikan Han, Gisele, Roman, Tej, Brian, dan Mia. Gisele mengorbankan dirinya untuk menyelamatkan Han. Letty membunuh Riley dan ia dan Hobbs lompat ke mobil di bawahnya. Dominic mengejar Shaw dan cip komputer yang dipegangnya. Shaw terlempar dari pesawat, sedangkan pesawat itu sendiri jatuh. Dom mengendarai mobil yang tersisa melintasi hidung pesawat dan bertemu teman-temannya. Cip tersebut dikembalikan ke Hobbs sebagai jaminan pengampunan mereka.

Setelah itu, Dominic dan timnya pulang ke Amerika Serikat. Hobbs dan Elena datang untuk mengkonfirmasi bahwa mereka bebas dari tuduhan kriminal apapun. Sebelum Dominic dan timnya makan siang, ia bertanya apakah Letty merasa kenal dengan suasana saat ini; Letty menjawab tidak, tetapi ia merasa sudah di rumah.

Di adegan akhir kredit, saat Han dikejar-kejar di Tokyo, ia ditabrak mobil asing, sehingga mobilnya meledak dan menewaskannya. Pengemudi mobil asing tersebut menyingkir dari lokasi kejadian dan meninggalkan pesan ancaman untuk Dominic.



4shared: Download
Mediafire:  Download

Subtitle Indonesia By Lebah Ganteng: Download

Membuat Warna Gradien Di Form Pada VB6

Terkadang kita merasa bosan jika program yang kita buat hanya berwarna standart antara hitam, abu-abu dan putih. Lalu bagaimana cara kita mengatasi itu ? saya sih punya saran kenapa kita tidak mencoba menggunakan kombinasi warna saja atau yang biasa di sebut gradien.

Bagaimana bisa ? kan di sebuah properties form hanya menyediakan satu warna ! , gampang ko, kita hanya cukup memberi sedikit sintek sehingga memudahkan kita dalam memberikan warna gradien pada form.

Ok langsung saja kita bahas masalah itu disini, pertama bukalah project yang kalian punya atau untuk sekedar pembelajaran, kalian buatlah project baru, lalu tambahkan satu buah Module dengan cara klik kanan pada project > Add > Module > Open

Gambar di atas terlihat jelas kan ? setelah di open maka nanti akan muncul kolom kosong tempat dimana kalian akan menuliskan sintek di module tersebut.

Nah untuk sinteknya sendiri kalian bisa mengisinya seperti di bawah ini:

Option Explicit
Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Sub Gradien(Obj As Object, Tipe As Integer, _
Color1 As Long, Color2 As Long)
    Dim Y!, X!
 
    Dim sngMerah!, sngHijau!, sngBiru As Single
    Dim Merah%, Hijau%, Biru%
    Dim Merah2%, Hijau2%, Biru2 As Integer
 
    Dim Temp As Long
 
    Obj.AutoRedraw = True

    Temp = (Color1 And 255)
    Merah = Temp And 255
     
    Temp = Int(Color1 / 256)
    Hijau = Temp And 255
     
    Temp = Int(Color1 / 65536)
    Biru = Temp And 255
     
    Temp = (Color2 And 255)
    Merah2 = Temp And 255
     
    Temp = Int(Color2 / 256)
    Hijau2 = Temp And 255
     
    Temp = Int(Color2 / 65536)
    Biru2 = Temp And 255
     
    If Tipe = 1 Then
        sngMerah = Abs(Merah - Merah2) / Obj.ScaleHeight
        sngHijau = Abs(Hijau - Hijau2) / Obj.ScaleHeight
        sngBiru = Abs(Biru - Biru2) / Obj.ScaleHeight
    Else
        sngMerah = Abs(Merah - Merah2) / (Obj.ScaleWidth)
        sngHijau = Abs(Hijau - Hijau2) / (Obj.ScaleWidth)
        sngBiru = Abs(Biru - Biru2) / (Obj.ScaleWidth)
    End If
     
    If Merah2 < Merah Then sngMerah = -sngMerah
    If Hijau2 < Hijau Then sngHijau = -sngHijau
    If Biru2 < Biru Then sngBiru = -sngBiru
     
    If Tipe = 1 Then
 
        For Y = 0 To Obj.ScaleHeight
            Merah2 = Merah + sngMerah * Y
            Hijau2 = Hijau + sngHijau * Y
            Biru2 = Biru + sngBiru * Y
            Obj.Line (0, Y)-(Obj.Width, Y), _
            RGB(Merah2, Hijau2, Biru2)
        Next Y
    Else

        For X = 0 To Obj.ScaleWidth
            Merah2 = Merah + sngMerah * X
            Hijau2 = Hijau + sngHijau * X
            Biru2 = Biru + sngBiru * X
            Obj.Line (X, 0)-(X, Obj.Height), _
            RGB(Merah2, Hijau2, Biru2)
        Next X
    End If
End Sub

Setelah itu kalian tinggal memberikan sintek di form nya saja seperti di Form_Load atau apa saja yang menurut kalian pas untuk pemanggilan warna gradien. Sebagai contoh saya akan memberikan sintek di Form_Load seperti ini:

Gradien Me, 0, vbRed, vbWhite

Lalu cobalah untuk Run project kalian, jika kalian mengikuti apa yang sudah saya jelaskan di atas maka hasilnya akan sama dengan gambar yang sudah saya berikan di paling atas.

Keterangan:
 0 = Tipe posisi warna , di module saya memberikan 2 tipe yaitu 0 dan 1
vbRed = warna pertama, kalian bisa merubahnya sesuai keinginan kalian
vbWhite = warna kedua

Selamat Mencoba.

Mengenal Paul Walker

Ketika seseorang meninggal dunia terlebih lagi orang itu adalah aktor kelas dunia maka tidak aneh jika semua media memburu / mencari tau data apa saja tentang orang tersebut tidak terkecuali aktor Paul Walker.

Lalu data apa saja sih yang Webnank dapat, mari kita ulas lebih lengkap lagi disini

Paul William Walker IV atau yang biasa di panggil Walker merupakan kelahiran Glendale, California, USA (12 September 1973 dan meninggal 30 November 2013 pada umur 40 tahun), Walker adalah seorang aktor Amerika Serikat yang mulai terkenal pada tahun 1999 setelah perannya dalam membintangi film "Versiti Blues", Namun mungkin sekarang ia lebih di kenal sebagai pemeran "Brian O'Conner" dalam film "The Fast and The Furious". Walker juga membintangi beberapa film di antaranya: Eight Below, Into the Blue, She's All That dan Takers. Dia juga muncul di serial National Geographic Channel, Expedition Great White.

Meninggal
Pada 30 November 2013, sekitar pukul 15:30 (PST), Walker dan pendampingnya kembali dari acara amal ketika tak lama setelah Porsche Carrera GT berwarna merah yang mereka tumpangi lepas kendali dan menabrak tiang lampu dan pohon di Valencia, Santa Clarita, California. Yang meyebabkan mobil meledak dan terbakar. Defartemen Sheriff Los Angeles Country menyatakan dua orang meninggal di tempat kejadian.

Filmografi

Film
Tahun	Judul	Peran	Keterangan
1986	Monster in the Closet	Professor Bennett
1987	Programmed to Kill	Jason
1994	Tammy and the T-Rex	Michael
1998	Meet the Deedles	Phil Deedle
1998	Pleasantville	Skip Martin
1999	Varsity Blues	Lance Harbor
1999	She's All That	Dean Sampson
1999	Brokedown Palace	Jason	Uncredited
2000	The Skulls	Caleb Mandrake
2001	The Fast and the Furious	Brian O'Conner
2001	Joy Ride	Lewis Thomas
2002	Life Makes Sense if You're Famous	Mikey
2003	Turbo-Charged Prelude	Brian O'Conner	Film pendek 6 menit pengantar film 2 Fast 2 Furious
2003	2 Fast 2 Furious	Brian O'Conner
2003	Timeline	Chris Jhonston
2004	Noel	Mike Riley
2005	Into the Blue	Jared Cole
2006	Eight Below	Jerry Shepard
2006	Running Scared	Joey Gazelle
2006	Flgs of Our Fathers	Hank Hansen
2007	Stories Usa	Mikey
2007	The Death and Life of Bobby Z	Tim Kearney
2008	The Lazarus Project	Ben Garvey
2009	Fast & Furious	Brian O'Conner
2010	Takers	Jhon Rahway
2010	Fast Five	Brian O'Conner
2013	Vehicle 19	Michael Woods
2013	Fast & Furious 6	Brian O'Conner
2013	Hour	Nolan
2013	Pwan Shop Chronicles	Raw Dog
2014	Brick Mansions	Damien	Pasca-Produksi
2014	Fast & Furious 7	Brian O'Conner	Pasca-Produksi

Televisi
Tahun	Judul	Peran	Catatan
1985	Highway to Heaven	Eric Travers	1 episode
1986	Highway to Heaven	Todd Bryant	2 episode
1986-1987	Throb	Jeremy Beatty	23 episode
1988	I'm Telling!	Kontestan	1 episode
1990	Charles in Charge	Russell Davis	1 episode
1991	Who's the Boss?	Michael Haynes	1 episode
1992-1993	The Young and the Restless	Brandon Collin
1994	CBS Schoolbreak Special	Dill	1 episode
1994	The Boy Are Back	Jesse Handson	Episode pilot
1996	Touched by an Angel	Jonathan	1 episode
2013	Shark Week	Dirinya sendiri	1 episode

Video Musik
Tahun	Artis	Lagu
1997	The Mighty Mighty Bosstones	Wrong Thing Right Then
2003	Ludacris	Act a Fool

Penghargaan Dan Nominasi
Tahun	Penghargaan	Kategori	Film/Acara TV	Hasil
2000	Young Hollywood Award	Pendatang Baru Paling Menyenangkan - Pria		Menang
2001	Hollywood Breakthrough Award	Breakthrough Male Performance Diterima pada Hollywood Film Festival		Menang
2001	Young Hollywood Award	New Stylemaker - Pria		Menang
2002	MTV Movie Award	Best On-Screen Team Berbagi dengan Vin Diesel	The Fast and the Furious	Menang
2002	MTV Movie Award	Breakthrough Male Performance		Nominasi
2003	Teen Choice Awards	Choice Movie Chemistry Untuk Paul Walker dan mobilnya	2 Fast 2 Furious	Menang
2009	Teen Choice Awards	Choice Movie Actor: Action Adventure	Fast & Furious	Nominasi
2011	Teen Choice Awards	Choice Movie Actor: Action Adventure	Fast Five	Nominasi

Biodata Lengkap
Nama	Paul William Walker IV
Tanggal Lahir	12 September 1973
Tempat Lahir	Glendale, California, USA
Zodiak	Virgo
Tinggi Badan	190.5
Kewarganegaraan	Amerika
Warna Rambut	Pirang
Warna Mata	Biru
Nama Ayah	Paul William Walker III
Pekerjaan Ayah	Kontraktor Pipa Saluran Pembuangan
Nama Ibu	Cheryl Crabtree
Pekerjaan Ibu	Mantan Model
Saudara	Caleb, Cody, Ashlie, Amie
Kekasih	Rebecca
Anak Anak	Meadow Rain (lahir 4-Nov-99)