Program Kurulunca Labelde Bildirsin

[casira]

Ustalara bir sorum olacak.

Projemde mesela 32 adet checkbox var bunların herbiri bir programa ait.Mesela 20 tane seçtim ve kurdum;kurulum sonunda 20 adet program sisteminize yüklendi tarzında bir diyalog mesajı çıkarabilirmiyiz.Daha gelişmiş olarak Checkboxların üstünde yazılı olan programları bir boş sayfaya veya bir bölüme işte

1-adobe reader kuruldu

2-gom player kuruldu

3-Winrar kuruldu.

.....

....

...

20- Tune Up kuruldu.

kullanıcının hangi programları seçip kurduğuna dari bir döküm listesi hazırlayabilirmiyiz?

[KintaRo]

Abi AMS ile herşey mümkün. Hemde basit kodlarda. Sadece hayal edin ve mantık yürütün

-- 10 Checkboxlık bir proje hazırladım ve şöyle;

Kur Buttonu kodları:

nSayi = 0; -- sayı toplama
-- seçilen checkboxlari bul
cGet1 = CheckBox.GetChecked("CheckBox1")
cGet2 = CheckBox.GetChecked("CheckBox2")
cGet3 = CheckBox.GetChecked("CheckBox3")
cGet4 = CheckBox.GetChecked("CheckBox4")
cGet5 = CheckBox.GetChecked("CheckBox5")
cGet6 = CheckBox.GetChecked("CheckBox6")
cGet7 = CheckBox.GetChecked("CheckBox7")
cGet8 = CheckBox.GetChecked("CheckBox8")
cGet9 = CheckBox.GetChecked("CheckBox9")
cGet10 = CheckBox.GetChecked("CheckBox10")

if cGet1 then
Dialog.TimedMessage("Mesaj", "1. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "1. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet2 then
Dialog.TimedMessage("Mesaj", "2. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "2. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet3 then
Dialog.TimedMessage("Mesaj", "3. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "3. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet4 then
Dialog.TimedMessage("Mesaj", "4. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "4. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet5 then
Dialog.TimedMessage("Mesaj", "5. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "5. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet6 then
Dialog.TimedMessage("Mesaj", "6. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "6. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet7 then
Dialog.TimedMessage("Mesaj", "7. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "7. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet8 then
Dialog.TimedMessage("Mesaj", "8. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "8. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet9 then
Dialog.TimedMessage("Mesaj", "9. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "9. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet10 then
Dialog.TimedMessage("Mesaj", "10. Program Kuruldu", 1500, MB_ICONINFORMATION) -- kuruldu mesaji ver
TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "10. Program \r\n", true) -- program adını txte yazdır
nSayi = nSayi+1 -- sabit değeri +1 arttır
end

if cGet1 or cGet2 or cGet3 or cGet4 or cGet5 or cGet6 or cGet7 or cGet8 or cGet9 or cGet10 then -- eğer herhangi biri seçilmişse
Dialog.Message("Mesaj", nSayi .. " Adet programın kurulu tamamlandı") -- kuruldu mesaji ver
DialogEx.Show("Dialog1") -- dialog penceresini goster
end 

Dialog penceresi On Show kodları:

liste = TextFile.ReadToString("AutoPlay\\Docs\\liste.txt")

Paragraph.SetText("Paragraph1", liste)[/CODE]

Dialog penceresi On Close kodları:

[CODE]TextFile.WriteFromString("AutoPlay\\Docs\\liste.txt", "", false)[/CODE]

Örnep Proje:

[CODE]http://www.tamotomatik.org/dosya/CB_kurulum_listesi.zip[/CODE]