Pages

Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB.    Pada postingan sebelumnya telah membahas tentang cara memback up database menggunakan VB, pada kesempatan kali ini saya akan memposting cara Restore Database Ms Access Menggunakan VB.

Restore database adalah mengembalikan data yang telah di backup, karena suatu hal kita perlu merestorenya. Misalnya komputernya rusak dan databasenya hilang, jika sudah pernah di backup dan disimpan di tempat yang aman kita bisa merestorenya kembali data yang telah kita backup tersebut.

Restore database ini sangat penting untuk antisipasi sesuatu yang tidak diinginkan terhadap database yang kita miliki. Bagaimanakah membuat restore database menggunakan vb6?  Ikutilah langkah-langkah berikut ini :

  1. Buka VisualBasic 6 dan buatlah/desainlah sebuah form seperti gambar berikut ini

    Tampilkan Gambar



  2. Jika sudah selesai kita lanjutkan ke koding, tulislah koding berikut ini. Sebagai contoh di sini saya memakai nama database DB_MHS.mdb. Tulislah kode berikut ini dengan benar :

    Private Sub CmdPilih_Click()
        CommonDialog1.DialogTitle = "Pilih Database Backupannya"
        CommonDialog1.InitDir = "C:\"
        CommonDialog1.Filter = "SQL Files (*.mdb)|*.mdb"
        CommonDialog1.ShowOpen

        Label1.Caption = CommonDialog1.FileName
    End Sub

    Private Sub CmdKeluar_Click()
        Unload Me
    End Sub

    Private Sub CmdRestore_Click()
    If Label1.Caption = "" Then
        MsgBox "Klik Tombol 'Pilih File Backup' Dulu...!," & vbCrLf & "" _
             & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
        Exit Sub
    End If
    '------------------------
    On Error Resume Next
    Dim asal As String
    Dim Tuju As String
    Dim i As Integer
    Dim j As Integer
    Label2.Width = 0

        Tuju = App.Path
        asal = Label1.Caption
        Tuju = Tuju + "\DB_MHS.mdb"
        '------------------------
        CmdPilih.Enabled = False
        CmdRestore.Enabled = False
        CmdKeluar.Enabled = False
        Label2.Visible = True
        For i = 0 To 4800
            Label2.Width = i
            For j = 1 To 50: DoEvents: Next j
        Next i
        '------------------------
        FileCopy asal, Tuju
        DoEvents
        MsgBox "Restore Database Sukses....!", vbInformation, "Restore Data"
        '------------------------
        CmdPilih.Enabled = False
        CmdRestore.Enabled = False
        CmdKeluar.Enabled = True
        Label2.Visible = False
    End Sub

  3. Jika sudah simpanlah kemudian jalankan. Jika berhasil nampak seperti gambar berikut ini.

    Tampilkan Gambar




  4. Selesai. Cukup mudah bukan...? Jika anda menginginkan source codenya dan tidak ingin ribet nulis kodenya silahkan download di link di bawah ini. Tutorial ini berkaitan dengan tutorial sebelumnnya cara membuat backup database.








Tags:
Cara Restore Database dengan vb,restore database ms access dengan vb,restore database,tutorial cara restore database dengan vb6
Tags :

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB. Untuk menghindari kehilangan data karena sesuau hal yang tidak diinginkan misalnya windows rusak,database rusak dan lain sebagainnya lakukanlah secara rutin melakukan backup data. Jika kita kehilangan data setidaknya kita masih memiliki cadangan data yang nantinya bisa kita restore, sehingga tidak terlalu pusing karena karena masih punya cadangan data. Lakukanlah back up data minimal seminggu sekali jika mau silahkan setiap hari melakukan back up.

 Pada postingan sebelumnya cara membuat tool tip yang bisa berjalan untuk postingan ini akan membahas tentang cara membuat Backup Database Ms Access Menggunakan VB. Kita akan menggunakan fungsi Copy File untuk melakukan backup database ms access. Bagaimanakah caranya...? Ikutilah langkah-langkahnya sebagai berikut ini

  1.  Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :

    Tampilkan Gambar



  2. Jika sudah selesai mendesainnya selanjutnya tinggal nulis kodenya. Di sini saya memakai database dengan nama "DB_MHS.mdb". Tulislah koding berikut ini dengan benar :

    Option Explicit
    '----Fungsi API untuk browse folder
    Private Declare Function SHBrowseForFolder Lib _
        "shell32.dll" (bBrowse As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib _
        "shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
    '------------------------
    Private Type BrowseInfo
        hWndOwner As Long
        pidlRoot As Long
        sDisplayName As String
        sTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        lImage As Long
    End Type

    Private Function BrowseFolder() As String
        Dim Info As BrowseInfo
        Dim lngItem As Long
        Dim strDir As String
        'mengembalikan nama folder
        Info.ulFlags = 1
        lngItem = SHBrowseForFolder(Info)
        If lngItem Then
            strDir = Space$(260)
            If SHGetPathFromIDList(lngItem, strDir) Then
                'mendapatkan nama folder
                BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)
            Else
                BrowseFolder = vbNullString
            End If
        End If
    End Function

    '----Kode Tombol Pilih Folder
    Private Sub CmdPilih_Click()
        Label1.Caption = BrowseFolder
    End Sub

    '---Tombol Keluar
    Private Sub CmdKeluar_Click()
        Unload Me
    End Sub

    '---koding Tombol Backup---
    Private Sub CmdBackup_Click()
        If Label1.Caption = "" Then
            MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & "" _
                 & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
            Exit Sub
        End If
        '------------------------
        On Error Resume Next
        Dim asal As String
        Dim Tuju As String
        Dim i As Integer
        Dim j As Integer
        Label2.Width = 0
        '-----------------------
        asal = App.Path + "\DB_MHS.mdb"
        Tuju = Label1.Caption
        'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb
        Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"
        CmdPilih.Enabled = False
        CmdBackup.Enabled = False
        CmdKeluar.Enabled = False
        Label2.Visible = True
        For i = 0 To 4800
            Label2.Width = i
            For j = 1 To 50: DoEvents: Next j
        Next i
        '-Proses Copy File Database--------------
        FileCopy asal, Tuju
        DoEvents
        MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"
        '------------------------
        CmdPilih.Enabled = False
        CmdBackup.Enabled = False
        CmdKeluar.Enabled = True
        Label2.Visible = False
    End Sub

  3. Jika sudah selesai silahkan di simpan kemudian di run semoga berhasil. Jika berhasil tampilannya seperti gambar berikut ini

    Tampilkan Gambar




  4. Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. Pada postinga berikut nya saya akan membuat tutorial cara membuat Restore Database Ms Access dengan VB. Di tunggu y...

 



    Tags:
    Backup Database Ms Access Menggunakan VB, Backup database, Cara Backup database dengan vb,cara backup dan restore database
    Tags :

    Membuat Sebuah Tool Tips Bisa Berjalan

    Membuat Sebuah Tool Tips Bisa Berjalan.  Pernahkah anda melihat sebuah tool tip yang dapat berjalan pada sebuah aplikasi atau program.? Jika pernah bagimana Cara Membuat Sebuah Tool Tips Bisa Berjalan ?
    Pada kesempatan kali ini saya akan berbagi tips dan trik membuat sebuah tool tip yang bisa berjalan, pada setingan defaultnya sebuah tool tip itu tidak bisa berjalan alias diam dengan sedikit trik sebuah tool tips dapat berjalan sehingga aplikasi yang kita buat tambah menarik dan tidak membosankan.

    Sebernarnya caranya sangat mudah dan tidak begitu rumit kodingnya. Sebagai contoh kita akan membuat sebuah tool tip pada sebuah commandbutton. Siapkan sebuah form dan tambahkan sebuah commandbutton jika sudah klik commandbutton nya lalu cari di properties pada bagian bagian ToolTipText nya silahkan anda isi tool tipnya sesuai keinginan anda seperti gambar berikut ini.

    Tampilkan Gambar



    Jika sudah selanjutnya yaitu membuat koding. Buatlah sebuah Function Scrolling seperti berikut ini pada bagian general declarations

    Public Function Scrolling(ByVal obj As Object)
        Dim strText As String
        strText = obj.ToolTipText
        If Len(Trim$(strText)) <> 0 Then
            strText = (Right$(strText, _
            Len(strText) - 1)) & _
            Left$(strText, 1)
            obj.ToolTipText = strText
        End If
    End Function


    kemudian double klik lah commandbutton nya lalu tulislah koding berikut ini pada event mouse_move seperti berikut ini

    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Call Scrolling(Me.Command1)
    End Sub

    Untuk lebih jelasnya lihatlah gambar di bawah ini

    Tampilkan Gambar



    Jika sudah silahkan di running. jika berhasil maka jika kita menaruh cursor pada commandbutton maka muncul tool tipnya dan tool tipnya dapat berjalan atau bergerak dari kanan ke kiri. Seperti gambar berikut ini


    Trik ini dapat di terapkan pada komponen lain tidak hanya commandbutton misalnya kita terapkan pada datagrid,textbox, listbox dan lain sebaginnya. Semoga tutorial ini bermanfaat.





    Tags:
    Cara Membuat Sebuah Tool Tips Bisa Berjalan,Trik Tool Tip,cara mempercantik form dengan tool tip,tool tip bisa bergerak

    Tags :

    Cara Install VB 6 Di Windows 7 Supaya Tidak Error

    Cara Install VB 6 Di Windows 7 Supaya Tidak Error. Pernahkah anda mengalami kegagalan dalam melakukan instalasi visual basic 6.?? Ini adalah pengalaman saya waktu install vb 6 di windows 7. Begini ceritanya Saya melakukan installasi vb 6 di windows 7 berhasil, tapi setelah saya buka vb 6 nya ternyata ada sebagian komponen ocx atau dll tidak dapat di buka alias tidak bisa di register dengan sempurna. Setelah cari-cari di google akhirnya ketemu cara mengatasi hal tersebut. Yaitu sebelum melakukan install vb 6 di windows 7 matikan UAC nya.

    Bagaimanakah cara mematikan UAC nya???
    Silahkan lakukan langkah-langkah berikut ini supaya semua komponennya dapat teregister dengan sempurna. Berikut langkah-langkah mematikan UAC :


  1. Silahkan buka control panel


  2. Silahkan buka user accounts


  3. Klik Change User Account Control settings seperti gambar berikut ini


    4. Tampilkan Gambar




    1. Setelah di klik akan muncul jendela baru seperti gambar berikut ini, perhatikan tombol slidenya


      2. Tampilkan Gambar




    2. Geser slidenya sampai mentok ke bawah seperti nampak pada gambar berikut ini


      3. Tampilkan Gambar





    3. Kemudian restartlah komputer atau laptopnya untuk memberikan efek perubahan di User Accounts Control Setting



    4. Klik kanan pada SETUP.EXE dan pilih  Run As Administrator, maka akan muncul tulisan "On this and other Program Compatibility Assistant warnings", Klik saja "Run Program."
          - Klik Next.
          - Klik "I accept agreement" kemudian Next.
          - Masukan nama dan nama organisa/perusahaan anda(di isi sembarang) kemudia klik Next



    5.  Pilih Custom Setup terus klik Next.



    6. Klik Continue kemudian Ok. Tunggu kurang lebih 2 menit sampai ada pilihan sbb:
      •    Microsoft Visual Basic 6.0
      •    ActiveX
      •    Data Access
      •    Graphics
      Yang lainnya jangan dipilih dan klik saja Continue untuk melanjutkan langkah berikutnya.



    7.  Bila tidak memiliki CD MSDN jangan dicentang k install MSDN nya kemudian klik next dan akan muncul semacam pemberitahuan kekurangannya bila tidak menginstall MSDN, abaikan saja dengan klik Accept.



    8. Klik skip saja pada instalasi Installshield karena ini hanya pelengkap yang sudah sangat usang dan tidak diperlukan lagi.



    9. Klik next lagi untuk melewatkan instalasi Backoffice, VSS dan SNA Server karena tidak begitu penting dan sudah usang pula.



    10. Pada dialog selanjutnya lepaskan centangan "Register Now" dan klik Finish.



    11. Selesai. Silahkan jalankan VB6 anda pada Start>All Program>Microsoft Visual Studio 6


      Setelah itu anda instal Update Service Pack 6 (SP6) dan Update Cumulative SP6 untuk lebih menyempurnakan lagi VB6 anda. Jika ada masih penasaran , anda boleh jalankan setting compability seperti diatas untuk yang kedua kalinya. Selanjutnya HAPPY CODING !!!!

      Catatan:
      - Pada Windows 7 ada hal-hal yang sangat mengganggu kala menjalankan VB 6 ini diantaranya kita susah sekali menarik ulur ukuran form yang kita buat pada penampilan design form. Untuk mengatasi hali ini setelah proses instalasi anda berhasil rubahlah kompatibilitasnya pada IDE executable dengan cara:

      - Gunakan Windows Explorer cari dimana anda menginstall VB6. Biasanya terletak pada C:\Program Files\Microsoft Visual Studio\VB98\
        
      - Klik pakai mouse kanan pada VB6.exe dan pilih property-nya lalu klik pada Compatibility lalu centang semua ini:


        • Run this program in compatibility mode for Windows XP (Service Pack 3)
        • Disable Desktop Composition
        • Disable display scaling on high DPI settings

       Jika belum memiliki master vb6 silahkan download disini



      Tags:
       instalasi vb6 di win7, cara instal vb6 di win seven, vb6 tidak support windows7, vb6 error di windows 7, agar vb6 berjalan baik di windows7,Cara Install VB 6 Di Windows 7 Supaya Tidak Error
      Tags :

      Mengurutkan Data Pada MsFlexgrid

      Mengurutkan Data Pada MsFlexgrid. Pada kesempatan kali ini saya akan berbagi trik cara mengurutkan data yang ada dalam msflexgrid dengan cara double klik maupun klik header kolom msflexgrid yang ingin kita urutkan berdasarkan kolom tersebut. Pada postingan sebelumnya pernah membahas tentang msflexgrid warna selang seling.

      Jadi dengan sedikit trik ini kita dapat mengurutkan data hanya dengan double klik maupun klik header kolom msflexgrid maka datanya akan urut berdasarkan header kolom yang kita pilih. Anda tertarik? Pengen tahu cara Mengurutkan Data Pada MsFlexgrid? Ikutilah langkahnya.

      Tulislah kode berikut ini. jika ingin pengurutan datanya memakai double klik tulislah kode berikut pada event double dan jika menginginkan pada event klik silahkan tulislah kode ini pada event klik.

      Pada contoh ini saya tulis pada event double klik


      Private Sub MSFlexGrid1_DblClick()
         With MSFlexGrid1
              If .MouseRow = 0 Then
                 .Col = .MouseCol
                 .ColSel = .MouseCol
                  If sortedBy = flexSortGenericDescending Then
                     .Sort = flexSortGenericDescending
                     sortedBy = flexSortGenericDescending
                  Else
                      .Sort = flexSortGenericAscending
                      sortedBy = flexSortGenericAscending
                  End If
              End If
         End With
      End Sub
       
       
      jika sudah jangan lupa di simpan untuk mencobanya silahkan di jalankan. Moga berhasil 
      jika kurang jelas silahkan membrikan komentar...
       
       
       
      Tags:
      Mengurutkan Data Pada MsFlexgrid,Mengurutkan data,trik msflexgrid,pengurutan data,source code pengurutan data
      


      

      

      
Tags : 



      

      

      

      

      



      

      

      

      

            
      
          

          
      
        

          
      
        

      

      

      

      


      
Membuat Nomor Otomatis Dengan Format Tanggal

      

      


      Membuat Nomor Otomatis Dengan Format Tanggal. Pada postinga kali ini saya akan berbagi sebuah postingan tentang cara membuat nomor ototmatis dengan format tanggal, pada postingan sebelumnya pernah membahas cara membuat nomor ototmatis. 
      Maksud dari nomor otomatis dengan format tanggal adalah enam digit pertama terdiri dari 2 digit tahun 2 digit bulan 2 digit tanggal dan 3 digit terakhir merupakan no urut. Formatnya adalah yymmddxxx.
      Setiap tanggal system komputer kita ganti maka tiga digit terakhir akan dimulai dari 001 walaupun tadinya tiga digit terakhir tersebut sudah mencapai 891. Enam digit dari depan mengikuti tanggal system komputer yang kita pakai.

      Nomor otomatis seperti ini bisa kita gunakan untuk nomor transaksi pada program yang kita buat. Pada contoh kali ini saya akan membuat nim mahasiswa dengan format tanggal ini hanya contoh. silahkan diaplikasikan cara ini sesuai keinginan anda.

      Bagaimanakah cara Membuat Nomor Otomatis Dengan Format Tanggal..? Langkah-langkahnya sebagai berikut ini:

      Buatlah database dengan menggunakan ms access dengan nama DB_MHS dan buatlah tabel denngan nama Tbl_mhs seperti berikut ini

      Tampilkan Gambar



      Kemudian siapkan sebuah form tambahkan empat textbox, tiga commandbutton dan MsFlexgrid yang tampak seperti gambar berikut ini

      Tampilkan Gambar



      Jika sudah tambahkan sebuah modul lalu ketikan kode berikut ini. modul ini berfungsi untuk koneksi ke database

      Public Conn As New ADODB.Connection
      Public RsMhs As ADODB.Recordset

      Public Sub Buka()
          Set Conn = New ADODB.Connection
          Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
          Conn.CursorLocation = adUseClient
      End Sub

      Kemudian buatlah prosedur nomor otomatis, ketiklah kode berikut ini pada form yang telah kita buat tadi

      Private Sub AutoNumber()
          Call Buka
          Set RsMhs = New ADODB.Recordset
          RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
          RsMhs.Requery
          Dim Urut As String * 9
          Dim Hitung As Long
          With RsMhs
              If .EOF Then
                  Urut = Format(Date, "yymmdd") + "001"
              Else
                  If Left(!nim, 6) <> Format(Date, "yymmdd") Then
                      Urut = Format(Date, "yymmdd") + "001"
                  Else
                      Hitung = (!nim) + 1
                      Urut = Format(Date, "yymmdd") + Right("000" & Hitung, 3)
                  End If
              End If
              TxtNim.Text = Urut
          End With
      End Sub

      Jika sudah buatlah prosedur dengan nama AktifGrid yang berguna untuk mengatur msflexgrid kodenya seperti berikut ini

      Private Sub AktifGrid()
          With MSFlexGrid1
              .Cols = 5
              .RowHeightMin = 300

              .Col = 0
              .Row = 0
              .Text = "NO"
              .CellFontBold = True
              .ColWidth(0) = 400
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter

              .Col = 1
              .Row = 0
              .Text = "NIM"
              .CellFontBold = True
              .ColWidth(1) = 1200
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter

              .Col = 2
              .Row = 0
              .Text = "NAMA MAHASISWA"
              .CellFontBold = True
              .ColWidth(2) = 2500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter

              .Col = 3
              .Row = 0
              .Text = "ALAMAT"
              .CellFontBold = True
              .ColWidth(3) = 2500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter

              .Col = 4
              .Row = 0
              .Text = "JURUSAN"
              .CellFontBold = True
              .ColWidth(4) = 1500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
          End With
      End Sub

      Kemudian Buatlah prosedure dengan nama TampilGrid untuk menampilkan data ke msflexgrid 

      Sub TampilGrid()
          Dim Baris As String
          MSFlexGrid1.Clear
          Call AktifGrid

          MSFlexGrid1.Rows = 2
          Baris = 0
          Call Buka
          Set RsMhs = New ADODB.Recordset
          RsMhs.Open "SELECT * FROM Tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

          If RsMhs.BOF Then
              Exit Sub
          Else
              With RsMhs
                  .MoveFirst
                  Do While Not .EOF
                      Baris = Baris + 1
                      MSFlexGrid1.Rows = Baris + 1
                      MSFlexGrid1.TextMatrix(Baris, 0) = Baris
                      MSFlexGrid1.TextMatrix(Baris, 1) = !nim
                      MSFlexGrid1.TextMatrix(Baris, 2) = !nama
                      MSFlexGrid1.TextMatrix(Baris, 3) = !alamat
                      MSFlexGrid1.TextMatrix(Baris, 4) = !jurusan
                      .MoveNext
                  Loop
              End With
          End If
      End Sub

      Pada bagian form load tuliskan kode berikut ini

      Private Sub Form_Load()
          Call Buka
          Call TampilGrid
          
          TxtNim = ""
          TxtNama = ""
          TxtAlamat = ""
          TxtJurusan = ""

          TxtNim.Enabled = False
          TxtNama.Enabled = False
          TxtAlamat.Enabled = False
          TxtJurusan.Enabled = False

          CmdSave.Enabled = False
      End Sub

      Jika sudah silahkan double klik tombol new kemudian ketikan kode berikut ini

      Private Sub CmdNew_Click()
      '' //Memanggil prosedure penomoran otomatis
          Call AutoNumber
          '-----------
          TxtNama.Enabled = True
          TxtAlamat.Enabled = True
          TxtJurusan.Enabled = True

          CmdNew.Enabled = False
          CmdSave.Enabled = True

          TxtNama.SetFocus
      End Sub

      Kemudian tulislah kode untuk simpan data dengan cara double klik tombol save kemudian ketikan kode berikut ini

      Private Sub CmdSave_Click()
          If TxtNama = "" Or TxtAlamat = "" Or TxtJurusan = "" Then
              MsgBox "Ada Data Yang Belum Diisi...!," & vbCrLf & "" _
                   & "Mohon Data Dilengkapi Dulu", vbCritical, "Peringatan"
              Exit Sub
          Else
              Dim SqlAdd As String
              SqlAdd = "INSERT INTO Tbl_mhs(nim,nama,alamat,jurusan)values" _
                     & "('" & TxtNim & "','" & TxtNama & "','" & TxtAlamat & "','" & TxtJurusan & "')"
              Conn.Execute (SqlAdd)
          End If
          Call TampilGrid

          TxtNim = ""
          TxtNama = ""
          TxtAlamat = ""
          TxtJurusan = ""

          TxtNama.Enabled = False
          TxtAlamat.Enabled = False
          TxtJurusan.Enabled = False

          CmdSave.Enabled = False
          CmdNew.Enabled = True
      End Sub

      Jika sudah semua silahkan di run. jika berhasil maka akan tampak seperti gambar berikut ini

      Tampilkan Gambar





      Jika anda tidak ingin ribet silahkan download source codenya di link berikut. semoga dapat bermanfaat





      Tag:
      auto number,cara membuat nomor otomatis,cara membuat nomor otomatis dengan format tanggal,nomor otomatis di vb 6,cara mudah membuat nomor otomatis di vb

      


      

      

      
Tags : 



      

      

      

      

      



      

      

      

      

            
      
          

          
      
        

          
      
        

      

      

      

      


      
Cara Download Di Blog Ini

      

      


      Seiring bergulirnya waktu, kini Tusfiles.net telah berganti theme/  tema/ template/ bungkus/ tampilan. TusFiles yang kita kenal adalah  tempat berbagi file gratis yang sudah populer di kalangan pengunduh di  seluruh dunia, salah satu yang terbesarnya adalah dari Indonesia. 
      Banyak juga yang kebingunan untuk mengunduh ketika mereka dihadapkan  dengan tampilan baru TusFiles V3. Tapi bila anda selalu paham dan cermat  dalam hal membaca trik jebakan iklan, hal kebingungan itu harusnya  tidak terjadi.
      Beberapa yang masih tetap ada dan mungkin akan selalu ada pada TusFiles adalah ceklis untuk menginstall Downloader,  tombol sesungguhnya masih menggunakan bentuk yang kecil, iklan pop-up  yang pastinya sudah siap muncul ketika kita menyentuh link di sana.
       Cara download di blog ini caranya sebagai beriku ini: setelah anda melakukan klik download maka akan muccul jendela baru kemudian tungggu lah 5 detik maka akan muncul tulisan Ads Skip pada pojok kanan atas klik lah tulisan tersebut maka akan di arahkan ke situs tusfiles berikut cara download source codenya dari situs tusfiles:
      1. Asumsikan anda sudah masuk di halaman unduh file yang anda maksud, misal dengan url tusfiles.net/abc123kfj

      2. Langkah yang pertama yang harus anda lakukan adalah menghilangkan  ceklis atau centang di bagian bawah halaman yang bertuliskan "Use our  download manager.."
      Tusfiles New
      Tusfiles New
      3. Tombol Download sesungguhnya seperti biasa, bukanlah yang  besar maupun yang menonjol. Link unduh sebenarnya adalah yang  bertuliskan nama file yang akan anda unduh seperti gambar no 2 di atas.
      Selamat mencoba dan semoga bermanfaat.
      


      

      

      
Tags : 


      

      

      

      

      



      

      

      

      

        
      
      


      


      

      

      

      



       
      

      


      


      

      
Copyright  © 2011 by BIRAWA.All Rights Reserved.
       Designed by  JogRunRace  Thanks to  Buy hCG  | the hCG Diet  |  online casino  | http://online-casino.eu.com