Option Explicit

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



Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long









Private Sub Command1_Click()


Dim Hata As Long

Dim HataMesaji As String * 128

'Mesajı gönderiyoruz

Hata = mciSendString("open " & Chr$(34) & Text1.Text & Chr$(34) & " alias YeniSes", 0, 0, 0)

'Hata Mesajını Alıyoruz

mciGetErrorString Hata, HataMesaji, 128

Label1.Caption = HataMesaji

mciSendString "play YeniSes", 0, 0, 0
End Sub



Private Sub Command2_Click()

mciSendString "close Yenises", 0, 0, 0

End Sub







Private Sub Command3_Click()

On Error GoTo error



With CommonDialog1



.CancelError = True



.DialogTitle = "Ses Dosyası aç"

.Filter = "Şarkı Dosyaları (*.mp3) |*.mp3; |Ses Dosyaları (*.wav) |*.wav; |Midi Dosyaları (*.mid) |*.mid"

.InitDir = Environ("HomeDrive")

.ShowOpen





If Len(.FileName) = 0 Then Exit Sub



Text1.Text = .FileName

Command1.SetFocus

End With



error:

End Sub



Private Sub Form_Load()



'''Buraları bilmesenizde olur ben sadece nasıl çalıştığını görün diya yaptım
Text1.Enabled = False


Left = (Screen.Width - Width) \ 2

Top = (Screen.Height - Height) \ 2





Command1.Caption = "Çal"

Command2.Caption = "Dur"

Command3.Caption = "Gözat"





Form1.Height = 4920

Form1.Width = 8820







Command1.Top = 1320

Command1.Left = 480



Command2.Top = 1920

Command2.Left = 480



Command3.Top = 2400

Command3.Left = 6600



Text1.Top = 2520

Text1.Left = 480



Text1.Height = 285

Text1.Width = 6015



End Sub

Private Sub Form_Unload(Cancel As Integer)
mciSendString "close Yenises", 0, 0, 0
End Sub

Private Sub Text1_Change()

mciSendString "close Yenises", 0, 0, 0

Dim Hata As Long

Dim HataMesaji As String * 128

'Mesajı gönderiyoruz

Hata = mciSendString("open " & Chr$(34) & Text1.Text & Chr$(34) & " alias YeniSes", 0, 0, 0)

'Hata Mesajını Alıyoruz

mciGetErrorString Hata, HataMesaji, 128

Label1.Caption = HataMesaji
mciSendString "play YeniSes", 0, 0, 0
End Sub