.
ÜYE OLDUKTAN SONRA REKLAM KALKACAKTIR !!!



 
AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yapİletişim
Reklam Alanı
Reklam Vermek İçin Tıklayınız
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
En son konular
» Headquarters Gaming PRO [sXe] - 178.211.51.12
Ptsi Ara. 15, 2014 1:31 pm tarafından nonofthem

» Çok Uzun Zaman Aradan Sonra Geri Dönüş : mem1998
Çarş. Mayıs 23, 2012 7:37 pm tarafından mem1998

» Moderatör Alımı
C.tesi Mart 10, 2012 6:11 pm tarafından Pyrokinezi

» Gold k1 kodu :)
C.tesi Tem. 02, 2011 3:35 pm tarafından Reis61

» Warrock Bedava K1 İlk Kapan Alır ArkadaşLar Yöneticiler Lütfen Siz Almayın Kodu...
C.tesi Mayıs 21, 2011 9:16 pm tarafından darkus2

» Muhteşem bir forum
Cuma Şub. 25, 2011 11:35 pm tarafından apachibebetto

En iyi yollayıcılar
★ÅDMÌN★ (702)
 
kadirselen (550)
 
★Mǿяpнiпé★ (355)
 
ByCeo35 (314)
 
Darth Vader (286)
 
KaRaeL (197)
 
NharkoZ (185)
 
samsafi (174)
 
Lucho~ (101)
 
bucalii35 (97)
 
Kimler hatta?
Toplam 4 kullanıcı online :: 0 Kayıtlı, 0 Gizli ve 4 Misafir :: 1 Arama motorları

Yok

Sitede bugüne kadar en çok 221 kişi Ptsi Eyl. 06, 2010 1:15 pm tarihinde online oldu.

Online Sayaç
Anahtar-kelime

Paylaş | 
 

 VISUAL BASİC İLE TELEVİZYON PROGRAMI

Aşağa gitmek 
YazarMesaj
kadirselen
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 550
<b>Kayıt tarihi</b> Kayıt tarihi : 15/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : Denizli
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: 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.]


Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.123.st
 
VISUAL BASİC İLE TELEVİZYON PROGRAMI
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Bilgisayar & İnternet :: Web Tasarım ve Programlama :: Visual Basic-
Buraya geçin: