Vb projeler (yenı baslayanlar ıcın)

sR-77 · 26 Eyl 2011

Para üstü hesaplamak

`İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım

`ilk önce burda değişkenleri tanımlıyoruz..
PHP Code:

dim müsteriver as integer
dim müsteritutar as integer

`ve burda tanımladığımız değişkenleri textlere tanıtıyoruz

Kod:

müsteriver = text1
müsteritutar = text2

dim para as integer

`para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak

para = müsteriver - müsteritutar

` bu değişkenlerimiz de bizim bankonotlarımız

Kod:

dim p100, p50, p20, p10, p5, p1 as integer

`işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor

Kod:

p100 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]para[/COLOR][COLOR=#007700]/[/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]para [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para mod 100
p50 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]para[/COLOR][COLOR=#007700]/[/COLOR][COLOR=#0000BB]50[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]para [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para mod 50
p20 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]para[/COLOR][COLOR=#007700]/[/COLOR][COLOR=#0000BB]20[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]para [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para mod 20
p10 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]para[/COLOR][COLOR=#007700]/[/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]para [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para mod 10
p5 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]para[/COLOR][COLOR=#007700]/[/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]para [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para mod 5
p1 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]para

`heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak

Kod:

label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"

Kod:

label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"

Şimdi İlk Önce Yeni Bir Proje Açıyoruz.
Formumuza DriveListBox, DirListBox ve FileListBox`tan Birertane Yerleştiriyoruz.

Ve Kod Penceresine Aşağıdaki Kodu Kopyala-Yapıştır Yapıyoruz.

Kod:

   PHP Code:
     [LEFT]                      [COLOR=#000000] [COLOR=#0000BB]Dim a [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]1

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Dir1_Change[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]File1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Dir1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path
ChDir Dir1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path
End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Drive1_Change[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]On Local Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]hata
Dir1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Drive1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Drive
a [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Drive1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Drive
ChDrive Drive1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Drive
[/COLOR][COLOR=#007700]Exit [/COLOR][COLOR=#0000BB]Sub
hata[/COLOR][COLOR=#007700]:
[/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"Hata: " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Error
Drive1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Drive [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]a
End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub File1_DblClick[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]On Local Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]hata
Dim n[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]uz[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]x[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]t
x [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Shell[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]File1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FileName[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
Exit [/COLOR][COLOR=#0000BB]Sub
hata[/COLOR][COLOR=#007700]:
[/COLOR][COLOR=#0000BB]MsgBox [/COLOR][COLOR=#DD0000]"Hata: " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Error

End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Form_Load[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]a [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Drive1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Drive
End Sub

[/COLOR] [/COLOR] [/LEFT]

Evet Bitti bile artık F5`e Basıp rogramları Açınız

Birde Bu ara da
On Local Error GoTo hata yerine on local error resume next de yazabilirsiniz fazla bi değişikliği yok sadece hata oluşunca programa devem ediyor.

Cd-Rom u açıp kapatmak

Kod:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub Private Sub Command1_Click() Beep End Sub

Windows Hesap Makinesini çalıştırmak

Kod:

Private Sub Command1_Click() Call Shell("calc.exe", 1) End Sub

Windows Not defterini çalıştırma

Kod:

Private Sub Command1_Click() Call Shell("notepad.exe", 1) End Sub

sR-77 · 26 Eyl 2011

YazıLarı Sese Cevirmek

***************************************
Dim speech As SpVoice

Kod:

Private Sub Command1_Click()
speech.Speak Text1
End Sub

Private Sub Form_Load()
Set speech = New SpVoice
End Sub

***************************************

Bir TextBox ve bir CommandButton ile yazdığınız her yazıyı sesli olarak dinleyebilirsiniz.

sR-77 · 26 Eyl 2011

Bilgisayar ve Kullanıcı Adını Öğrenmek

Çalışılan bilgisayarın ve çalışan kullanıcının adını ögrenmek için aşagıdaki windows API'lerini kullanabiliriz.

Kod:

Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

GetComputerName fonksiyonu bilgisayarın adını bulur ve ilk parametrede verilen stringin içine doldurur. İkinci parametre ise bu stringin uzunluğudur.
GetUserName fonksiyonu kullanıcının adını bulur ve ilk parametrede verilen stringin içine doldurur. İkinci parametre ise bu stringin uzunluğudur.
Bu fonksiyonlar kernel32.dll ve advapi32.dll dosyalarının içinde bulunmaktadır. Eger bu iki fonksiyonda geriye 1 degerini döndürürlerse işlem başarılmıştır.

sR-77 · 26 Eyl 2011

Visual Basic ile Programlarınızı Limitli Hale Getirin

Bu Kodla Programınız Sizin İstediğiniz Kadar Kulanılabilir
Şimdi Formumuza 1 adet label koyalım adını da değiştirmeyelim.
Label bize programın kaç defa çalıştırıldığını söyleyecek

PHP Code:

Kod:

	[LEFT] 		 			[COLOR=#000000] [COLOR=#0000BB]Option Explicit 

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Form_Load[/COLOR][COLOR=#007700]() 
[/COLOR][COLOR=#0000BB]Dim kbel [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String 
kbel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]GetSetting[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"sınır"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"sınırla"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"kbel"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) 
If [/COLOR][COLOR=#0000BB]kbel [/COLOR][COLOR=#007700]>= [/COLOR][COLOR=#0000BB]5 Then [/COLOR][COLOR=#DD0000]'Burdaki 5 rakamını isterseniz yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor. 
SaveSetting "sınır", "sınırla", "kbel", 111111 
MsgBox "Programın kullanım süresi bitti", vbOKOnly, "Uyarı'" 
Unload Me 
End 
Else 
kbel = kbel + 1 
SaveSetting "[/COLOR][COLOR=#0000BB]sınır[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]sınırla[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]kbel[/COLOR][COLOR=#DD0000]", kbel 
Label1.Caption = kbel 
End If 
End Sub  
[/COLOR] [/COLOR]  		 	[/LEFT]

sR-77 · 26 Eyl 2011

Formunuza şifreli koruma yapın

1.form=şifreli giriş kısmı

2.form=dilediğnizi yazın

Kod:

Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz. text1=kullanıcı adı text2=şifre burdan itibaren yazmaya başlayabilirsiniz... Private Sub Command1_Click() If Text1.Text = "Anabenieversene" Then Form2.Show Else MsgBox "Kullanıcı adı yanlış" End If If Text2.Text = "www.frmtr.com" Then Form2.Show Else MsgBox "Şifre yanlış" End If End Sub

Not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.

sR-77 · 26 Eyl 2011

Program kaç kez çalıştırıldı( Süper bir ek özellik programlarınız için )

Kod :

PHP Code:

Kod:

	[LEFT] 		 			[COLOR=#000000] [COLOR=#0000BB]Option Explicit
 
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]RunTimes [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]RunDate [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Form_Load[/COLOR][COLOR=#007700]()
    [/COLOR][COLOR=#0000BB]RunTimes [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]GetSetting[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"CounterApp"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Counts"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"NumTimes"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]1
    RunDate [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]GetSetting[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"CounterApp"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Counts"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"LastTime"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Now[/COLOR][COLOR=#007700])
    If [/COLOR][COLOR=#0000BB]RunTimes [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then
             Label1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Bu program " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]_
             Format[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]RunTimes[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]" defa çalıştırılmıştır."
             [/COLOR][COLOR=#0000BB]Label2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Son çalıştırılma zamanı...=" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]_
             Format[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]RunDate[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"."
    [/COLOR][COLOR=#007700]Else
        [/COLOR][COLOR=#0000BB]Label1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caption [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Bu program ilk defa çalıştırılıyor."
    [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Form_Unload[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cancel [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700])
    [/COLOR][COLOR=#0000BB]SaveSetting [/COLOR][COLOR=#DD0000]"CounterApp"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Counts"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"NumTimes"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]RunTimes
    SaveSetting [/COLOR][COLOR=#DD0000]"CounterApp"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"Counts"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"LastTime"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Now

End Sub  
[/COLOR] [/COLOR]  		 	[/LEFT]

sR-77 · 26 Eyl 2011

Televizyon ve Radyo İzleme / Dinleme Programı
[/URL]Kod :

[/URL] PHP Code:

Kod:

	[LEFT] 		 			[COLOR=#000000] [COLOR=#0000BB][/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Form_Load[/COLOR][COLOR=#007700]()

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option1_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://212.156.63.226/TV1"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option10_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://144.122.56.15/odtutv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option11_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://xiphias.vargonen.net/PowerFm"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option13_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://live.medianova.tv/tjk/TJK_256.asx"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option12_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://www.jumboserver.com:81/1"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option14_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://internettv.meb.gov.tr/4001/4001_2.wmv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option15_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://91.191.161.200/ht"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option16_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://84.16.227.54/slowturk"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option17_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://superfm.radyolarburada.com:9080"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option18_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://www.radyodinleyin.net/best_liste.txt"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option19_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://live5.radyotvonline.com:9205"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option2_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://212.156.63.226/TV2"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option20_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://atv.radyolarburada.com/kcsdk553243mccx"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option21_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://bizidinle.com/player/radyoasx.asp?id=46"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option22_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://xiphias.vargonen.net/PowerTurk"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option23_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"Radyo 1: mms://212.175.166.3/radyo1"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option24_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://195.175.9.14/rd-numberonefm"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option25_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://195.175.9.14/rd-alemfm"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option26_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://84.16.235.95/rv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option3_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://212.156.63.226/TV3"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option4_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://212.156.63.226/TV4"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option5_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"http://canli.samanyolu.tv/stv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option6_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://89.149.209.105/TV-ShowTv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option7_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://217.31.235.46/startv"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Option9_Click[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]WindowsMediaPlayer1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]URL [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#DD0000]"mms://yayin.cine5.com.tr/cine5"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End Sub  
[/COLOR] [/COLOR]  		 	[/LEFT]

evillord · 27 Eyl 2011

Sabite ALıyorum şimdilik yeni başlayanlar için yararlı fakat devam et

scoRFieD · 29 Eyl 2011

Eyvallah Koç

sR-77 · 30 Eyl 2011

evillord' Alıntı:
Sabite ALıyorum şimdilik yeni başlayanlar için yararlı fakat devam et

eyw emeqımın karsılıgını aldıkca maddı dııL manevi durmak yok yla devam

kopuk2 · 15 Eki 2011

Eywallah

manewor · 10 Ocak 2012

güzel paylaşım bnların hepsini denicem

morniel · 28 Ocak 2012

emeğine sağlık kardeşim kodların yanına anlatımıda koysaydın daha yararlı olabilirdi. teşekkürler iyi forumlar

bekodark123 · 14 Şub 2012

Ellerine sağlık

Spulcral07 · 23 Mar 2012

tşkrler kardeş yararlı oldu .. programlarımda kullanırım

By TarantuLa FaHRi · 19 May 2012

teşekkürler :'

dngsz14 · 27 Haz 2012

Çok teşekkürler senin sayenle Visual Basic programına ısındım

FuRy · 27 Haz 2012

GüzeL Eline Koluna Sağlık,Başarılar..

Shift-TR® · 8 Ağu 2012

Herkese YArdımları için tşk

furkan391 · 16 Ağu 2012

hiç bişe anlamadım

Vb projeler (yenı baslayanlar ıcın)

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Yeni üye

Katılımcı Üye

Üye

Katılımcı Üye

Yeni üye

Uzman üye

Üye

Üye

Yeni üye

Yeni üye

Özel Üye

Yeni üye