Yüzde Ekleme Nasıl Yapılır?

[baba18]

Arkadaşlar Birkaç Sorunum var yardımcı olabilrseniz

1 - İlerleme Çubugunda Yüzde Olarak Göstermek İstiyorum
2 - Seçilen Programların Sayısını Göstermek İstiyorum
3 - Program Kurulurken Yeni Pencerede %19.. buprogramkuruluyor die pencere göstermek istiyorum.

[b]son aşamalarım bunlar kaldı kur kodu aşağıdaki neresinde nasıl bir yol izlemem lazım...[/b]


[code]c1 = CheckBox.GetChecked("CheckBox1") -- 1. checkboxun seçili olup olmadığına bak
c2 = CheckBox.GetChecked("CheckBox2") -- 2. checkboxun seçili olup olmadığına bak
c3 = CheckBox.GetChecked("CheckBox3") -- 3. checkboxun seçili olup olmadığına bak
c4 = CheckBox.GetChecked("CheckBox4") -- 4. checkboxun seçili olup olmadığına bak
c5 = CheckBox.GetChecked("CheckBox5") -- 5. checkboxun seçili olup olmadığına bak
c6 = CheckBox.GetChecked("CheckBox6") -- 6. checkboxun seçili olup olmadığına bak
c7 = CheckBox.GetChecked("CheckBox7") -- 7. checkboxun seçili olup olmadığına bak
c8 = CheckBox.GetChecked("CheckBox8") -- 8. checkboxun seçili olup olmadığına bak
c9 = CheckBox.GetChecked("CheckBox9") -- 9. checkboxun seçili olup olmadığına bak
c10 = CheckBox.GetChecked("CheckBox10") -- 10. checkboxun seçili olup olmadığına bak
c11 = CheckBox.GetChecked("CheckBox11") -- 11. checkboxun seçili olup olmadığına bak
c12 = CheckBox.GetChecked("CheckBox12") -- 12. checkboxun seçili olup olmadığına bak
c13 = CheckBox.GetChecked("CheckBox13") -- 13. checkboxun seçili olup olmadığına bak
c14 = CheckBox.GetChecked("CheckBox14") -- 14. checkboxun seçili olup olmadığına bak
c15 = CheckBox.GetChecked("CheckBox15") -- 15. checkboxun seçili olup olmadığına bak
c16 = CheckBox.GetChecked("CheckBox16") -- 16. checkboxun seçili olup olmadığına bak
c17 = CheckBox.GetChecked("CheckBox17") -- 17. checkboxun seçili olup olmadığına bak
c18 = CheckBox.GetChecked("CheckBox18") -- 18. checkboxun seçili olup olmadığına bak
c19 = CheckBox.GetChecked("CheckBox19") -- 19. checkboxun seçili olup olmadığına bak
c20 = CheckBox.GetChecked("CheckBox20") -- 20. checkboxun seçili olup olmadığına bak
c21 = CheckBox.GetChecked("CheckBox21") -- 21. checkboxun seçili olup olmadığına bak
c22 = CheckBox.GetChecked("CheckBox22") -- 22. checkboxun seçili olup olmadığına bak
c23 = CheckBox.GetChecked("CheckBox23") -- 23. checkboxun seçili olup olmadığına bak
c24 = CheckBox.GetChecked("CheckBox24") -- 24. checkboxun seçili olup olmadığına bak
c25 = CheckBox.GetChecked("CheckBox25") -- 25. checkboxun seçili olup olmadığına bak
c26 = CheckBox.GetChecked("CheckBox26") -- 26. checkboxun seçili olup olmadığına bak
c27 = CheckBox.GetChecked("CheckBox27") -- 27. checkboxun seçili olup olmadığına bak
c28 = CheckBox.GetChecked("CheckBox28") -- 28. checkboxun seçili olup olmadığına bak
c29 = CheckBox.GetChecked("CheckBox29") -- 29. checkboxun seçili olup olmadığına bak
c30 = CheckBox.GetChecked("CheckBox30") -- 30. checkboxun seçili olup olmadığına bak
c31 = CheckBox.GetChecked("CheckBox31") -- 31. checkboxun seçili olup olmadığına bak
c32 = CheckBox.GetChecked("CheckBox32") -- 32. checkboxun seçili olup olmadığına bak
c33 = CheckBox.GetChecked("CheckBox33") -- 33. checkboxun seçili olup olmadığına bak
c34 = CheckBox.GetChecked("CheckBox34") -- 34. checkboxun seçili olup olmadığına bak
c35 = CheckBox.GetChecked("CheckBox35") -- 35. checkboxun seçili olup olmadığına bak

--###### Progress Ayarları ##########
nToplam = 0;
for i=1,35 do
if CheckBox.GetChecked("CheckBox" .. i) then
nToplam = nToplam+1
end
end

Progress.SetRange("Progress1", 0, nToplam)
Progress.SetCurrentPos("Progress1", 0)

--#####################################

if c1 then -- eğer 1. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\1.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "AIMP kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c2 then -- eğer 2. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\2.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Autorun Deactivator kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c3 then -- eğer 3. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\3.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "AVG ANTIVURUS kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c4 then -- eğer 4. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\4.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Ccleaner kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c5 then -- eğer 5. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\5.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Direct 9.0 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c6 then -- eğer 6. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\6.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "ESET 4 Tr kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c7 then -- eğer 7. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\7.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "FlashGet kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c8 then -- eğer 8. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\8.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Flash Paketi kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c9 then -- eğer 9. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\9.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Google Chrome kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c10 then -- eğer 10. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\10.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "KLite kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c11 then -- eğer 11. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\11.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "MS.Office 2003 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c12 then -- eğer 12. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\12.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Nero7 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c13 then -- eğer 13. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\13.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Open Office kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c14 then -- eğer 14. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\14.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Firefox TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c15 then -- eğer 15. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\15.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Photo Slideshow kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c16 then -- eğer 16. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\16.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Skype kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c17 then -- eğer 17. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\17.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Total VIDEO CONVRTR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c18 then -- eğer 18. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\18.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "VLC Final kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c19 then -- eğer 19. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\19.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Windows Live kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c20 then -- eğer 20. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\20.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "WinRaR Tr kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c21 then -- eğer 21. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\21.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Yahoo kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c22 then -- eğer 22. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\22.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Adobe Reader 9 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c23 then -- eğer 23. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\23.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Photoshop Cs4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c24 then -- eğer 24. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\24.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Media Player 11 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c25 then -- eğer 25. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\25.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Winamp Pro 5.81 + DFX kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c26 then -- eğer 26. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\26.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Teamviewer 5.0 TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c27 then -- eğer 27. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\27.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Opera 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c28 then -- eğer 28. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\28.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Ashampoo Burning Studio 10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c29 then -- eğer 29. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\29.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Daemon Tools Pro 4.10 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c30 then -- eğer 30. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\30.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Java Update 6.1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c31 then -- eğer 31. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\31.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Net Fremork 1-2-3-4 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c32 then -- eğer 32. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\32.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Windows Installer 3-1 kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c33 then -- eğer 33. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\33.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Usb Disk Security 5-4 TR kurulumu tamamlandı") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c34 then -- eğer 34. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\34.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "İnternet Dowland Menager") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end

if c35 then -- eğer 35. checkbox seçili ise
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
File.Run("AutoPlay\\Docs\\35.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Paragraph.SetText("Paragraph1", "Ofis 2007") -- kurulum tamamlandı mesajı ver
Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...)
end




-- eğer herhangi biri seçili ise kurulum bitiminde bitti mesajı ver
if c1 or c2 or c3 or c4 or c5 or c6 or c7 or c8 or c9 or c10 then
Dialog.Message("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ")
end

-- eğer hiç bir seçim yapılmamışsa uyarı ver
if c1 == false and c2 == false and c3 == false and c4 == false and c5 == false and c6 == false and c7 == false and c8 == false and c9 == false and c10 == false then
Dialog.Message("wwww.ıı I Net I Org", "Seçtigin Programları Yükledim Abi.Varsa Başka Emrin Söyle ")
end
[/code]

[radyofon]

Sondan bir önceki satır böyle olmalıydı....
[xml]Dialog.Message("wwww.ıı I Net I Org", "Programları seçmedin ben de yüklemedim Abi.) [/xml]

Edited June 10, 2011 by radyofon

[spydevil]

[quote]nYuzde = Math.Round(100 / nToplam, 0) + 1;
Progress.SetRange("Progress1", 0, 100);[/quote]

Her if döngüsünün altına;
[code]Progress.SetCurrentPos("Progress1", Progress.GetCurrentPos("Progress1") + nYuzde);[/code]

[baba18]

[codebox]--###### Progress Ayarları ##########
nToplam = 0;
for i=1,35 do
if CheckBox.GetChecked("CheckBox" .. i) then
nToplam = nToplam+1
end
end

Progress.SetRange("Progress1", 0, nToplam)
Progress.SetCurrentPos("Progress1", 0)[/codebox]

yukarıdaki kısmamı eklicem

nYuzde = Math.Round(100 / nToplam, 0) + 1;
Progress.SetRange("Progress1", 0, 100);

bu kodları