kral1122 Posted March 26, 2012 Share Posted March 26, 2012 (edited) 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 Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 26, 2012 Share Posted March 26, 2012 Peki checkboxlarda seçince nToplam ı bir artırsın seçmeyi kaldırınca eksiltsin diye kod ekledinmi Quote Link to comment Share on other sites More sharing options...
NotToday Posted March 26, 2012 Share Posted March 26, 2012 [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 Quote Link to comment Share on other sites More sharing options...
kral1122 Posted March 26, 2012 Author Share Posted March 26, 2012 [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] Quote Link to comment Share on other sites More sharing options...
NotToday Posted March 26, 2012 Share Posted March 26, 2012 Onla alakası yok başka bir kod vs. olmalı veya action eklidir. Quote Link to comment Share on other sites More sharing options...
kral1122 Posted March 26, 2012 Author Share Posted March 26, 2012 [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] Quote Link to comment Share on other sites More sharing options...
NotToday Posted March 26, 2012 Share Posted March 26, 2012 On Timede kod var mı ? Ya adama müneccimlik yaptırma apz ver de bakalım Quote Link to comment Share on other sites More sharing options...
kral1122 Posted March 26, 2012 Author Share Posted March 26, 2012 (edited) 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.