Membuat Screenshot / screen capture menggunakan visual basic 6

Untuk Membuat Screenshot / screen capture menggunakan visual basic 6 cukup membutuhkan kejelian dan sedikit skill image properties dan picturebox properties, tapi saya akan mencoba mempermudah dalam Membuat Screenshot / screen capture menggunakan visual basic 6 ini dengan cara buatlah satu form dengan komponen-komponen sebagai berikut:

• 6 button
• 1 picturebox

Untuk lebih jelasnya lihat gambar dibawah:

 

Lalu buatlah sau module dan masukkan kode dibawah ini:

Option Explicit
Option Base 0
Private Type PALETTEENTRY
    peRed   As Byte
    peGreen As Byte
    peBlue  As Byte
    peFlags As Byte
End Type

Private Type LOGPALETTE
    palVersion       As Integer
    palNumEntries    As Integer
    palPalEntry(255) As PALETTEENTRY
End Type
        
Private Type GUID
    Data1    As Long
    Data2    As Integer
    Data3    As Integer
    Data4(7) As Byte
End Type

Private Type RECT
    Left   As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type

Private Type PicBmp
    Size As Long
    Type As Long
    hBmp As Long
    hPal As Long
    Reserved As Long
End Type

Private Const RASTERCAPS As Long = 38
Private Const RC_PALETTE As Long = &H100
Private Const SIZEPALETTE As Long = 104

Private Declare Function CreateCompatibleBitmap Lib "GDI32" ( _
    ByVal hDC As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long) As Long


Private Declare Function GetDeviceCaps Lib "GDI32" ( _
    ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long


Private Declare Function GetSystemPaletteEntries Lib "GDI32" ( _
    ByVal hDC As Long, ByVal wStartIndex As Long, _
    ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) _
    As Long


Private Declare Function CreateCompatibleDC Lib "GDI32" ( _
    ByVal hDC As Long) As Long


Private Declare Function CreatePalette Lib "GDI32" ( _
    lpLogPalette As LOGPALETTE) As Long


Private Declare Function SelectPalette Lib "GDI32" ( _
    ByVal hDC As Long, ByVal hPalette As Long, _
    ByVal bForceBackground As Long) As Long


Private Declare Function RealizePalette Lib "GDI32" ( _
    ByVal hDC As Long) As Long


Private Declare Function SelectObject Lib "GDI32" ( _
    ByVal hDC As Long, ByVal hObject As Long) As Long


Private Declare Function BitBlt Lib "GDI32" ( _
    ByVal hDCDest As Long, ByVal XDest As Long, _
    ByVal YDest As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hDCSrc As Long, _
    ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) _
    As Long


Private Declare Function GetWindowDC Lib "USER32" ( _
    ByVal hWnd As Long) As Long

Private Declare Function GetDC Lib "USER32" ( _
    ByVal hWnd As Long) As Long


Private Declare Function ReleaseDC Lib "USER32" ( _
    ByVal hWnd As Long, ByVal hDC As Long) As Long


Private Declare Function DeleteDC Lib "GDI32" ( _
    ByVal hDC As Long) As Long


Private Declare Function GetWindowRect Lib "USER32" ( _
    ByVal hWnd As Long, lpRect As RECT) As Long


Private Declare Function GetDesktopWindow Lib "USER32" () As Long


Private Declare Function GetForegroundWindow Lib "USER32" () As Long


Private Declare Function OleCreatePictureIndirect _
    Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, _
    ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Public Function CreateBitmapPicture(ByVal hBmp As Long, _
        ByVal hPal As Long) As Picture

Dim r   As Long
Dim Pic As PicBmp

Dim IPic          As IPicture
Dim IID_IDispatch As GUID

With IID_IDispatch
    .Data1 = &H20400
    .Data4(0) = &HC0
    .Data4(7) = &H46
End With

With Pic
    .Size = Len(Pic)
    .Type = vbPicTypeBitmap
    .hBmp = hBmp
    .hPal = hPal
End With

r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)

Set CreateBitmapPicture = IPic
End Function




Public Function CaptureWindow(ByVal hWndSrc As Long, _
    ByVal bClient As Boolean, ByVal LeftSrc As Long, _
    ByVal TopSrc As Long, ByVal WidthSrc As Long, _
    ByVal HeightSrc As Long) As Picture

Dim hDCMemory       As Long
Dim hBmp            As Long
Dim hBmpPrev        As Long
Dim r               As Long
Dim hDCSrc          As Long
Dim hPal            As Long
Dim hPalPrev        As Long
Dim RasterCapsScrn  As Long
Dim HasPaletteScrn  As Long
Dim PaletteSizeScrn As Long
Dim LogPal          As LOGPALETTE

If bClient Then
    hDCSrc = GetDC(hWndSrc)
Else
    hDCSrc = GetWindowDC(hWndSrc)
End If

hDCMemory = CreateCompatibleDC(hDCSrc)

hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
hBmpPrev = SelectObject(hDCMemory, hBmp)

RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)   'Raster capabilities
HasPaletteScrn = RasterCapsScrn And RC_PALETTE       'Palette support
PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) 'Palette size

If HasPaletteScrn And (PaletteSizeScrn = 256) Then

    LogPal.palVersion = &H300
    LogPal.palNumEntries = 256
    r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
    hPal = CreatePalette(LogPal)

    hPalPrev = SelectPalette(hDCMemory, hPal, 0)
    r = RealizePalette(hDCMemory)
End If

r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, _
    LeftSrc, TopSrc, vbSrcCopy)

hBmp = SelectObject(hDCMemory, hBmpPrev)

If HasPaletteScrn And (PaletteSizeScrn = 256) Then
    hPal = SelectPalette(hDCMemory, hPalPrev, 0)
End If

r = DeleteDC(hDCMemory)
r = ReleaseDC(hWndSrc, hDCSrc)

Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)
End Function

Public Function CaptureScreen() As Picture
Dim hWndScreen As Long

hWndScreen = GetDesktopWindow()

With Screen
    Set CaptureScreen = CaptureWindow(hWndScreen, False, 0, 0, _
            .Width \ .TwipsPerPixelX, .Height \ .TwipsPerPixelY)
End With
End Function

Public Function CaptureForm(frm As Form) As Picture

With frm
    Set CaptureForm = CaptureWindow(.hWnd, False, 0, 0, _
            .ScaleX(.Width, vbTwips, vbPixels), _
            .ScaleY(.Height, vbTwips, vbPixels))
End With
End Function

Public Function CaptureClient(frm As Form) As Picture

With frm
    Set CaptureClient = CaptureWindow(.hWnd, True, 0, 0, _
            .ScaleX(.ScaleWidth, .ScaleMode, vbPixels), _
            .ScaleY(.ScaleHeight, .ScaleMode, vbPixels))
End With
End Function

Public Function CaptureFreeArea(frm As Form, numTop, numLeft, numHeigth, numWidth) As Picture

With frm
  
    Set CaptureFreeArea = CaptureWindow(.hWnd, True, numTop, numLeft, _
            .ScaleX(numWidth, .ScaleMode, vbPixels), _
            .ScaleY(numHeigth, .ScaleMode, vbPixels))
End With
End Function

Public Function CaptureActiveWindow() As Picture
Dim hWndActive As Long
Dim RectActive As RECT

hWndActive = GetForegroundWindow()
Call GetWindowRect(hWndActive, RectActive)

With RectActive
    Set CaptureActiveWindow = CaptureWindow(hWndActive, False, 0, 0, _
            .Right - .Left, .Bottom - .Top)
End With
End Function

Public Sub PrintPictureToFitPage(Prn As Printer, Pic As Picture)

Dim PicRatio     As Double
Dim PrnWidth     As Double
Dim PrnHeight    As Double
Dim PrnRatio     As Double
Dim PrnPicWidth  As Double
Dim PrnPicHeight As Double
Const vbHiMetric As Integer = 8

If Pic.Height >= Pic.Width Then
    Prn.Orientation = vbPRORPortrait
Else
    Prn.Orientation = vbPRORLandscape
End If

PicRatio = Pic.Width / Pic.Height

With Prn
    PrnWidth = .ScaleX(.ScaleWidth, .ScaleMode, vbHiMetric)
    PrnHeight = .ScaleY(.ScaleHeight, .ScaleMode, vbHiMetric)
End With

PrnRatio = PrnWidth / PrnHeight

If PicRatio >= PrnRatio Then

    PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode)
    PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode)
Else

    PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode)
    PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode)
End If

Call Prn.PaintPicture(Pic, 0, 0, PrnPicWidth, PrnPicHeight)
End Sub

Setelah dibuat module dengan kode diatas kemudian klik 2 kali form yang sudah didesign seperti gambar diatas, hapus semua kode dan masukkan kode dibawah ini:

Option Explicit

Private Sub cmdScreen_Click()
Set Picture1.Picture = CaptureScreen()
End Sub


Private Sub cmdForm_Click()
Set Picture1.Picture = CaptureForm(Me)
End Sub


Private Sub cmdClient_Click()

Set Picture1.Picture = CaptureFreeArea(Me, 0, 0, 10000, 10000)

End Sub


Private Sub cmdActive_Click()
Dim EndTime As Date
MsgBox "Two seconds after you close this dialog " & _
       "the active window will be captured.", _
       vbInformation, "Capture Active Window"

EndTime = DateAdd("s", 2, Now)
Do Until Now > EndTime
    DoEvents
Loop

Set Picture1.Picture = CaptureActiveWindow()
Me.SetFocus
End Sub


Private Sub cmdPrint_Click()
Call PrintPictureToFitPage(Printer, Picture1.Picture)
Printer.EndDoc
End Sub


Private Sub cmdClear_Click()
Set Picture1.Picture = Nothing
End Sub


Private Sub Form_Load()

Picture1.AutoSize = True
End Sub


Private Sub Form_Unload(Cancel As Integer)
Set Form1 = Nothing
End Sub


Selanjunya tinggal make Project Exe saja dan program sudah bisa dijalankan.

 

 

Read more

Cara memasang icon pada visual basic 6

Banyak sekali orang yang bingung tentang Cara memasang icon pada visual basic 6 karena tidak semua file .ico support untuk dimasukkan pada vb6, ada beberapa persyaratan untuk icon visual basic 6 yaitu:

• File icon jangan lebih dari 100kb
• Ukuran icon harus standard biasanya icon yang dibuat melalui online tidak support

Setelah 2 syarat tadi terpenuhi lihat gambar dibawah ini:

Ukuran icon lebih dari 100kb maka jika diklik ok akan keluar error seperti gambar dibawah ini:

Lalu lihat gambar dibawah ini:

Ukuran icon hanya 2.18kb maka jika diklik akan berhasil menjadi icon form lihat gambar dibawah :

Tapi ketika form di make project1.exe icon pada folder masih tetap menggunakan icon default dari visual basic 6 bagaimana cara mengatasinya? untuk mengatasi permasalahan yang sangat sederhana ini cukup klik kanan Project1.vbp dibagian kanan atas-->Project1 Properties-->Make --> icon--> pilih form1.

Read more

Video Tutorial visual basic 6 dan visual basic 2008

Bagi anda yang menginginkan Video Tutorial visual basic 6 dan visual basic 2008 dari berbagai macam jenis aplikasi yang dibuat oleh saya dapat dilihat di channel youtube saya, video tutorial ini dibuat untuk mempermudah anda dalam mempelajari bahasa pemprograman visual basic baik visual basic 6 ataupun versi yang setelahnya.

Dalam Video Tutorial visual basic 6 dan visual basic 2008 yang saya buat mungkin belum pernah ada yang mempublish meskipun dengan judul yang sama saya yakin kode yang saya gunakan tidak sama dengan yang lain, Video Tutorial visual basic 6 dan visual basic 2008 yang saya masukkan ke youtube akan selalu update sehingga anda tidak kebingungan lagi ketika mencari pelajaran tentang pemprograman menggunakan visual basic.

Video Tutorial visual basic 6 dan visual basic 2008 yang pertama kali di upload adalah tutorial database ms access dengan visual basic 6 ketika database sudah selesai selanjutnya adalah pemprograman lain yang menggunakan visual basic 6 baik yang berhubungan dengan database ataupun yang tidak menggunakan database.

Anda dapat melihat semua video tutorial saya di channel saya yang di youtube yaitu http://www.youtube.com/user/ArtikelVisualBasic/videos
Copy link diatas dan pastekan pada browser kesayangan anda dan make bookmark jika memang anda benar-benar membutuhkan tutorial tentang visual basic, karena saya akan mencoba menerangkan visual basic secara gamblang dan terbuka tanpa ada yang ditutup-tutupi.

Read more

Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 bagian kedua

Pada artikel sebelumnya lebih di tekankan kepada inserting dan selecting data pada artikel selanjutnya yaitu dibagian kedua yaitu Update dan Deleting data dalam Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 bagian kedua ini sehingga lengkap sudah dalam mempelajari syntax sql dalam visual basic 6.

Selanjutnya setelah Form1 jadi kemudian tambahkan menu button dengan caption "Pinjam/Kembali" klik 2 kali dan masukkan kode Form2.Show lalu buatlah form2 dan form3 dalam form2 gunakan beberapa komponen lihat gambar dibawah:

Lalu pada databasenya tambahkan Table Pinjam dengan kolom : Nama,  Alamat, KTP, Jbuku, Jumlah, Jenis, Tanggal dan Kode seperti gambar dibawah:

Setelah itu pada form3 masukkan komponen-komponen: 1 label dan 1 listview dengan Header Column

• Nama Peminjam
• Alamat Peminjam
• KTP Peminjam
• Judul Buku 
• Jumlah
• Jenis
• Tanggal
• Harga
• Kode

Lihat gambar dibawah:

 

Selanjutnya pada form2 klik dua kali hapus semua kode yang ada dan masukkan kode dibawah:

Private Sub Combo2_DropDown()
Label10 = Combo2.Text
If Combo1.Text = "Kembali" Then
Label11.Visible = False
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam where Kode Like '%" & Combo2.Text & "%' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Text5 = rs!Jumlah
Text7 = rs!Harga
Call klop
Set rs = Nothing
ElseIf Combo1.Text = "Pinjam" Then
Label11.Visible = True
Label10 = Combo2.Text
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Text7 = rs!Harga
Set rs = Nothing
Else
End If
End Sub

Sub klop()
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Label10 & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Set rs = Nothing
End Sub
Private Sub Command1_Click()
If Combo1.Text = "Pinjam" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nama = Text1.Text
rs!Alamat = Text2.Text
rs!KTP = Text3.Text
rs!Jbuku = Label9
rs!Jumlah = Text5.Text
rs!Jenis = Combo1.Text
rs!Tanggal = Text6.Text
rs!Harga = Label11.Caption
rs!Kode = Combo2.Text
rs.Update
MsgBox "Data masuk"
Call kurang
Module1.lihat
Set rs = Nothing
ElseIf Combo1.Text = "Kembali" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nama = Text1.Text
rs!Alamat = Text2.Text
rs!KTP = Text3.Text
rs!Jbuku = Label9
rs!Jumlah = Text5.Text
rs!Jenis = Combo1.Text
rs!Tanggal = Text6.Text
rs!Harga = Text7
rs!Kode = Combo2.Text
rs.Update
MsgBox "Data masuk"
Call tambah
Call hapus
Module1.lihat
Set rs = Nothing
ElseIf Combo1.Text = "" Then
MsgBox "Pilih jenis dahulu"

End If
End Sub

Private Sub Command2_Click()
Form3.Caption = "Laporan Data Lengkap Pinjam & Kembali"
Dim str As String
str = "select * from Pinjam"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show

End Sub

Private Sub Command3_Click()
Form3.Caption = "Laporan Data Lengkap Pinjam"
Dim str As String
str = "select * from Pinjam where Jenis='Pinjam'"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show
End Sub

Private Sub Command4_Click()
Form3.Caption = "Laporan Data Lengkap Kembali"
Dim str As String
str = "select * from Pinjam where Jenis='Kembali'"
Set rs = cn.Execute(str)
Form3.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form3.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Alamat
Item.SubItems(2) = rs!KTP
Item.SubItems(3) = rs!Jbuku
Item.SubItems(4) = rs!Jumlah
Item.SubItems(5) = rs!Jenis
Item.SubItems(6) = rs!Tanggal
Item.SubItems(7) = rs!Harga
Item.SubItems(8) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing
Form3.Show
End Sub

Private Sub Command5_Click()
Form3.Caption = "Laporan Keuangan dari buku yang di kembalikan"
Set rs = New ADODB.Recordset
rs.Open "select sum(Harga) as tot from Pinjam where Jenis='Kembali'", cn, adOpenKeyset, adLockOptimistic
Form3.Label1 = "Rp. " & FormatNumber(rs!tot)
rs.Close
Set rs = Nothing
Form3.Show
End Sub

Private Sub Form_Load()
Text6 = Date
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku ", cn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combo2.AddItem (rs!Kode)
rs.MoveNext
Loop
Set rs = Nothing
End Sub

Sub kurang()
Dim str As String
Set rs = New ADODB.Recordset
str = "Update Dbuku set Jumlah=(Jumlah-" & Text5 & ") where Kode='" & Combo2.Text & "'"
Set rs = cn.Execute(str)
Set rs = Nothing
End Sub

Sub luk()
Dim judul As String
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku where Kode='" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
Label9 = rs!Nbuku
Set rs = Nothing
End Sub

Sub tambah()
Dim str As String
Set rs = New ADODB.Recordset
str = "Update Dbuku set Jumlah=(Jumlah+" & Text5 & ") where Kode='" & Combo2.Text & "'"
Set rs = cn.Execute(str)
Set rs = Nothing
End Sub

Sub hapus()
Set rs = New ADODB.Recordset
rs.Open "DELETE from Pinjam where nama='" & Text1 & "' and Kode='" & Combo2.Text & "' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Set rs = Nothing
End Sub

Private Sub Text1_LostFocus()
If Combo1.Text = "Kembali" Then
Set rs = New ADODB.Recordset
rs.Open "select * from Pinjam where Nama Like '%" & Text1 & "%' and Jenis='Pinjam'", cn, adOpenKeyset, adLockOptimistic
Text2 = rs!Alamat
Text3 = rs!KTP
Combo2.Clear
Do While Not rs.EOF
Combo2.AddItem (rs!Kode)
rs.MoveNext
Loop
Set rs = Nothing
Else
End If
End Sub

Private Sub Text4_Change()
Call luk
End Sub



Private Sub Text5_Change()
If Not Text5 = "" And Not Text7 = "" Then
Label11 = Text5 * Text7
Else
End If
End Sub

Logika dari kode diatas adalah jika combo1.text="Pinjam" maka secara otomatis combo2.list bertambah sesuai dengan data buku yang sudah di insert dan ketika combo2.list dipilih salah satunya maka akan keluar Harga dari kode buku yang sudah dipilih lalu ketika cutton Masukkan diklik otomatis jumlah buku berkurang dan jika Combo1.text="Kembali" maka ketika text1 diketikkan nama peminjam lalu pointer dipindah ke text2 maka secara otomatis pada text2 dan text3 akan mengeluarkan data alamat dan KTP peminjam dan pada Combo2.list akan memunculkan buku apa saja yang sedang dipinjam, lalu jika Combo2.list dipilih salah satu kode buku yang dipinjam
label9.caption akan memunculkan Judul buku dan label10.Caption akan memunculkan kode buku, jumlah otomatis akan sesuai dengan jumlah yang dipinjam dan harga akan otomatis muncul.

Read more

Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 bagian pertama

Untuk Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 akan saya terangkan dengan menggunakan artikel episode karena saking banyaknya kode yang akan digunakan sehingga membutuhkan banyak sekali artikel yang bersambung dan disini saya akan menerangkan dari awal hingga akhir pembuatan program Perpustakaan menggunakan visual basic 6 dengan database menggunakan microsoft access 2007.

Membuat program perpustakaan cukup rumit sehingga membutuhkan ketelitian yang sangat besar sekarang saya akan memulai pembuatan program perpustakaan menggunakan visual basic 6, untuk pertama kali saya akan membuat form untuk insert data buku kedalam database kali ini saya taruh di form1, komponen yang saya gunakan adalah 4 label, 4 text, 2 button dan 1 listview dengan header column Nama buku, Jumlah, Harga/1 dan Kode lihat gambar dibawah:

 

Kemudian buatlah database menggunakan Microsoft Access 2007 dengan table pertama dbuku dan 5 kolom yaitu ID,NBuku,Harga,Jumlah dan Kode lihat gambar dibawah ini:

 a. Insert data ke database

 

Setelah itu simpan database yang sudah dibuat seforlder dengan project yang sedang dalam proses pembuatan dengan nama perpus.accdb, setelah database sudah dibuat kembali lagi ke visual basic 6 simpan dahulu project yang dalam proses kedalam folder yang sama dimana database disimpan lalu klik Project-->Preference-->Microsoft ActiveX Data Object 6.0 Library->OK dan buatlah 1 module pada project visual basic, masukkan kode dibawah:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "provider = microsoft.ace.oledb.12.0; data source= " & App.Path & "\perpus.accdb;Persist Security Info=False"
cn.Open
Form1.Show
End Sub

Sub lihat()
Dim str As String
str = "select * from Dbuku"
Set rs = cn.Execute(str)
Form1.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form1.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Jumlah
Item.SubItems(2) = rs!Harga
Item.SubItems(3) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Selanjutnya klik kanan pada Project1(Project1.vbp) yang berada disebelah kanan atas pilih Project1 properties Start Up Object pilih Sub main, sebelum berlanjut ke tahap insert data ke database coba run dahulu, kalau form1 terbuka itu menandakan sodah connect kedatabase.

Jika form1 sudah terbuka kemudian klik 2 kali form1 hapus semua kode yang ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nbuku = Text1.Text
rs!Jumlah = Text2.Text
rs!Harga = Text3.Text
rs!Kode = Text4.Text
rs.Update
MsgBox "Data masuk"
Module1.lihat
Set rs = Nothing
End Sub


Private Sub Form_Load()
Module1.lihat
End Sub

Read more

Membuat Youtube video viewer menggunakan visual basic 6

Untuk Membuat Youtube video viewer menggunakan visual basic 6 sebenarnya mudah sekali hanya dibutuhkan pengetahuan tentang link youtube baik yang dari www.youtube.com/watch?v= atau dari www.youtube.com/v/ dari dua metode ini semuanya dapat digunakan menjadi aplikasi youtube viewer dengan visual basic 6.

Untuk mengawali pembuatan Youtube video viewer buatlah 1 form dengan komponen-komponen dibawah:

1. 1 shockwave rename menjadi sock
2. 1 label dengan caption Video ID
3. 1 text
4. 1 button

Lihat gambar dibawah:

Setelah tampilan seperti gambar diatas kemudian klik dua kali form, hapus semua kode dan masukkan kode dibawah:

Private Sub Command1_Click()
sock.Movie = "http://youtube.com/v/" & Text1 & "?autoplay=1"
sock.Play
End Sub

Lalu coba Run aplikasi yang sudah dibuat maka hasilnya seperti gambar dibawah:

 

 

Read more

Membuat Radio Player menggunakan visual basic 6

Setelah membahas bagaimana membuat radio online list menggunakan visual basic 6 selanjutnya membuat radio player yang hanya memutar satu channel radio saja sudah pasti lebih mudah dibanding membuat list radio online player karena kali ini tidak menggunakan database apapun baik yang menggunakan microsoft access ataupun mysql dan cukup dengan beberapa komponen saja.

Baiklah, sekarang waktunya membuat radio player menggunakan visual basic 6 caranya adalah buatlah satu form ganti background menjadi warna hitam, borderStyle = None dan masukkan komponen-komponen dibawah ini:

1.  2 Label backround ganti menjadi warna hitam forecolor menjadi putih.
2. 3 button
3. 1 windows media player rename menjadi wmp
4. 1 slider

Lihat gambar dibawah:

Setelah tampilan seperti gambar diatas lalu klik dua kali formnya dan hapus semua kode lalu masukkan kode dibawah ini:

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim reg As Object
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Command3_Click()
Dim reg As Object

Set reg = CreateObject("Wscript.shell")
reg.regDelete "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName

End Sub




Private Sub Form_Load()
Slider1.Value = wmp.settings.volume
wmp.URL = "http://95.154.254.151:29478/"
End Sub

Private Sub Slider1_Scroll()
wmp.settings.volume = Slider1.Value
End Sub

Private Sub wmp_OpenStateChange(ByVal NewState As Long)
Label2 = wmp.Status
End Sub

Jika sukses maka setelah Run maka hasilnya seperti gambar dibawah:

 

Read more

Membuat Radio Online Channel List menggunakan visual basic 6 Microsoft access 2007

Setelah beberapa artikel membahas visual basic 2008 saya akan kembali membahas visual basic 6 namun kali ini saya akan Membuat Radio Online Channel List menggunakan visual basic 6 yang dalam hal ini menggunakan database microsoft access 2007, jadi artikel ini hanya diperuntukan bagi siapa saja yang sudah memahami konsep microsoft access 2007 yang dikoneksikan menggunakan visual basic 6.

Untuk Membuat Radio Online Channel List menggunakan visual basic 6  yang perlu dipersiapkan adalah database ms access dengan nama file radio dan didalamnya sudah dibuat satu table bernama channel dan diisi kolom nama dan url lihat gambar dibawah:

 

Kemudian buka visual basic 6 buat 1 form dengan komponen 1 text 1 button dan 1 list dan 1 windows media player seperti gambar dibawah:

 

Setelah sudah terbuat form seperti diatas kemudian klik Project pada menu bagian atas kemudian klik Preferences kemudian conteng Mictosoft ActiveX Data Objects 6.0 Library lihat gambar dibawah:

 

Selanjutnya buatlah satu module dan masukkan kode dibawah ini:

Public cn As ADODB.Connection

Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "provider = microsoft.ace.oledb.12.0; data source= " & App.Path & "\radio.accdb;Persist Security Info=False"
cn.Open
Form1.Show
End Sub

Kemudian masuk ke form1 klik 2 kali formnya hapus semua kode  dan masukkan kode dibawah ini:

 Sub lod()
Dim str As String
str = "select * from channel order by ID DESC"
Set rs = cn.Execute(str)
List1.Clear
Do While Not rs.EOF
List1.AddItem (rs!nama)
rs.MoveNext
Loop
Set rs = Nothing
End Sub

Private Sub Command1_Click()
nama = InputBox("Masukkan nama URL", "Nama URL")
Set rs = New ADODB.Recordset
rs.Open "select * from channel", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!nama = nama
rs!URL = Text1
rs.Update

rs.Close
Set rs = Nothing
MsgBox "sukses"
lod
End Sub



Private Sub Form_Load()
lod
End Sub

Private Sub List1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from channel where nama='" & List1.Text & "'", cn, adOpenKeyset, adLockOptimistic
wmp.URL = rs!URL
rs.Close
Set rs = Nothing
End Sub

Untuk tahap terakhir klik kanan tulisan Project1 (Project1.vbp) pilih Project1 Properties ganti Startup Project menjadi Sub Main kemudian klik Ok lalu simpan project yang sudah dibuat pada folder yang sama dengan database yang sudahdibikin sebelumnya dan test run maka hasilnya seperti gambar dibawah:

 

Gambar diatas adalah gambar setelah Add Channel, untuk memutar radio onilne cukup klik sekali list yang terdapat dibawah button  ADD Channel maka otomatis akan loading dan memutar radio online yang sesuai dengan nama radio yang diklik.

Read more

Menditeksi Angka atau karakter pada text visual basic 6.0

Menditeksi angka atau karakter pada text menggunakan visual basic 6.0 cukup simple sekali, penditeksian ini juga dapat digunakan jika anda menginginkan angka saja yang dapat dimasukkan pada text atau alpha saja yang dapat dimasukkan kedalam text visual basic 6.0, hal ini bisa digunakan sewaktu anda membuat kalkulator atau alarm dimana pada text hanya dapat dimasukkan angka saja.

Contoh kode diteksi angka atau huruf pada text adalah menggunakan kode:

If Not IsNumeric(text1) then
msgbox"Anda memasukkan huruf"
else
msgbox"Anda memasukkan angka"
End If

Jika hanya angka saja yang dapat dimasukkan kedalam text vb6 maka kodenya seperti dibawah ini:

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub

Maka ketika anda mengetikkan selain angka maka text1 otomatis akan kosong kembali, dan bila yang diinginkan hanya dapat diketikkan huruf tinggal buang saja kata Not pada kode diatas jadi seperti kode dibawah ini:

Private Sub Text1_Change()
If IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub
 

Read more

Membuat Program Alarm sederhana menggunakan visual basic 6.0

Bahasa visual basic 6.0 masih bisa dibilang sangat sederhana sekali karena bahasa yang digunakan masih banyak kekurangannya, begitu juga ketika Membuat Program Alarm sederhana menggunakan visual basic 6.0 bahasa yang digunakan masih sangat sedikit sekali, hanya menggunakan IF dan THEN juga a=a, dan sedikit permainan timer.

Jika anda menginginkan pembuatan alarm menggunakan visual basic 6.0 yang harus anda persiapkan adalah:

• 1 form
• 2 timer set interval 1000, timer1 enabled true, timer2 enabled false
• 3 text, text1 dan text2 jadikan agar ukurannya sama dan text3 jadikan ukuran lebih lebar dan lebih tinggi dengan settingan multiline=true
• 1 label
• 1 command lihat gambar dibawah ini:

 

Kemudian klik dua kali formnya dan hapus semua kode dan masukkan kode dibawah ini:

Private Sub Command1_Click()

Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1 = Time
End Sub

Private Sub Timer2_Timer()
If Hour(Now) = Text1 And Minute(Now) = Text2 Then
MsgBox (Text3)
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Timer2.Enabled = False
End If
End Sub

Pada kode diatas terdapat permainan timer yaitu Hour(Now) dan Minute(Now) tujuannya untuk menyamakan jam dan menit yang sedang berjalan dengan data yang dimasukkan kedalam text1 dan text2, Hour(Now) dan Minute(Now) bisa diganti dengan Hour(Time) dan Minute(Time), setelah dicoba maka hasilnya akan seperti gambar dibawah ini:

 Setelah jam dan menitnya sama dengan text1 dan text2, maka akan keluar msgbox berisi pesan yang ditulisakan pada text3, dan pada saat klik Set Alarm otomatis text1, text2 dan text3 disabled tapi setelah msgbox keluar dan diklik OK maka text1, text2 dan text3 kembali enabled atau bisa disetting kembali.

Read more

Kode vb6 untuk membuat komputer hank

Pada awalnya terlintas difikiran jika kekuatan ram ada batasnya kemudian terfikir untuk membuat program yang dapat membuat komputer hank menggunakan vb6, dan mulailah coding kira-kira 5 menit dan jadilah program yang diberi nama Halo Om!!!.

Program Halo Om!!! ini dibuat menggunakan vb6 dan inilah cara buatnya:

Buka vb6 dan buatlah 1 form dengan settingan seperti ini:

• BackColor = Pilih warna hitam, BorderStyle None, WidowsState Maximized.
• 1 label dengan BackColor hitam dan foreColor Merah Font 100 px dengan Text Halo Om!!! lihat gambar dibawah:

 

Kumudian klik 2 kali form1, hapus kode yang ada dan masukkan kode dibawah ini:

Private Sub Form_Load()
Dim Res
Dim Filename(1)
Filename(0) = "C:\windows\system32\cmd.exe" 'Check file is here first
Filename(1) = "Project1.exe" 'Check file is here first
If Dir(Filename(0)) = "" Then
MsgBox Filename(0) & " not found", vbInformation
Else
Res = Shell(Filename(0), vbNormalFocus)
Res = Shell(Filename(1), vbNormalFocus)
End If
End Sub

Klik File-->Make Project1.exe, pilih lokasi penyimpanan, dan Save.

 

Read more

Fungsi Module vb6

Module biasanya digunakan untuk mengurangi kode yang dimasukkan pada form, module juga digunakan sebagai koneksi database untuk mempermudah coding sebagai contoh akan menampilkan msgbox yang ditulis pada text1 form namun kodenya berada pada module lihat untuk penggunaan module:

Kemudian masukkan kode dibawah ini dihalaman module:

Sub buka()
MsgBox (Form1.Text1)
End Sub









Pada Form1 buatlah 1 text dan 1 Command dan klik 2 kali Command dan masukkan kode dibawah ini

module1.buka

Maka ketika dirun dan diklik Command1 akan keluar msgbox sesuai dengan yang diketikkan di text1

Read more

Penggunaan IF & THEN dan ELSE vb6

Pada vb6 bahasa yang membedakan dengan bahasa pemprograman yang lain adalah pada IF dan then yang terdapat di vb6, jika di C++ penggunaan if dengan struktur IF(blablabla=blablabla){blablabla} maka pada vb6 menggunakan bahasa yang bisa dikatakan hampir murni bahasa inggris seperti IF a=a THEN b=b tanpa menggunakan kode tambahan kecuali tanda "" untuk menunjukkan string yang tidak terdapat pada text atau label atau di menu yang sudah terdapat pada vb6.

Contoh pembuatan program yang menggunakan if dan then pada vb6 adalah buatlah form dengan 1 text 2 label, 1 timer dan 2 command, text pada command pertama ganti dengan Zoom dan text pada Command2 ganti dengan Lihat Tulisan, Setting timer interval 500 dan Enabled False, lihat gambar dibawah:

 

Kemudian Klik 2 kali form dan hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "Anda belum menuliskan sesuatu"
Else
MsgBox (Text1)
End If
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
If Text1.FontSize > 32 Then
Timer1.Enabled = False
End If
End Sub
 

Maka jika command Zoom diklik font otomatis akan berukuran lebih besar dan dan ketika ukuran font lebih dari 32 maka otomatis zooming berhenti, dan ketika command Lihat Tulisan diklik dan text1 masih kosong, maka akan keluar msgbox dengan kalimat "Anda belum menuliskan sesuatu" dan jika text1 sudah berisi tulisan apa saja maka msgbox yang keluar sesuai dengan kalimat atau kata atau huruf yang diketikkan pada text1.

Read more

Membuat Font Zooming otomatis vb6

Untuk membuat font zooming otomatis di vb6 yang dibutuhkan adalah 1 text1, 2 Command dan 1 Timer, Setting timer interval menjadi 500, enabled ganti false, Command1 ganti text menjadi Zoom dan Command2 ganti menjadi Stop atau berhenti, lihat gambar dibawah ini:

Kemudian klik 2 kali form1 hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
End Sub

Ketika Command Zoom diklik maka otomatis ukuran font yang ada di text1 akan membesar sendiri dan ketika Command Berhenti diklik maka zooming akan berhenti secara otomatis juga.

Read more

Merubah warna Background dan font vb6

Pada vb6  untuk merubah warna background dan font sangatlah mudah cukup buatlah form dengan beberapa Command atau label kemudiann ganti text dimasing-masing Command atau label dengan nama warna seperti merah, kuning, hijau, biru dan hitam seperti gambar dibawah ini:

Agar secara otomatis ketika program dijalankan tulisan Merah, Kuning, Hijau menjadi huruf tebal dan miring klik 2 kali form dan masukkan kode dibawah ini:

Private Sub Form_Load()
Label1.FontBold = True
Label1.FontItalic = True
Label2.FontBold = True
Label2.FontItalic = True
Label3.FontBold = True
Label3.FontItalic = True

End Sub

Kemudian masukkan kode dibawah ini :

Private Sub Label1_Click()
Me.BackColor = &HFF&
End Sub

Private Sub Label2_Click()
Me.BackColor = &HFFFF&
End Sub

Private Sub Label3_Click()
Me.BackColor = &HFF00&
End Sub

Maka ketika program di run, otomatis tulisan Merah, Kuning, Hijau akan menjadi tebal dan miring, kemudian jika tulisan Merah diklik maka background program menjadi merah, ketika tulisan Kuning diklik maka background menjadi berwarna kuning begitu juga keyika tulisah hijau diklik maka background akan otomatis menjadi warna hijau.

Read more

Merubah Karakter Huruf Menjadi Kode vb6

Ketika ingin membuat symbol menggunakan huruf biasa dan secara otomatis ketika mengetikkan huruf pada text1 dan pada label1 atau bisa diganti dengan text2 akan memunculkan symbol yang terdapat pada huruf yang diketikkan pada text1, caranya seperti gambar dibawah ini:

Pada gambar diatas yang digunakan adalah text1 dan text2 dan Command1 yang ditaruh diantara text1 dan text2, kemudian klik 2 kali form1 dan masukkan kode vb6 dibawah ini:

Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Text2.Font = "Webdings"
Text2.FontSize = "27"
 Text2 = Text1
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Test run program yang sudah dibuat dan hasilnya seperti gambar dibawah ini:

Read more

Penggunaan Ucase & Lcase

Seperti pada artikel sebelumnya Ucase berfungsi untuk membuat huruf besar sedangkan Lcase digunakan untuk membuat huruf kecil atau huruf normal, dibawah ini adalah contoh penggunaan Ucase dari text1 yang dimunculkan pada label1.

1. Buatlah form dengan 1 text, 1 label, dan 2 command, rubah text pada Command1 menjadi Huruf Besar, dan Command2 menjadi Huruf Kecil, lihat gambar dibawah:

2. Masukkan kode dibawah ini:

Private Sub Command1_Click()
Label1 = UCase(Text1)
End Sub

Private Sub Command2_Click()
Label1 = LCase(Text1)
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

Maka ketika diketikkan sesuatu pada text1 dan diklik Huruf Besar hasilnya seperti gambar dibawah ini:

Read more

Penggunaan string replace pada vb6

Penggunaan string replace pada vb6 biasanya untuk mengganti kata-kata yang jorok, berbau pornografi, dan kata-kata kasar, string Replace ini dapat dimasukkan pada hasil dari input yang sudah diketikkan dan ketika diklik Submit maka hasil yang keluar akan berbeda.

dibawah ini contoh penggunaan string Replace yang digunakan untuk mengeluarkan hasil yang berbeda dengan yang diketikkan pada text1, lihat langkah-langkah dibawah ini:

1. Buatlah form dengan 1 text, 1 label dan 1 button lihat seperti gambar dibawah ini:

 

2. klik 2 kali pada form1 dan masukkan kode ini:

Private Sub Command1_Click()
Dim str As String
str = Replace(Text1, "bangsat", "hebat")
Label1 = str
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

 Kemudian test run program yang sedang dibuat dengan meng klik tanda play yang berada dibagian atas maka ketika diketikkan semisal bangsat loe maka yang keluar di label1 adalah hebat loe, lihat gambar dibawah ini:

Read more

Fungsi string vb6

Fungsi string pada vb6 sangat fatiatif disesuaikan dengan string yang akan digunakan, dibawah ini string-string yang sering digunakan dalam pembuatan program menggunakan vb6:

1. Right : untuk menampilkan karakter dari kanan ke kiri dengan jumlah karakter yang ditentukan contoh label1=Right("Kursus",3) maka yang keluar pada label1 adalah sus


2. Left : untuk menampilkan karakter sebelah kiri kekanan dengan jumlah karakter yang ditentukan contoh label1=Left("Kursus",3) maka yang keluar pada label1 adalah Kur


3. Mid: untuk menampilkan karakter dari data sesuai dengan nilai yang ditentukan contoh label1=Mid("Kursus",1,4) angka 1 pada contoh adalah awal karakter yang akan ditampilkan dan angka 4 yang ada dicontoh adalah jumlah karakter yang akan ditampilkan, dari contoh tersebut label 1 akan menampilkan Kurs.


4. Ucase : untuk menampilkan huruf besar contoh label1=Ucase("Kursus") maka yang tampil di label1 adalah KURSUS


5. Lcase : untuk menampilkan huruf kecil contoh label1=Lcase("Kursus") maka yang tampil di label1 adalah kursus


6. Trim : untuk menghapus spasi dibagian kanan dan kiri string contoh label1=Trim(" Kursus ") maka yang tampil pada label1 adalah Kursus tanpa spasi


7. RTrim: untuk menghapus spasi sebelah kanan string contoh label1=RTrim(" Kursus ") maka yang akan muncuk di label satu adalah   Kursus.


8. LTrim: untuk menghaspus spasi sebelah kiri string contoh LTrim(" Kursus ") maka yang muncul pada label1 adalah Kursus   dengan spasi disebelah kanan masih ada


9. Len: untuk menghitung jumlah karakter contoh label1=Len("Kursus") maka yang keluar pada label1 adalah 6 karena jumlah karakter pada kata Kursus adalah 6.


10. Replace: untuk mengganti karakter dengan karakter yang lain contoh buatlah label1 dan label 2 kemudian klik 2 kali formnya dan masukkan kode ini label1=Date tekan enter dan masukkan lagi kode ini label2=Replace(label1,"/","-"), maka yang keluar di label 1 adalah 10/30/2013 dan yang di label2 adalah 10-30-2013 karena tanda "/" pada label1 diganti dengan "-".


11. StrReverse: untuk membalik kata atau kalimat maksudnya tulisan dapat dibaca kalau dari kanan contoh label1=StrReverse("Kursus") maka yang keluar di label1 adalah susruK.

Read more

Fungsi Timer vb6

Timer pada vb6 biasanya digunakan untuk menggerakkan data atau menghitung data secara otomatis atau membuat jam yang berjalan sesuai dengan jam yang ada dikomputer atau laptop, intinya timer digunakan sebagai pengatur waktu.
Sebagaimana namanya Timer berfungsi untuk mengatur waktu, lihat gambar dibawah ini:

Lihat dikotak Setting Timer, disitu terdapat menu Enabled dengan isian True dan Interval dengan isi 0, ganti interval 0 menjadi 30 atau sesuka hati saja semakin banyak nilai interval semakin lama detik berjalan, kemudian klik 2 kali gambar timer yang berada di form dan masukkan kode ini label1=label1-1, dan coba running maka secara otomatis angka 100 yang berada dilabel1 akan berkuran 1 disesuaikan dengan pergantian detik.

Read more