Jump to content

Aıo Mesaj Yapımı

4551fs

By 4551fs,
in AutoPlay Media Studio

 Share

Recommended Posts

4551fs Newbie

4551fs

Posted
Posted
[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]
Link to comment
Share on other sites
4551fs Newbie

4551fs

Posted
  • Author
Posted

[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]

Link to comment
Share on other sites
pilgetir Newbie

pilgetir

Posted
Posted (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 by pilgetir
Link to comment
Share on other sites
Bitmap Newbie

Bitmap

Posted
Posted (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 by byvistakazim
Link to comment
Share on other sites
4551fs Newbie

4551fs

Posted
  • Author
Posted

[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]

Link to comment
Share on other sites
Bitmap Newbie

Bitmap

Posted
Posted (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 by byvistakazim
Link to comment
Share on other sites
4551fs Newbie

4551fs

Posted
  • Author
Posted

[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]

Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted

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]

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...