ozanc4n

KintaRo bir ricam daha olacak; Yazdığın kodlarda progress bar (mesala 5 checkbox seçili ise %20-%40-%60-%80-%100) diye ilerliyo bunun ilerlemesini nasıl (%1-%2-%3-%4-%5-%6........%100)  yaparım.

Sarf ettiğin emek ve yardımın için çok teşekkür ederim KintaRo, verdiğin kodlar sıkıntısız çalışıyor...   Başarılarının devamını dilerim... İyi Forumlar...

14 Okuma ve 0 Yorum. KintaRo hocam bir el atarmısınız.

Merhaba Arkadaşlar...   18 adet CHECKBOX ve 1 adet KUR butonu var. Checkbox'ların hepsine birer katılımsız program atanmış durumda.   Sorum Şu: Checkbox'ların biri veya daha fazlası seçili iken, Kur butonuna bastığımda, obje olarak eklemiş olduğum    PROGRESS BAR'ın üzerinde (%10 - %33 - %87 - %100 gibi) yazarak, durumu  göstermesi ve ilerlemesini nasıl sağlarım?   NOT: Vereceğiniz kodları nereye ekleyeceğimi yazarsanız sevinirim. Şimdiden Teşekkürler.   Kur Butonundaki Kodlar: q1 = CheckBox.GetChecked("CheckBox1"); q2 = CheckBox.GetChecked("CheckBox2"); q3 = CheckBox.GetChecked("CheckBox3") q4 = CheckBox.GetChecked("CheckBox4") q5 = CheckBox.GetChecked("CheckBox5") q6 = CheckBox.GetChecked("CheckBox6") q7 = CheckBox.GetChecked("CheckBox7") q8 = CheckBox.GetChecked("CheckBox8") q9 = CheckBox.GetChecked("CheckBox9") q10 = CheckBox.GetChecked("CheckBox10") q11 = CheckBox.GetChecked("CheckBox11") q12 = CheckBox.GetChecked("CheckBox12") q13 = CheckBox.GetChecked("CheckBox13") q14 = CheckBox.GetChecked("CheckBox14") q15 = CheckBox.GetChecked("CheckBox15") q16 = CheckBox.GetChecked("CheckBox16") q17 = CheckBox.GetChecked("CheckBox17") q18 = CheckBox.GetChecked("CheckBox18") if q1 then q1 = File.Run("AutoPlay\\Docs\\ESET NOD32 Antivirus 6.0.316.1 TR.exe", "", "", SW_SHOWNORMAL, true); end if q2 then q2 = File.Run("AutoPlay\\Docs\\Mozilla Firefox 32 Final.exe", "", "", SW_SHOWNORMAL, true); end if q3 then q3 = File.Run("AutoPlay\\Docs\\Google Chrome Stable 36.0.1985.143 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q4 then q4 = File.Run("AutoPlay\\Docs\\Internet Download Manager 6.21 Build 11 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q5 then q5 = File.Run("AutoPlay\\Docs\\Glary Utilities Pro 5.9.0.16.exe", "", "", SW_SHOWNORMAL, true); end if q6 then q6 = File.Run("AutoPlay\\Docs\\FormatFactory 3.3.3.0 Katılımsız.exe", "", "", SW_SHOWNORMAL, true); end if q7 then q7 = File.Run("AutoPlay\\Docs\\DAEMON Tools Ultra 2.4.0.0280 TR.exe", "", "", SW_SHOWNORMAL, true); end if q8 then q8 = File.Run("AutoPlay\\Docs\\Ashampoo Burning Studio 9.exe", "", "", SW_SHOWNORMAL, true); end if q9 then q9 = File.Run("AutoPlay\\Docs\\Foxit Reader 6.1.1.1031 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q10 then q10 = File.Run("AutoPlay\\Docs\\µTorrent Plus 3.4.2.33080 Stable Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q11 then q11 = File.Run("AutoPlay\\Docs\\Media Player Classic Home Cinema 1.7.6 Stable Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q12 then q12 = File.Run("AutoPlay\\Docs\\Net Framework 4.5.1 [Nisan 2014].exe", "", "", SW_SHOWNORMAL, true); end if q13 then q13 = File.Run("AutoPlay\\Docs\\Adobe Flash Player 15.0.0.152 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q14 then q14 = File.Run("AutoPlay\\Docs\\GOM Player 2.2.56.5183 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q15 then q15 = File.Run("AutoPlay\\Docs\\Microsoft Office 2007 Enterprise VL SP3 TR.exe", "", "", SW_SHOWNORMAL, true); end if q16 then q16 = File.Run("AutoPlay\\Docs\\WinRAR_5.11_Final_TR.exe", "", "", SW_SHOWNORMAL, true); end if q17 then q17 = File.Run("AutoPlay\\Docs\\Unlocker 1.9.2 Final TR.exe", "", "", SW_SHOWNORMAL, true); end if q18 then q18 = File.Run("AutoPlay\\Docs\\CPU-Z.exe", "", "", SW_SHOWNORMAL, true); end if q1 or q2 or q3 or q4 or q5 or q6 or q7 or q8 or q9 or q10 or q11 or q12 or q13 or q14 or q15 or q16 or q17 or 18 then Dialog.Message("", "Kurulumunuz Bitti Teşekkürler...", MB_OK, MB_ICONNONE, MB_DEFBUTTON2); end