Sorce Code Aplikasi Ganti Tanggal Komputer VB 6.0

Artikel Terkait Source Code VB6
Pada Tips and Trik VB 6.0 kali ini adalah Cara Membuat Aplikasi Ganti Tanggal Komputer VB 6.0
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 :)


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Rekomendasi Web Hosting
Hosting murah minimal order 1 bulan cuma 20rb. Gunakan voucher diskon 30%, kode voucher: MCP, total bayar hanya 14rb!!! Daftar sekarang