Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Müzik Çalar

 Bu playere sizin sürücüden dalga ve midi dosyaları aramak ve o dosyaları normal çalıştığı gibi çalmasını sağlar. Bu projede, form içine bir ComboBox, bir DriveListBox, bir DirListBox, Bir TextBox ve bir FileListBox eklemek gerekir. Formunuza Microsoft Multimedya Kontrolü (MMControl) eklemek gerekir, görünür yada görünmez haline getirebilirsiniz.
 Ama bu programda, komut düğmelerinden oluşan oyuncu kontrollerini(başlat, dur, durdur felan) yapmak için görünmez hale getiriniz.
- ComboBox, dosyaları görüntüleme ve dosyaları farklı tipte seçmesine sağlar. 
- DriveListBox-PC'nizde farklı sürücüler seçimi için kullanılabilir izin. 
- DirListBox - dizinleri görüntülemek için
- TextBox - Seçilen dosyaları görüntülemek için
- FileListBox-de mevcut dosyaları görüntülemek
 Uygulamanın düzgün çalışması için yukarıdaki tüm işlemleri koordine etmelisiniz.
 
Visual Basic İle Müzik Çalar - VBDersleri.Tr.Gg
 

Private Sub Combo1_Change() ' to determine file type If ListIndex = 0 Then File1.Pattern = ("*.wav") ElseIf ListIndex = 1 Then File1.Pattern = ("*.mid") Else Fiel1.Pattern = ("*.*") End If End Sub   Private Sub Dir1_Change() 'To change directories and subdirectories(or folders and subfolders) File1.Path = Dir1.Path If Combo1.ListIndex = 0 Then File1.Pattern = ("*.wav") ElseIf Combo1.ListIndex = 1 Then File1.Pattern = ("*.mid") Else File1.Pattern = ("*.*") End If End Sub
Private Sub Drive1_Change()
'To change drives
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mid")
Else
File1.Pattern = ("*.*")
End If

If Right(File1.Path, 1) <> "" Then
filenam = File1.Path + "" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub


Private Sub Form_Load()
'To center the Audioplayer startup page
Left = (Screen.Width - Width)  2
Top = (Screen.Height - Height)  2
Combo1.Text = "*.wav"
Combo1.AddItem "*.wav"
Combo1.AddItem "*.mid"
Combo1.AddItem "All files"
End Sub



Private Sub play_Click()

'To play WaveAudio file or Midi File

Command2_Click
If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = "WaveAudio"
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = "Sequencer"
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = "Open"
AudioPlayer.Command = "Play"
 

End Sub

Private Sub stop_Click()

If AudioPlayer.Mode = 524 Then Exit Sub
If AudioPlayer.Mode <> 525 Then
AudioPlayer.Wait = True
AudioPlayer.Command = "Stop"
End If
AudioPlayer.Wait = True
AudioPlayer.Command = "Close"


End Sub







Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=