Sorce Code Aplikasi Ganti Tanggal Komputer VB 6.0

Sorce Code Aplikasi Ganti Tanggal Komputer VB 6.0

Pada kesempatan ini TeknoTips.NET akan mengulas tentang "" dengan judul artikel "Sorce Code 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
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 :)

Keyword : Source Code VB6,
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini : Tuliskan komentar relevan anda dibawah ini dengan jelas & sopan, sesuai dengan topik ulasan mengenai Source Code VB6 Terbaru 2019.

Untuk menghindari spam dan tautan aktif, komentar akan dimoderasi. Dapatkan balasan dari melalui e-mail anda :

Komentar artikel "Sorce Code Aplikasi Ganti Tanggal Komputer VB 6.0"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel