Membuat Web Browser dengan VB 6

Ya kali ini ane akan share cara membuat sebuah program web browser  dengan Visual Basic 6

seperti mozila Firefox,Opera,Internet Explorer . 

Langsung aja deh kita mulai gan :D

Yang harus di siapkan adalah

1.Komputer (Ya iyalah kalau gak ada ini mah bisa si gan pake mesin TIK lol)

2.Siapin deh Kopi atau Rokok 

3.Play lagu juga jangan lupa , Dangdut boleh Metal pun boleh kok gan :D

4.Download Visual Basic 6 , Bagi yang belum punya bisa download Disini 

5.Jalankan Visual Basicnya karna itu sudah portable jadi tinggal klik aja registry nya gan tanpa harus instal lagi.

Di bagian pertama masuk Visual Basic pilih aja Standard EXE

Nah sekarang masuk ke area VB 6

Ini Area Kerjanya gan 

Tekan Ctrl T atau bisa juga dengan ke menu Project > Components

ini memakai component" apa saja yang akan digunakan .

Centang Component Miscrosft Internet Control Dan Microsoft Windows Common Control 5.0 (Versi berapa aja bisa kok gan) 

Setelah itu klik Ok lalu liat Tools Bar di samping pojok kiri kita akan bertambah

Design Form agan sesuai selera 

lalu Masukan CommandButton di toolbars kiri sampai 5 ke Form 

CommandButton itu nantinya akan di jadikan tombol Back,Foward,Refresh,Stop,Dan Go

Masukan 1 TextBox 

Setelah selesai CommandButton lalu masukan WebBrowser cukup 1 saja ini fungsinya

untuk display page yang di browsing taruh itu di tengah , Dan di bawah nya pasang

Label dan ProgressBar ini adalah untuk fungsi loading pada Halaman Web yang akan di proses 

pada Browser .

Ini design Form Program WeBrowser Ane Contohnya :

Oke sekarang lakukan Codingnya

Double klik pada Command1 ( kalau di ane Command1 = Mundur tapi bisa kok di lihat di menu properties )

Setelah di Double Klik akan muncul Window baru untuk area Coding 

Masukan :

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Lalu lakukan cara yang sama seperti Command1 

Double klik Command2

Masukan :

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Double Klik Command3

Masukan :

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Double Klik Command4

Masukan :

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Double Klik Command5

Masukan :

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

Dan Double Klik Formnya 

Masukan :

Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub

Yang Terakhir

Double Klik ProgressBar1 

Masukan :

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading" & Int(Progress * 100 / ProgressMax) & "%"


End If
Exit Sub
End Sub

Penjelasan Script :

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack >>> Untuk Fungsi Tombol agar dapat kembali/Back ke halaman sebelumnya
End Sub >> Akhir dari Fungsi
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward >>> Untuk Fungsi ke halaman yang selanjutnya di buka
End Sub >>> Akhir dari Fungsi
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh >>> Untuk Fungsi Memuat Ulang Halaman
End Sub >>> Akhir dari Fungsi
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop  >>> Untuk Stop dalam proses
End Sub >>> Akhir dari Fungsi
Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text >> Artinya Mengambil Text dari TextBox untuk di masukan ke ProsesWeb Browser
End Sub>>> Akhir dari Fungsi
Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth >> Mengatuh Lebar WebBrowser
WebBrowser1.Height = Me.ScaleHeight - 1680 >> Mengatur Tinggi WebBrowser
End Sub>>> Akhir dari Fungsi



Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = -1 Then ProgressBar1.Value = 100 >> Artinya Jika Progress itu -1 maka value ProgressBar 1 akan berubah menjadi 100
Label1.Caption = "Done" <<< Terusan dari Fungsi IF jadi Label1 akan berubah tulisan menjadi "Done"
ProgressBar1.Visible = False <<< Jadi ProgressBar akan di Sembunyikannya jadi false
If Progress > 0 And ProgressMax > 0 Then < <Fungsi IF artinya Jika Progress lebih besar dari 0 dan Progress Max Lebih besar dari 0 maka
ProgressBar1.Visible = True << Lanjutan Fungsi IF maka ProgressBar1 akan di sembunyikan jadi True
ProgressBar1.Value = Progress * 100 / ProgressMax << Masih di Fungsi IF lebih besar , artinya ProgressBar1 akan menjadi 100% atau bisa di sebut progressmax
Label1.Caption = "Loading" & Int(Progress * 100 / ProgressMax) & "%" << Label1 akan berubah menjadi Loading dan  progress menjadi max lalu disamping itu akan ada label1 bertambah tanda %

End If << Akhir Fungsi IF
Exit Sub <<< Keluar daru Fungsi Sub
End Sub <<< Akhir Fungsi

Setelah selesai akan jadi seperti ini

Oke sekian dulu Tutorialnya 

Semoga Bermanfaat bagi agan" sekalian hehe

Oh iya yang mau Copas jangan lupa di sertai dengan Sumber yaa

Yang mau bertanya silakan Insyaallah ane balas dengan cepat :) 

 

Sumber: http://invateam.blogspot.com/2013/06/tutorial-membuat-web-browser-dengan-vb-6.html

Read More

Cara Mudah Install Dual boot Kali Linux dan Windows

 

  
Sekarang Indonesia lagi Heboh Hebohnya Hekel, Hekel sampe banyak orang yang mengaku dia adalah Hekel Hebat, bahkan ada yang bila Kalo Lampu HDD Warna Merah Artinya sudah kedetect Cyber Police :ngakak, Nah Ane Mau share tentang cara Install Kali Linux nih gan, Kali Linux Hampir Mirip Backtrack,
Namun BackTrack didasarkan pada Ubuntu, Kali Linux didasarkan pada Debian, dan menggunakan Installer Debian lengkap. Akibatnya, proses instalasi berbeda dari BackTrack, yang menggunakan program instalasi grafis Ubuntu.

Tujuan di sini adalah untuk menunjukkan bagaimana untuk menginstalnya pada HDD samping instalasi yang sudah ada Windows 7, dengan manajer boot Windows 7 sebagai loader "master" boot, sehingga pada akhirnya, saat komputer (re) boot, Anda akan disajikan dengan menu boot yang terlihat seperti yang ditunjukkan di bawah. Memilih Windows 7 sistem boot ke Windows 7 dan Linux akan memilih Kali, secara default, membawa Anda ke menu boot Kali Linux, yang merupakan hal yang sama seperti menu GRUB 2, versi GRUB digunakan oleh Kali Linux

Untuk memotong Kali menu boot Linux, cukup mengedit file bernama / etc / default / grub dan perubahan GRUB_TIMEOUT = 5 sampai GRUB_TIMEOUT = 0. Kemudian jalankan perintah update-grub.

 Yang belum download KALI LINUXnya bisa download di situs resminya Disini

Ok langsung mulai ritual instalasinya...

1. Shrink Windows 7 Drive C: untuk instalasi kali ini saya  sudah ada Windows 7 pada 500 GB HDD, dengan hanya dua partisi primer. Ini adalah bagaimana mereka muncul di manajer partisi Windows 7. Tugas di sini adalah untuk mengecilkan drive C untuk membuat yang nantinya untuk menginstal Kali Linux. Untuk melakukannya, klik kanan pada drive C dan pilih Shrink Volume.

 Jika Anda memiliki cukup ruang bebas pada drive C, sistem akan menyarankan perpecahan 50-50 dari ruang bebas yang cukup baik untuk instalasi 

 Setelah operasi selesai, Anda akan melihat ruang yang baru direklamasi sebelah drive C. Anda dapat keluar dari manajer partisi dan reboot komputer. Pastikan untuk memiliki disk instalasi Kali Linux pada drive optik sebelum reboot.

2.  Burn file file iso-nya menggunakan Nero bisa juga langsung burn dari software bawaan windows

3. Instal Kali Linux: Pilihan terbaik untuk memilih di Kali menu boot Linux adalah Install grafis. Ini memberi Anda proses instalasi point-and-klik. Instal bekerja sama dengan baik, tetapi antarmuka berbasis ncurses.

 Untuk menginstal Kali Linux, partisi-partisi berikut akan dibuat: / boot, /, / home, dan Swap. Dalam urutan itu. Partisi / home adalah opsional. Pada disk partisi metode langkah dari proses instalasi, Anda mendapatkan banyak pilihan. Karena tidak ada pilihan dipandu akan membuat partisi / boot terpisah, menciptakan partisi harus dilakukan secara manual. Jadi pilih "Manual" dan klik Continue.

 Di sini Anda dapat melihat ada partisi Windows 7, yang keduanya partisi primer. Ruang bebas, direklamasi dari Windows 7 pada langkah sebelumnya adalah apa yang akan digunakan untuk membuat partisi untuk KALI LINUX. Untuk mulai membuat partisi, pilih "free space" dan klik Continue.

 Create a new partition. Continue.

 Hal ini menunjukkan jumlah total ruang disk yang tersedia untuk Partisi Linux Kali.  / boot akan dibuat lebih dulu, sehingga Anda perlu menentukan jumlah ruang disk

Sesuaikan hdd space anda, utk ini saya kasih 300 MB. Continue

 Karena Anda masih memiliki dua partisi utama untuk digunakan, Anda dapat membuat partisi boot sebagai partisi primer atau logical, saya memilih untuk menciptakannya sebagai partisi logical.Continue

 Beginning. Continue

 

 Langkah ini menunjukkan rincian partisi boot yang baru saja dibuat. dobel klik mount poit lalu pilih tanda / (root)

 Inilah yang seharusnya terlihat seperti setelah mount point telah ditetapkan. Pilihan lain Anda mungkin ingin mengubah sini adalah  Bootable flag.

 Pilih NO

Berikut rincian akhir dari partisi boot. “Done setting up the partition,” lalu klik Continue. Perhatikan bahwa langkah-langkah yang Anda gunakan untuk membuat partisi boot akan diulang untuk partisi lain 

.Kembali ke jendela disk utama partisi, Anda dapat melihat partisi boot yang baru saja dibuat, ditambah ruang kosong yang tersisa. Pilih free space lalu klik Continue

 Partisi selanjutnya akan dipasang pada /. Sebuah instalasi baru dari Kali Linux memakan sekitar 6,4 GB ruang disk, sehingga setiap jumlah yang lebih besar dari itu akan dilakukan. Untuk instalasi kali ini, saya memberikannya 60 GB ( pilihan, terserah anda mo kasih berapa :D sesuaikan hhd spacenya, 10-20 GB cukup ) 

 Berikut adalah rincian dari partisi baru. pilih  “Done setting up the partition," lalu Continue.

 For the home partition, I gave it a disk space of 100 GB. Continue.

 Berikut adalah rincian dari partisi baru.  pilih  “Done setting up the partition,” lalu klik Continue.

 Untuk Swap, 1-2 GB cukup. Continue.

Berikut adalah rincian default untuk partisi baru. Untuk menetapkan bahwa ia digunakan sebagai partisi Swap, dobel klik  “Use as”

 Kemudian pilih "swap area." Continue.

Pilih “Done setting up the partition,” lalu klik Continue.

 Dengan semua partisi yang dibuat, pilij “Finish partitioning and write changes to disk.” Continue. Membuat catatan dari nomor perangkat dari partisi boot. dan disini adalah sda5.

  Pilih “Yes.” Continue

 Secara default, installer akan ingin menginstal GRUB, boot loader, di Master Boot Record (MBR). Pilih NO jika ingin menggunakan Grub Menu Windows n YES untuk Grub Menu KALI LINUX ( pilihan )” Continue.

Ini adalah di mana Anda harus menentukan mana GRUB harus dipasang. Untuk sistem pengujian itu adalah / dev/sda5. Continue.

 Setelah instalasi, komputer akan reboot ke Windows 7. tahap selanjutnya  menambahkan sebuah entri untuk Kali Linux di menu boot Windows 7.

3. Tambahkan Kali Linux untuk menu boot Windows 7: Aplikasi grafis sederhana untuk memodifikasi Konfigurasi Boot Data Windows yang saya tahu EasyBCD ini gratis. Anda dapat mendownloadnya disini. Instal seperti yang Anda lakukan setiap aplikasi Windows lainnya. Jendela utama ditunjukkan di bawah ini. Untuk menambahkan sebuah entri untuk Kali Linux dalam menu boot, klik pada tab Entri Add New.

Kemudian klik pada tab Linux / BSD. Dari menu dropdown Type, pilih GRUB 2. Memodifikasi kolom nama yang mencerminkan nama dari distribusi yang Anda menambahkan. Dari menu Drive, Anda dapat memilih partisi tertentu sesuai dengan partisi boot dari Kali instalasi Linux atau membiarkan EasyBCD otomatis mencari . Salah satu akan bekerja. Perhatikan bahwa drive EasyBCD itu nomor dan nomor perangkat dari partisi Linux tidak cocok. Sebagai contoh, dalam tes instalasi, partisi boot / dev/sda5, tetapi jumlah drive yang sesuai di EasyBCD adalah Partition 3. Ukuran partisi membantu untuk menentukan . Klik tombol Add Entry pilih partisi yang telah anda buat.

Dari Edit Boot Menu,  Anda dapat melihat preview dari entri yang akan muncul dalam menu boot Windows 7. Keluar EasyBCD dan reboot komputer.

Ekstra: Berikut adalah semua partisi pada HDD seperti yang terlihat dari manajer partisi Windows 7.

Selamat anda sudah berhasil membenanmkan 1 OS lagi di dalam komputer anda 

SALAM LINUXERZ

ini penampakn dual boot ane menggunakan GRUB MENU KALI LINUX


Sumber: http://mazbron.blogspot.com/2013/04/cara-mudah-install-dual-boot-kali-linux.html

Read More