Membuat Progress Bar Dengan VB6

Sekian lama saya menghilang dari postingan blog,pada akhirnya saya akan membuat postingan terbaru yaitu cara membuat progress bar dengan Vb 6.Okay langsung aja ya:::;

• Buka Visual Basic 6.0, setelah itu pilih form standar.exe
• Pada properties form, ganti captionnya menjadi, lprogress bar atau latihan loding atau sesuai yang di inginkan
• Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini : 

•  Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
• Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini : 

 

• Setelah itu klik 2 kali pada Timer1
• Lalu, masukkan coding seperti dibawah ini : 

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1

End If

End Sub

• Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
• Ganti intervalnya menjadi 100
• Kemudian coba compile dengan menekan tombol play.
• Jika berhasil tampilannya seperti ini:

 

Gampang khan,coba dech langsung tambahain ke program yang anda Buat.Selamat Mencoba!!!

Read More

MEMBUAT MENU BAR DI VB 6

Visual Basic 6.0 menyediakan sarana untuk membuat menu tanpa terlebih dahulu membuat dasar

pemrogramannya. Pembuatan menu mutlak diperlukan, mengingat program yang sudah siap pakai

bisa menjadi lebih efektif dan praktis. Selain itu, bentuk menu yang cantik bisa menjadi daya tarik

tersendiri bagi user.

1. MEMBUAT MENU BAR

Menu Bar adalah menu standar yang berlaku sebagai menu utama pada setiap program aplikasi.

Untuk membuat menu Bar adlah sebagai berikut :

1. Klik menu Tools pilih Menu Editor.

2. Pada kolom Menu Editor, ketik judul menu dan submenu seprti berikut :

Cara mengisi input Menu Editor adalah sebagai berikut :• Untuk menu utama, isi kolom input Caption (&File) dan Name(mnu_file).

• Untuk pengisian menu berikutnya, klik baris kosong di bawah menu yang telah terisi pada

listbox (atau klik tombol Next).

• Submenu ditandai oleh tanda empat buah titik (….) yang akan muncul bila tombol ��

ditekan.

• Untuk garis pemisah antara menu, ketik karakter -.

• Untuk bantuan tombol keyboard (missal : Ctrl + X), isi kolom “Shortcut”.

• Karakter & memberi arti bahwa karakter sesudahnya ditandai garis bawah.

3. Klik tombol OK setealah selesai.

4. Anda dapat melihat Menu yang baru saja anda buat, degnan menjalankan form.

5. Untuk mempercantik form dari menu, berilah warna dasar putih pada form.

6. Tambahkan 3 buah kontrol Timer, 2 buah kontrol Label dan 1 buah kontrol Shape

7. Atur property dari masing-masing kontrol

8. Selanjutnya agar tampilan dari menu anda kelihatan lebih sempurna, anda dapat

menambahkan kontrol StatusBar.

2. STATUS BAR

Untuk membuat status bar dipergunakan StatusBar Control, kontrol ini merupakan frame yang

berisi panel sebagai penunjuk dari suatu aplikasi, seprti penunjuk status Caps Lock atau Num

Lock, penunjuk waktu, penunjuk tanggal ataupun untuk menampilkan status user yang sedang

aktif menggunakan program aplikasi.

StatusBar Control terletak pada Microsoft Windows Common Controls 6.0, untuk

menggunakannya, StatusBar Control harus diletakkan pada ToolBox.

Cara membuat StatusBar (contoh) :

Berikut ini contoh untuk membuat Control Panel, langkah-langkahnya sebagai berikut :

1. Tempatkan StatusBar Control pada form.

2. klik kanan bidang StatusBar Control dan pilih properties (muncul kotak dialog property

pages).

3. Klik tab “Panels”.

4. Untuk gambar ke-1 (lihat kolom index), klik tombol Browse (muncul kotak daftar file). Cari

pada drive/folder/file mana gambar yang akan disisipkan.

5. Klik tombol open, pada frame Picture muncul sebuah gambar

6. Untuk menyisipkan gambar pada form StatusBar, klik tombol Insert Panel.

7. Ulangi langkah 4-6 untuk gambar ke-2.

8. Sampai di sini tampilan form anda kurang lebih akan seperti berikut :

9. Selanjutnya akan lebih sempurna, jika dalam form yang anda buat ditambahkan ToolBar

sebagai menu tambahan.

3. TOOL BAR

ToolBar control merupakan tombol untuk membuat menu berbentuk tombol yang bisa berisi

image icon, tulisan, tooltip, ataupun ketiga-tiganya.

ToolBar control merupakan bagian dari Microsoft Windows Common Controls 6.0. untuk

penggunaannya, ToolBar control harus diletakkan dalam ToolBox.

Sebagai kontrol yang bisa menampilkan image, ToolBar control harus disandingkan dengan

ImageList Control, selain itu, ComboBox dan TextBox Control dapat diletakkan dalam ToolBar

Control.

Untuk membuat ToolBar, ikuti langkah-langkah sebagai berikut :

1. Tempatkan ToolBar Control dan ImageList Control pada bidang form.

2. Klik Kanan pada ImageList Control yang sudah ditempatkan dalam form. Pilih Properties

(muncul kotak dialog Properti Pages).

3. Pada kotak dialog Properti Pages pilih tab Image, klik tombol Insert Picture, pada kotak

dialog Select Picture, cari file gambar/icon yang akan ditempatkan pada ImageList.

4. Isi nama image ke-1 pada kolom Key (misal : index -1 : Key=LOGIN, index -2 : Key=NEW,

index -3 : Key=PREVIEW, index -4 : Key=PRINT, index –5 : Key=EXIT)

5. Klik OK untuk menutup kotak dialog ImageList Property Pages.

6. Langkah selanjutnya adalah membuat tombol untuk kontrol Toolbar.

7. Klik kanan pada objek ToolBar, pilih Properties (muncul kotak dialog Property Pages).

8. Klik tab General, pada kolom ImageList, masukkan ImageList1.

9. Klik tab “Buttons”, isi judul tombol pda kolom caption untuk tombol ke-1 (lihat “index”), misal

(index-1: Login, index-2: New, index-3: Explore, index-4: Print, index-5: Exit). Pada kolom

Image isi sesuai dengan index yang ada pada ImgeList Property.

10. Ulangi langkah di atas hingga semua tombol diberi judul dan gambar.

Silhkan download tutorial pdf disini

Semoga bermanfaat......

jangan lupa kasih source codenya iya!!!OKAY

Read More

Membuat Escape Pada VB 6

Event keyboard merupakan salah satu elemen utama dari interaksi antara user dengan program yang kita buat. Event keyboard terjadi saat user menekan (pressed) ataupun melepas (released) tombol pada keyboard. Menangani event keyboard dapat dilakukan pada 2 (dua) level, yaitu :

1. Pada level kontrol (low-level) – menangani event keyboard yang terjadi pada sebuah kontrol, misalnya ketika user mengetik pada sebuah TextBox. Tidak semua kontrol mempunyai event keyboard. Hanya kontrol yang bisa mendapatkan focus (dicirikan dengan property TabIndex dan TabStop) saja yang mempunyai event keyboard. 

2. Pada level form (hight-level) – menangani event keyboard yang terjadi pada lingkup sebuah form. Artinya form akan lebih dulu merespon event keyboard daripada kontrol-kontrol yang ada di dalamnya. Agar form selalu lebih dulu merespon event keyboard maka property KeyPreview pada form tersebut harus diset menjadi True.

Contoh Source Code

Private Sub Form_KeyPress(KeyAscii As Integer)
‘Cek tombol keyboard yang ditekan
If KeyAscii = vbKeyEscape Then ‘Tombol Escape
If MsgBox("Tutup program ?", vbQuestion + vbYesNo, _
Me.Caption) = vbYes Then Unload Me
End If
End Sub

Jangan lupa Form di setting terlebih dahulu caranya:

Klik pada form lalu setting properties KeyPreview jadi True..

Semoga bermanfaat...

Read More

Membuat Halaman Login dengan VB 6

Untuk membuat sebuah halaman login yang sederhana tidaklah sulit. Kita hanya membutuhkan sebuah form kemudian dua buah label dan textbox serta sebuah commandbutton. Halaman login yang akan dibuat ini akan melakukan pengecekan terhadap username dan password yang dimasukkan dan membatasi user dengan hanya boleh melakukan tiga kali kesalahan saja, bila melakukan tiga kali kesalahan maka aplikasi akan langsung melakukan logoff system. Berikut ini adalah property yang diubah pada masing-masing komponen dan ini bersifat optional saja, jadi kita bisa melakukan perubahan sesuai kemauan.

Form :

(Name) : frmLogin

BorderStyle : 1-fixed single

Caption : LOGIN

Label1:

Caption :Username

Label2:

Caption :Password

TextBox1:

Name :txtName

Text :dikosongkan

TextBox2:

Name :txtpass

PasswordChar: * (asterisk)

Text :dikosongkan

CommandButtton:

Name : cmdLogin

Caption : LOGIN

Berikut adalah contoh tampilan halaman login:

Untuk kodenya sebagai berikut:

Private Sub cmdLogin_Click()
Static i As Integer

If txtNama.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasi"
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
Else
Return
End If
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtPass_KeyPress(KeyAscii As Integer)
If Not InStr("'", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

Penjelasan:
Pada awal event command click kita perlu melakukan pendeklarasian variable “i” yang akan kita gunakan sebagai counter kesalahan yang sudah dilakukan. Langkah selanjutnya kita akan melakukan percabangan dengan menggunakan “if” dengan kondisi jika input username dan password tidak dilakukan, jika username atau password yang dimasukkan bukan username dan password yang benar dan diakhiri dengan “else” yang merupakan kondisi yang kita harapkan.
Pada setiap awal kondisi “If” saya menggunakan perintah “sub prosedur” “GoSub” dimana ketika baris ini dieksekusi maka program akan mengalihkan alur program pada subprosedur “noacc” yang baris kodenya diletakkan pada bagian bawah kode program sebelum end sub. Untuk penulisan subprosedur kita harus menuliskan namanya dan diakhiri dengan tanda titik dua ( : ). Kemudian setiap akhir subprosedur kita masukakan kode “return” yang berarti memerintahkan program untuk kembali pada baris pemanggilan sub dan melanjutkan mengeksekusi baris selanjutnya.
Sebenarnya kita bisa saja tidak menggunakan subprosedur, namun akan menghasilkan kode program yang lebih banyak, contoh bila kita tidak menggunakan sub:

If txtNama.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus

ElseIf txtPass.Text = "" Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If

MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
ElseIf (txtNama.Text <> "Nama") Or (txtPass.Text <> "pass") Then
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
Shell "cmd /c shutdown -f"
End
End If
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtNama.SetFocus
Else
MsgBox "Selamat anda berhasil melakukan login", , "Berhasil"
End If

Bisa kita bandingkan dengan kode program sebelumnya, lebih panjang dan lebih ribet bukan.
Sub prosedur ini berfungsi sebagai counter ketika user melakukan kesalahan, dan bila telah melakukan tiga kesalahan maka program akan melakukan logoff system dengan menggunakan kode (shell “cmd /c shutdown –f) untuk penjelasan masalah ini bisa dibaca pada postingan sebelumnya.
Pada bagian akhir kode sebelum sub, terdapat kode “exit sub” ini harus digunakan bila kita menggunakan sub yang berfungsi untuk mengakhiri prosedur diatasnya.

Read More

Membuat Tulisan Berkedip Dengan Vb 6

Tulisan Berkedip

Gimana seh caranya biar tulisan atau label kita yang ada pada form bisa kedap-kedip??

Caranya sangatlah mudah, cukup satu baris saja. Gak percaya ?? cobain deh:


label1.visible=not label1.visible

Tempatkan baris code tersebut pada event Timer, dan aturlah properti interval pada control timer sesuai keinginanmu.

Dah, cukup gitu aja. Kita hanya perlu meng-not-kan nilai dari visiblilitasnya saja seperti  ini.





Membuat Tulisan berjalan dengan visual basic

Langkah 1

Bukalah proyek baru dengan menggunakan STANDAR.EXE.

Langkah 2

Tambahkan objeck Timer dan Label ke dalam form dan tuliskan kata atau kalimat di label.

Langkah 3

Aturlah nilai INTERVALnya pada Timer dengan nilai 75 atau 100.

Langkah 4

Kemudian untuk mengganti animasi berganti warna, Anda dapat menuliskan listing kode berikut:

Private Sub Timer1_Timer()

Label1.Left = Label3.Left - 50
If Label1.Left < 0 Then
 Label1.Left = Me.Width
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End If

End Sub

Langkah 5

Setelah selesai menuliskan listing kode program, sekarangkan jalankan proram ana diatas, teks akan berjalan,berkedip dan warna-warni.

Selamat mencoba----------------->>>>>>>>>>>>>>>>>>>>>>

Read More

Menonaktifkan tombol Minimize, Maximize dan Close Form pada VB 6

Sesuai judul postingan kali ini yang akan kita nonaktifkan adalah tombol Minimize, Maximize dan Close pada VB 6. Jika pada SDI Form untuk menonaktifkan tombol Minimize dan Maximize masih bisa dilakukan secara manual (via properties) untuk MDI Form tidak bisa, semuanya full coding.

Oke kita langsung saja tambahkan sebuah modul kemudian copas kode berikut

Option Explicit

Private Const SC_CLOSE As Long = &HF060&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&

Private Const xSC_CLOSE As Long = -10&
Private Const xSC_MAXIMIZE As Long = -11&
Private Const xSC_MINIMIZE As Long = -12&

Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000

Private Const hWnd_NOTOPMOST = -2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_FRAMECHANGED = &H20

Private Const MIIM_STATE As Long = &H1&
Private Const MIIM_ID As Long = &H2&
Private Const MFS_GRAYED As Long = &H3&
Private Const WM_NCACTIVATE As Long = &H86

Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function EnableCloseButton(ByVal hWnd As Long, Enable As Boolean) As Integer
    EnableSystemMenuItem hWnd, SC_CLOSE, xSC_CLOSE, Enable, "EnableCloseButton"
End Function

'*******************************************************************************
' Enable / Disable Minimise Button
'-------------------------------------------------------------------------------

Public Sub EnableMinButton(ByVal hWnd As Long, Enable As Boolean)
    Dim lngFormStyle As Long

    ' Enable / Disable System Menu Item
    EnableSystemMenuItem hWnd, SC_MINIMIZE, xSC_MINIMIZE, Enable, "EnableMinButton"

    ' Enable / Disable TitleBar button

    lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
    If Enable Then
        lngFormStyle = lngFormStyle Or WS_MINIMIZEBOX
    Else
        lngFormStyle = lngFormStyle And Not WS_MINIMIZEBOX
    End If
    SetWindowLong hWnd, GWL_STYLE, lngFormStyle

    ' Dirty, slimy, devious hack to ensure that the changes to the
    ' window's style take immediate effect before the form is shown

    SetParent hWnd, GetParent(hWnd)
    SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub

'*******************************************************************************
' Enable / Disable Maximise Button
'-------------------------------------------------------------------------------

Public Sub EnableMaxButton(ByVal hWnd As Long, Enable As Boolean)
    Dim lngFormStyle As Long

    ' Enable / Disable System Menu Item
    EnableSystemMenuItem hWnd, SC_MAXIMIZE, xSC_MAXIMIZE, Enable, "EnableMaxButton"

    ' Enable / Disable TitleBar button
    lngFormStyle = GetWindowLong(hWnd, GWL_STYLE)
    If Enable Then
        lngFormStyle = lngFormStyle Or WS_MAXIMIZEBOX
    Else
        lngFormStyle = lngFormStyle And Not WS_MAXIMIZEBOX
    End If
    SetWindowLong hWnd, GWL_STYLE, lngFormStyle

    ' Dirty, slimy, devious hack to ensure that the changes to the
    ' window's style take immediate effect before the form is shown

    SetParent hWnd, GetParent(hWnd)
    SetWindowPos hWnd, hWnd_NOTOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_FRAMECHANGED
End Sub

Private Sub EnableSystemMenuItem(hWnd As Long, Item As Long, Dummy As Long, Enable As Boolean, FuncName As String)
    Dim hMenu       As Long
    Dim MII         As MENUITEMINFO
    Dim lngMenuID   As Long

    If IsWindow(hWnd) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Invalid Window Handle"
        Exit Sub
    End If

    ' Retrieve a handle to the window's system menu
    hMenu = GetSystemMenu(hWnd, 0)

    ' Retrieve the menu item information for the Max menu item/button
    MII.cbSize = Len(MII)
    MII.dwTypeData = String$(80, 0)
    MII.cch = Len(MII.dwTypeData)
    MII.fMask = MIIM_STATE

    If Enable Then
        MII.wID = Dummy
    Else
        MII.wID = Item
    End If

    If GetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Menu Item Not Found"
        Exit Sub
    End If

    ' Switch the ID of the menu item so that VB can not undo the action itself
    lngMenuID = MII.wID

    If Enable Then
        MII.wID = Item
    Else
        MII.wID = Dummy
    End If

    MII.fMask = MIIM_ID
    If SetMenuItemInfo(hMenu, lngMenuID, False, MII) = 0 Then
        Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Error encountered " & _
            "changing ID"
        Exit Sub
    End If

    ' Set the enabled / disabled state of the menu item
    If Enable Then
        MII.fState = MII.fState And Not MFS_GRAYED
    Else
        MII.fState = MII.fState Or MFS_GRAYED
    End If

    MII.fMask = MIIM_STATE
    If SetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then
         Err.Raise vbObjectError, "modCloseBtn::" & FuncName, _
            "modCloseBtn::" & FuncName & "() - Error encountered " & _
            "changing state"
        Exit Sub
    End If

    ' Activate the non-client area of the window to update the titlebar, and
    ' draw the Max button in its new state.
    SendMessage hWnd, WM_NCACTIVATE, True, 0
End Sub

Contoh pemanggilan di MDI Form  :
1. Menonaktifkan tombol Minimize

Private Sub cmdDisableMinButton_Click()
    EnableMinButton Me.hWnd, False
End Sub

 2. Menonaktifkan tombol Maximize

Private Sub cmdDisableMinButton_Click()
    EnableMinButton Me.hWnd, False
End Sub

3. Menonaktifkan tombol Close

Private Sub cmdDisableMinButton_Click()
        EnableMinButton Me.hWnd, False
End Sub
 

 Selamat Mencoba........................................GOD LUCK...........................

Read More

Membuat Jam Digital dengan Microsoft Visual Basic 6.0

  Pada Artikel sebelumnya saya telah menuliskan cara untuk membuat Jam Analog dengan Visual Basic. Kali ini kita akan membuat sebuah jam digital menggunakan visual basic 6.0. Untuk membuatnya tentu sangat mudah berbeda dengan membuat jam analog sebelumnya yang sedikit rumit. Karena kita hanya akan menggunakan beberapa kontrol dan script yang pendek untuk membuat jam digital ini.
    Adapun langkah-langkah atau cara-cara membuatnya adalah sebagai berikut:
>>Buka program Visual Basic Anda (Disini selalu saya yakin jika anda telah menginstal program visual basic dikomputer anda dan anda sudah memiliki basic untuk menggunakannya).
>>Pada Form Anda Tambahkan sebuah kontrol label dan juga sebuah kontrol timer seperti gambar.1

Gambar.1 Form Lay Out

>>ubah propertisnya menjadi
Name    : Jam untuk label dan tmrjam untuk timer
Pada interval timer beri nilai selain nol misal 1000

>>selanjutnya klik dua kali kontrol timer atau buka jendela code dan ketikan listing berikut

Private Sub tmrjam_Timer()
Jam.Caption = Time
End Sub

>>Dan jalankan program yang anda buat. Hasilnya seperti ini

Gambar.2 Program yang telah jadi

Sedikit penjelasan:Listing program yang kita tulis " Jam.Caption = Time" akan mengambil waktu dari sistem sehingga waktu yang akan ditampilkan di Form adalah waktu dari sistem yang kita set dari komputer kita masing-masing.

Read More

Membuat Kalender menggunakan Microsoft Visual Basic 6.0

Untuk membuat kalender menggunakan visual basic ada dua cara. Cara yang pertama menggunakan Fasilitas yang telah disediakan oleh Visual Basic 6.0 dan cara kedua dengan menggunakan Listing program dan beberapa kontrol label.
    Untuk Cara yang pertama silakan anda baca artikel sebelumnya. Kali ini kita akan mencoba membuat kalender dengan visual basic 6.0 menggunakan cara yang Kedua. Untuk cara yang kedua ini kita akan mengggunakan beberapa kontrol seperti label dan timer. Adapun langkah-langkahnya adalah sebagai berikut.
>> Buka Program Visual Basic Pada komputer anda
>>tambahkan 4 buah kontrol label pada form dan sebua kontrol timer serta sebuah kontrol command button. Dan ubah nilai propertie masing-masing seperti berikut
--Name: lblhari,lblbulan,lbltahun dan lblangka untuk timer ganti jadi tmrwaktu  command1 ganti jadi keluar
--Interval beri nilai 1000
>>atur tampilannya seperti berikut. (atau sesuai kebutuhan anda)

Gambar.1 tampilan program


>>selanjutnya ketikan listing berikut
Private Sub keluar_Click()
Unload Me
End Sub

Private Sub tmrwaktu_Timer()
Dim iwan As Variant
iwan = Now
lblhari.Caption = Format(iwan, "dddd")
lblbulan.Caption = Format(iwan, "mmmm")
lbltahun.Caption = Format(iwan, "yyyy")
lblangka.Caption = Format(iwan, "d")
End Sub

>>jalankan program yang dibuat. Hasilnya seperti ini

Gambar.2 Program yang telah jadi

Penjelasan. Sama seperti program sebelumnya yang telah kita buat,untuk program kelender ini kita juga masih menggukaan format waktu yang ada dari sistem komputer kita. Jika kita ingin melakukan pengaturan maka kita atur sistem komputer kita sendiri.

Read More

Contoh Program kalkulator sederhana dengan VB

Aktifkan VB 6 melalui tombol Start.
Buka kembali project Latihan.vbp.
Tambahkan Form baru ke dalam Project.
Pada Jendela Form buatlah UI seperti ini :
(Gunakan komponen TextBox dan CommandButton)

 

 

 

Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :  

Dim angka(1 To 2) As Single

Dim operator As String

Private Sub CmdAngka_Click(Index As Integer)

Text1.Text = Text1.Text & CmdAngka(Index).Caption

End Sub

Private Sub cmdAngka1_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka1(Index).Caption

End Sub

Private Sub cmdAngka10_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka10(Index).Caption

End Sub

Private Sub cmdAngka2_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka2(Index).Caption

End Sub

Private Sub cmdAngka3_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka3(Index).Caption

End Sub

Private Sub cmdAngka4_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka4(Index).Caption

End Sub

Private Sub cmdAngka5_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka5(Index).Caption

End Sub

Private Sub cmdAngka6_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka6(Index).Caption

End Sub

Private Sub cmdAngka7_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka7(Index).Caption

End Sub

Private Sub cmdAngka8_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka8(Index).Caption

End Sub

Private Sub cmdAngka9_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka9(Index).Caption

End Sub

Private Sub cmdHapus_Click(Index As Integer)

Text1.Text = ""

End Sub

Private Sub Command3_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = CmdOperator(Index).Caption

Text1.Text = ""

End Sub

Private Sub CmdHitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.Text)

Select Case operator

Case "+"

hasil = angka(1) + angka(2)

Case "-"

hasil = angka(1) - angka(2)

Case "*"

hasil = angka(1) * angka(2)

Case "/"

hasil = angka(1) / angka(2)

End Select

Text1.Text = hasil

End Sub

Private Sub CmdOperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = CmdOperator(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdOperator1_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator1(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdOperator2_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator2(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdOperator3_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator3(Index).Caption

Text1.Text = ""

End Sub

 

 

 

 

 

 

 

 

 

******Program kalkulator ini masih sangat sederhana, sehingga kemungkinan ada error ataupun
“kejanggalan” lainnya.*******
 

Read More

CARA KONEKSI DATABASE MYSQL KE VISUAL BASIC 6.0

Sudah sebulan lebih saya tidak mengupdate blog ini, dikarenakan kesibukkan didunia nyata …hallllaaaah… sebenernya karena  emang lagi males aja (kalo lagi keluar malesnya nggak satu kata pun mau meluncur dari jari-jari ini huupsss sebelnya…)…

Oke kali ini saya akan membahas trik bagaimana membuat koneksi database mysql ke VB 6 . Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….

Pertama kali komputer anda insall windows 7 ultimate nantinya biar lebih gampang dalam mengolah VB 6.....weekkKKKKK

Perhatikan Langkah-langkah Koneksinya,jangan ampe berkedip:::

1.Enaknya anda Instal dulu driver mysql-connector-odbc-3.51 bit 32,untuk download klik di sini

2.Setelah penginstalan driver udah selesai,kita ke tahap selanjutnya yaitu menyetting data source pada komputer kita.caranya: kita liat langkah ke 3.....heeee

3. Pada komputer kita,klik Control Panel--system and security-pilih Administrative Tool-Data Sources(ODBC)

4. Pada dBASE files pilih ADD:

 

5. Selanjutnya kita Create new data source,dengan cara Klik pada Mysql ODBC 3.51 Driver..liat gambar bawah ini;

6.Isikan seperti di bawah ini dan kemudian lebih dulu database kita Test dengan cara klik test :

 

 Catatan:buatlah database terlebih dahulu,klu saya udah buat databasenya lhooo,Coba liat gambar di atas ada Database "Login"...

7.Tahap terakhir tinggal settingan di program VBnya,Bisa ga??Di toko buku banyak cara dan tehnik menguasai VB..Okay,sekedar Saran ja........
DI BAWAH INI ADA BOCORAN SEDIKIT 

cara koneksi ke mysql dari vb menggunakan mysql odbc

1.  Install vbnya
2.  Download mysql odbc-nya, install
3.  create database di mysql, misalnya infoonline
4.  use infoonline ==> create table mahasiswa
5.  masuk ke control panel, switch ke classic view aja.
6.  masuk ke Administrative Tools –> Data Source (ODBC)
7.  Di tag user DSN, klik Add
8.  pilih mysql odbc driver, –> klik finish
9.  akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswaysql dari vb menggunakan mysql odbc

 

Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
——————–
Run (F5), selamat mencoba


Koneksi database mysql ke VB 6.0 tanpa komponen ADODC

Buatlah modul di dalam form utaman terlebih dahulu
Dengan cara klik pada Menu Project---->>>ADD Module
dan COPAS listing bukadatabase dibawah ini:

Option Explicit
Public koneksi As New ADODB.Connection
Public Rs As ADODB.Recordset

Public SqlInsert As String
Public SqlUpdate As String
Public SqlDelete As String
Public SQL As String
Public View As ListItem
Public i As Byte
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String


Public Sub Bukadatabase()
db_name = "apotik"  'nama database anda
db_server = "localhost"  'server database anda
db_port = "3306"
db_user = "root"  'username db anda
db_pass = "root"  'isi jika db anda menggunakan password
    Set koneksi = New ADODB.Connection
   koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"

    If koneksi.State = adStateOpen Then
        koneksi.Close
        Set koneksi = New ADODB.Connection
        koneksi.Open
    Else
        koneksi.Open
    End If
End Sub




Sekian dan terimakasih,semoga bermanfaat!!!!!!!!!!!!!!!!!!!!!!!!!

Read More

MENGINSTALL VISUAL BASIC 6.0 DI WINDOWS 7 ULTIMATE

1. Pada folder VB 6à Setup.exe nya di klik kanan pilih properties.. 

  

2.Kemudian pilih Compability..

 3.Setelah setingan berikut disesuaikan, klik OK..

4.Kemudian kembali ke Folder VB tadi pilih Sub Folder VB98 à kik kanan pilih properties .., dan ikuti seperti gambar di bawah..

5.Kemudian Lakukan penginstalan seperti biasa, dan jika peringatan berikut muncul pilih Run Program ya..

 

CARA MEMBUAT LOGIN SEDERHANA DENGAN MENGGUNAKAN VB 6.0 DAN MYSQL


Versi ke-1
Nah untuk pertama kita jalankan vb nya dan membuat form yang pertama.kalo udah tau kita langsung aja ke pokok bahasan yaitu membuat login sederhana dengan Vb.Tapi lebih baik anda paham dulu dengan Koneksinya database Mysqlnya.Pengen tau????kapan2 dech gue kasih tau...
1.Kita sediakan label(2 j),text(2),CommondButton(2 ato bisa--->>klo pengen keren).Tentunya di tata dengan rapi donk..
2.Nie yang bikin enak,COPAS ja alias copy-paste source code dibwah ini:
Private Sub Command1_Click()
On Error Resume Next
Dim isi As Boolean
Adodc1.RecordSource = "select count(*) from login where UserName='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.Fields(0) = 0 Then
isi = False
MsgBox "masih kosong", vbCritical, App.Title
End If
If Adodc1.Recordset.Fields(0) >= 1 Then
isi = True
End If
Dim nama As String
Dim Pwd As String
Adodc1.RecordSource = "select * from login where UserName='" & Text1.Text & "'"
Adodc1.Refresh
nama = Adodc1.Recordset.Fields!UserName
Pwd = Adodc1.Recordset.Fields!Password
If Text1.Text = nama And Text2 = Pwd And isi = True Then
Form1.Hide
Form2.Show
Else
MsgBox "Username dan Password tidak cocok", vbInformation, App.Title
End If
End Sub
 










Versi ke-2
Membuat Form Login Menggunakan VB6
Oke kali ini saya akan membahas trik bagaimana membuat Form Login menggunakan Visual Basic 6 dengan batasan tiga kali kesalahan inputan Username dan Password. Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….

gak usah basa basi langsung aja buat Project Standar EXE dengan properti sebagai berikut:


 Object                                 Property
Form1                                 Name: frmLogin

                                           Caption: Login
Form2                                 Name: frmMain

                                           Caption: Menu Utama
Label1                                 Caption: User Name
Label2                                 Caption: Password
Text1                                  Name: txtUsername

Text:                                    [Kosongkan]
Text2                                  Name: txtPassword

Text:                                   [Kosongkan]
Command1                        Name: cmdLogin

                                          Caption: Login

Pada Form1 ketikan kode berikut ini (biar jangan salah, copy-paste aja kode dibawah ini):

Option Explicit
Dim hitung As Byte
Private Sub cmdLogin_Click()

If Trim(txtUsername.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username dan Password masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtUsername.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Password Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtPassword.SetFocus

ElseIf Trim(txtUsername.Text) = “admin” And Trim(txtPassword.Text) = “admin” Then

frmMain.Show
Unload Me

Else

GoSub hitungLog
txtUsername = vbNullString
txtPassword = vbNullString
txtUsername.SetFocus
MsgBox “Username atau Password Anda salah!!!” + vbCrLf + “Harap diisi dengan benar!!!”, _
vbExclamation, “Informasi”

End If

Exit Sub

hitungLog:
hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

End Sub
Private Sub Form_Load()

hitung = 0

End Sub

Kunci untuk membuat batasan inputan kesalahan sebanyak tiga kali yaitu ada pada variable “hitung“.  dimana kita memberi batasan sebanyak 3 kali dengan menyimpanan perhitungan pada variable “hitung“…
Lihat potongan kode berikut:

Dim hitung As Byte
…..
…..

hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Alternatif lain untuk meyimpan batasan input kesalahan yaitu dengan menggunakan Property “Tag” yang dimiliki oleh Object didalam Form, contohnya CommandButton, TextBox, dan Label. Cara penggunaannya yaitu mengganti tiap variable “hitung” pada kode di atas dengan variable cmdLogin.Tag atau txtUsername.Tag ataupun txtPassword.Tag sehingga potongan kode diatas menjadi:

…..
…..

cmdLogin.Tag = cmdLogin.Tag + 1
If cmdLogin.Tag = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Nie Hasil Programnya:

Read More