VB'de ListBox ile TV Programı Yapma..!

WindTalker · 29 Ağu 2012

Öncelikle Merhaba;

Çoğu sitede Tv programını "Button" ile yapmayı göstermiş. Kanal sayısı arttığında Button ile TV programı yapmak imkansıza doğru yol alır.

ListBox ile yapmayı anlatan bir konuya rastlamadım.Bu yüzden bilmeyenler için paylaşmak istedim..

[BILGI]•Öncelikle Form'a İstediğimiz Şekilde ListBox'ı Yerleştiriyoruz..
• "ListBox Tasks> Edit İtems..." Yolunu Takip Ederek Listeye Kanal İsimlerini Sırayla Yazıyoruz..
[/BILGI]

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem = "ListBox'a Yazılan Kanal İsmi(Büyük Küçük Uyumuna Dikkat Ediniz)" Then
AxWindowsMediaPlayer1.URL = ("Kanalın MMS Adresi")
End If
If ListBox1.SelectedItem = "ListBox'a Yazılan Kanal İsmi(Büyük Küçük Uyumuna Dikkat Ediniz)" Then
AxWindowsMediaPlayer1.URL = ("Kanalın MMS Adresi")
End If
End Sub

En Kısa Zamanda Video Çekip Koyacağım.
Not: Kanal Sayısını Çoğaltabilirsiniz

Excellenct · 7 Eyl 2012

ne işe yarıyo bunlar :crw:

WindTalker · 8 Eyl 2012

Tv Programını Listboxla yapmak için Hemen bir örnek ile açıklayalım ki kafada soru işaretleri kalmasın

[BILGI]
If ListBox1.SelectedItem = "Kanal İsmi(ListBoxdaki ile aynı)" kodumuz ListBox'taki değeri seçmeye yarıyor.
Bu kod olmadığı takdirde ListBoxda Kanal İsmi olmasının bir faydası yok.

AxWindowsMediaPlayer1.URL = ("Kanalın MMS Adresi") Bu basit Windows Media Playerda Kanalı Açmak için Genelde mms: diye adresleri olur. [/BILGI]

Diyelim ki Listboxa sırasıyla şunları ekledik;
Star TV
Show TV
Kanal D

Kod bölümü ise şu şekilde olacak.(yukarıda verdiğim sıraya göre.)

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem = "Star TV" Then
AxWindowsMediaPlayer1.URL = ("mms://yayin.canlitv.com/startv")
End If
If ListBox1.SelectedItem = "Show TV" Then
AxWindowsMediaPlayer1.URL = ("http://canlitv.com/asx/showtv.asx")
End If
If ListBox1.SelectedItem = "Kanal D" Then
AxWindowsMediaPlayer1.URL = ("http://canlitv.com/asx/kanald.asx")
End If
End Sub

Gibi

Dentrax · 9 Eyl 2012

Kim uğraşacak bunla

End if end if end if end if...

----------

Değişik bir örnek : If yapısız.

ComboBox ekle ShowTv, StarTv ekle ;

Private Sub combo1_Click()
Select Case combo1.ListIndex
Case 0 'İlk sıradaki için örnek : Show
wmp1.Url = ("adres")"
Case 1 'İkinci sıradaki için örnek : Star
wmp1.Url = ("adres2")
End Select

drummens · 25 Ara 2012

teşekkürler...........

Dentrax · 25 Ara 2012

drummens' Alıntı:
teşekkürler...........

Son söyleyişim, devam ederseniz ceza alacaksınız.

VB'de ListBox ile TV Programı Yapma..!

WindTalker

Excellenct

WindTalker

Dentrax

drummens

Dentrax

Benzer Konular

Sosyal Ağlarla Paylaş