Dedi Supriadi BJR: 2017

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)

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 ------

Membuat Alarm Mp3 Visual Basic 6.0 (VB6)

Export Database Access Ke Excel Visual Basic 6 (VB6)