Merhabalar Öncellikle Program Hakkında Bir Kaç Birşey Söylemek İstiyorum...
Yapacağım Programda Bir Tane Label Ve ProgressBar Olacak.
Program Çalıştığında Bir Kaç Saniye Sonra ProgressBar Dolmaya Başlayacak Ve Value Değeri Labelde Gözükecek. ProgressBar Dolduktan Sonra Virüs Yüklendi Diyecek Ve Bilgisayar Kapanacak.
Benim Sizden İstediğim ProgressBarın Dolumu Ve Labelde Yüzde Olarak Kaç Olduğunu Göstermek ProgressBar Yavaş Yavaş Dolacak Yaklaşık 1 Dk Kadar...
Yardımlarınızı Esirgemeyin Arkadaşlar
Çok faydalı bi çalışma olacak,merakla bekliyorum
Çok Faydalı Olmasa Bile Karşıdaki Kişiyi Korkutmak Yeter O Korku Yeter Ona
Sizlerden İstediğim Şeyi Yaptım Arkadaşlar
Belki Lazım Olur Diye Kodları Söylüyorum. Sadece Programın Kapatılmasını Engellemek İçin Ne Yapmak Gerekiyor Onu Bilmiyorum. Yani Görev Yöneticisinden vs. Kapatılması Engellemek İçin Ne Yapmak Gerek
Kod:
1 Adet Label
1 Adet ProgressBar
1 Adet Timer
Public Class Form1
Dim sayi As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 300 'İstediğiniz Gibi Değiştirebilirsiniz
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If sayi = 100 Then
Timer1.Enabled = False
Label1.Text = "Yükleme Tamamlandı"
'Alttakilerden Hangisini Kullanmak İsterseniz Keyfinize Kalmış
'MsgBox("Bilgisayar Kapatılacaktır", MsgBoxStyle.Critical, "KAPAT")
'Shell("shutdown -s -t 00", vbNormalFocus) 'Bilgisayarı Kapatır
MsgBox("Bilgisayar Yeniden Başlatılacak", MsgBoxStyle.Critical, "YENİDEN BAŞLAT")
Shell("shutdown -r", vbNormalFocus) 'Bilgisayarı Yeniden Başlatır
Else
sayi = sayi + 2 'ProgressBarın Artırtırma Sayısı
ProgressBar1.Value = sayi
Label1.Text = "Yükleniyor % " & sayi
End If
End Sub
End Class
Ekiniz yönetici tarafından kaldırılmıştır.
bie arkadaş pc kapatma programı yapmıştı
avatarı bu konuyu açan arkadaşa çok benziyordu
saygı kuralları ile h,ç tanışıklığı yoktu
umarım aynı problemleri yaşamayız
Sn. Accessman Avatarımı Benzetmiş Olabilirsin Bu Resmi İlk Defa Burda Kullandım