kadirselen
![[By_Admin İyi Forumlar Diler]](https://2img.net/r/ihimizer/img233/4033/admnfi7.gif "[By_Admin İyi Forumlar Diler]")
 Mesaj Sayısı : 550
 Kayıt tarihi : 15/08/10
 Yaş : 34
 Nerden : Denizli
 Cinsiyet : 
 |  Konu: VISUAL BASİC İLE TELEVİZYON PROGRAMI  Cuma Ağus. 20, 2010 9:18 am | |
| 
Arkadaşlar Çok Basit Bir Televizyon Programı Yaptık..Bunu Ögrenme Amaçlı Yaptık... Şimdi Sizlere Aktarıyoruz
resimde gördügünüz gibi 1 tane axwindowsmediaplayer 3 tane button bir tane listbox koyduk...
Buttonlardan 2 tanesi sayfayı aşagı yukarı indirme işlemine yarıyo
Diger button ise listbox!tan seçtiginiz kanalı windowsmedia player a aktarmaya yarıyor.Şimdi Kodlarımızı Paylaşalım
Sayfayı aşagı yukarı oynatmak için timerlara ihtiyacım var..
2 tane timer koyuyoruz formumuza..
Aşagı İndirmek için timer_tick özelligine şu kodlar yazıyoruz
- Kod:
-
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.Height >= 734 Then
Timer1.Stop()
Else
Me.Height += 4
End If
End Sub
Yukarı Kaldırmak için timer2 içine şu kodları yazalım
[/code]Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Me.Height <= 536 Then
Timer2.Stop()
Else
Me.Height -= 4
End If
End Sub
[/code]
Bunları yazdıktan sonra aşagı butonunun içine timer1.start yukarı butonunun içine timer2.start yazalım
Ve şimdi Geldi Asıl İşe Kanalları İzleme Olayına
İlk Önce Lixtbox içine kanal isimlerini yerleştirin.
Sonra Çalıştır Butonunun içine de Şu kodları yazarsanız Kendi Televizyon programınızı Elde Edersiniz
- Kod:
-
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
If tvlist.Text = "TRT-1" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV1")
ElseIf tvlist.Text = "TRT-2" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV2")
ElseIf tvlist.Text = "TRT-3" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV3")
ElseIf tvlist.Text = "TRT-Çocuk" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV4")
ElseIf tvlist.Text = "TRT-TÜRK" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TRTTURK")
ElseIf tvlist.Text = "TRT-AVAZ" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TRTAVAZ")
ElseIf tvlist.Text = "TRT-ANADOLU" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TV5")
ElseIf tvlist.Text = "TRT-BELGESEL" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TRTBELGESEL")
ElseIf tvlist.Text = "TRT-MUZİK" Then
AxWindowsMediaPlayer1.URL = ("mms://95.0.159.131/TRTMUZIK")
ElseIf tvlist.Text = "KANAL SEÇ" Then
MsgBox("Lütfen Kanal Seçiniz...")
End If
End Sub
Saygılarla | KADİR SELEN ve HAKAN ŞEN |
[Linkleri görebilmek için üye olun veya giriş yapın.]
| |
|
