Membuat Play Music In CD-Rom| VB6 |

Hai Sahabat Blogger Selamat Malam,,Malam Ini Saya Akan Share Tentang Tutorial VB6 Sudah Lama Saya Gk Posting Tentang VB6 Nah Sekarang Saya Akan Share Tutorial VB6 Yaitu Cara Membuat Play Music Di CDrom..Jadi Langsung Saja Praktekin :
•Pertama Tama Kalian Buka Visual Basic nya

•Pilih Standar Exe Lalu Open

•Setelah Terbuka TAmpilannya Selanjutnya Anda Buat Design Contoh Seperti Ini

••Kalian Bisa Berkreasi Sendiri ••
•Disini Saya MEmasukan 6 Button,Dan 2 Label
Yang Button Pertama Anda Kasih Name : cmdPlay
Yang Button Kedua Anda Kasih Name : cmdStop
Yang Button 3 : cmdPrev
Yang Button 4 : cmdNext
Yang Button 5 : cmdEject
Yang Button 6 : cmdAbout
Lalu Anda Buat Form Baru Buat Tampilan About
Setelah Anda Design Seperti Ini Lalu Anda Masukan Code Nya Dengan Cara
•Klik Menu View Lalu Klik Menu Code
Lalu Anda Tinggal Masukan Cod Dibawah Ini :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim CurrentTrack As Integer
Dim NumTracks As Integer
Dim i As Integer
Dim DoorOpen As Boolean

Private Sub cmdAbout_Click()
frmabout123.Show
End Sub

Private Sub cmdEject_Click()
    If DoorOpen = False Then
        mciSendString "set cd door open", 0, 0, 0
        DoorOpen = True
    Else
        If DoorOpen = True Then
            mciSendString "set cd door closed", 0, 0, 0
            DoorOpen = False
        End If
    End If
End Sub
Private Sub cmdNext_Click()
    If CurrentTrack < NumTracks Then
        CurrentTrack = CurrentTrack + 1
        lblCurrent.Caption = CurrentTrack & "/" & NumTracks
        mciSendString "stop cd wait", 0, 0, 0
        mciSendString "seek cd to " & CurrentTrack, 0, 0, 0
        mciSendString "play cd", 0, 0, 0
    End If
End Sub
Private Sub cmdPlay_Click()
        mciSendString "stop cd wait", 0, 0, 0
        mciSendString "seek cd to " & CurrentTrack, 0, 0, 0
        mciSendString "play cd", 0, 0, 0
End Sub
Private Sub cmdPrev_Click()
    If CurrentTrack > 1 Then
        CurrentTrack = CurrentTrack - 1
        lblCurrent.Caption = CurrentTrack & "/" & NumTracks
        mciSendString "stop cd wait", 0, 0, 0
        mciSendString "seek cd to " & CurrentTrack, 0, 0, 0
        mciSendString "play cd", 0, 0, 0
    End If
End Sub
Private Sub cmdStop_Click()
    mciSendString "stop cd wait", 0, 0, 0
End Sub
Private Sub Form_Load()
    mciSendString "close all", 0, 0, 0
    mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0
    mciSendString "set cd time format tmsf wait", 0, 0, 0
    NumberOfTracks
    CurrentTrack = 1
    DoorOpen = False
End Sub
Private Sub NumberOfTracks()
    On Error GoTo Kraj
    Dim Tracks As String * 30
   
    mciSendString "status cd number of tracks wait", Tracks, Len(Tracks), 0
    NumTracks = CInt(Mid$(Tracks, 1, 2))
    lblCurrent.Caption = "1/" & NumTracks
    GoTo Kraj1
Kraj: MsgBox "Teu Aya CD Nu Dimasukeun", vbOKOnly + vbCritical, "Zalart34 CD Player"
Kraj1:
End Sub
Private Sub Form_Unload(Cancel As Integer)
    mciSendString "stop cd wait", 0, 0, 0
    mciSendString "close all", 0, 0, 0
End Sub






Selesai Dech Tinggal Pijit F5
Semoga Berhasil :)