QR Code Maker

Yang belum tau QR Code silahkan baca ini http://translate.google.com/translate?hl=id&sl=en&u=http://en.wikipedia.org/wiki/QR_code&prev=/search%3Fq%3Dqr%2Bcode%26client%3Dfirefox-a%26hs%3DT1p%26rls%3DPalemoon:en-US:official

Yang udah tau, project ini adalah tentang memanfaatkan sebuah ActiveX control yaitu qrmaker.ocx untuk menampilkan qr code dr kode-kode yang kita masukkan.

Contoh :

Project lengkap + ActiveX Control silahkan download disini http://www.4shared.com/archive/Jk-rCOpq/QRMaker.html

Mudah-mudahan bermanfaat.

Mengubah Bentuk Form Sesuai Bentuk Image

Project ini akan mengajarkan bagaimana mengubah bentuk form vb6 tidak lagi kotak, tapi akan menyesuaikan dengan bentuk image yang di pakai sebagai background.

Contoh hasil :

Project lengkap silahkan download disini http://www.4shared.com/archive/Ore4Zo51/form_shape.html
Mudah-mudahan bermanfaat.

Google Map Lewat VB6

Mau tahu cara pemakaian Google Map lewat koding VB6, langsung download dan pelajari semua
disini http://www.4shared.com/archive/Q1qi9sD4/google_map.html

Project ini akan mengajarkan bagaimana menavigasi Google Map dari VB6.
Mudah-mudahan bermanfaat.

Mengubah Regional Setting

Project ini sebenarnya merupakan tool kecil untuk merubah regional setting ke format Indonesia. Cukup efektif untuk mereset Regional Setting kembali ke format Indonesia setelah di rubah oleh aplikasi lain seperti KingSoft Office.

Untuk projectnya langsung aja download disini http://www.4shared.com/archive/Jnvadq7j/Regional_Settings.html

Mudah-mudahan bermanfaat.

Mencari Bilangan Prima

Untuk mencari bilangan prima di dalam range tertentu, buat form baru, tambahkan beberapa komponen yang diperlukan, kemudian ketik kode berikut :

Private Sub Command1_Click()
    Dim K, L, M As Integer
    List1.Clear
    For K = Val(Text1.Text) To Val(Text2.Text) Step 2
        L = K \ 2
        For M = 3 To L Step 2
            If K Mod M = 0 Then GoTo next_k
    Next M
    List1.AddItem K & " "
    next_k: Next K
    Label3.Caption = "Jumlah suku = " & List1.ListCount
End Sub

Selesai.

Project silahkan download disini http://www.4shared.com/archive/V7BIcaal/Prima1.html

Buka Tutup DVD Tray Dengan Visual basic 6

Ketik kode berikut di General Declaration

Option Explicit
Dim hasil

 Public   Declare   Function   mciSendString   Lib   "winmm.dll    Alias  & _
"mciSendStringA           (ByVal    lpstrCommand     As     String,     ByVal  & _
 lpstrReturnString   As   String,   ByVal   uReturnLength   As   Long,   ByVal  & _
hwndCallback As Long) As Long

ketik kode berikut di form load

hasil = mciSendString("close all", 0, 0, hWnd)
hasil = mciSendString("open  cdaudio alias  cd wait  shareable",  0,  0,  hWnd)

Buat tombol untuk buka dvd drive, ketik kode berikut :

 hasil = mciSendString("set cd door open", 0, 0, hWnd)

Buat tombol untuk tutup dvd drive, ketik kode berikut

 hasil = mciSendString("set cd door closed", 0, 0, hWnd)

Selesai.

Project silahkan download disini http://www.4shared.com/archive/R-aDsToF/cd-drive2.html