WebOzeL RekLam-BiLgiSayar İnternet ALanı - Timer Kullanmadan Progressbar Yapımı
 

Anasayfa
Ziyaretçi defteri
Tasarım Yaptırma
İletişim
Free UpLoad
Reklam Nedir
Reklamın Önemi
Reklamın Etiketleri
Reklamın Dili
Reklam Neden Yapılır?
Reklam içeriği
RekLam Ver
hitinizi arttırmanın yolları
Siteni Google Ekle
Hakkımızda
Kısayol Tuşları
Layers Katmanlar
Photoshopta Zombi Efekti
Photoshopta Tırnak Uzatma
Saç Gibi Hassas Bölgelerin Kesimi
Yaşlandırma Efekti - İnsanları Yaşlandırın
Resimde bir objeyi ön plana çıkarma
Korku Filmi Efekti
Nesnelere Işık Efekti Verme
Resimin Kenarını Kıvırma
Resime Ölü Efekti Verme
Site Traffic
Görev Yöneticisi
Dreamweaver DersLeri
Firework DersLeri
Premiere eLements DersLeri
FLash DersLeri
AudaCity DersLeri
DNS AyarLarı
Format Atma
Simgelerin Arka Planını Kaldır
Hata Veren DLL DosyaLarı
Windows Vista Forma Atma
kLasörLere ÖzeL SimgeLer Koymak
Pc Zamanı Geri aLma
Xp Mavi Ekran HataLarı
TekTuş BiLgisayarı Kapat
Hata Kodu ve KaynakLarı
kLavye TeknikLeri
Yararlı SiteLer
Photoshop (Nedir? - Nasıl kullanılır?)
Photoshop Tarihçesi
Photoshop Araç Kutusu (Toolbox)
İpucu
Genel Bakış
Genel Kurallar
Örnekler
Açıklama
EvLiLik YasaLarı
TC No SorguLama
SinemaLarda Bu Hafta
GünLük Burç
iL iL Türkiyem
WebTasarim 1
Web Tasarim 2
WebTasarim 3
WebTasarim 4
WebTasarim 5
WebTasarim 6
Murphy Savaş YasaLarı
Murphy iş KanunLarı
Türkçe Müzik DinLe
WebTasarim 7
angelina jolie saat
site içi arama motoru
ask testi
banttan kayan yazı
Canlı Tv
HTML KodLarı Burada
Karışık NickLer
GüzeL Msn NickLeri
AnLamLı Msn NickLeri
Beğenilen Msn Nickleri
Yeni NickLer
Msn Nick Arşiv
Harika Msn NickLeri
Karizma Msn NickLeri
Süper Msn NickLeri
EtkiLeyici Msn NickLeri
AyrıLık NickLeri
Nefret NickLeri
AnLamLı NickLer 2
Komik Kısa NickLer
Kod İstek Burda !!!
Facebook'ta Paylaş Kodu
Twitter'da Paylaş Butonu
WebTasarim 8
Ziyaretçi BiLgiLeri
Kendi Setup Dosyanı oLuştur
İstediğimiz saatte bilgisayar kapansın
Butona Kısayol Ekleme
Saatin Yanında Simge Oluşturalım(System Traya ikon ekleme)
Visual Basic 2008 İle Görev Yöneticisi Yapımı
Vb.NET 'te forma Mozilla Browser eklemek
Timer Kullanmadan Progressbar Yapımı
Yön tuşlarıyla shapemizi hareket ettirelim
Mouse ile formumuza çizim yapalım
Labelimizdeki yazıları aşağı doğru yazdıralım
VisuaL Basic KODLARI
Alt Bölüm Kodu
Ziplediğiniz Oyun-Program vs. PartLara Bölme(ResimLi AnLatım)
Sahadan Maç Sonucu
İddaa programı
Puan Durumu
Araba resimleri
Aşk Ölçer
Başa Dön
BJK Haberleri
Dini Bilgiler
Tk Adres aLmak
Regedit AyarLarı
Smiley Değiştirme
Vista Programsız Disk (HDD) Bölme Yeni ve Bölüm Oluşturma [Resimli]
KLasöre Arka pLan Resmi Koymak - ResimLi AnLatım
Renk KodLarı
CanLı Destek
Sitene Canlı Destek Ekle
Banner
Facebook İfade
Oyun Oyna
RenkLi Yazi Kodu
Kod Editörü
tasarim yap
Murphy KanunLarı
Photoshop DersLeri
Avatar Yapımı
Animation Yapımı
Photoshop ile Meyvelere Surat EkLeme ResimLi Anlatım
Photoshop Hareketli banner Yapımı
FiLm Arşivi
Yeni sayfanın başlığı

Progress ve timer nesnesiyle uğraşmayın. Picture nesnesi neyimize yetmiyor? Gelin, çok güzel, renkli bir progressbar yapalım.

Evet arkadaşlar, Visual Basic 6.0'a nasıl progressbar yerleştirilir gibi sorular soracağımıza nasıl bir progressbar yaratabilirim diye sorular sormamız gerekir.

Gelelim konumuza... Önce formumuzu hazırlıyoruz. Progress barın ne kadar uzun geniş olmasını istiyorsanız ona göre bir Picture nesnesi ekleyin... Bir adet de Command ekleyin yeter.

Şimdi gelelim kodumuza. Önce updateprogress bar ile progressbar'ı forma atayalım:


Sub updateprogress(pb As Control, ByVal percent)

Dim num$

If Not pb.AutoRedraw Then

pb.AutoRedraw = -1
End If

pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format$(percent, "###") + "%"

pb.CurrentX = 50 - pb.TextWidth(num$) / 2

pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2

pb.Print num$; 100
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF

pb.Refresh
End Sub


Kodumuzda pb kısaltmadır. Artık alışırsanız bence işiniz daha kolay olur. Koddaki bazı küçük kodlar kafanızı karıştıracağı için anlatmayacağım. İlerde daha geniş bir şekilde bahsedeceğim.

Gelelim Command Nesnesinin kodlarına:


Sub Command1_Click()

Picture1.ForeColor = RGB(0, 0, 255)
For i = 0 To 100 Step 0.01

updateprogress Picture1, i

Next

Picture1.Cls
Unload Me
End Sub


Burda bilmeniz gereken RGB(0,0,255) Bunun anlamı picture nesnesinin rengini Mavi yapar siz rakamlarla oynayabilirsiniz.

Bir başka bilmeniz gereken nokta ise Step 0,001. Bu ise kaçar kaçar ilerleyeceğini gösterir. Next, yani bu picturenin işi bittiğinde picture nesnesini kapatıyoruz ve formu kaybediyoruz.

Siz projeleriniz için bir giriş yapabilir, Unload Me yerine örneğin Form2.Show katabilirsiniz..

Çok basit işlerden büyük projeler yaratabilirsiniz...

Kolay Gelsin...

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=