Aıo'larda Birden Çok Sayfa Ile Çalışmak

[NotToday]

abicim sen hiç bilmiyorsun anladım da ilk bir ön öğitimlerine baksan ?

[lavigne-61]

[b][quote name='ReaLyMaN' date='06 February 2012 - 16:59 ' timestamp='1328540367' post='1151530']
abicim sen hiç bilmiyorsun anladım da ilk bir ön öğitimlerine baksan ?
[/quote]

Hızlı işi severim arkadaşım bende kodlarla aram iyidir web tasarımı okuyorum php hml ve asp.net gördüm kısacası chexbox ları hallettim yani tümüne tik atıp kuruluyor temizleme tümünü seç arkaplan temizle butonları ve resimleri yaptım asm mantığını anlamaya başladım biraz olsada ön bilgi alacak kadar hayat uzun olmuyabilir [/b]

[NotToday]

on showa koyarsan preje açılınca yapar.veya bir objeye tıklayınca açsın dersen objenin on clikine koy.

[KintaRo]

[quote name='lavigne-61' date='06 February 2012 - 17:22 ' timestamp='1328541759' post='1151537']
[b]ön bilgi alacak kadar hayat uzun olmuyabilir [/b]
[/quote]

böyle bir bahane bulduğun için yürekten kutlarım seni

[lavigne-61]

[quote name='KintaRo' date='06 February 2012 - 16:48 ' timestamp='1328539696' post='1151523']
ha evet realyman haklı ben genel kullanım açısından yazmıştım, eğer seçili checkboxlari bir değişkende depoluyorsanız mesela nSecilen olsun bu değişken,



yapmanız gerekir.
[/quote]



kodu aynen uyguladım fakat yine olmuyor

[NotToday]

Olmuyor derken tikler mi kalkmıyor ?

[lavigne-61]

[quote name='ReaLyMaN' date='06 February 2012 - 18:24 ' timestamp='1328545473' post='1151577']
Olmuyor derken tikler mi kalkmıyor ?
[/quote]

tikler kalkıyor fakat tikler kalktığı için doğal olarak program kurmaması lazım önceki seçilenleri fakat kuruyor bide label ekledim toplam kaç program seçiliyse oaraya yazıyor temizle yaptığımdada orayıda temizlemesini istiyorum bi zahmet yardım etsen

[NotToday]

Bunları denedin mi ?


Hepsini seç

[quote]sMetin={}
for i=1,99,1 do
sMetin[i]=CheckBox.GetText("CheckBox"..i);
INIFile.SetValue("Autoplay\\Docs\\kurulum.ini", sMetin[i], "kur", "1")
CheckBox.SetChecked("CheckBox"..i, true);
end[/quote]

Hepsini kaldır

[quote]sMetin={}
for i=1,99,1 do
sMetin[i]=CheckBox.GetText("CheckBox"..i);
INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sMetin[i])
CheckBox.SetChecked("CheckBox"..i, false);
end
[/quote]

[lavigne-61]

[quote name='ReaLyMaN' date='06 February 2012 - 18:33 ' timestamp='1328546039' post='1151584']
Bunları denedin mi ?


Hepsini seç



Hepsini kaldır


[/quote]

tmm şimdi oldu tek sorun ise labeli temizleme kaldı iki üç mantık yuruttum ama labeli temizletemedim nasıl olcak
tik attığım programalrı sayıyırda

Edited February 6, 2012 by lavigne-61

[NotToday]

Set.Text () komutunu kullan ne yazacaksın bilmiyorum ama.

[lavigne-61]

[quote name='ReaLyMaN' date='06 February 2012 - 18:54 ' timestamp='1328547295' post='1151596']
Set.Text () komutunu kullan ne yazacaksın bilmiyorum ama.
[/quote]

edit: sorun çözüldü

Edited February 6, 2012 by lavigne-61

[KintaRo]

global functions ta yazan kodları buraya yazın

[lavigne-61]

[quote name='KintaRo' date='06 February 2012 - 19:09 ' timestamp='1328548141' post='1151604']
global functions ta yazan kodları buraya yazın
[/quote]


[codebox]nSayi = 0;

function sec(sObject, sName)
bChecked = CheckBox.GetChecked(sObject)
if bChecked then
INIFile.SetValue("Autoplay\\Docs\\kurulum.ini", sName, "kur", "1")
nSayi = nSayi+1
Label.SetText("sayi", nSayi .. " adet program seçildi")
else
INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sName)
nSayi = nSayi-1
Label.SetText("sayi", nSayi .. " adet program seçildi")
end
end


function kontrol()
Label.SetText("sayi", nSayi .. " adet program seçildi")
tSections = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini")

if tSections ~= nil then
for i=1,100 do
for y in pairs(tSections) do
if CheckBox.GetText("CheckBox" .. i) == tSections[y] then
CheckBox.SetChecked("CheckBox" .. i, true)
end
end
end
else
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
end
end

function kur()
tTablo = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini")

if tTablo ~= nil then
Progress.SetRange("Progress1", 0, Table.Count(tTablo))
Progress.SetCurrentPos("Progress1", 0)
for i in pairs(tTablo) do
if INIFile.GetValue("AutoPlay\\Docs\\kurulum.ini", tTablo[i], "kur") == "1" then
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
nPos=nPos+1
Progress.SetText("Progress1", "%" .. Math.Round(100/nSayi*nPos, 0) .. " | " .. tTablo[i] .. " Kuruluyor...")
Dialog.TimedMessage("Kurulum", tTablo[i] .. "Kuruldu!", 1000, MB_ICONINFORMATION)
File.Run("AutoPlay\\Docs\\Programlar\\" .. tTablo[i] .. ".exe", "", "AutoPlay\\Docs\\Programlar", SW_SHOWNORMAL, true)
end
end
File.Delete("AutoPlay\\Docs\\kurulum.ini", false, false, false, nil)
Progress.SetCurrentPos("Progress1", 0)
Label.SetText("sayi", 0 .. " adet program seçildi")
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
Progress.SetText("Progress1", "%0")
Dialog.Message("Kurulum", "Seçilen " .. nSayi .. " programın kurulumu tamamlandı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
nSayi = 0;
else
Dialog.TimedMessage("Hata", "Hiç bir program seçilmedi!", 1000, MB_ICONEXCLAMATION)
end
end[/codebox]

[KintaRo]

tüm seçimi kaldır buttonunun on click evresindeki kodların en altına

nSayi = 0;

Label.SetText("nesne ismi", "0 Program seçildi")


yazıp deneyin.

[lavigne-61]

[quote name='KintaRo' date='06 February 2012 - 19:14 ' timestamp='1328548453' post='1151610']
tüm seçimi kaldır buttonunun on click evresindeki kodların en altına

nSayi = 0;

Label.SetText("nesne ismi", "0 Program seçildi")


yazıp deneyin.
[/quote]

sorun devam ediyor

[img]http://www.tnctr.com/uploads/imgs/pre_1328548834__ekran_alnts.jpg[/img]

[KintaRo]

abi Label.SetText() ile xButton nesnesinin ismini değiştirmeye çalışıyorsun?

[lavigne-61]

[quote name='KintaRo' date='06 February 2012 - 19:24 ' timestamp='1328549058' post='1151618']
abi Label.SetText() ile xButton nesnesinin ismini değiştirmeye çalışıyorsun?
[/quote]

nesne ismi yazmısın nese ismini bende oraya yazdım bu konuda acemiyim kusura bakma !

edit: sorun çözüldü acemiğilime verin
doğrusu(benim yanlış yazdığımın ne akdar saçma olduğunu anladım )
[b] [/b]

[b][color="#ff0000"]nSayi= 0;[/color][/b]
[b][color="#ff0000"]Label.SetText("sayi","0 Program seçildi")[/color][/b]

Edited February 6, 2012 by lavigne-61

[lavigne-61]

[center][b]hocam size bi kaç sorum olucak eğer sizi rahatsız ediyorsam affola[/b][/center][center][b]*sayfanın boyutunu nasıl ayrlıyabilirim ?[/b][/center][center][b]*örneğin bir sayfama ileri butonu ekledim butona tıkladıktan sonra page2 gidiyor (Page.Navigate(PAGE_NEXT) ama öbür sayfa kapanıyor işte bu sayfanın kapanmasını istemiyorum yeni küçük bir pencerede açmasını istiyorum kodu nedir acaba bunun ?[/b][/center][center][b]bide bana bu terimleri çok kısa açıklıyabilirmisiniz[/b][/center][center][b]
[/b][/center][center][b][img]http://www.tnctr.com/uploads/imgs/pre_1328611827__ekran_alnts.jpg[/img][/b][/center][center]
[/center]

Edited February 7, 2012 by lavigne-61

[NotToday]

[b]1-[/b]Project /Settings
[spoiler][img]http://i.imgur.com/nzVFx.png[/img][/spoiler]

[b]2-[/b] Sayfa yerine diolog kullan

[spoiler][img]http://i.imgur.com/FkXxX.png[/img][/spoiler]

[b]3-[/b]

[spoiler][img]http://i.imgur.com/vH9hf.jpg[/img][/spoiler]

[lavigne-61]

Arkadaşlar kusura bakmayın belki içinizde diyosunuzdur forumda araştırsan dolusuyla varn ewet biliyorum fakat mantığı kavrıyım bari bu süreci atlatıyım sonrasında kodları elle bile yazarım
öteki soruma geçiyim

önerilen diye buton yaptım butona tıkladığım zaman checkbox1 seçiliyor fakat kur butonuna tıkladığım zaman program seçiniz yazıyor normal mause yle tik attığım zaman kuruluyor
kod?

önerilen boton kodu
CheckBox.SetChecked("CheckBox1", true)

global fuctions

[spoiler] Dialog.Message ("MERHABA", "Hoş Geldiniz ");

nSayi = 0;
function sec(sObject, sName)
bChecked = CheckBox.GetChecked(sObject)
if bChecked then
INIFile.SetValue("Autoplay\\Docs\\kurulum.ini", sName, "kur", "1")
nSayi = nSayi+1
Label.SetText("sayi", nSayi .. " adet program seçildi")
else
INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sName)
nSayi = nSayi-1
Label.SetText("sayi", nSayi .. " adet program seçildi")
end
end


function kontrol()
Label.SetText("sayi", nSayi .. " adet program seçildi")
tSections = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini")

if tSections ~= nil then
for i=1,100 do
for y in pairs(tSections) do
if CheckBox.GetText("CheckBox" .. i) == tSections[y] then
CheckBox.SetChecked("CheckBox" .. i, true)
end
end
end
else
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
end
end

function kur()
tTablo = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini")

if tTablo ~= nil then
Progress.SetRange("Progress1", 0, Table.Count(tTablo))
Progress.SetCurrentPos("Progress1", 0)
for i in pairs(tTablo) do
if INIFile.GetValue("AutoPlay\\Docs\\kurulum.ini", tTablo[i], "kur") == "1" then
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
nPos=nPos+1
Progress.SetText("Progress1", "%" .. Math.Round(100/nSayi*nPos, 0) .. " | " .. tTablo[i] .. " Kuruluyor...")
Dialog.TimedMessage("Kurulum", tTablo[i] .. "Kuruldu!", 1000, MB_ICONINFORMATION)
File.Run("AutoPlay\\Docs\\Programlar\\" .. tTablo[i] .. ".exe", "", "AutoPlay\\Docs\\Programlar", SW_SHOWNORMAL, true)
end
end
File.Delete("AutoPlay\\Docs\\kurulum.ini", false, false, false, nil)
Progress.SetCurrentPos("Progress1", 0)
Label.SetText("sayi", 0 .. " adet program seçildi")
for i=1,100 do
CheckBox.SetChecked("CheckBox" .. i, false)
end
Progress.SetText("Progress1", "%0")
Dialog.Message("Kurulum", "Seçilen " .. nSayi .. " programın kurulumu tamamlandı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
nSayi = 0;
else
Dialog.TimedMessage("Hata", "Hiç bir program seçilmedi!", 1000, MB_ICONEXCLAMATION)
end
end
[/spoiler]

önerilken butonuna tıkladığım zman altta normalde bir program seçildi demesi lazım ama demiyor mauseyle tıkladığım zaman diyor nedeni ne sizce ?

Edited February 7, 2012 by lavigne-61

[NotToday]

Checbox'a tıkladığın zaman Docs konumuna ini oluşturur ve içine yüklenecekleri sıralar(Proje kapanınca siliyor)Sen tıklamadığın için clickdeki foksiyon çalışmaz.Örnek vermek gerekirse checkbox'da Winrar yazıyor.İniye şu şekilde ekler

[Winrar]
kur=1

Bundan yukarda verdiğim kodda checkbox'daki metni iniye yazıp silerek yüklemeden kaldırdım.

[lavigne-61]

[quote name='ReaLyMaN' date='07 February 2012 - 13:28 ' timestamp='1328614091' post='1151899']
Checbox'a tıkladığın zaman Docs konumuna ini oluşturur ve içine yüklenecekleri sıralar(Proje kapanınca siliyor)Sen tıklamadığın için clickdeki foksiyon çalışmaz.Örnek vermek gerekirse checkbox'da Winrar yazıyor.İniye şu şekilde ekler

[Winrar]
kur=1

Bundan yukarda verdiğim kodda checkbox'daki metni iniye yazıp silerek yüklemeden kaldırdım.
[/quote]

PEKİ hepsini seç butonu için kullanmam gereken şey nedir
ve kaç program seçildiğinide göstermiyor

Edited February 7, 2012 by lavigne-61

[NotToday]

83. mesajda verdim tümünü seçmeyi.Kaç tane seçildiği önemli değil zatem checbox sayın sabit.Direkt olarak yazdırabilirsin.

[lavigne-61]

[quote name='ReaLyMaN' date='07 February 2012 - 14:34 ' timestamp='1328618082' post='1151931']
83. mesajda verdim tümünü seçmeyi.Kaç tane seçildiği önemli değil zatem checbox sayın sabit.Direkt olarak yazdırabilirsin.
[/quote]
doğru söylüyorsun peki direk olarak nasıl yazdırabilirim

edit:mantık yuruttum oldu


nSayi =10
Label.SetText("sayi", nSayi .. " adet program seçildi")
end

Edited February 7, 2012 by lavigne-61

[NotToday]

nSayı neden tanımladın ki.Direkt belli sayı şeklinde yap demiştim.Bu şekilde yap.Birde end if for gibi komutlarka kullanılır.Burda gerek yok.

[quote]Label.SetText("sayi", "10 adet program seçildi")[/quote]

Senin kod aslında şöyle olmalıydı ;

[quote]nSayi =10
Label.SetText("sayi", nSayi .. " adet program seçildi")[/quote]