Visual Basic Basit Web Tarayıcısı Uygulaması Kaynak Kodları ve Video

Atakan Aktoprak

0
İyinet Üyesi
Katılım
10 Temmuz 2010
Mesajlar
0
Reaction score
0
Genellikle programlamaya başlayan herkesin ilk amacı kendi kullandığı programları kendi yazabilicek dereyece gelmektir.Bunların içindede birçok program yer alır , örnek vermek gerekirse : Web Tarayıcısı , Tv İzleme Programı , Hesap Makinası gibi kolay ve kullanışlı programlar aslında bu programlar kodlamaya giriş için büyük önem taşımaktadır.El çabukluğu ve kodlar ile tanışma anlamında gerçekten muhteşem pratiklerdir , eğer sizde böyle bir programı yazmaya heveslendiyseniz bana sorarsanız sürekli olarak en gelişmini yapmaya çalışın programlamanın özündeki tek şey sorunlara hızlı cevap verebilmektir bunu hiçbir zaman unutmayın.Şimdi gelelim kaynak kodlarına ve programın yapılışını anlatmaya.


Visual Basic İle Basit Web Tarayıcısı Yapımı Anlatım :
Gerekli Olan Meteryaller :

  • 7 Adet Button.
  • 1 Adet Texbox
  • 1 Adet Timer
  • 1 Adet Progresbar
  • 1 Adet WebBrowser
Meteryallerimizi projemize ekledikten sonra gelelim bu meteryallerin kaynak kodlarına :
1- Geri buttonunun Kaynak Kodu :
WebBrowser1.GoBack() ' Web Browserın Go Back Komutu ile bir önceki sayfaya geçiş yapabiliyoruz.
2-İleri buttonunun Kaynak Kodu :
WebBrowser1.GoForward() ' Gene goforward ile bi ile geçiş yapabiliyoruz
3- Adrese Git Buttonunun Kaynak Kodu :
WebBrowser1.Navigate(TextBox1.Text) ' Textbox1 in içinde yazan adrese gitmesini sağlıycak. Timer1.Enabled = True' Timerı aktif ediyoruz ki progressbarı dolduralım.
4-Ana Sayfama Git Buttonunun Kaynak Kodu :
WebBrowser1.Navigate(Label1.Text) ' Label 1 in içindeki adrese gitmeyi sağlıycak şimdi label 1 e de atıcaz adresi. TextBox1.Text = Label1.Text ' Label 1 i textbox 1 e attık şu anda.
5-Yeni Buttonunun Kaynak Kodu :
WebBrowser1.Refresh() ' Reflesh komutu aşınasınızdır.
6- Durdur Buttonunun Kaynak Kodu :
WebBrowser1.Stop() ' Durdurma komutumuz.
7- Ana Sayfam Olarak Kaydet Buttonunun Kaynak Kodu :
Label1.Text = TextBox1.Text ' Bu butona basıldığında olan sayfayı ana sayfamız yapıcaz ilk labela atıcak sonra da anasasayfaya gite basıldığında labelden alıcak
8- Progressbar için Timer1 İn kaynak kodu :
If ProgressBar1.Value = 100 Then' Eğer progresbarın değeri 100 ise dedik ProgressBar1.Value = 0 ' Değerini 0 la Timer1.Enabled = False' ve ardından timer1 i durdur. Else' Eğer değilse ProgressBar1.Value += 5 ' progresbar 100 olana kadar 5 er 5 er ekle dedik şu anda.çalıştıralım.. EndIf
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara Cicisex Porno
Üst