CNRDSKN - Rss Takip Prgoramı - Ayrıca Web Borwser

[cannurbey]

Merhaba arkadaşlar bu aralar visual basic ile sık soru sormamın sebeplerinde biri bu program. Daha dün yaptım şimdi yayına girdi . Aslında çok ama çok gereksiz bir program ama olsun basit şeyler birgün yapılmasını hayal bile edilmeyecek şeylere yol açıyor bence. Evet arkadaşlar umarım beğenirsiniz... programı değil tasarım ve kodların esnekliğini bir acemi olmama rağmen ilk kez böyle bi program yapayım dediğim programı.
(Bu programı deneme amaçlı yaptım please bi yorum )

işte link:

http://rapidshare.com/files/11286648...Setup.rar.html

Şimdiden herkese çok teşekkürler...

[cannurbey]

yorumlarınızı bekliyorum ..

[Revlis]

Rss takibi şu an da rss takibi yapmıyor. rss xml ini explorer ile açıyor. Rss takibinde her parçayı ayırman kullanıcıya görsel bir şekilde göstermen, kullanıcının okuduklarını aradan seçmen lazım.

[cannurbey]

Revlis hocam valla yakında diyorum boynumu eyip gidiyorum

[civil]

kaynak kodları da paylaşabilirdin o zaman gereksiz gördüğün programın bay bir gerekli olabilirdi

[cannurbey]

Aman hocam ne demek hemen anlatayım.

[cannurbey]

Arkadaşlar öncelikle bunu düşünemediğim için beni bağışlayın. Civil hocam sende bağışla düşünemedim.
Evet öncelikle dersler halinde anlatacağım ancak bu tür bir şeyi bilmek için acemiden biraz daha üst seviye de olmalısınız (kodları anlamak için.)
ve Başlayalım; (Dikkat bu proje Visual Basic 2005 İçin Geçerlidir...)

1. Yeni bir proje açın.
2. Bir adet yeni form açın.
3. Formun boyutunu, başlığını, iconunu, seçilip seçilemediğini gibi ayarları yapın.
4. Form'a 7 adet buton koyun.
5. Butonlara "Geri", "İleri", "Yenile", "Dur", "Ana Sayfa", "Git", ve "istediğiniz site'nin adı"nı yazın. (diyelim forum.ceviz.net gibi ama sizin istediğiniz olsun.)"
6. Ardından bir adet combobox yerleştirin.
7. İsterseniz bir adette statusbar koyabilirsiniz.
8. Şık görünmesi, daha doğrusu profesyonel görünmesi için, bir adet Notify Icon koyabilirsiniz.
9. Sağ tıklama yapmak için de bir adet contextmenustrip ekleyebilirsiniz.
10. Esc tuşunu kullanabilmek için bir adet daha button ekleyebilirsiniz.
11. Hemen en alttaki (bende en alttaydı) WebBrowser'ı ekleyin.
12. Dikkat artık maddeler halinde gitmeyeceğim bilginize.

Evet arkadaşlar şimdi yapacağımız işlemlere başlayalım.
Öncelikle isimlendirelim ki kafamız karışmasın (geri, ileri diyeceğime button1, button2 diyeceğim o yüzden.)
Şimdi isimlendirelim;
Geri: button1
İleri: button2
Yenile: button3
Dur: button4
Ana Sayfa: button5 (Dikkat web browser İ. E. üzerinden çalıştığı için Ana Sayfa dediğimizde İ. E.'nin Ana Sayfasına yönlendirir. Bilginize...)
İstediğimiz Site: button6 (bunu koymasakda olur!)
Çık: button7 (sonradan dahil ettim yukarıda yazmaya da üşendim.)
Git: button8
------------------------------------------------
Gelelim kodlamaya...
Arkadaşlar bildiğiniz üzere bu yukarıdaki butonları nasıl isimlendirilceğini söylememe gerek yok ama acemi olan arkadaşlar için buton üzerine gelip (tıklayıp yani) "Properties" kısmından "Text" alanına gelin ve oradan buton'un ismine göre isim verin. Buton'un şeklininden rengine kadar her şeyi Properties (yanlış bilmiyorsam özellikler) kısmından değiştirebilirsiniz. Diyelim button8'i ele alalım. Button8'in button8 olmasını istemiyorsak Name kısmından Türkçe karakter kullanmadan değiştirelim bir de aralık olmayacak. Diyelim button8'i daha kolay ve anlaşılır olsun diye "git" diyebilirsiniz. (Umarım biz Türklerde yakında kendi dilimizin geçerli olduğu bir program üretirizde assembly ile de değil makine dili ile "1 1 0 1 1 1 0" gibi kendi gençlerimiz elalemin programını değil kendi milletinin programını öğrenir. Hadi onuda geçtim makine dili de değil assembly ile yapalım da Türkçe karakter olsun ı, ü, ş, ö, ç, ve bunların büyüklerinin ne suçu var değil mi neyse lafı uzatmayalım.) Properties dedik kaldık. Properties'den adını filan değiştirin. Yani button8 yerine Git diyelim. Evet arkadaşlar ardından bütün butonlarımızın şeklini şemasını isteğimize göre yaptık mı yaptık. Tamam artık kodlamaya başlayabiliriz. Şimdi bir de combobox'ımız vardı unutmayalım! Bu combobox'un da adını değiştirin ki program hata vermesin. (diyelim sizlere bir tavsiye olsun kendi sitenizin adresini yazın direk tıkladımı kullanıcı sizin sitenize gitsin ) (örneğin; http://cnrdskn.blogcu.com "Git" denildimi bu siteye gider.)
Evet combobox'u da halletiğimize göre artık dikkat edin ikinci kez söylüyorum kodlamaya başlayalım. (Not WebBrowser1'in adını)

button1 (Geri komutu):

 'İlk önce geri komutunu kontrol ettirelim.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Browser.GoBack = 0 Then
            MsgBox("Geri Gidecek Sayfa Yok!", MsgBoxStyle.Exclamation, "Geri Gidecek Sayfa Yok")
        Else
            Browser.GoBack()
        End If
  'Burada dedikki eğer browser'ımızın hiç geri gidecek sayfası yok ise (yani 0'sa sayfa yoksa hiç) hata ver dedik. Değilse dedik geri git! daha sonra if'imizi kapattık.
    End Sub

button2 (İleri Komutu):

  'Geri komutu için ne yaptıysak aynısını ileri komutu içinde yapıyoruz.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Browser.GoForward = 0 Then
            MsgBox("İleri Gidecek Sayfa Yok!", MsgBoxStyle.Exclamation, "İleri Gidecek Sayfa Yok")
        Else
            Browser.GoForward()
        End If
   'Açıklamamı geri komutunda yapmıştım copy+paste olayına girelim lütfen.
    End Sub

button3 (Yenile Komutu):

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Browser.Refresh()
  ' Burada herhangi bir sorgulama yapmadık. Aslında istesek yapabilirdik, fakat gerek görmedim.
    End Sub

button4 (Dur Komutu):

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Browser.Stop()
   'Burada da herhangi bir sorgulama yapmadık. (Not, eğer siz yapmak isterseniz çıkış'a dikkatli bakın. Çünkü çıkış da sorgulama'dan ziyade sorgu işlemi yapacağım.)
    End Sub

button5 (Ana Sayfa Komutu):

    
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Browser.GoHome()
  'Burası İnternet Exploler'e bağlı olduğumuz ispatmalakta. :(
    End Sub

Ne dersiniz arkadaşlar bir delilik yapıp yazı planından çıkalım ve yukarıdaki yazılanlara bir ters iş yapalım, yani ana sayfa butonunun ikinci versiyonunu yapalım.

button5 (Ana Sayfa Komutu (2)):

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 'Şimdi if ve else komutunu daha iyi görmemiz için bir imkan...
 'Aynı geri ve ileri'ye yaptığımızı buna da yapacağız ancak daha farklı bir şekilde sorgu yöntemi ile.
        If MsgBox("Bu sayfayı terk edip, Ana Sayfa'ya gitmek istediğinize emin misiniz?", MsgBoxStyle.YesNo, "Ana Sayfa Komutu.") = MsgBoxResult.Yes Then
            Browser.GoHome()
        Else
        End If 
  'Burada da sorgu yönetimini kullandık. Eğer dedik Ana Sayfa derse kullanıcı yani Ana Sayfa'ya (button5'e) tıklarsa bu iletişim panelini çıkar. Eğer bu iletişim panelindeki soruyu Evet diye cevaplarsa  Ana Sayfa'ya git. Hayır derse (aslında orayı else olarak gösteriyoruz) yerinde kal.
      End Sub

button6 (İstediğimiz site...)

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Browser.Navigate("http://forum.ceviz.net")
        ComboBox1.Text = "http://forum.ceviz.net"
   'Burada dedikki button6'ya tıklandığında, forum.ceviz.net adresine yönlen. Ve dedik combobox'a adresi yazdır daha doğrusu forum.ceviz.net'i yazdır. Navigate git komutundadır. Bir siteye program üzerinden bu şekilde yönlendirmek isterseniz bu komutu kolayca kullanabilirsiniz. combobox'a yazdırmamızın sebebi ise hem estetiklik hemde git'e basıldığında hata ile karşılaşmamız (daha doğrusu boş sayfayı kullanıcıya göstermemiz.)
    End Sub

button7 (Git Komutu):

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
 If combobox1.text="" Then
 MsgBox("Adres Çubuğu Boş Görünüyor, Lütfen doldurun.",,"Adres Çubuğu Boş!")
Else 
Browser.Navigate(ComboBox1.Text)
End If
  'Burada da dedikki, eğer dedik combobox1.text boş ise hata mesajı ver, değilse (else) navigate komutu ile browser'ı combobox1.text'in içindeki adrese yönlen. (Bu else, if komutunu yazmayı unutmuşum sonradan ekledim bu yüzden diğerleri gibi aralıklı şekilli filan değil!.)
    End Sub

button8 (Çıkış Komutu)

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If MsgBox("Çıkmak İstediğinize Emin misiniz ?", MsgBoxStyle.YesNo, "Çıkış İşlemi") = MsgBoxResult.Yes Then
            Me.Close()
        Else
        End If
 'Burada da dedikki eğer çıkmak isterse kullanıcı ya da yanlışlıkla çıkış'a bastıysa program kendini hemen kapatmasın bir mesaj versin kullanıcı ona göre karar versin. Bu sayede eğer çıkmak isterse evet istemesse hayır desin ve sonuç evetse çıksın, hayırsa kalsın.
    End Sub

Evet arkadaşlar sanırım yazının sonuna geldik çünkü artık yapmamız gereken bir şey kalmadı, ancak ondan önce şunları yapmanızı tavsiye ederim;
Form1.vb [Design] kısmına gelin. Ardından formun üzerine herhangi bir yere gelin tıklayın (mavi çerçeve başına olabilir) daha sonra oradan, AcceptButton'u bulun oraya Git butonunu verin bizde Git, button7 olduğuna göre oraya button7'yi girin ve altınada CancelButton olacak ona da Çıkış butonunu yani button8'i yerleştirin. Bu sayede Enter'e bastığınızda Git, Esc'ye bastığınızda ise Çıkış Butonu devreye girer.
Son olarak;
NotifyIcon
Bu kısımı kullanabilmeniz için, bir icon ekleyin, text kısmına programınızın adını veya istediğiniz herhangi bir yazıyı yazın ve son olarak üstünde sağ tıklayabilmek için ContextMenuStrip'e gelip önceden form'a attığınız sağ tıklama menüsünü seçin.
Formda da bunu etkin kılmanız için şu yine formda da bu seçenek olan ContextMenuStrip kısmını etkin kılın. ContextMenuStrip'i de üzerine bir tıklama hamlesiyle düzenleyebilirsiniz. (Diyelim, Hakkında, Çıkış, Yardım, Programcı gibi seçenekler ekleyebilirsiniz.)
Evet arkadaşlar umarım ayrıntılı bir şekilde basitçe anlatabilmişimdir, teşekkür ederim. Herhangi bir şey de soru sorabilirsiniz.

[cannurbey]

Bu yazıyı bloga da koydum umarım sorun olmaz... (yazı, cevizdeki editörde yazdığım gibi görünüyor.) http://cnrdskn.blogcu.com/15616251/ yazıyı okumak isterseniz...