Private Sub Command1_Click Label1. Visible = False Label2. Visible = False Label3. Visible = False Label4. Visible = False Label5. Visible = False labelbaba. Visible = True labelbaba. Caption = "Bilgisayarınızda genel bir denetleme yapılmasını istiyorsanız ileriye istemiyorsanız geriye basın" Command1. Visible = False Command3. Visible = True Command4. Visible = True End Sub Private Sub Command10_Click Dim i Command10. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Dosyalarda sağlammış. Tabii şimdilik. Yani ileride bozulabilir. Bozulup bozulmama ihtimallerinin bulunması için basın ileriye" Command10. Visible = False Command11. Visible = True End Sub Private Sub Command11_Click Dim i Command9. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Hım iyi be bu bilgisayarda bozulmaz bu program. Rahat edebilirsiniz yani. Hiç bir sorun yok. Şimdi sırada ise aslında önemsiz bir şey var. Kabloları sayacam. Evet kabloları. Bakalım kaç tane hah. Bakalım mı? Bakalım bakalım" Command11. Visible = False Command12. Visible = True End Sub Private Sub Command12_Click Dim i Command12. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Kablo sayısı yeterli. Yeterli ama sizce doğru yerlere mi takılmışlar? Haha okadarda değil tabii. Doğru yerlere takılmasalar bilgisayar çalışmazkidiimi. Bunu anlamıycak kadar salak değilim herhalde. Bu yüzden evinizde elektrikler var mı yok mu ona bakacam. Tabii müsadenizle" Command12. Visible = False Command13. Visible = True End Sub Private Sub Command13_Click Dim i Command13. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Elektrikler varmış. Ohalde bilgisayarınız çalışyordur. Aslında su tesisatına da bakardım ama işim var şimdi olmaz. Daha sonra belki. gelelim asıl konuya bilgisayarınızın civataları iyi sıkıştırılmış mı?. Hadi bi bakalım" Command13. Visible = False Command14. Visible = True End Sub Private Sub Command14_Click Dim i Command14. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Civatalarda fena değil fakat bir tanesi yalama olmuş sanki sıkamadım. Hah bu arada bilgisayarınız kapasitesini buldum. Ama korkarım bu programın yüklenmesi için yeterli yer yok. Bunun için windows dizinini silmemiz gerekiyo. Daha sonra yeniden yüklersiniz. Nasıl olsa lisanslı bir CD'niz vardır" Command14. Visible = False Command15. Visible = True End Sub Private Sub Command15_Click Dim i Command15. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 4000 For i = 0 To 4000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Windows dizini başarıyla silindiç. Fakat yine yeterli kapasite yok. Siz en iyisi yeni bir harddisk alın. Bunun için en uygun fiyatları araştırıyım istiyorsanız. İstiyorsunuzdur kesin. O zaman ileriye tıklamanız gerektiğini benim dememe gerek yok herhalde " Command15. Visible = False Command16. Visible = True End Sub Private Sub Command16_Click Dim i Command16. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Aslında fiyatlar pahalı ama size bi kıyak geçerim n'olacak sanki programın %1'ini yüklerim olur biter. Sizinde fazla bir kapasiteye ihtiyacınız kalmaz böylece. Ne kadar zekice değilmi. NeyseDiyelim bu programı yüklediniz. Ee ya deprem olursa, eviniz yıkılırsa kullanamazsınız ki. Diimii? Ben iyisi evinizi bi kontrol edeyim. Sağlam mı diye." Command16. Visible = False Command17. Visible = True End Sub Private Sub Command17_Click Dim i Command17. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Eviniz depreme karşı dayanıklı fakat bilgisayarınız altında bulunan fay hattı sorun çıkarabilir. Bunun için Ahmet Mete Işıkara'ya bi bağlanalım diycem ama adamın işi vardır. Boşverelim sonra siz bağlanırsınız. Monitörünüze ve diğer aletlerin durumuna bakmayı unuttuk diiimii. E onlarsız olurmu yaw " Command17. Visible = False Command18. Visible = True End Sub Private Sub Command18_Click Dim i Command18. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Monitör takılı, mouse sağlam, klavyede iyi. Yani tuş sayısı bile yeterli vallaa. Yani çok takdir ettim sizi inanın. Şimdi sıra son aşamaya geldi tabiiki. Programınızın çalışması için uygun hava koşulları varmı. Bunu en iyi meteoroloji bilir tabii. Tıklayın" Command18. Visible = False Command19. Visible = True End Sub Private Sub Command19_Click Dim i Command19. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Meteorolojiye bağlandım ve gerekli bilgileri aldım. E teknoloji tabiii. İnsan istediği herşeyi yapıyor. İstanbulda havaların bozuk olduğu haberini aldım. İşin kötü yanı bu program sıcak havalarda çalışmak üzere tasarlanmış. Yani bu koşullar altında install edemezsiniz. Siz en iyisi sıcak bir yere gidin ya da havaların ısındığı bir dönemde tekrar deneyin. " Command19. Visible = False Command20. Visible = True End Sub Private Sub Command2_Click MsgBox End Sub Private Sub Command20_Click End End Sub Private Sub Command3_Click Dim i Command3. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False Label6. Visible = True Label6. Caption = "Tamamlandı" Command3. Visible = False Command4. Visible = False Command5. Visible = True Command6. Visible = True labelbaba. Visible = True labelbaba. Caption = "Bilgisayarınızda yeterli disk alanı olup olmadığının araştırılması için ileri yi tıklayın" Label6. Visible = False Label7. Visible = True Label8. Visible = True Command5. Visible = True Command6. Visible = True End Sub Private Sub Command4_Click MsgBox End Sub Private Sub Command4_MouseMove Command4. Left = 2040 Command3. Left = 3360 End Sub Private Sub Command5_Click MsgBox End Sub Private Sub Command6_Click Dim i Command6. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False Label6. Visible = True Label6. Caption = "Tamamlandı" Command6. Visible = False Command7. Visible = True Label7. Visible = False Label8. Visible = False labelbaba. Caption = "Yeterli disk alanı varmı yokmu anlamadım ama okadarda onemli değil zaten 5.7GB. Yani sizde vardır okadar boş yer. Siz şimdi iyisimi bu programı nereye install edeceğimi belirtin ona göre bi bakayım" Label6. Visible = False Text1. Visible = True Label9. Visible = True End Sub Private Sub Command7_Click Text1. Visible = False Label9. Visible = False ProgressBar1. Visible = False Command7. Visible = False Command8. Visible = True labelbaba. Caption = "Tamam dosyaları belirtemediğiniz yere ayıklarım. Bunun için ileriye tıklayın" End Sub Private Sub Command8_Click Dim i Command8. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Dosyaların ayıklanması işlemi tamamlandı. Şimdi sıra dosyaların yükleneceği bölümün arızalı olup olmadığının bulunmasında. Bunun için ileriye tıklayın" Command8. Visible = False Command9. Visible = True End Sub Private Sub Command9_Click Dim i Command9. Enabled = False ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = 3000 For i = 0 To 3000 ProgressBar1. Value = i Next ProgressBar1. Visible = False labelbaba. Caption = "Hımm harddiskiniz sağlam. Peki yüklenecek dosyalar sağlammı. Bilmiyorsunuz değil mi? Öğrenmek için tıklamak gerek. İleriyi tıklarsanız öğrenirsiniz. E hadi tıklayın bari. Tıklayın tıklayın çekinmeyin" Command9. Visible = False Command10. Visible = True End Sub Private Sub Form_MouseMove Command4. Left = 3360 Command3. Left = 2040 End Sub Private Sub Text1_Change MsgBox End Sub