KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Visual Basic ile Müzik Çalar Yapmak
Konu : Visual Basic ile Müzik Çalar Yapmak - 07.03.2016, 13:39
Mesaj: #1
Herkese Merhaba illeg4lizm ailesi bugün Sizlere Visual Basic 2010 ve yukarı sürümlerine yapabileceğiniz Bir Müzik Çalar Yapımı Öğreteceğim.






İmage


1- ToolBox a Sağ Tıklayıp "Choose İtems" Diyoruz. Ardından "Com Compotents" Kısmına Girip "Windows Media Player" ı Tikleyip Ardından "OK" tuşuna Basmamız Yeterlidir.










İmage



2-Gördüğünüz gibi Toolbox a Eklendi "Windows Media Player" Formumuza Bırakıyoruz ve Görünmeyen Bir Yerine Koyuyoruz






İmage






3-Form unuza Üstte Gördüğünüz Objeleri Yerleştirin Yeri Önemli Değildir Kısaca 4 Button 1 ListBox 1 OpenFileDialog






Benim Formumda










button1 - Play


button2 - Pause


button3 - Stop


button4 - Add


şeklinde buna göre anlatım yapacağım.






4- Button 1 e Çift Tıklayıp Kodumuzu Girelim


Kod:
AxWindowsMediaPlayer1.URL = listbox1.SelectedItem


Ne İşe Yarar : Burda arkadaşlar vermek istediğimiz mesaj Eklediğimiz MediaPlayer Objesinin ListBox üzerinden seçtiğimiz objeyi çaldırmaktır.


5-Button2 ye Çift Tıklayıp Kodumuzu Girelim


Kod:
AxWindowsMediaPlayer1.Ctlcontrols.pause()

[size={defaultattr}][font={defaultattr}]
Ne işe Yarar:Burda MediaPlayer Objesine Button a Bastığımızda Çalan Objeyi Geçici Durdurmanıza Yaramaktadır.

[/font][/size]6-Button3 e Çift Tıklayıp Kodumuzu Girelim



Kod:
AxWindowsMediaPlayer1.Ctlcontrols.stop()





[size={defaultattr}][font={defaultattr}]Ne işe Yarar:Burda MediaPlayer Objesine Button a Basığımızda Çalan Objeyi Tamamen Durdurmanıza Yarar.[/font][/size]





[size={defaultattr}][font={defaultattr}]7-Button4 e Çift Tıklayıp Kodumuzu Girelim[/font][/size]



Kod:
openfiledialon1.ShowDialog()
     If Windows.Forms.DialogResult.OK Then
        For Each track As String In openfiledialog1.FileNames
          listbox1.Items.Add(Track)
     Next
 End If





[size={defaultattr}][font={defaultattr}]Ne İşe Yarar: OpenFileDialogu Açıp Şarkılarımızı Listeye Eklemenize Yarar[/font][/size]





Resimler Alıntıdır





Konu Anlatımı ve Source Code Tamamen Kendi Emeğim Yazımımdır
hlk52, üyesi illegalizm | Private illegal Topluluk - Hack forum,Warez Scriptler forumlarına 06.12.2015 tarihinde katılmıştır.

(Son Düzenleme: 07.03.2016, 13:40, Düzenleyen: hlk52.)
WWW Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort türk ifşa hd porno