Autoplay İşaretlemediğim Programları Kuruyor

[kral1122]

Selamunaleyküm arkadaşlar günaydın benim sizlere bir sorum olacak ben AIO yapıyorum yalnız bir yerde takıldım kolay birşey aslında ama kafam durdu progress yaptım programlar yüklenirken çalışıyor 12 tane program var checboxlu benim seçmediğim programlarıda kuruyor kur butonu anlamadım gitti kafam durdu yapamıyorum

bütün kodları variyorum

global Functions
[code]nToplam = 0;[/code]

on show
[code]Page.StartTimer(100, 3)[/code]

programların başındaki her checkbox ta bu kod var
[code]bChecked = CheckBox.GetChecked(this)

if bChecked then
nToplam = nToplam+1
else
nToplam = nToplam-1
end[/code]

kur butonu

[code]
Progress.SetRange("Progress1", 0, nToplam) -- progress aralığını belirle
Progress.SetCurrentPos("Progress1", 0) -- progress çubuğunu ilk konuma getir

bChecked1 = CheckBox.GetChecked("CheckBox1") -- 1. checkboxin seçili olup olmadığına bak
bChecked2 = CheckBox.GetChecked("CheckBox2") -- 2. checkboxin seçili olup olmadığına bak
bChecked3 = CheckBox.GetChecked("CheckBox3") -- 3. checkboxin seçili olup olmadığına bak
bChecked4 = CheckBox.GetChecked("CheckBox4") -- 4. checkboxin seçili olup olmadığına bak
bChecked5 = CheckBox.GetChecked("CheckBox5") -- 5. checkboxin seçili olup olmadığına bak
bChecked6 = CheckBox.GetChecked("CheckBox6") -- 6. checkboxin seçili olup olmadığına bak
bChecked7 = CheckBox.GetChecked("CheckBox7") -- 7. checkboxin seçili olup olmadığına bak
bChecked8 = CheckBox.GetChecked("CheckBox8") -- 8. checkboxin seçili olup olmadığına bak
bChecked9 = CheckBox.GetChecked("CheckBox9") -- 9. checkboxin seçili olup olmadığına bak
bChecked10 = CheckBox.GetChecked("CheckBox10") -- 10. checkboxin seçili olup olmadığına bak
bChecked11 = CheckBox.GetChecked("CheckBox12") -- 11. checkboxin seçili olup olmadığına bak
bChecked11 = CheckBox.GetChecked("CheckBox12") -- 11. checkboxin seçili olup olmadığına bak

if bChecked1 then -- eğer 1. program seçilmişse
nPos = Progress.GetCurrentPos("Progress1") -- progressin şu anki pozisyonunu al
Progress.SetCurrentPos("Progress1", nPos+1) -- progress pozisyonunu şu anki durumundan 1 ileri götür
Label.SetText("kurulum", "Winrar kuruluyor...") -- labeli yazdır
File.Run("AutoPlay\\Docs\\prog1.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Application.Sleep(3000) -- bu kodu silebilirsiniz
end

if nToplam == 0 then
Dialog.Message("Hata", "Hiç seçim yapılmamış", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1)
else
Dialog.Message("OK", "seçilen tüm programlar kuruldu")
end
[/code]

kur butonunda sadece1 programa örnek verdim hepsi aynı

yardımcı olursanız sevinirim

Edited March 26, 2012 by kral1122

[El-Arabi]

Peki checkboxlarda seçince nToplam ı bir artırsın seçmeyi kaldırınca eksiltsin diye kod ekledinmi

[NotToday]

[quote name='El-Arabi' date='26 March 2012 - 12:20 ' timestamp='1332753606' post='1175569']
Peki checkboxlarda seçince nToplam ı bir artırsın seçmeyi kaldırınca eksiltsin diye kod ekledinmi
[/quote]
Ne alaka ?

Kodlarda hata yok.Başka yerden kaynaklı olabilir

[kral1122]

[quote name='El-Arabi' date='26 March 2012 - 11:20 ' timestamp='1332753606' post='1175569']
Peki checkboxlarda seçince nToplam ı bir artırsın seçmeyi kaldırınca eksiltsin diye kod ekledinmi
[/quote]

evet programların başındaki her checkbox ta bu kod var
[code]bChecked = CheckBox.GetChecked(this)

if bChecked then
nToplam = nToplam+1
else
nToplam = nToplam-1
end[/code]

[NotToday]

Onla alakası yok başka bir kod vs. olmalı veya action eklidir.

[kral1122]

[quote name='ReaLyMaN' date='26 March 2012 - 11:40 ' timestamp='1332754858' post='1175575']
Onla alakası yok başka bir kod vs. olmalı veya action eklidir.
[/quote]

yazmayı unutmuşum sayfanın on show kısmında bu kod var

[code]Page.StartTimer(100, 3)[/code]

[NotToday]

On Timede kod var mı ? Ya adama müneccimlik yaptırma apz ver de bakalım

[kral1122]

tamam kardeş yardımlarınız için sağol en azından çaba gösterdiniz çözümü buldum

[code]if bChecked1 then -- eğer 1. program seçilmişse
nPos = Progress.GetCurrentPos("Progress1") -- progressin şu anki pozisyonunu al
Progress.SetCurrentPos("Progress1", nPos+1) -- progress pozisyonunu şu anki durumundan 1 ileri götür
Label.SetText("kurulum", "Winrar kuruluyor...") -- labeli yazdır
File.Run("AutoPlay\\Docs\\prog1.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, true) -- programı çalıştır
Application.Sleep(3000) -- bu kodu silebilirsiniz
end[/code]

[color=red]bChecked1[/color] 1 yazan yeri değiştirmemişim 2 yada 3 yazmamışım şu anda sorunum çözüldü

Edited March 26, 2012 by kral1122