Pages

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 :


  • Silahkan buka control panel


  • Silahkan buka user accounts


  • Klik Change User Account Control settings seperti gambar berikut ini


    • 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 : 


      

      

      

      

      



      

      

      

      

      

      

      

      


      
Enkripsi Tabel Ms Access Menggunakan Visual Basic

      

      


      Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

      Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

      Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.
      Tampilkan Gambar



      Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

      Tampilkan Gambar


      Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

      Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

      Public Conn As New ADODB.Connection
      Public RsUser As ADODB.Recordset
      Public sNama As String
      Public sPassword As String

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

      Ketikan kode ini pada text1 sebagi inputan nama

      Private Sub Text1_KeyPress(KeyAscii As Integer)
          If KeyAscii <> 13 Then
              'untuk mengubah huruf kecil menjadi besar
              KeyAscii = Asc(UCase(Chr(KeyAscii)))
              'enkripsi dengan menambah karakter keyascii 29 karakter
              sNama = sNama & Chr(KeyAscii + 29)
          End If
      End Sub

      Lalu ketikan kode di bawah ini pada Text2

      Private Sub Text2_KeyPress(KeyAscii As Integer)
          If KeyAscii <> 13 Then
              'untuk mengubah huruf kecil menjadi besar
              KeyAscii = Asc(UCase(Chr(KeyAscii)))
              'enkripsi dengan menambah karakter keyascii 45 karakter
              sPassword = sPassword & Chr(KeyAscii + 45)
          End If
      End Sub

      Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

      Private Sub Command1_Click()
          Call Buka
          If Text2.Text <> Text3.Text Then
              pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
              Exit Sub
          Else
              Dim SQLAdd As String
              SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
              Conn.Execute SQLAdd
              MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
          End If
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
      End Sub

      Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

      Tampilkan Gambar



      Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.





      Tags:
      Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic,Enkripsi MD5,database,Pengamanan database,Password Login,enkripsi tabel,enkripsi database


      


      

      

      
Tags : 



      

      

      

      

      



      

      

      

      

            
      
          

          
      
        

          
      
        

      

      

      

      


      
5 Smartphone Apps That helps You Procrastinate Big Time

      

      



      Procrastination is the act of postponing what one needs to be doing at a present time to a later time usually needlessly. Will all are guilty of procrastination at one point in time and the emergence of smartphones makes this even easy to do so don t act like you are a saint. However, there are certain apps on our smartphones that makes us even more guilty and this apps are outlined below. 1. Candy Crush Saga Mehn, this game which is available for PC Android and iOS devices and can be very addictive; if you one isn t careful, getting hooked is a piece of cake. Imagine getting to the lobby of a big company and the receptionist seemed so busy on the computer, people even queuing up only to find the lady trying to get pass stage number 35 in candy crush game through Facebook. Someone might get hurt.
      http://www.smart-andro.com/5-smartphone-apps-that-helps-you-procrastinate-big-time/
      


      

      

      
Tags : 

      

      

      

      

      



      

      

      

      

      

      

      

      


      
iH8sn0w Confirms Untethered iOS 7.1 Jailbreak

      

      



      Just recently, @winocm tweeted that he was able to untethered jailbreak his iPhone 4 running Apple s newest iOS 7.1 firmware. In similar fashion, @iH8sn0w announced through hi tweeter account that his iPhone 4S running iOS 7.1 now has untethered jailbreak running on it. It was believed earlier that
      http://www.smart-andro.com/ih8sn0w-confirms-untethered-ios-7-1-jailbreak/
      


      

      

      
Tags : 

      

      

      

      

      



      

      

      

      

            
      
          

          
      
        

          
      
        

      

      

      

      


      
Automatic Bra That Can Only Be Opened By True Love

      

      



      Smartphone apps pop here and there all the time, some are terrible and some are good but some are very hilarious especially when you think of the concept and what it does.You would really laugh while reading this especially seeing the video of how it works here. Usually bra is just bra, with hooks for the females to clip to safely strap the bra to protect and hide their chest. But, this bra is different, its an automatic bra that doesn t electronic hook. The bra works by measuring the wearer’s heart rate, and sending the reading to an iPhone app. The app then determines the true-love quotient (100%) and – if it is reached – pops the clasp, freeing the breasts within. And of course, a raised heart rate is the perfect error-free metric for determining whether to unclasp a boulder holder. Let’s imagine some other situations. Running a marathon? Don’t run too hard, or your support will be magically ejected. Running from a suspicious man in an underground car-park, then fumbling
      http://www.smart-andro.com/automatic-bra-that-can-only-be-opened-by-true-love/
      


      

      

      
Tags : 

      

      

      

      

      



      

      

      

      

      

      

      

      


      
Blackberry Vows To Prosecute Leakers of Its products

      

      



      New developments coming from the BlackBerry company, specifically from John Chen, CEO of BlackBerry is that there will be a strong crackdown on those personnel or individual that is responsible for leaking company s confidential information.
      http://www.smart-andro.com/blackberry-vows-to-prosecute-leakers-of-its-products/
      


      

      

      
Tags : 

      

      

      

      

      



      

      

      

      

            
      
          

          
      
        

          
      
        

      

      

      

      


      
LG G3 akan gunakan layar setara monitor PC?

      

      




      

      

      
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