WarTurks Yazılım&Programlama
Yazılım&Programlama  
  Ana Sayfa
  Paralı Hizmetlerimiz
  Visual Basic'e Giris
  VB İndirmeli Dersler[Artık Tüm Dersler Burda]]
  Visual Basic 6 Dersleri
  => Bize Ait Vb 6 Calısmalari Ve Yapimi
  => Visual Basic'de Tv Programi Yapmak
  => Winamp Yapimi
  => Visual Basicde Winsock Kullanarak CHAT Yapmak
  Visual Basic 6 Dersleri 2
  Visual Basic Ders Notlari[Resimli]
  Pascala Giris
  Pascal Dersleri
  Php'ye Giris
  Php Dersleri
  C ve C++'ya Giris
  C ve C++ Dersleri
  C++ Ders Notlari [Resimli]
  İletişim
Winamp Yapimi
ArkadasLar Artık Kendi Muzik Programınızı MP3Çalarınızı Yapabileceksiniz
BaşLayaLım.


project componentten microsoft common dialog control ü ekleyin

3 command 1 tanede text kutusu ekleyin

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As StringByVal lpstrReturnString As StringByVal uReturnLength As LongByVal hwndCallback As Long) As 
Long



Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As LongByVal lpstrBuffer As StringByVal 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"00
0
End Sub



Private Sub Command2_Click
()

mciSendString "close Yenises"00
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"000
)

Hata Mesajını Alıyoruz

mciGetErrorString Hata
HataMesaji
128

Label1
.Caption 
HataMesaji
mciSendString 
"play YeniSes"00
0
End Sub 


Ve Bitti.İşte Bu Kadar İyi. Eğlenceler....
Yazılım&Programlama  
   
Reklam  
   
 
   
 
   
 
   
 
   
Bugün 1 ziyaretçi (28 klik) kişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=