dragon3781 Posted June 6, 2012 Share Posted June 6, 2012 (edited) Merhaba ; Aşağıdaki Projemin Çogu Tamam Sayılır. Fakat ; Listeye Ekle dediğim zaman inputlara gelen verinin TreeList e eklenmesini bunun yazdırma işlemini nasıl yapabilirim. [img]http://www.tnctr.com/uploads/imgs/pre_1338974243__res.jpg[/img] [code]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%202.apz[/code] Not : Proje Dosyasını .apz yi yukarıdaki siteye upload ederek alabilirsem sevinirim , Firewall birtek oraya müsade ediyor. İyi günler... Edited June 6, 2012 by dragon3781 Quote Link to comment Share on other sites More sharing options...
NotToday Posted June 6, 2012 Share Posted June 6, 2012 Abi hangisi nereye yazılacak bilmiyorum da o yüzden fikir veriyim Get.Text'le inputtan alırsın treeliste eklersin.Yan sutuna geçirmek için sadece "|" bunu kullan. (Tırnaklar olmadan) Mesela inputtan alınan veriler Veri1 Veri2 Veri3 Diyelim. TreeList.AddRow("Plugin1",Veri1.."|"..Veri2.."|"..Veri3.."|"..Veri4, nil, nil, nil) Şeklinde eklersin abi Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 6, 2012 Author Share Posted June 6, 2012 ReaLyMaN dediğinin aynısını yapmışım bende... Sorunumu kendim kurcalarken çözdüm ve projeyi tamamladım. Bazen insan işyerindeki yogunluktan dolayı ne yapacagını nasıl yapacagını unutuyor çözemiyor valla . Tamamlanmış Link ( Belki işine yarayan olur ); [code]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%203.apz[/code] İlgi ve yardımlar için teşekkür ederim. İyi günler... Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted June 6, 2012 Share Posted June 6, 2012 Abi yanlış anlama ama bu ne için yazılmış bir program?? Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 6, 2012 Author Share Posted June 6, 2012 [quote name='nightmare3519' date='06 June 2012 - 10:12 ' timestamp='1338977558' post='1209262'] Abi yanlış anlama ama bu ne için yazılmış bir program?? [/quote] Est.Ne demek özetliyeyim ... nightmare3519 Bizim şirkette elemanlar bunu elle tek tek yazıyorlar , hesaplıyorlar ( Günlük 100 adet filan ) Şimdi AMS de hazır formullu ve yazıcı cıktı alma olayıda var , daha çabuk daha temiz iş. Enerji sektöründe çalışıyorum , trafo imalatı ( onun içinde kullanılan bir malzemenin ölçüleri ) firması. Olay bundan ibaret yani.... Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted June 6, 2012 Share Posted June 6, 2012 Anladım abi işlerini kolaylaştırmışsın Quote Link to comment Share on other sites More sharing options...
HalilYanar Posted June 6, 2012 Share Posted June 6, 2012 Olay şöyle oldu anladıysam ; Veri1 = Input.GetText("Input1"); Veri2 = Input.GetText("Input2"); Veri3 = Input.GetText("Input3"); Veri4 = Input.GetText("Input4"); TreeList.AddRow("Plugin1",Veri1.."|"..Veri2.."|"..Veri3.."|"..Veri4, nil, nil, nil) Böyle birşey galiba arkadaşında dediği gibi şuan ams yok bendede. Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 7, 2012 Author Share Posted June 7, 2012 Peki sadece sayfadaki TreeList nasıl yazdırılabilir ? Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 7, 2012 Share Posted June 7, 2012 Ellerine sağlık. Ben de elektronikçiyim ve çevremde de elektrikçiler var. Gerçi bu imalat sektörü için galiba ama yine de aldım. Bakarsın lazım olur. Teşekkürler!... Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted June 7, 2012 Share Posted June 7, 2012 (edited) [quote name='dragon3781' date='07 June 2012 - 13:55 ' timestamp='1339066506' post='1209612'] Peki sadece sayfadaki TreeList nasıl yazdırılabilir ? [/quote] [b]KintaRo anlatmıştı HTML dosyası şeklinde döküm oluşturmayı. TreeListteki verileri döngü ile çekip html oluşturabilirsin. Daha sonra yazdırabilirsin.[/b] [code]http://www.tnctr.com/topic/195066-ams-to-html/[/code] [b]Edit : İlgili konu linki eklendi.[/b] Edited June 7, 2012 by Baba_ Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 8, 2012 Author Share Posted June 8, 2012 (edited) Merhaba ; Kodu Denediğimde sadece ilk sutun yazılıyor Html dosyasına dıger sutunlar olmuyor nedense. [code]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%204.apz[/code] Sadece aşağıdaki kodu değiştirdiğimde 1 yerine 2 yada 3 yapınca o stunu yazıyor bu seferde ; [code]satir = TreeList.GetCellText("Plugin6", i, 1)[/code] [codebox] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<table border=\"1\">\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin6", false) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin6", i, 0) satir = TreeList.GetCellText("Plugin6", i, 1) TextFile.WriteFromString(sDosya, "<tr><td>" .. satirno .. "</td><td>" .. satir .. "</td></tr>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule[/codebox] Edited June 8, 2012 by dragon3781 Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted June 9, 2012 Share Posted June 9, 2012 [b]Sizin projenizi bir türlü build edemedi benim bilgisayar ama şöyle birşey yazayım ;[/b] [codebox] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<table border=\"1\">\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin6", false) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin6", i, 0) satir1 = TreeList.GetCellText("Plugin6", i, 1) satir2 = TreeList.GetCellText("Plugin6", i, 2) satir3 = TreeList.GetCellText("Plugin6", i, 3) TextFile.WriteFromString(sDosya, "<tr><td>"..satirno.."</td><td>"..satir1.."</td></tr>"..satir2.."</td></tr>"..satir3.."</td></tr>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule [/codebox] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 9, 2012 Share Posted June 9, 2012 aynen benim bilgisayarda hata veriyor build ederken Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 9, 2012 Author Share Posted June 9, 2012 Baba_ Denediklerinin yaptım olmadı , sonuç olarak ilk iki satır çıktı ama onlarda bitişik olarak çıktı. ben projeyi tekrar upload ettim farklı bir yere bu sefer açılır sanırım. [code]http://www.multiupload.nl/41SOJHBFEH[/code] Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted June 9, 2012 Share Posted June 9, 2012 [b]Projeyi indirmede sıkıntı yaşamıyoruz. Projeyi F5 ile build ederken AMS kilitleniyor ve kapanıyor. Size verdiğim kodlarda bi yanlışlık görmedim ama projeyi açamadığım için birşey diyemiyorum.[/b] Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 9, 2012 Author Share Posted June 9, 2012 Anladım Baba Sıkıntı build etmede farkındayım , ama ben faklı olarak tekrar upload ettım onu bır denermısınız. bu sefer dırekt olarak .apz olarak upload ettım . Dıger sıte nedense upload ederken .apz yi rar a çeviriyor. Birde multiupload linkini denermisin. Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted June 9, 2012 Share Posted June 9, 2012 (edited) [b]Projeyi yine indirdim, yine açamadım. Neyse, ben KintaRo'nun örneğinden hallettim ;[/b] [codebox] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<table border=\"2\">\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin1", true) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin1", i, 0) satir = TreeList.GetCellText("Plugin1", i, 1) satir2 = TreeList.GetCellText("Plugin1", i, 2) TextFile.WriteFromString(sDosya, "<tr><td>"..satirno.."</td><td>"..satir.."</td><td>"..satir2.."</td></td>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule [/codebox] [b]3 kolon için ;[/b] [codebox] for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin1", i, 0) satir = TreeList.GetCellText("Plugin1", i, 1) satir2 = TreeList.GetCellText("Plugin1", i, 2) satir3 = TreeList.GetCellText("Plugin1", i, 3) TextFile.WriteFromString(sDosya, "<tr><td>"..satirno.."</td><td>"..satir.."</td><td>"..satir2.."</td><td>"..satir3.."</td></td>", true) end [/codebox] Edited June 9, 2012 by Baba_ Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 9, 2012 Author Share Posted June 9, 2012 Baba çok sağolasın oldu gerçekten Pekı tablolar arasını nasıl genışletebilirim , çok yakınlar birbirine . Html yazınca aralarını biraz açmak için nereyi oynamalıyım kodlarda. Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 9, 2012 Author Share Posted June 9, 2012 Tamamdır Sorunu kurcalaya kurcalaya çözdüm... Sorun ; [b]</td><td>[/b] Bunları çogaltarak çözülmüştür. ( Sanırım herbiri bir boşluk anlamına geliyor.) Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 11, 2012 Author Share Posted June 11, 2012 Ne yaptıysam headerdeki arayüze tablola html deki verileri düzgünce yazdıramadım. Alt tabloyu hangi satırlar ile düzenleyebilirim. [img][img]http://www.tnctr.com/uploads/imgs/pre_1339413952__deneme.jpg[/img][/img] [code] sDosya = _SourceFolder .. "\\Autoplay\\Docs\\yazdir.html"; -- html dosyasının yolu sHeader = TextFile.ReadToString(_SourceFolder .. "\\Autoplay\\Docs\\header.html") -- yeni html dosyası için header bilgilerini al TextFile.WriteFromString(sDosya, sHeader .. "\r\n", false) -- html dosyasını boşalt ve header bilgilerini yaz -- listedeki verileri html e aktar TextFile.WriteFromString(sDosya, "<TABLE BORDER WIDTH=50 \\ table border cellpadding=0 \\ cellspacing=10 \\ th align =bottom \\ bgcolor = #FFFFD0 \\ tr align = center >\r\n", true) -- tabloyu oluştur -- döngüyü başlat nCount = TreeList.CountRows("Plugin6", true) -- kaç satir oldugunu say for i=0,nCount-1 do satirno = TreeList.GetCellText("Plugin6", i, 0) satir = TreeList.GetCellText("Plugin6", i, 1) satir2 = TreeList.GetCellText("Plugin6", i, 2) satir3 = TreeList.GetCellText("Plugin6", i, 3) satir4 = TreeList.GetCellText("Plugin6", i, 4) satir5 = TreeList.GetCellText("Plugin6", i, 5) satir6 = TreeList.GetCellText("Plugin6", i, 6) TextFile.WriteFromString(sDosya, "</tr><td>".. satirno .."</td><td>" .. satir .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir2 .."</td><td></td><td></td><td></td><td>".. satir3 .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir4 .."</td><td></td><td></td><td></td><td></td><td></td><td>".. satir5 .."</td><td></td><td></td><td></td><td></td><td>".. satir6 .."</td><td></td><td></td><td></td><td></td></tr>", true) end TextFile.WriteFromString(sDosya, "</table></body></html>", true) -- tabloyu kapat ve footeri yaz DialogEx.Show("yazdir") -- yazdirma penceresini goruntule [/code] Quote Link to comment Share on other sites More sharing options...
MasterWoo Posted June 11, 2012 Share Posted June 11, 2012 Bende de aynı sorun var bakalım nasıl cıkacaksınız onu bekliyom Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 11, 2012 Share Posted June 11, 2012 proje dosyanızı verinde inceleyelim. Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted June 11, 2012 Author Share Posted June 11, 2012 Buyur hocam ne demek hemen [code]http://alucardfile.alucardwarez.net/data/al%26%23305%3B%26%23351%3Bma.rar[/code] [b]Not :[/b] Apz yi .apz olarak yukarıdaki siteye upload edersen sevinirim. , Firewall birtek orayı yakalamıyor ... Quote Link to comment Share on other sites More sharing options...
KintaRo Posted June 11, 2012 Share Posted June 11, 2012 [img]http://i.imgur.com/gCqkf.png[/img] [quote]http://www.mediafire.com/?7i5ldd59xbk1l8v[/quote] [quote]http://alucardfile.alucardwarez.net/data/Troid%20Hesaplama%204%20v2.apz[/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.