4551fs Posted June 6, 2011 Share Posted June 6, 2011 [font="Comic Sans MS"][b]Selam TNCTR çalisanları ve üyeleri.AIO hazırlamaktayım.Şimdiye kadar herşey yolunda gitti. Ama en son yapmak istedigim uyarı versin ( yani programlar kurulduktan sonra başarılı v.s. Programlarınız sisteminizee başarıyla kurulmuştur v.s. )istiyorum.Sizden istegim bana yardımcı olur musunuz? Sizden istegim bana kodlarını vermeniz mümkün mü?Aşagıdaki örnek gibi;[/b][/font] [img]http://www.tnctr.com/uploads/imgs/pre_1307372934__resim.jpg[/img] Quote Link to comment Share on other sites More sharing options...
pilgetir Posted June 6, 2011 Share Posted June 6, 2011 (edited) Sen aıonda seçilenleri kur butonunun kodlarını bi verir misin ? Edited June 6, 2011 by pilgetir Quote Link to comment Share on other sites More sharing options...
Bitmap Posted June 6, 2011 Share Posted June 6, 2011 butonda Son checkbox komutunun Altına Ekle [code]result = Dialog.Message("Kurulum Tamamlandı!", "Seçtiğiniz Programlar Kuruldu.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);[/code] Quote Link to comment Share on other sites More sharing options...
4551fs Posted June 6, 2011 Author Share Posted June 6, 2011 [size="3"][font="Comic Sans MS"][b]Seçilenleri KUR butonu On Click Evresi Kodlar: c1 = CheckBox.GetChecked("CheckBox1") c2 = CheckBox.GetChecked("CheckBox2") c3 = CheckBox.GetChecked("CheckBox3") c4 = CheckBox.GetChecked("CheckBox4") c5 = CheckBox.GetChecked("CheckBox5") c6 = CheckBox.GetChecked("CheckBox6") c7 = CheckBox.GetChecked("CheckBox7") c8 = CheckBox.GetChecked("CheckBox8") c9 = CheckBox.GetChecked("CheckBox9") c10 = CheckBox.GetChecked("CheckBox10") ----------------------------------------------------------------------------------------------------------- nToplam = 0; for i=1,54 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end ----------------------------------------------------------------------------------------------------------- Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0) ------------------------------------------------------------------------------------------------------------ if c1 then Paragraph.SetText("Paragraph1", "CheckBox1 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox1.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox1 kurulumu tamamlandı.") end if c2 then Paragraph.SetText("Paragraph1", "CheckBox2 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox2.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox2 kurulumu tamamlandı.") end if c3 then Paragraph.SetText("Paragraph1", "CheckBox3 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox3.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox3 Full kurulumu tamamlandı.") end if c4 then Paragraph.SetText("Paragraph1", "CheckBox4 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox4.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox kurulumu tamamlandı.") end if c5 then Paragraph.SetText("Paragraph1", "CheckBox5 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox5.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox5 kurulumu tamamlandı.") end if c6 then Paragraph.SetText("Paragraph1", "CheckBox6 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox6.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox6 kurulumu tamamlandı.") end if c7 then Paragraph.SetText("Paragraph1", "CheckBox7 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox7.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox7 kurulumu tamamlandı.") end if c8 then Paragraph.SetText("Paragraph1", "CheckBox8 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox8.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox8 kurulumu tamamlandı.") end if c9 then Paragraph.SetText("Paragraph1", "CheckBox9 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox9.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox9 kurulumu tamamlandı.") end if c10 then Paragraph.SetText("Paragraph1", "CheckBox10 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox10.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox10 kurulumu tamamlandı.") end ---------------------------------------------------------------------------------------------------------------------------------[/b][/font][size="3"][/size][/size] Quote Link to comment Share on other sites More sharing options...
pilgetir Posted June 6, 2011 Share Posted June 6, 2011 (edited) Aşağıdaki ile değiştir bakalım. [quote] c1 = CheckBox.GetChecked("CheckBox1") c2 = CheckBox.GetChecked("CheckBox2") c3 = CheckBox.GetChecked("CheckBox3") c4 = CheckBox.GetChecked("CheckBox4") c5 = CheckBox.GetChecked("CheckBox5") c6 = CheckBox.GetChecked("CheckBox6") c7 = CheckBox.GetChecked("CheckBox7") c8 = CheckBox.GetChecked("CheckBox8") c9 = CheckBox.GetChecked("CheckBox9") c10 = CheckBox.GetChecked("CheckBox10") ----------------------------------------------------------------------------------------------------------- nToplam = 0; for i=1,54 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end ----------------------------------------------------------------------------------------------------------- Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0) ------------------------------------------------------------------------------------------------------------ if c1 then Paragraph.SetText("Paragraph1", "CheckBox1 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox1.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox1 kurulumu tamamlandı.") end if c2 then Paragraph.SetText("Paragraph1", "CheckBox2 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox2.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox2 kurulumu tamamlandı.") end if c3 then Paragraph.SetText("Paragraph1", "CheckBox3 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox3.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox3 Full kurulumu tamamlandı.") end if c4 then Paragraph.SetText("Paragraph1", "CheckBox4 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox4.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox kurulumu tamamlandı.") end if c5 then Paragraph.SetText("Paragraph1", "CheckBox5 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox5.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox5 kurulumu tamamlandı.") end if c6 then Paragraph.SetText("Paragraph1", "CheckBox6 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox6.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox6 kurulumu tamamlandı.") end if c7 then Paragraph.SetText("Paragraph1", "CheckBox7 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox7.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox7 kurulumu tamamlandı.") end if c8 then Paragraph.SetText("Paragraph1", "CheckBox8 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox8.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox8 kurulumu tamamlandı.") end if c9 then Paragraph.SetText("Paragraph1", "CheckBox9 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox9.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox9 kurulumu tamamlandı.") end if c10 then Paragraph.SetText("Paragraph1", "CheckBox10 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox10.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox10 kurulumu tamamlandı.") end Dialog.Message("Kurulum Tamamlandı!", "Seçtiğiniz Programlar Kuruldu.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); else Dialog.Message("Kurulum Tamamlanamadı!", "Seçtiğiniz Programlar Kurulamadı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end [/quote] Edited June 6, 2011 by pilgetir Quote Link to comment Share on other sites More sharing options...
Bitmap Posted June 6, 2011 Share Posted June 6, 2011 (edited) [quote name='4551fs' date='06 June 2011 - 18:39 ' timestamp='1307374794' post='1025155'] [codebox]Seçilenleri KUR butonu On Click Evresi Kodlar: c1 = CheckBox.GetChecked("CheckBox1") c2 = CheckBox.GetChecked("CheckBox2") c3 = CheckBox.GetChecked("CheckBox3") c4 = CheckBox.GetChecked("CheckBox4") c5 = CheckBox.GetChecked("CheckBox5") c6 = CheckBox.GetChecked("CheckBox6") c7 = CheckBox.GetChecked("CheckBox7") c8 = CheckBox.GetChecked("CheckBox8") c9 = CheckBox.GetChecked("CheckBox9") c10 = CheckBox.GetChecked("CheckBox10") ----------------------------------------------------------------------------------------------------------- nToplam = 0; for i=1,54 do if CheckBox.GetChecked("CheckBox" .. i) then nToplam = nToplam+1 end end ----------------------------------------------------------------------------------------------------------- Progress.SetRange("Progress1", 0, nToplam) Progress.SetCurrentPos("Progress1", 0) ------------------------------------------------------------------------------------------------------------ if c1 then Paragraph.SetText("Paragraph1", "CheckBox1 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox1.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox1 kurulumu tamamlandı.") end if c2 then Paragraph.SetText("Paragraph1", "CheckBox2 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox2.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox2 kurulumu tamamlandı.") end if c3 then Paragraph.SetText("Paragraph1", "CheckBox3 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox3.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox3 Full kurulumu tamamlandı.") end if c4 then Paragraph.SetText("Paragraph1", "CheckBox4 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox4.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox kurulumu tamamlandı.") end if c5 then Paragraph.SetText("Paragraph1", "CheckBox5 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox5.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox5 kurulumu tamamlandı.") end if c6 then Paragraph.SetText("Paragraph1", "CheckBox6 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox6.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox6 kurulumu tamamlandı.") end if c7 then Paragraph.SetText("Paragraph1", "CheckBox7 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox7.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox7 kurulumu tamamlandı.") end if c8 then Paragraph.SetText("Paragraph1", "CheckBox8 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox8.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox8 kurulumu tamamlandı.") end if c9 then Paragraph.SetText("Paragraph1", "CheckBox9 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox9.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox9 kurulumu tamamlandı.") end if c10 then Paragraph.SetText("Paragraph1", "CheckBox10 kuruluyor...") File.Run("AutoPlay\\Docs\\CheckBox10.exe", "", "", SW_SHOWNORMAL, true); nPos = Progress.GetCurrentPos("Progress1") Progress.SetCurrentPos("Progress1", nPos+1) Paragraph.SetText("Paragraph2", "CheckBox10 kurulumu tamamlandı.") end Dialog.Message("Kurulum Tamamlandı!", "Seçtiğiniz Programlar Kuruldu.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);[/codebox] [size="3"][font="Comic Sans MS"][b]---------------------------------------------------------------------------------------------------------------------------------[/b][/font][/size] [/quote] denemesini yaptım Edited June 6, 2011 by byvistakazim Quote Link to comment Share on other sites More sharing options...
4551fs Posted June 6, 2011 Author Share Posted June 6, 2011 [size="3"]teşekkür ederim byvistakazim verdigim kodları uyguladım sonunda ve sayende AIO um bitti. Yalnız bir sorunum daha var çözemedim yardımcı olur musun ? Kurulum Bitince PC yi RESTART et ve PC'yi KAPAT butuno CheckBox olşturuyorum tık verdigim anda pc yi restart yapıyor TNCTR deki verilen kodları uyguladım ama olmadı... şimdiden teşekkür ederim..[/size][font="Comic Sans MS"][/font] Quote Link to comment Share on other sites More sharing options...
Bitmap Posted June 6, 2011 Share Posted June 6, 2011 (edited) [quote name='4551fs' date='06 June 2011 - 18:47 ' timestamp='1307375275' post='1025162'] [size="3"]teşekkür ederim byvistakazim verdigim kodları uyguladım sonunda ve sayende AIO um bitti. Yalnız bir sorunum daha var çözemedim yardımcı olur musun ? Kurulum Bitince PC yi RESTART et ve PC'yi KAPAT butuno CheckBox olşturuyorum tık verdigim anda pc yi restart yapıyor TNCTR deki verilen kodları uyguladım ama olmadı... şimdiden teşekkür ederim..[/size] [/quote] on click evresinin en altına ekle....Böylece hepsi tamamlanınca kapanır.... Edited June 6, 2011 by byvistakazim Quote Link to comment Share on other sites More sharing options...
4551fs Posted June 6, 2011 Author Share Posted June 6, 2011 [font="Comic Sans MS"][size="3"]Beni yanlıs anladım galiba anlatayım şimdi senin verdigin dialog mesajı olayı tamam on click evresinin en altına ekledim denedim ve oldu. Ama anlatmak istedigim olay AIO çalışmama Programlar bitince PC Yi yeniden başlat ve PC yi KAPAT CheckBox yapıyorum TNCTR den aldıgım kodları CheckBox'un On click evresine yazıyorum test ediyorum programları seçiyorum.Ve Programlar Bitince PC Yi restart et CheckBox'ı tıklıyorum programı kurmadan hemen restart ediyor PC yi Sorunum bu şimdiden teşekkür ederim ....Çok sagolun yardımcı oldugunuz için..[/size][/font] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 6, 2011 Share Posted June 6, 2011 ya bunlar daha once cok anlatıldı arama yapin arkadaşlar. Kur buttona "kurulum tamamlandı" mesajının altına sunlari ekleyin [quote]sRestart = CheckBox.GetChecked("CheckBox1") -- restart checkbox i hangisi ise o nesnenn adını yaz if sRestart then -- bilgisayarı restart edecek kodlar end[/quote] 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.