prototype Posted June 25, 2011 Share Posted June 25, 2011 (edited) Şimdi arkadaşlar kuracak programı seçiyorum kur butonuna basınca "Kurulum Başarıyla Tamamlandı" uyarısı hemen geliyor ama bakıyorum program ondan sonra kuruluyor yani "Kurulum Başarıyla Tamamlandı" uyarısı program tam olarak kurulmadan çıkıyor. bunu nasıl ayarlayabilir lütfen yardım edin nolur.. Kullanmış olduğum kodlar bunlar; [codebox]if c1 then -- eğer 1. checkbox seçili ise -- buraya program kurulum kodu gelecek Paragraph.SetText("Paragraph1", "Program Kurulumu Tamamlandı !") -- kurulum tamamlandı mesajı ver Application.Sleep(2000) --2 saniye bekle (buna normalde gerek yok sadece görüntü için...) result = File.Run("AutoPlay\\Docs\\programs\\5CCleaner.exe", "", "", SW_SHOWNORMAL, false); Progress.StepIt("Progress1", 0, 100) end[/codebox] Kurulum kodu buraya gelcek yazan yere ne yazacağımm ? Edited June 25, 2011 by prototype Quote Link to comment Share on other sites More sharing options...
Edit_Excellent Posted June 25, 2011 Share Posted June 25, 2011 [size="3"][font="Comic Sans MS"][b]Selam Kardeş Aşagıdaki gibi düzenlersen sorunun ortadan kalkar.[/b][/font][/size] [codebox]if c1 then -- eğer 1. checkbox seçili ise -- buraya program kurulum kodu gelecek File.Run("AutoPlay\\Docs\\CheckBox1.exe", "", "", SW_SHOWNORMAL, true); Progress.StepIt("Progress1", 0, 100) Paragraph.SetText("Paragraph1", "Program Kurulumu Tamamlandı !") -- kurulum tamamlandı mesajı ver end[/codebox] [size="3"][font="Comic Sans MS"][b]kolay gelsin ...[/b][/font][/size] Quote Link to comment Share on other sites More sharing options...
prototype Posted June 25, 2011 Author Share Posted June 25, 2011 çok teşekkür ederim oldu Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 25, 2011 Share Posted June 25, 2011 [quote]Progress.StepIt("Progress1", 0, 100)[/quote] Bu kod hatalı, doğrusu şu şekilde olacak: [quote]Progress.StepIt("Progress1")[/quote] ama çalışma esnasında hata vermez sadece bilgi için söylüyorum. Quote Link to comment Share on other sites More sharing options...
prototype Posted June 25, 2011 Author Share Posted June 25, 2011 [quote name='KintaRo' date='25 June 2011 - 14:15 ' timestamp='1309004125' post='1035278'] Bu kod hatalı, doğrusu şu şekilde olacak: ama çalışma esnasında hata vermez sadece bilgi için söylüyorum. [/quote] Teşekkürler abi.. ancak bişi sorucam mesela programları kur butonuna tıklayınca progres bar yavaş yavaş dolmadan direkt kurulum bitince doluyor yani ilerlemiyor kurulum bitince progres bar otomatik ful doluyor.. Quote Link to comment Share on other sites More sharing options...
Edit_Excellent Posted June 25, 2011 Share Posted June 25, 2011 (edited) [b]Bak Kardeş Diyelim Ki; 5 checkBox'lı AIO hazırlıyorsun.Kur Butuno ve Progress Bar ekledin.Progress bar'ın ilerlemesi için kur butununa;Aşagıdaki kodları yazacaksın Kur Butonunu On Click Evresine;[/b][font="Comic Sans MS"][/font][size="2"][/size] [codebox]c1 = CheckBox.GetChecked("CheckBox1") c2 = CheckBox.GetChecked("CheckBox2") c3 = CheckBox.GetChecked("CheckBox3") c4 = CheckBox.GetChecked("CheckBox4") c5 = CheckBox.GetChecked("CheckBox5") --------------------------------------------- nToplam = 0; for i=1,5 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end --------------------------------------------- Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0) --------------------------------------------- if c1 then File.Run("AutoPlay\\Docs\\CheckBox1.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph1", "CheckBox1 kurulumu başarıyla tamamlandı.") end if c2 then File.Run("AutoPlay\\Docs\\CheckBox2.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph1", "CheckBox2 kurulumu başarıyla tamamlandı.") end if c3 then File.Run("AutoPlay\\Docs\\CheckBox3.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph1", "CheckBox3 kurulumu başarıyla tamamlandı.") end if c4 then File.Run("AutoPlay\\Docs\\CheckBox4.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph1", "CheckBox4 kurulumu başarıyla tamamlandı.") end if c5 then File.Run("AutoPlay\\Docs\\CheckBox5.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph1", "CheckBox5 kurulumu başarıyla tamamlandı.") end ------------------------------------------------------------------------ Dialog.Message("Başarılı!", "Seçtiğiniz Programlar Başarıyla Kuruldu.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)[/codebox] Edited June 27, 2011 by Edit_Excellent Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 25, 2011 Share Posted June 25, 2011 kodlar evet dogru gecen verdiğim kodlar yalnız bu 54 checkbox için, 5 tane için su sekilde yapin : [quote]--------------------------------------------- nToplam = 0; for i=1,5 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end ---------------------------------------------[/quote] Quote Link to comment Share on other sites More sharing options...
lepis48 Posted July 2, 2014 Share Posted July 2, 2014 bana yardım eden varmı arkadaşlar ams programını iyi bilen yardım etsin ben bir aıo yapıyom hama hiçkimsede olmuyan bişi yapıyom yardım isityorum kur butunu ve ilerlemede bir sorun cıkıyo email adresim [email protected]ütven Quote Link to comment Share on other sites More sharing options...
KintaRo Posted July 5, 2014 Share Posted July 5, 2014 mail adresinizi AMS programının yapımcıları olan Indigorose şirketine bildirdik, en kısa zamanda sizle iletişime geçecekler. Quote Link to comment Share on other sites More sharing options...
Editor MOTUN Posted July 5, 2014 Editor Share Posted July 5, 2014 mail adresinizi AMS programının yapımcıları olan Indigorose şirketine bildirdik, en kısa zamanda sizle iletişime geçecekler. :H: 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.