Cara Membuat Downloader dengan ProgresBar di vb.net

Cara Membuat Downloader dengan ProgresBar di vb.net - Dalam pembuatan aplikasi yang menggungakan koneksi internet, source berikut mungkin berguna buat sobat, apa lagi yang ingin menggunakan update data mengenai database atau semacamnya. Nah dalam tutor kali ini, kita akan pelajari bersama nih sob, cara membuat downloder file di hosting. Dalam tutor kali ini, semua cara kerja diatur dalam source code, tanpa menggunakan input URL dan Save As di directory yang kita mau, tapi sudah kita tetapkan dalam source code didalamnya. Agak ribet dong? gak juga sih, seperti yang tadi saya bilang, jika membuat aplikasi yang menggunakan koneksi internet apa lagi ingin aplikasi sobat update mengenai database, tutor berikut mungkin cukup berguna. Pengen tau cara kerjanya, yu kita praktekin bersama.

Berikut cara membuat downloader dengan progresbar :
Bahan-bahanya :
1 ProgresBar
1 Button
1 Label
Untuk penampilannya bisa lihat seperti contoh diatas.

Langkah-langkahnya :

• Buka Microsoft Visual Studio 2008 / 2010
• Buat New Project lalu pilih Windows Form Applikasi
• Beri nama suka-suka kalian
• Setelah keluar 1 Form di project kita
• Add bahan-bahan component di toolbox seperti diatas
• Beri nama pada masing-masing component dan atur posisi suka-suka sobat
• Klik kanan pada form project, lalu pilih "View code", lalu pastekan kode berikut :

Dim URL As String = "https://www.NamaHostingSobat.com/NamaFileSobat.txt" ' extensi file bisa diganti apa saja
    Private Lokasi As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & URL.Substring(URL.LastIndexOf("/"))
    Private WithEvents myWebClient As New Net.WebClient()
    Dim LokasiSimpan As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\Data.txt" ' system32, extensi file sobat tergantung pada sobat.

    Private Sub myWebClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles myWebClient.DownloadFileCompleted
        Try
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                MessageBox.Show("Download Sukses...!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
            End If
        Catch ex As Exception
        End Try
    End Sub

    Public Sub myWebClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles myWebClient.DownloadProgressChanged
        Try
            Dim dDownloadProgress As Decimal = CStr(e.BytesReceived / e.TotalBytesToReceive * 100)
            ProgressBar1.Value = CInt(dDownloadProgress)
            Dim dDownloadedMB As Decimal = Format((e.BytesReceived / 1024) / 1024, "##0.00")
            Dim dTotalToDownloadMB As Decimal = Format((e.TotalBytesToReceive / 1024) / 1024, "##0.00")
            Label1.Text = "Processing :  " & dDownloadedMB & "   Verfication_File  : " & dTotalToDownloadMB & " " _
            & Format(dDownloadProgress, "") & "%"
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckForLink()
        Try
            myWebClient = New Net.WebClient
            ProgressBar1.Value = 0
            myWebClient.DownloadFileAsync(New Uri(URL), Lokasi)
        Catch ex As Exception
        End Try
    End Sub

• Lalu kembali ke Form project, dan klik 2x pada Button1 dan pastekan kode berikut :

CheckForLink()

• Lalu save.

Sebelum sobat Play Debuger atau mencobanya, seperti yang sobat lihat di source code diatas, string yang saya beri warna merah silahkan sobat ganti dengan URL sobat, dan untuk directory nya file akan ter_rename mengikutin nama yang sobat inginkan, itu bisa sobat atur suka-suka sobat. Setelah sobat selesai mengedit URL dan nama file silahkan sobat klik Play Debuger ata mencobanya.

Bagaimana sobat, udah pahamkan..?

Cukup mudah bukan sob, sekarang silahkan kreasikan suka-suka kalian.

Selamat mencoba, semoga bermanfaat.