Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Ekim 2010 Pazar

Web TV & Radio



'UserForm1

'A) Windows XP® Office 2003® Normal Referance List

'A1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'A2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'A3) Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\STDOLE2.TLB
'A4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'A5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'A6) Name: WMPLib, Description: Windows Media Player, FullPath: C:\WINDOWS\system32\wmp.dll [Picture: 1]

'B) UserForm1 E Eklenen Araçlar (Add Tools)

'B1) Image1, Label1, Label2
'B2) WindowsMediaPlayer1
'B3) Label3,ComboBox1,Label5
'B4) Label4,ComboBox2,Label6

Option Explicit
Dim No As Double
Private Sub UserForm_Initialize()

On Error Resume Next
Dim i As Integer
Call Ekran_Düzenle
Call TV_Listele
Call Radyo_Listele
Me.Caption = "[PBİD®] Web TV & Radio"

End Sub
Private Sub ComboBox1_Click()

On Error Resume Next
No = ComboBox1.ListIndex
ComboBox2.ListIndex = -1
Label6.Caption = ""
WindowsMediaPlayer1.URL = ComboBox1.List(No, 1)
Label5.Caption = " " & ComboBox1.List(ComboBox1.ListIndex, 1)

End Sub
Private Sub ComboBox2_Click()

On Error Resume Next
No = ComboBox2.ListIndex
ComboBox1.ListIndex = -1
Label5.Caption = ""
WindowsMediaPlayer1.URL = ComboBox2.List(No, 1)
Label6.Caption = " " & ComboBox2.List(ComboBox2.ListIndex, 1)

End Sub
Sub Ekran_Düzenle()

On Error Resume Next
With Me

.Width = 420
.Height = 418
.BackColor = vbWhite
.Picture = Resim(URL1)
'.Picture = LoadPicture("C:\Documents and Settings\PC\Desktop\BLOGSPOT\zarifVİSTA.bmp")
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
With Image1

.BackStyle = fmBackStyleTransparent
.BorderColor = &HFF0000
.BorderStyle = fmBorderStyleSingle
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.Picture = Resim(URL2)
'.Picture = LoadPicture("C:\Documents and Settings\PC\Desktop\BLOGSPOT\Örnekİkonlar\PBİD.ico")

End With
With Label1

.Caption = " " & "Mustafa ULUSARAÇ"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 6
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000

End With
With Label2

.Caption = " " & "01ulusarac@superonline.com"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 18
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000

End With
With WindowsMediaPlayer1

.Left = 6
.Top = 36
.Height = 306
.Width = 402

End With
With Label3

.BackStyle = fmBackStyleTransparent
.Caption = " TV"
.SpecialEffect = fmSpecialEffectEtched
.Left = 6
.Top = 348
.Height = 18
.Width = 42
.ForeColor = &H808000
.Font.Bold = True

End With
With ComboBox1

.Left = 48
.Top = 348
.Height = 18
.Width = 102
.SpecialEffect = fmSpecialEffectEtched
.BackColor = vbBlack
.ForeColor = &HFF00& '&H808000
.Font.Bold = False
.ColumnCount = 2
.ColumnWidths = "240;42"

End With
With Label5

.BackStyle = fmBackStyleTransparent
.Caption = ""
.SpecialEffect = fmSpecialEffectEtched
.Left = 150
.Top = 348
.Height = 18
.Width = 258
.ForeColor = &H808000
.Font.Bold = True

End With
With Label4

.BackStyle = fmBackStyleTransparent
.Caption = " Radyo"
.SpecialEffect = fmSpecialEffectEtched
.Left = 6
.Top = 366
.Height = 18
.Width = 42
.ForeColor = &H808000
.Font.Bold = True

End With
With ComboBox2

.Left = 48
.Top = 366
.Height = 18
.Width = 102
.SpecialEffect = fmSpecialEffectEtched
.BackColor = vbBlack
.ForeColor = &HFF00& '&H808000
.Font.Bold = False
.ColumnCount = 2
.ColumnWidths = "240;42"

End With
With Label6

.BackStyle = fmBackStyleTransparent
.Caption = ""
.SpecialEffect = fmSpecialEffectEtched
.Left = 150
.Top = 366
.Height = 18
.Width = 258
.ForeColor = &H808000
.Font.Bold = True

End With

End With

End Sub
Sub TV_Listele()

On Error Resume Next
ComboBox1.AddItem "TRT 1": ComboBox1.List(0, 1) = "mms://95.0.159.131/TV1"
ComboBox1.AddItem "TRT 2 Haber": ComboBox1.List(1, 1) = "mms://95.0.159.131/TV2"
ComboBox1.AddItem "TRT 3": ComboBox1.List(2, 1) = "mms://95.0.159.131/TV3"
ComboBox1.AddItem "TRT4 Çocuk": ComboBox1.List(3, 1) = "mms://95.0.159.131/TV4"
ComboBox1.AddItem "TRT 6": ComboBox1.List(4, 1) = "mms://95.0.159.131/TV6"
ComboBox1.AddItem "TRT Müzik": ComboBox1.List(5, 1) = "mms://95.0.159.131/TRTMUZIK"
ComboBox1.AddItem "TRT Türk": ComboBox1.List(6, 1) = "mms://95.0.159.131/TRTTURK"
ComboBox1.AddItem "TRT Avaz": ComboBox1.List(7, 1) = "mms://95.0.159.131/TRTAVAZ"
ComboBox1.AddItem "TRT Belgesel": ComboBox1.List(8, 1) = "mms://95.0.159.131/TRTBELGESEL"
ComboBox1.AddItem "TRT Arapça": ComboBox1.List(9, 1) = "mms://95.0.159.133/TRTARABIC"
ComboBox1.AddItem "TRT International": ComboBox1.List(10, 1) = "mms://212.175.166.3/TRTINT"
ComboBox1.AddItem "Cine 5": ComboBox1.List(11, 1) = "mms://yayin.cine5.com.tr/cine5"
ComboBox1.AddItem "NTV": ComboBox1.List(12, 1) = "mms://144.122.56.15/odtutv"
ComboBox1.AddItem "Samanyolu": ComboBox1.List(13, 1) = "mms://canli.samanyolu.tv/stv"
ComboBox1.AddItem "Samanyolu TV Haber": ComboBox1.List(14, 1) = "mms://canli.samanyoluhaber.tv/shaber"
ComboBox1.AddItem "Expo Channel": ComboBox1.List(15, 1) = "mms://yayin.canlitv.com/expochannel"
ComboBox1.AddItem "Güney TV": ComboBox1.List(16, 1) = "mms://yayin.canlitv.com/guneytv/guneytv.asf"
ComboBox1.AddItem "Olay TV": ComboBox1.List(17, 1) = "mms://yayin.canlitv.com/olaytv"
ComboBox1.AddItem "TV 41": ComboBox1.List(18, 1) = "mms://yayin.canlitv.com/tv41"
ComboBox1.AddItem "Yol TV": ComboBox1.List(19, 1) = "mms://85.214.55.224/yol"
ComboBox1.AddItem "Kanal B ": ComboBox1.List(20, 1) = "mms://193.140.161.79/kanalb "
ComboBox1.AddItem "Yumurcak TV": ComboBox1.List(21, 1) = "mms://canli.yumurcak.tv/yumurcak"
ComboBox1.AddItem "BRT1 TV": ComboBox1.List(22, 1) = "mms://bms.brtk.net/brttv"
ComboBox1.AddItem "BRT2 TV": ComboBox1.List(23, 1) = "mms://bms.brtk.net/brt2"
ComboBox1.AddItem "DRT TV": ComboBox1.List(24, 1) = "mms://euro3.bizidinle.com/yayin-bd-drttv"
ComboBox1.AddItem "Kıbrıs Genç": ComboBox1.List(25, 1) = "mms://euro3.bizidinle.com/yayin-bd-kibrisgenctv"
ComboBox1.AddItem "TV 5": ComboBox1.List(26, 1) = "mms://94.75.240.130/tv5"
ComboBox1.AddItem "Amasya Art TV": ComboBox1.List(27, 1) = "mms://euro3.bizidinle.com/yayin-bd-arttv"
ComboBox1.AddItem "Günaz TV": ComboBox1.List(28, 1) = "mms://v1.webcasting.com/webcasting_gunaz"
ComboBox1.AddItem "Hilal TV": ComboBox1.List(29, 1) = "mms://94.75.240.130/hilaltv"
ComboBox1.AddItem "Hizmet TV": ComboBox1.List(30, 1) = "mms://euro3.bizidinle.com/yayin-bd-hizmettv"
ComboBox1.AddItem "Kaçkar TV": ComboBox1.List(31, 1) = "mms://94.75.240.130/kackartv"
ComboBox1.AddItem "Kanal 51": ComboBox1.List(32, 1) = "mms://94.75.240.158/kanal51"
ComboBox1.AddItem "Kanal Alanya": ComboBox1.List(33, 1) = "mms://kanalalanya.com/kanalalanya"
ComboBox1.AddItem "Kanal Vip VTV": ComboBox1.List(34, 1) = "mms://88.225.223.212/"
ComboBox1.AddItem "Mehtap TV": ComboBox1.List(35, 1) = "mms://canli.mehtap.tv/mehtap"
ComboBox1.AddItem "Ada TV": ComboBox1.List(36, 1) = "mms://212.175.149.82:8080"
ComboBox1.AddItem "Kanal 3 TV": ComboBox1.List(37, 1) = "mms://91.191.163.159/Kanal3tv"
ComboBox1.AddItem "Kanal 67": ComboBox1.List(38, 1) = "mms://94.75.240.130/emrah"
ComboBox1.AddItem "Kanal 48": ComboBox1.List(39, 1) = "mms://yayin.canlitv.com/kanal48"
ComboBox1.AddItem "Kırşehir TV": ComboBox1.List(40, 1) = "mms://94.75.240.129/kirsehirtv"
ComboBox1.AddItem "Fenerbaçe Tv ": ComboBox1.List(41, 1) = "mms://media01.ad1.softcom.biz/fbtv-173?TID=d360875c"
ComboBox1.AddItem "Adım TV": ComboBox1.List(42, 1) = "mms://66.90.118.66/adimtv"
ComboBox1.AddItem "ATV": ComboBox1.List(43, 1) = "mms://213.74.13.115/atv"
ComboBox1.AddItem "Channel 125": ComboBox1.List(44, 1) = "mms://channel125.com/channel125"
ComboBox1.AddItem "Delux Music TV": ComboBox1.List(45, 1) = "mms://mp-mmsc-2.mpservers.net/deluxemusictv_10"
ComboBox1.AddItem "Dost TV": ComboBox1.List(46, 1) = "mms://dosttv.propagation.net/DostTV"
ComboBox1.AddItem "Gelişim": ComboBox1.List(47, 1) = "mms://81.214.70.75:8090"
ComboBox1.AddItem "Giga": ComboBox1.List(48, 1) = "http://broadcast.giga.de:80"
ComboBox1.AddItem "JCTV": ComboBox1.List(49, 1) = "mms://us-eu-st13g1.att-idns.net/3408_4365_04.asf"
ComboBox1.AddItem "K7": ComboBox1.List(50, 1) = "http://yayin.yayindayiz.biz:8110"
ComboBox1.AddItem "Kral TV": ComboBox1.List(51, 1) = "mms://217.31.235.46/kraltv"
ComboBox1.AddItem "Number One": ComboBox1.List(52, 1) = "mms://66.90.101.68/TV-NumberOne "
ComboBox1.AddItem "ODTÜ TV": ComboBox1.List(53, 1) = "mms://144.122.56.15/ODTU-TV"
ComboBox1.AddItem "Ontop TV": ComboBox1.List(54, 1) = "mms://64.71.165.133/ontoptv"
ComboBox1.AddItem "Show TV": ComboBox1.List(55, 1) = "mms://95.211.98.3/TV-ShowTv"
ComboBox1.AddItem "Sky TV": ComboBox1.List(56, 1) = "mms://213.74.22.66/skyturk"
ComboBox1.AddItem "Soul Beat TV": ComboBox1.List(57, 1) = "http://vista.streamguys.com/soulbeattv"
ComboBox1.AddItem "Star TV": ComboBox1.List(58, 1) = "mms://217.31.235.46/startv "
ComboBox1.AddItem "STV": ComboBox1.List(59, 1) = "mms://usa.stv.com.tr/live"
ComboBox1.AddItem "TGRT": ComboBox1.List(60, 1) = "http://70.84.33.194:8140/"
ComboBox1.AddItem "WAM TV": ComboBox1.List(61, 1) = "mms://146.101.200.150/WAMTV"
ComboBox1.AddItem "Türkmeneli TV": ComboBox1.List(62, 1) = "mms://66.90.101.25/turkmen"
ComboBox1.AddItem "Hilal TV": ComboBox1.List(63, 1) = "mms://94.75.240.130/hilaltv "
ComboBox1.AddItem "MPL TV": ComboBox1.List(64, 1) = "mms://mpl.dyndns.tv/MPL "
ComboBox1.AddItem "Expochannel": ComboBox1.List(65, 1) = "mms://yayin.canlitv.com/expochannel"
ComboBox1.AddItem "TV 24": ComboBox1.List(66, 1) = "mms://91.93.103.51/24live "
ComboBox1.AddItem "Kanal A": ComboBox1.List(67, 1) = "mms://88.255.31.105:554/kanala1"

End Sub
Sub Radyo_Listele()

On Error Resume Next
ComboBox2.AddItem "TRT Radyo 1": ComboBox2.List(0, 1) = "mms://95.0.159.130/RADYO1"
ComboBox2.AddItem "TRT Radyo 3": ComboBox2.List(1, 1) = "mms://95.0.159.130/RADYO3"
ComboBox2.AddItem "TRT Radyo 4": ComboBox2.List(2, 1) = "mms://95.0.159.130/RADYO4"
ComboBox2.AddItem "TRT FM": ComboBox2.List(3, 1) = "mms://95.0.159.130/RADYOFM"
ComboBox2.AddItem "TRT Türk": ComboBox2.List(4, 1) = "mms://95.0.159.130/TURKU"
ComboBox2.AddItem "TRT TSR": ComboBox2.List(5, 1) = "mms://95.0.159.130/RDTSR"
ComboBox2.AddItem "TRT Vot East": ComboBox2.List(6, 1) = "mms://95.0.159.130/RDVOT2"
ComboBox2.AddItem "TRT Vot World": ComboBox2.List(7, 1) = "mms://95.0.159.130/RDVOT"
ComboBox2.AddItem "TRT Vot West": ComboBox2.List(8, 1) = "mms://95.0.159.130/RDTSR2"
ComboBox2.AddItem "TRT Radyo 6": ComboBox2.List(9, 1) = "mms://95.0.159.130/RADWORLD2"
ComboBox2.AddItem "TRT Nağme": ComboBox2.List(10, 1) = "mms://95.0.159.130/TSM"
ComboBox2.AddItem "TRT Ankara": ComboBox2.List(11, 1) = "mms://95.0.159.130/KENT"
ComboBox2.AddItem "TRT Avrupa": ComboBox2.List(12, 1) = "mms://95.0.159.130/AVRUPA"
ComboBox2.AddItem "TRT Antalya": ComboBox2.List(13, 1) = "mms://95.0.159.130/ANTALYA"
ComboBox2.AddItem "TRT GAP": ComboBox2.List(14, 1) = "mms://95.0.159.130/TRTGAP"
ComboBox2.AddItem "TRT Erzurum": ComboBox2.List(15, 1) = "mms://95.0.159.130/ERZURUM"
ComboBox2.AddItem "TRT Çukurova": ComboBox2.List(16, 1) = "mms://95.0.159.130/CUKUROVA"
ComboBox2.AddItem "TRT Trabzon": ComboBox2.List(17, 1) = "mms://95.0.159.130/TRABZON"
ComboBox2.AddItem "Radyo D": ComboBox2.List(18, 1) = "mms://84.16.230.44/Radyod"
ComboBox2.AddItem "Bayrak Radyosu": ComboBox2.List(19, 1) = "mms://bms.brtk.net/bayrakradio"
ComboBox2.AddItem "Bayrak Internatiıonal": ComboBox2.List(20, 1) = "mms://bms.brtk.net/bayrak-int"
ComboBox2.AddItem "Bayrak FM": ComboBox2.List(21, 1) = "mms://bms.brtk.net/bayrakfm"
ComboBox2.AddItem "Radyo Akdeniz": ComboBox2.List(22, 1) = "mms://ns9.adabilisim.net/radyoakdeniz"
ComboBox2.AddItem "Gözyaşı FM": ComboBox2.List(23, 1) = "mms://94.75.240.129/gozyasi1"
ComboBox2.AddItem "Sakarya Hür FM": ComboBox2.List(24, 1) = "http://sunucu2.radyolarburada.com:8165"
ComboBox2.AddItem "Moral FM": ComboBox2.List(25, 1) = "mms://94.75.240.130/moralfm"
ComboBox2.AddItem "İzmir Sahil FM": ComboBox2.List(26, 1) = "mms://89.19.26.210/radyosahil"
ComboBox2.AddItem "Slow Türk": ComboBox2.List(27, 1) = "mms://84.16.227.54/slowturk"
ComboBox2.AddItem "Power Türk": ComboBox2.List(28, 1) = "mms://xiphias.vargonen.net/PowerTurk"
ComboBox2.AddItem "Power FM": ComboBox2.List(29, 1) = "mms://xiphias.vargonen.net/PowerFm"
ComboBox2.AddItem "Swow Radyo": ComboBox2.List(30, 1) = "mms://84.16.235.90/ShowRadyo"
ComboBox2.AddItem "Best FM": ComboBox2.List(31, 1) = "mms://195.175.9.14/rd-bestfm"
ComboBox2.AddItem "Alem FM": ComboBox2.List(32, 1) = "mms://195.175.9.14/rd-alemfm"
ComboBox2.AddItem "Number One FM": ComboBox2.List(33, 1) = "mms://195.175.9.14/rd-numberonefm"
ComboBox2.AddItem "Radyo Viva": ComboBox2.List(34, 1) = "mms://84.16.235.95/rv"
ComboBox2.AddItem "Açık Radyo": ComboBox2.List(35, 1) = "mms://195.175.9.14/rd-acikradyo"
ComboBox2.AddItem "Radyo Mydonose Türk": ComboBox2.List(36, 1) = "mms://195.175.9.14/rd-radyomydonoseturk"

End Sub

'Module1


Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Public Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Klavuzu [Vector Backround]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public URL As String
Sub FormAç() 'Open UserForm

On Error Resume Next
UserForm1.Show 0

End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...

On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim

End Function
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul