Jumat, 26 September 2014

Ms Office 2013 Full Activation Crack and Permanent

office-pro-plus-2013.jpg

Microsoft Office Professional 2013 berisi Microsoft Office Professional dengan Full Activation Crack and Permanent pada Windows 7, 32 bit dan 64 bit. Office memungkinkan Anda untuk melakukan semua pekerjaan bisnis Anda dengan lebih banyak fitur baru dan antarmuka pengguna grafis yang lebih baik.

Apa yang baru di Edition Office Professional Plus 2013 : 

Ini memberi Anda berbagi data yang lebih baik bersama dengan GUI baru dan beberapa fitur yang sangat menarik yang Anda tidak akan ditemukan dalam edisi sebelumnya dari Microsoft Office. Dalam hal ini Anda dapat mengambil data Anda jika Anda tidak sengaja hilang, ini adalah fitur yang sangat unik Professional Plus edisi 2013. Berharap bahwa Anda menyukainya.

download.png



Tool Aktivasi dan Permanent :


Cara Aktivasi dan Permanent :
1. Install Office 2013 nya.
2. Jalankan Microsoft Toolkit, klik menu ACTIVATION, AUTO KMS, KLIK active, lalu kilik INSTALL.

ms-toolkit.png

3. Silahkan tunggu sampai Selesai sucsesfully, RESTART WINDOWS.
4. Selanjutnya... Kita menuju AKTIVASI PERMANENT nya, Ekstrack " WOAT_V31 WIN 7", buka folder " 7OAT15", RUN AS ADMINISTRATOR " INSTALL.CMD".
5. Tunggu sampai proses selesai,  keluar gambar di bawah ini, silahkan EXIT.

sucses.png

6. Selanjutnya buka folder "15SSFP", RUN AS ADMINISTRATOR "INSTALL.CMD".
7. Tunggu sampai DONE sucsesfully.
8. Silahkan cek status aktivasi pada MS OFFICE 2013 Anda...

mensoffice.png

Cara menggunakan Bitvise dan Proxifier untuk Internet gratis

Cara menggunakan Bitvise dan Proxifier untuk Internet gratis
TUTORIAL LENGKAP
Internet gratis?
Pasti sudah tidak asing bagi kalian tentang internet gratis. benar bukan? Tetapi banyak juga sobat blogger, surfer, downloader, uploader yang tidak mengetahui bagaimana cara menggunakan peralatan atau tools yang digunakan untuk trik internet gratis yang banyak bertebaran di forum, blog, social network dan lainnya.
Disini saya tidak menggurui, tetapi saya hanya ingin mensharing Bagaimana cara menggunakan bitvise dan proxifier agar bisa berinternet secara gratis. Karena trik internet gratis sekarang yang paling ngetrend di dunia phreaker yaitu Trik internet gratis menggunakan inject ssh dan proxifier.

Oke kita masuk ke turorial, Langkah pertama, ada beberapa software yang perlu kalian miliki yaitu :
  1. Bitvise 4.60  =  (Download disini)
  2. Proxifier 3.21 = (Download disini) + Serial Number = (Download disini)
  3. Inject (Sesuai Operator)
  4. SSH Gratisan (jika kalian punya akun SSH Premium itu lebih baik)
Langkah awal untuk melakukan trik internet gratis ini.
1. Install Bitvise 4.60 yang telah kalian download dari link diatas. Lalu keluarkan program itu jika selesai.
2. Install Proxifier 3.21 dan masukan serial numbernya yang kalian bisa peroleh dari link diatas. Lalu keluarkan program itu jika selesai. (Lihat icon berikut di desktop jika kedua program tersebut sudah terinstall)
3. Setelah itu, bukalah software Bitvise SSH Client (Ingat, sebelum menjalankan software ini, kalian harus mendial up koneksi kalian terlebih dahulu). lalu isikan akun SSH kalian (jika kalian menggunakan akun Premium) dengan benar. Lihat gambar
Jika kalian memiliki akun SSH yang kalian peroleh dari internet, kalian hanya menload akun tersebut yang berekstensi .bscp. lihat gambar


4. Setelah akun SSH kalian sudah terbuka, kalian buka inject yang telah kalian download sesuai operator yang kalian gunakan. (Dalam tutorial yang saya tulis ini, saya menggunakan Inject ISAT by Ngabdul Sugandhi dan menggunakan SC indosat Im3) lalu mulailah inject yang kalian gunakan itu dengan mengklik perintah untuk memulai eksekusi inject tersebut sesuai inject yang kalian gunakan. Contoh lihat gambar



5. Setelah itu, aturlah Proxy Settings pada Bitvise kalian yang ada pada menu Login yang telah kalian isi dengan akun SSH kalian.
Lihat gambar






Pada gambar diatas, kalian meliat menu Proxy settings, Setelah itu kalian centrang Use Proxy lalu isikan :
Server : 127.0.0.1 
Port    : 8080 (Sesuaikan port yang ada di Inject kalian) 
Proxy Type : HTTP
Lalu Klik OK.
6. Pada SOCKS / HTTP Proxy Forwarding di tab Services Bitvise, centranglah Enabled lalu isikan Listen Interface dan Listen Port. (Lihatlah gambar dibawah ini)



Pada gambar diatas, Saya mengisi Listen Interface dengan 127.0.0.1 dan Port 1082. Listen Port diatas kalian bisa ubah asalkan harus sesuai dengan port yang ada di Proxifier. (Akan dibahas lebih lanjut setelah langkah dibawah ini). Jika semua selesai, Kalian dapat Login akun SSH kalian dengan cara mengklik Login pada bitvise kalian. Lihat gambar



Jika berhasil login, kalian akan peringatan sukses seperti ini pada log di bitvise kalian.(Jangan close bitvise ini jika ingin melanjutkan ke tahap selanjutnya)




7. Sekarang buka lah Proxifier yang telah kalian install terlebih dahulu, lalu pada menu Profile, Kliklah Proxy Servers. Lihat gambar




Setelah itu pada Proxy Servers isilah sesuai dengan apa yang telah kalian isi di Software Bitvise pada menu Services. (Contohnya saya tadi menggunakan 127.0.0.1 dengan Port 1082.
Lalu OK dan OK lagi.
8. Masih di Proxifier pada menu Profile, klik lah Proxification Rules dan pastikan pengaturan Action pada Defaultnya itu adalah Proxy SOCKS 4 127.0.0.1:1082 (Sesuai proxy server yang kalian isi pada proxifier). Lalu Klik OK.

Sekarang Cobalah browsing dengan browser yang kalian gunakan, sebagai contoh saya menggunakan google chrome pada tutorial ini. jika berhasil, kalian akan melihat seperti gambar dibawah ini.

(Pada Proxifier)
Bagaimana? Mudah bukan Cara menggunakan Bitvise dan Proxifier trik internet gratis dengan SSH Inject?

Semoga artikel ini bisa membantu para sobat yang kesulitan untuk menggunakan cara ini. Sekali lagi Semoga bermanfaat untuk kalian semua. Terimakasih.

Jika ada pertanyaan, silahkan komentar dibawah ini.

Rabu, 24 September 2014

Program Perpustakaan visual basic 6

Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 bagian pertama

Untuk Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 akan saya terangkan dengan menggunakan artikel episode karena saking banyaknya kode yang akan digunakan sehingga membutuhkan banyak sekali artikel yang bersambung dan disini saya akan menerangkan dari awal hingga akhir pembuatan program Perpustakaan menggunakan visual basic 6 dengan database menggunakan microsoft access 2007.
Membuat program perpustakaan cukup rumit sehingga membutuhkan ketelitian yang sangat besar sekarang saya akan memulai pembuatan program perpustakaan menggunakan visual basic 6, untuk pertama kali saya akan membuat form untuk insert data buku kedalam database kali ini saya taruh di form1, komponen yang saya gunakan adalah 4 label, 4 text, 2 button dan 1 listview dengan header column Nama buku, Jumlah, Harga/1 dan Kode lihat gambar dibawah:
Kemudian buatlah database menggunakan Microsoft Access 2007 dengan table pertama dbuku dan 5 kolom yaitu ID,NBuku,Harga,Jumlah dan Kode lihat gambar dibawah ini:
 a. Insert data ke database
 
Setelah itu simpan database yang sudah dibuat seforlder dengan project yang sedang dalam proses pembuatan dengan nama perpus.accdb, setelah database sudah dibuat kembali lagi ke visual basic 6 simpan dahulu project yang dalam proses kedalam folder yang sama dimana database disimpan lalu klik Project-->Preference-->Microsoft ActiveX Data Object 6.0 Library->OK dan buatlah 1 module pada project visual basic, masukkan kode dibawah:
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "provider = microsoft.ace.oledb.12.0; data source= " & App.Path & "\perpus.accdb;Persist Security Info=False"
cn.Open
Form1.Show
End Sub

Sub lihat()
Dim str As String
str = "select * from Dbuku"
Set rs = cn.Execute(str)
Form1.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form1.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Jumlah
Item.SubItems(2) = rs!Harga
Item.SubItems(3) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing

End Sub
Selanjutnya klik kanan pada Project1(Project1.vbp) yang berada disebelah kanan atas pilih Project1 properties Start Up Object pilih Sub main, sebelum berlanjut ke tahap insert data ke database coba run dahulu, kalau form1 terbuka itu menandakan sodah connect kedatabase.

Jika form1 sudah terbuka kemudian klik 2 kali form1 hapus semua kode yang ada dan masukkan kode dibawah ini:
Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nbuku = Text1.Text
rs!Jumlah = Text2.Text
rs!Harga = Text3.Text
rs!Kode = Text4.Text
rs.Update
MsgBox "Data masuk"
Module1.lihat
Set rs = Nothing
End Sub


Private Sub Form_Load()
Module1.lihat
End Sub
Selanjutnya setelah Form1 jadi kemudian tambahkan menu button dengan caption "Pinjam/Kembali" klik 2 kali dan masukkan kode Form2.Show lalu buatlah form2 dan form3 dalam form2 gunakan beberapa komponen lihat gambar dibawah:
Lalu pada databasenya tambahkan Table Pinjam dengan kolom : Nama,  Alamat, KTP, Jbuku, Jumlah, Jenis, Tanggal dan Kode seperti gambar dibawah:
Setelah itu pada form3 masukkan komponen-komponen: 1 label dan 1 listview dengan Header Column
  • Nama Peminjam
  • Alamat Peminjam
  • KTP Peminjam
  • Judul Buku 
  • Jumlah
  • Jenis
  • Tanggal
  • Harga
  • Kode
Lihat gambar dibawah:
 
Selanjutnya pada form2 klik dua kali hapus semua kode yang ada dan masukkan kode dibawah:


Private Sub Combo2_DropDown()
Label10 = Combo2.Text
If Combo1.Text = "Kembali" Then
Label11.Visible = False
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam where Kode Like '%" & Combo2.Text & "%' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Text5 = rs!Jumlah
Text7 = rs!Harga
Call klop
Set rs = Nothing
ElseIf Combo1.Text = "Pinjam" Then
Label11.Visible = True
Label10 = Combo2.Text
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Text7 = rs!Harga
Set rs = Nothing
Else
End If
End Sub

Sub klop()
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Label10 & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Set rs = Nothing
End Sub
Private Sub Command1_Click()
If Combo1.Text = "Pinjam" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nama = Text1.Text
rs!Alamat = Text2.Text
rs!KTP = Text3.Text
rs!Jbuku = Label9
rs!Jumlah = Text5.Text
rs!Jenis = Combo1.Text
rs!Tanggal = Text6.Text
rs!Harga = Label11.Caption
rs!Kode = Combo2.Text
rs.Update
MsgBox "Data masuk"
Call kurang
Module1.lihat
Set rs = Nothing
ElseIf Combo1.Text = "Kembali" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nama = Text1.Text
rs!Alamat = Text2.Text
rs!KTP = Text3.Text
rs!Jbuku = Label9
rs!Jumlah = Text5.Text
rs!Jenis = Combo1.Text
rs!Tanggal = Text6.Text
rs!Harga = Text7
rs!Kode = Combo2.Text
rs.Update
MsgBox "Data masuk"
Call tambah
Call hapus
Module1.lihat
Set rs = Nothing
ElseIf Combo1.Text = "" Then
MsgBox "Pilih jenis dahulu"

End If
End Sub

Private Sub Command2_Click()
Form3.Caption = "Laporan Data Lengkap Pinjam & Kembali"
Dim str As String
str = "select * from Pinjam"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show

End Sub

Private Sub Command3_Click()
Form3.Caption = "Laporan Data Lengkap Pinjam"
Dim str As String
str = "select * from Pinjam where Jenis='Pinjam'"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show
End Sub

Private Sub Command4_Click()
Form3.Caption = "Laporan Data Lengkap Kembali"
Dim str As String
str = "select * from Pinjam where Jenis='Kembali'"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show
End Sub

Private Sub Command5_Click()
Form3.Caption = "Laporan Keuangan dari buku yang di kembalikan"
Set rs = New ADODB.Recordset
rs.Open "select sum(Harga) as tot from Pinjam where Jenis='Kembali'", cn, adOpenKeyset, adLockOptimistic
Form3.Label1 = "Rp. " & FormatNumber(rs!tot)
rs.Close
Set rs = Nothing
Form3.Show
End Sub

Private Sub Form_Load()
Text6 = Date
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku ", cn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combo2.AddItem (rs!Kode)
rs.MoveNext
Loop
Set rs = Nothing
End Sub

Sub kurang()
Dim str As String
Set rs = New ADODB.Recordset
str = "Update Dbuku set Jumlah=(Jumlah-" & Text5 & ") where Kode='" & Combo2.Text & "'"
Set rs = cn.Execute(str)
Set rs = Nothing
End Sub

Sub luk()
Dim judul As String
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Set rs = Nothing
End Sub

Sub tambah()
Dim str As String
Set rs = New ADODB.Recordset
str = "Update Dbuku set Jumlah=(Jumlah+" & Text5 & ") where Kode='" & Combo2.Text & "'"
Set rs = cn.Execute(str)
Set rs = Nothing
End Sub

Sub hapus()
Set rs = New ADODB.Recordset
rs.Open "DELETE from Pinjam where nama='" & Text1 & "' and Kode='" & Combo2.Text & "' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Set rs = Nothing
End Sub

Private Sub Text1_LostFocus()
If Combo1.Text = "Kembali" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam where Nama Like '%" & Text1 & "%' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Text2 = rs!Alamat
Text3 = rs!KTP
Combo2.Clear
Do While Not rs.EOF
Combo2.AddItem (rs!Kode)
rs.MoveNext
Loop
Set rs = Nothing
Else
End If
End Sub

Private Sub Text4_Change()
Call luk
End Sub



Private Sub Text5_Change()
If Not Text5 = "" And Not Text7 = "" Then
Label11 = Text5 * Text7
Else
End If
End Sub
Logika dari kode diatas adalah jika combo1.text="Pinjam" maka secara otomatis combo2.list bertambah sesuai dengan data buku yang sudah di insert dan ketika combo2.list dipilih salah satunya maka akan keluar Harga dari kode buku yang sudah dipilih lalu ketika cutton Masukkan diklik otomatis jumlah buku berkurang dan jika Combo1.text="Kembali" maka ketika text1 diketikkan nama peminjam lalu pointer dipindah ke text2 maka secara otomatis pada text2 dan text3 akan mengeluarkan data alamat dan KTP peminjam dan pada Combo2.list akan memunculkan buku apa saja yang sedang dipinjam, lalu jika Combo2.list dipilih salah satu kode buku yang dipinjam
label9.caption akan memunculkan Judul buku dan label10.Caption akan memunculkan kode buku, jumlah otomatis akan sesuai dengan jumlah yang dipinjam dan harga akan otomatis muncul.

Selasa, 13 Mei 2014

prosesor Core 2 Duo





Intel Core 2 Duo E7400 2.80GHz LGA 775 Dual Core Processor
  • Spesifikasi:
  • Clock Speed: 2.80Ghz
    64 bit Support: Yes
    FSB: 1066MHz
    Hyper-Threading Support: No
    L2 Cache: 3M shared
    Manufacturing Tech: 45 nm
    Virtualization Technology Support: No
    Processors Type: Desktop
    Series: Core 2 Duo
Pada processor Core 2 tertanam 167 juta hingga 820 juta ransistor, menggunakan teknologi 65 nm dan 45 nm. Kapasitas L1-cache Core 2 sebesar 64 KB pada masing-masing core processor, sedangkan kapasitas L2-cache bervariasi antara 2 MB, hingga 12 MB (2 x 6 MB) danFSB antara 533 MT/s hingga 1600 MT/s, tergantung modelnya
Processor generasi ke 8 adalah Core 2 Duo yang di luncurkan pada juli 2007. Processor ini memakai microprocessor dengan arsitektur x86. Arsitektur tersebut oleh Intel dinamakan dengan Intel Core Microarchitecture, di mana arsitektur tersebut menggantikan arsitektur lama dari Intel yang disebut dengan NetBurst sejak tahun 2000 yang lalu. Penggunaan Core 2 ini juga menandai era processor Intel yang baru, di mana brand Intel Pentium yang sudah digunakan sejak tahun 1993 diganti menjadi Intel Core.
Pada desain kali ini Core 2 sangat berbeda dengan NetBurst. Pada NetBurst yang diaplikasikan dalam Pentium 4 dan Pentium D, Intel lebih mengedepankan clock speed yang sangat tinggi. Sedangkan pada arsitektur Core 2 yang baru tersebut, Intel lebih menekankan peningkatan dari fitur-fitur dari CPU tersebut, seperti cache size dan jumlah dari core yang ada dalam processor Core 2. Pihak Intel mengklaim, konsumsi daya dari arsitektur yang baru tersebut hanya memerlukan sangat sedikit daya jika dibandingkan dengan jajaran processor Pentium sebelumnya.
Processor Intel Core 2 mempunyai fitur antara lain EM64T, Virtualization Technology, Execute Disable Bit, dan SSE4. Sedangkan, teknologi terbaru yang diusung adalah LaGrande Technology, Enhanced SpeedStep Technology, dan Intel Active Management Technology (iAMT2).
Dari resume diatas dapat ditarik kesimpulan bahwa core 2 duo intel lebih menekankan peningkatan dari fitur-fitur dari CPU tersebut. Selain itu, core 2 Duo lebih menghemat listrik.