kral1122 Posted September 2, 2011 Share Posted September 2, 2011 (edited) Selamunaleyküm arkadaşlar öncelikle konu açıldıysa farketmedim özür dilerim ben görmedim benim bir ricam var aşağıdaki resimde [img]http://imagehostu.com/images/6513.png[/img] 0 program seçildi yazıyor sol tarafta o nasıl yapılıyor Yardımcı olan arkadaşlardan Allah razı olsun Edited September 2, 2011 by kral1122 Quote Link to comment Share on other sites More sharing options...
prototype Posted September 2, 2011 Share Posted September 2, 2011 Tek bir label oluştur Setting sekmesinden Text bölümüne 0 yaz, Attributes sekmesindeki "Object Name" bölümüne sayi yaz sonra global functionsa bu kodu yapıştır. [code] 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 .. "") else INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sName) nSayi = nSayi-1 Label.SetText("sayi", nSayi .. "") end end function kontrol() Label.SetText("sayi", nSayi .. "") 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 [/code] Sonra birtane daha label oluştur ve adını Adet Program Seçildi gibi yaz ve az önce açış olduğun labelin yanına koy. Böyle görünsün; 0 Adet Program Seçildi. Quote Link to comment Share on other sites More sharing options...
kral1122 Posted September 2, 2011 Author Share Posted September 2, 2011 [quote name='prototype' date='02 September 2011 - 19:26 ' timestamp='1314984396' post='1073252'] Tek bir label oluştur Setting sekmesinden Text bölümüne 0 yaz, Attributes sekmesindeki "Object Name" bölümüne sayi yaz sonra global functionsa bu kodu yapıştır. [code] 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 .. "") else INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sName) nSayi = nSayi-1 Label.SetText("sayi", nSayi .. "") end end function kontrol() Label.SetText("sayi", nSayi .. "") 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 [/code] Sonra birtane daha label oluştur ve adını Adet Program Seçildi gibi yaz ve az önce açış olduğun labelin yanına koy. Böyle görünsün; 0 Adet Program Seçildi. [/quote] dediklerini aynen yaptım ama olmadı arkadaşlar yardımcı olursanız sevinirim Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted September 2, 2011 Share Posted September 2, 2011 (edited) [b]Şimdiye Kadar Hazırlanmış En Güzel, En Sağlam AIO Örneği. Aradığın Şey Burada. Kodları İncele :[/b] [code]http://www.tnctr.com/topic/156784-ayolarda-birden-cok-sayfa-ile-calythmak/[/code] Edited September 2, 2011 by Baba_ 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.