Dedi Supriadi BJR

Membuat Aplikasi Hitung Umur Dengan Visual Basic 6.0

Hallo..!! Kawan-Kawanku Dimanapun Kalian Berada Semoga Semuanya dalam Keadaan Sehat.. Amin..
Baiklah Kawan-kawan disini saya akan sharing source kode untuk menghitung umur.. jadi kawan - kawan tinggal ikutin saja langkah langkahnya dan Source kodenya bisa langsung di Copy Paste.

Oke Kita Langsung saja menuju langkah langkahnya oke..
Langkahnya Sebagai Berikut :

1. Buka Visual Basic 6.0 Kemudian Masukan Component yaitu
    5 Buah Label
    2 Buah CommandButton
    1 Buah Timer
    1 Buah MaskEd

2. Design Form seperti pada gambar di bawah ini:

3. Jika Sidah selesai buat formnya sekarang buatkan 1 buah module kemudian Copy source kode dibawah ini :

Function calculateAge(dateOfBird As Date, fromData As Date) As String
    Dim dateNow, tgl, tgl1 As Date
    Dim years, months, days As Long
    Dim yearWord, monthWord, dayWord As String
    dateNow = fromData
    tgl = dateOfBird
    ' =====================================> Menghitung Hari..
    years = DateDiff("yyyy", tgl, dateNow)
    If Month(tgl) > Month(dateNow) Then
        years = years - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) > Day(dateNow) Then
        years = years - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) = Day(dateNow) Then
        GoTo finally
    End If
    ' ====================================> Menghitung Bulan..
    tgl = DateAdd("yyyy", years, tgl)
    months = DateDiff("m", tgl, dateNow)
    If Day(tgl) > Day(dateNow) Then
        months = months - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) >= Day(dateNow) Then
        months = months - 1
    End If
    tgl = DateAdd("m", months, tgl)
    ' ====================================> Menghitung hari
    days = DateDiff("d", tgl, dateNow)
    ' ====================================> Jika Sama Maka Akan Kosong...
finally:
    yearWord = IIf(years = 0, "", years & " Tahun ")
    monthWord = IIf(months = 0, "", months & " Bulan ")
    dayWord = IIf(days = 0, "", days & " Hari ")
    calculateAge = yearWord & monthWord & dayWord
    calculateAge = Trim(calculateAge)
End Function

Silahkan kawan save modulnya..

4. selanjutnya pada form1 ya sudah dibuat tadi klick duak kali (Double Klick) pada command1
Lalu masukan coding berikut ini :

Private Sub Command1_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Silahkan Masukan Tanggal Lahir Anda..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
    Dim strMsg As String
    strMsg = calculateAge(MaskEdBox1.Text, Label4.Caption)
    Label3.Caption = strMsg
End Sub

5. Double klick pada Timer1 dan masukan Coding berikut ini:

Private Sub Timer1_Timer()
Label4.Caption = Format(Date, "dd/MM/yyyy")
End Sub

6. Double klisk pada Command2 (Costum) Kemudian Masukan coding berikut:

Private Sub Command2_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Silahkan Masukan Tanggal Lahir Anda..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
Form2.Show
End Sub

7. Terakhir Anda Buat 1 forim lagi dengan Component sebagai berikut :

2 buah Label, 1 Buah CommandButton dan 1 buah MaskEd Lalu Deign Seperti Gambar di bawah ini:

8. Kemudian Double Klick Pada Form2 pada Command1 (Hitung) lalu masukan Coding berikut ini :

Private Sub Command2_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Mau di Hitung sampai Kapan.? Silahkan Isi Dulu..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
    Dim strMsg As String
    strMsg = calculateAge(Form1.MaskEdBox1.Text, Me.MaskEdBox1.Text)
    Form1.Label3.Caption = strMsg
    Unload Me
End Sub

SELESAI ......
Silahkan ada jalankan Projectnya.
Semoga Berhasil..

Membuat Alarm Mp3 Visual Basic 6.0 (VB6)

Membuat Alarm Mp3 Visual Basic 6.0

1. Buka Microsoft Visual Basic 6.0

2. Pilih Standar EXE

3. Tambahkan Components

1. Microsoft Common Dialog Control 6.0 (SP3)

2. Microsoft Multimedia Control 6.0

4. Design Form Seperti Gambar dibawah ini:

Component	Name	Ket/Caption/Text
Label	Label1	Waktu Sekarang
Label	Label2	Set Alarem
Label	LaTime	00:00:00
TextBox	TexTime	-
TextBox	TexLInk	-
CommandButton	Command1	Mulai
CommandButton	Command2	Cari Lagu
MMControl	MMC	-
CommonDialog	CD1	-
Shape	Shape1	(Oval)
Timer	Timer1	(Interval 100)
Timer	Timer2	(Interval 100)

5. Klik 2x Pada Timer 1 Pastekan Kode Berikut ini:

If TexTime.Text = LaTime.Caption Then

MMC.FileName = TexLInk.Text

MMC.Command = "Open"

MMC.Command = "Play"

End If

6. Klik 2x Pada Timer2 Masukan Kode Berikut:

LaTime.Caption = Format(Time, "HH:mm:ss")

If Timer1.Enabled = False Then

Shape1.BackColor = &HFF&

ElseIf Timer1.Enabled = True Then

Shape1.BackColor = &HFF00&

End If

7. Klik 2x Pada Command2 Masukan Kode Berikut:

CD1.DialogTitle = "Set musik Alarem"

CD1.Filter = "Mp3 File (*.Mp3)|*.Mp3;*.wav"

CD1.ShowSave

TexLInk.Text = CD1.FileName

8. Klik 2x Pada Command1 Masukan Kode Berikut :

If Command1.Caption = "Mulai" Then

Command1.Caption = "Stop"

If TexLInk.Text = "" Then

MsgBox "Musik Belum Ditentukan...!", vbExclamation

Exit Sub

End If

Timer1.Enabled = True

Command2.Enabled = False

TexTime.Enabled = False

Else

Command1.Caption = "Mulai"

Timer1.Enabled = False

Command2.Enabled = True

TexTime.Enabled = True

End If

9. Selesai Silahkan Simpan Projectnya.

Run Program Tekan F5 Atay Klik Menu Run => Start. Tentukan Lagu Untuk Alarem, Seting Waktu Alarem Berbunyi, Klik Mulai Dan Tunggu..
Jika Berhasil Lagu Akan Diputar Sesuai Dengan Waktu Yg Sudah Ditentukan.

Sekian Dari Saya Semoga Membantu...
Selamat Mencoba...

My Channel:

---Youtube---

Export Database Access Ke Excel Visual Basic 6 (VB6)

Export Database Access Ke Excel Visual Basic 6 (VB6)

Post Perdana yaitu mengenai Bagai Mana Cara Export Data yg ada dalam database Access 2007 ke Excel Menggunakan Visual Basic 6.0 (VB6) ok langsung saja Ke langkah Pertama:

1. Buka Microsoft Visual Basic 6.0 Buat Form seperti Gambar Dibawah ini:

Add komponen:

a. 1 Datagrid Ubah Name Menjadi "dg1"

b. 1 CommandButton Ubah Name Menjadi "cmdexport" Caption "Export Data Ke Microsoft Excel..?"

2. Add Modul Klik menu "Project" Pillih "Add Module" Ketikan Kode Koneksi Berikut ini:

Public sambungan As New ADODB.Connection

Public Sub koneksi()

Set sambungan = New ADODB.Connection

sambungan.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\exportdatakeexcel.mdb"

sambungan.CursorLocation = adUseClient

End Sub

3. Double Klik Pada form Masukan Kode Berikit Di Event Form_Load:

Private Sub Form_Load()

Call koneksi

Dim record As New ADODB.Recordset

Set record = New ADODB.Recordset

record.Open "Select * from data", sambungan

Set dg1.DataSource = record

dg1.Refresh

End Sub

4. Kode terakhir yaitu kode untuk mulai export, Double Klik Pada CommandButton1 ("cmdexport") Ketik Kode Berikut ini Atau Copy Paste:

Dim xl As Excel.Application

Dim fld As Integer

Dim rec As Long

Dim col As Integer

Dim row As Integer

Set xl = New Excel.Application

With xl

Workbooks.Add

Worksheets(1).Name = "Hasil Export"

fld = record.Fields.Count

For col = 1 To fld

xl.Cells(1, 1).Value = "Hasil Export Data"

xl.Cells(2, 1).Value = "itangdedi81@gmail.com"

xl.Cells(3, col).Value = record.Fields(col - 1).Name

Call .ActiveSheet.Range("A4").CopyFromRecordset(dg1.DataSource)

.ActiveSheet.Range("A1:F1").Merge& Center = True

.ActiveSheet.Range("A1:F1").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A2:F2").Merge& Center = True

.ActiveSheet.Range("A2:F2").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A1:F3").Font.Name = "Thaoma"

.ActiveSheet.Range("A1:F3").Font.Size = 20

.ActiveSheet.Range("A1:F2").Font.Bold = True

.ActiveSheet.Range("A3:F3").EntireColumn.AutoFit

.ActiveSheet.Range("A3:F3").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A3:F1000").Font.Name = "Arial"

.ActiveSheet.Range("A1:F15").Borders.LineStyle = xlContinuous

.ActiveSheet.Range("A3:F3").Interior.ColorIndex = 4

.ActiveSheet.Range("A3:F3").Font.ColorIndex = 5

MsgBox "selesai Export", vbInformation

.Visible = True

End With

5. Selesai Silahkan Test Tekan F5 Atau Klik Run Star Maka Data Akan Tampil Pada Datagrid:

Test export klik Button "Export Data Ke Microsoft Excel..?" Jika Berhasil Maka Akan Muncul File Excel Dengan Data Yg di ambil Dari database Access..

Mungkin Itu Saja Dari Saya Semoga Bisa Membantu Kalian..

Selamat Mencoba...

Tonton Videonya Di:

-------- My Channel ------