Aplikasi Ganti Tanggal Komputer VB 6.0

Pada Tips and Trik VB 6.0 kali ini adalah Cara Membuat Aplikasi Ganti Tanggal Komputer VB 6.0

Aplikasi ini adalah Request dari teman kita (Romi) yang telah berkomentar pada :
http://blog.belajarvb.com/2014/03/contoh-program-aplikasi-dengan-vb-60.html

Berikut Langkahnya :
Nyalakan Komputer Anda
Buka Aplikasi VB 6.0 anda
Kemudian Design Form seperti gambar diatas,

Masukan Koding dibawah pada Form Tersebut :

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Sub Command1_Click()
If MsgBox("Apakah ingin cetak Kartu Anggota?", vbYesNo) = vbYes Then
Dim lpSystemTime As SYSTEMTIME
    lpSystemTime.wYear = Combo3
    lpSystemTime.wMonth = Val(Combo2.Text)
    lpSystemTime.wDay = Combo1
    SetSystemTime lpSystemTime
    Else
    End If
End Sub

Private Sub Form_Load()
    Call MunculData
    'URL: http://www.belajarvb.com/
End Sub
Sub MunculData()
Combo1.Clear
Combo2.Clear
Combo3.Clear
For hari = 1 To 31
Combo1.AddItem hari
Next hari
For bulan = 1 To 12
Combo2.AddItem bulan & Space(5) & MonthName(bulan)
Next bulan
For i = 1 To 5
    Combo3.AddItem Year(Date$) + 1 - i
Next i
End Sub

Silahkan jalankan Prohject VB 6.0 anda
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)

Salam,
BelajarVB.com