AccessTr.neT

Tam Versiyon: Şaka Programı Yapmak xD
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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 Img-grinImg-grin
Çok faydalı bi çalışma olacak,merakla bekliyorum
Çok Faydalı Olmasa Bile Karşıdaki Kişiyi Korkutmak Yeter O Korku Yeter Ona Img-grin
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 Img-grin Bilen Varsa Söyler Herhalde Img-grin Örnek Olarak Eklentiye Bakabilirsiniz. Img-grinImg-grin
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 Img-grin Yani O Saygı Kuralları ile Hiç Tanışıklığını Olmayan Ben Değilim Img-grin