Televizyon Programı

Yeni başlayanlar için güzel bir uygulama


İlk olarak ctrl+t basıp ordan windows media player'ı tıklıyoruz ve forma ekliyoruz daha sonra 6 tane command butonu ekliyoruz ve 1 tanede label ekliyoruz. daha sonra 1.command butonuna trt 1 , 2. butona trt 2 , 3.butona trt 4, 4 butona trt ınt , 5. butona ntv , 6. butona elif tv yazın ve daha sonra bu kodları kopyala yapıştır yapın...

Private Sub Form_Load()
MsgBox "Bu program volkan öztürk yapımıdır...", 64, "[email protected]"

End Sub


Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "http://212.175.166.3/TV1"
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.URL = "http://212.175.166.3/TV2"
End Sub

Private Sub Command3_Click()

WindowsMediaPlayer1.URL = "http://212.175.166.3/TV4"
End Sub

Private Sub Command4_Click()
WindowsMediaPlayer1.URL = "http://144.122.56.15/odtutv"
End Sub

Private Sub Command6_Click()
WindowsMediaPlayer1.URL = "http://66.90.118.66/eliftv"
End Sub

Private Sub Form_Activate()
a:
Label1 = Format(Now, "hh:mm:ss")
DoEvents
GoTo a
End Sub

saoll

sende sağol

eline sağlık saol...

:d

R.S' Alıntı:

eline sağlık saol...

Genişletmek için tıkla ...

süper ya denemek lazım

Denemeden nasil super?

rap34' Alıntı:

süper ya denemek lazım

Genişletmek için tıkla ...

Ya arkadaslar, denemeden, programi gormeden nasil super diyorsunuz anlamiyorum. Hemen hemen her konuya sadece yazi yazmak icin yazanlar burda sanirim siz sadece site icinde bir yere gelmeye calisiyorsunuz? Biri bir program yada deneme verdiyse once yapin, uygulayin sonra ya tavsiye edin yada bu deneme yada her neyse onun iyi bir sey olmadigini soyleyinki kimse vakit harcamasin haybeden.

bisey anlayamadim ama iyi bisey olmali eline saglik

saolsss teşekkür ederim