SİNNAN Posted August 20, 2012 Share Posted August 20, 2012 [code] [center][img]*************[/img][/center] [center][img]http://i.imgur.com/VeuLw.png[/img][/center] [quote]*************[/quote] [center][img]http://i.imgur.com/6xjhe.png[/img][/center] [spoiler] [center][img]*************[/img][/center] [center][img]*************[/img][/center] [center][img]*************[/img][/center] [center][img]*************[/img][/center][/spoiler] [center][img]http://i.imgur.com/syuOX.png[/img][/center] [spoiler][center] [img]http://i.imgur.com/HsA1J.png[/img][b]İşletim Sistemi[/b] = ************* [img]http://i.imgur.com/S30It.png[/img][b]İşlemci[/b] = ************* [img]http://i.imgur.com/XmRip.png[/img][b]Ram[/b] = ************* [img]http://i.imgur.com/bKg3M.png[/img][b]Boş alan[/b] = ************* [img]http://i.imgur.com/hJIg1.png[/img][b]Ekran kartı[/b] = ************* [img]http://i.imgur.com/gPVNA.png[/img][b]DirectX[/b] = ************* [/center][/spoiler] [center][img]http://i.imgur.com/HhALJ.png[/img][/center] [quote][center][media=*************][/center][/quote] [center][img]http://i.imgur.com/yUQQs.png[/img][/center] [quote][quote][/quote][/quote][/code] iyi forumlar.. ufak bir script rica ediyorum. auto it bilgim yetmiyor. 13 adet olan yıldızlı bölgelere textbox ile müdahele edebileceğim bir script rica ediyorum. Text box lara yazacağım bilgiler eşleşen yıldızlı yerlere gelecek ve en sonunda eklenecek bir buton ile .txt dosyası verecek. yapabilirseniz sevinirim. şimdiden teşekkürler. iyi forumlar Quote Link to comment Share on other sites More sharing options...
g.a Posted August 21, 2012 Share Posted August 21, 2012 (edited) [b]Başlığı silip ben yazdım deme.[/b] [spoiler][codebox]#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: G.A #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Konu Editörü : Coded by G.A (TncTR.Com)", 730, 651, 192, 124) GUISetFont(9, 800, 0, "Tahoma") $Label1 = GUICtrlCreateLabel("Oyun Adı:", 8, 8, 64, 18) $inGame = GUICtrlCreateInput("", 121, 6, 601, 22) $Label2 = GUICtrlCreateLabel("Oyun Bilgisi:", 8, 40, 78, 18) $edGI = GUICtrlCreateEdit("", 121, 40, 601, 217) $Label3 = GUICtrlCreateLabel("Oyundan Kareler:", 10, 267, 110, 16) $inI1 = GUICtrlCreateInput("", 121, 264, 601, 22) $inI2 = GUICtrlCreateInput("", 121, 288, 601, 22) $inI3 = GUICtrlCreateInput("", 121, 312, 601, 22) $inI4 = GUICtrlCreateInput("", 121, 336, 601, 22) $Label4 = GUICtrlCreateLabel("Sistem Gereksinimleri:", 8, 368, 136, 18) GUICtrlSetFont(-1, 9, 800, 4, "Tahoma") $Label5 = GUICtrlCreateLabel("İşletim Sistemi:", 47, 388, 97, 18) $Label6 = GUICtrlCreateLabel("İşlemci:", 95, 410, 49, 18) $inOS = GUICtrlCreateInput("", 144, 384, 249, 22) $inIS = GUICtrlCreateInput("", 144, 408, 249, 22) $inRAM = GUICtrlCreateInput("", 472, 384, 249, 22) $indfd = GUICtrlCreateLabel("Ekran Kartı:", 69, 435, 75, 18) $Label7 = GUICtrlCreateLabel("DirectX:", 420, 434, 52, 18) $Label8 = GUICtrlCreateLabel("RAM:", 435, 387, 37, 18) $inGC = GUICtrlCreateInput("", 144, 432, 249, 22) $inDRX = GUICtrlCreateInput("", 472, 432, 249, 22) $inHDD = GUICtrlCreateInput("", 472, 408, 249, 22) $Label9 = GUICtrlCreateLabel("Boş Alan:", 410, 408, 61, 18) $Label10 = GUICtrlCreateLabel("Oynayış Videosu:", 38, 467, 107, 18) $inVD = GUICtrlCreateInput("", 144, 464, 577, 22) $Label11 = GUICtrlCreateLabel("Torrent Bilgileri:", 10, 504, 101, 18) $edTB = GUICtrlCreateEdit("", 144, 496, 577, 105) GUICtrlSetData(-1, "") $Button1 = GUICtrlCreateButton("Kaydet", 560, 608, 163, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $file = FileSaveDialog("Kayıt Yerini Seçin:", @DesktopDir & "\", "Metin Belgesi (*.txt)", 16) If Not @error Then FileWrite($file & ".txt","[center][img]" & GUICtrlRead($inGame) & "[/img][/center]" & @CR & _ "[center][img]http://i.imgur.com/VeuLw.png[/img][/center]" & @CR & _ "[quote]" & GUICtrlRead($edGI) & "[/quote]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/6xjhe.png[/img][/center]" & @CR & @CR & _ "[spoiler]" & @CR & _ "[center][img]" & GUICtrlRead($inI1) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI2) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI3) & "[/img][/center]" & @CR & _ "[center][img]" & GUICtrlRead($inI4) & "[/img][/center][/spoiler]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/syuOX.png[/img][/center]" & @CR & _ "[spoiler][center]" & @CR & _ "[img]http://i.imgur.com/HsA1J.png[/img][b]İşletim Sistemi[/b] = " & GUICtrlRead($inOS) & @CR & _ "[img]http://i.imgur.com/S30It.png[/img][b]İşlemci[/b] = " & GUICtrlRead($inIS) & @CR & _ "[img]http://i.imgur.com/XmRip.png[/img][b]Ram[/b] = " & GUICtrlRead($inRAM) & @CR & _ "[img]http://i.imgur.com/bKg3M.png[/img][b]Boş alan[/b] = " & GUICtrlRead($inHDD) & @CR & _ "[img]http://i.imgur.com/hJIg1.png[/img][b]Ekran kartı[/b] = " & GUICtrlRead($inGC) & @CR & _ "[img]http://i.imgur.com/gPVNA.png[/img][b]DirectX[/b] = " & GUICtrlRead($inDRX) & "[/center][/spoiler]" & @CR & _ @CRLF & _ @CRLF & _ "[center][img]http://i.imgur.com/HhALJ.png[/img][/center]" & @CR & _ "[quote][center][media=" & GUICtrlRead($inVD) & "][/center][/quote]" & @CR & _ @CRLF & _ "[center][img]http://i.imgur.com/yUQQs.png[/img][/center]" & @CR & _ "[quote][quote]" & GUICtrlRead($edTB)& "[/quote][/quote]") EndIf EndSwitch WEnd [/codebox][/spoiler] [b]GUICtrlRead($Nesne Adi) şeklinde okutup metin belgesine yazdırabilirsin.[/b] Edited August 21, 2012 by g.a Quote Link to comment Share on other sites More sharing options...
SİNNAN Posted August 21, 2012 Author Share Posted August 21, 2012 Kardeşim adamsın hatta adamın dibisin. Aynı şekilde bunuda hazırlayabilir misin? rica etsem kardeşim. [CODE] [center][img] ******** [/img][/center] [center][img]http://i.imgur.com/gh2JQ.png[/img][/center] [quote][center] ******** [/center][/quote] [center][img]http://i.imgur.com/oPw74.png[/img][/center] [spoiler] [center][img] ******** [/img][/center] [center][img] ******** [/img][/center] [center][img] ******** [/img][/center] [center][img] ******** [/img][/center][/spoiler] [center][img]http://i.imgur.com/3z890.png[/img][/center] [quote][center][media= ********* ][/center][/quote] [center][img]http://i.imgur.com/ntRsu.png[/img][/center] [quote][center][b]Dil :[/b] ****** [b]IMDB Puanı:[/b] ****** [b]Yapım:[/b] ****** [b]Tür:[/b] ****** [b]Yönetmen:[/b] ****** [b]Oyuncular:[/b] ****** [b]Görüntü Y.:[/b] ****** [b]Senaryo:[/b] ****** [b]Yapımcı:[/b] ****** [/center][/quote] [center][img=|bilgi]http://i.imgur.com/yUQQs.png[/img][/center] [quote][quote]******[/quote][/quote][/CODE] Quote Link to comment Share on other sites More sharing options...
g.a Posted August 21, 2012 Share Posted August 21, 2012 Bu kadarda hazırcı olmayın. Koda da tasarım yap buton 1 deki kodlara bakarak düzenle. Quote Link to comment Share on other sites More sharing options...
SİNNAN Posted August 21, 2012 Author Share Posted August 21, 2012 kardeşim amacım yağlamak ve ya gaz vermek değil söyleyeceklerimi yanlış anlama. senin coder liğin daha iyi diye istedim. ben birinin uğraşıp yapacağını beklemiyordum bile. tasarım yapsam kodlar mısın? 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.