beydere Posted August 30, 2010 Share Posted August 30, 2010 Ben teknik serviste çalışıyorum .. Ve gelen bilgisayarların verilerini girebilecek bir program yazmak istioyrum.. İsimlerini giricem, geliş tarihlerini, arazalarını, bitecek zamanı,fiyatı, ve bitip bitmedigini girecegim ve gorecegim yardım edebilirmisinniz ?? Link to comment Share on other sites More sharing options...
blue_life Posted August 30, 2010 Share Posted August 30, 2010 Ilk önce, Koda (FormDesigner) ile guini tasarla. Daha sonra tasarladığın guiye göre seni yönlendiririz... Link to comment Share on other sites More sharing options...
beydere Posted August 30, 2010 Author Share Posted August 30, 2010 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListBoxConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Choices Dialog", 353, 256, 303, 219) GUISetIcon("D:\007.ico") $ListBox1 = GUICtrlCreateList("", 8, 8, 329, 201) GUICtrlSetData(-1, "Item1|Item2|Item3|Item4|Item5") $Button5 = GUICtrlCreateButton("Arama", 24, 225, 75, 25, 0) $Button6 = GUICtrlCreateButton("Sil", 184, 225, 75, 25, 0) $Button7 = GUICtrlCreateButton("Yeni Ekle", 264, 225, 75, 25, 0) $Button1 = GUICtrlCreateButton("Düzenle", 104, 225, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ilk önce yukarıdaki açılsın. Ardından Yeni ekleye basınca Aşağıdaki #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 869, 778, 188, 119) $Label1 = GUICtrlCreateLabel("Müşteri Bilgileri:", 32, 24, 168, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label2 = GUICtrlCreateLabel("İletişim Bilgileri:", 32, 112, 167, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label9 = GUICtrlCreateLabel("Bilgisayrın Marka ve Modeli:", 32, 200, 279, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label10 = GUICtrlCreateLabel("Arızası:", 32, 288, 80, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label11 = GUICtrlCreateLabel("Geliş Tarihi:", 32, 376, 121, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label12 = GUICtrlCreateLabel("Yapılan İşlemler:", 32, 464, 166, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label13 = GUICtrlCreateLabel("Ücret:", 32, 552, 67, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label14 = GUICtrlCreateLabel("Teslim Edilen Tarih:", 32, 640, 197, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Button1 = GUICtrlCreateButton("Bilgileri Gir", 720, 720, 137, 33, 0) $Input2 = GUICtrlCreateInput("", 344, 32, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input4 = GUICtrlCreateInput("", 344, 120, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 344, 208, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput("", 344, 296, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input6 = GUICtrlCreateInput("", 344, 472, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input7 = GUICtrlCreateInput("", 344, 560, 73, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo3 = GUICtrlCreateCombo("1", 344, 384, 57, 25) GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo1 = GUICtrlCreateCombo("Ocak", 424, 384, 121, 25) GUICtrlSetData(-1, "Şubat|Mart|Nisan|Mayıs|Haziran|Temmuz|Ağustos|Eylül|Ekim|Kasım|Aralık") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo2 = GUICtrlCreateCombo("2009", 568, 384, 81, 25) GUICtrlSetData(-1, "2010|2011|2012|2013|2014|2015|2016|2017|2018|2019|2020") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo4 = GUICtrlCreateCombo("1", 344, 648, 57, 25) GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo5 = GUICtrlCreateCombo("Ocak", 424, 648, 121, 25) GUICtrlSetData(-1, "Şubat|Mart|Nisan|Mayıs|Haziran|Temmuz|Ağustos|Eylül|Ekim|Kasım|Aralık") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo6 = GUICtrlCreateCombo("2009", 568, 648, 81, 25) GUICtrlSetData(-1, "2010|2011|2012|2013|2014|2015|2016|2017|2018|2019|2020") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("TL", 440, 560, 30, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Ben el ile tarihleri ayarladım fakat daha güzellerini görmüştüm. Eğer seni fazla uğraştırmazsa Yaparsan Sevinirim. Düzenle seçeneğinde yine aynı yeri açsa sevinirim Şimdiden teşekkürler Link to comment Share on other sites More sharing options...
djonur007 Posted August 30, 2010 Share Posted August 30, 2010 aslında kolay bir proje ama w7se'yi hala tamamlıyamadım. tamamlayınca el atarım tabi blue_life hocam benden önce davranmazsa Link to comment Share on other sites More sharing options...
beydere Posted August 30, 2010 Author Share Posted August 30, 2010 Banada kolay gibi geliyor. Fakat daha kodları tam bilmediğim için öyle bakıyorum Link to comment Share on other sites More sharing options...
blue_life Posted August 30, 2010 Share Posted August 30, 2010 Evet kolay bir şey ama yinede zaman alıcı şeyler bunlar. Ben şimdilik bir giriş yapım, vakit bulduka bilgili arkadaşlarla beraber sana yardımcı oluruz... #include <Array.au3> Global $CONFIG_FILE = @ScriptDir & "\Config.ini" _Bl_Test_Write_INI() ;Deneme amaçlı ini dosyasına yazar. Silinecek Global $CONFIG_READ Global $BL_Listview, $MAIN_FORM, $LW_ADD Opt("GUIOnEventMode", 1) $MAIN_FORM = GUICreate("Choices Dialog", 515, 300, 303, 219) GUISetOnEvent(-3, "_Bl_EXIT") $BL_Listview = GUICtrlCreateListView("Müşteri Bilgileri|Iletişim Bilgileri|Bilgisayarın Marka Modeli|Arızası|Geliş Tarihi|Yapılan işlemler|Ücret|Teslim Tarihi", 5, 5, 505, 260) GUICtrlCreateButton("Arama", 5, 270, 120, 25, 0) GUICtrlSetOnEvent(-1, "_BL_LW_Search") GUICtrlCreateButton("Sil", 130, 270, 120, 25, 0) GUICtrlSetOnEvent(-1, "_BL_LW_Delete") $LW_ADD = GUICtrlCreateButton("Yeni Ekle", 260, 270, 120, 25, 0) GUICtrlSetOnEvent(-1, "_BL_LW_ADD") GUICtrlCreateButton("Düzenle", 390, 270, 120, 25, 0) GUICtrlSetOnEvent(-1, "_BL_LW_ADD") $CONFIG_READ = _Read_Customer($BL_Listview) GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func _BL_LW_Delete() If Not UBound($CONFIG_READ) Or $CONFIG_READ[0][0] = 0 Then Return SetError(1, 0, False) Local $Get_Slected = _BL_LW_Get_Slected() If Not @error Then GUICtrlDelete($CONFIG_READ[$Get_Slected][1]) IniDelete($CONFIG_FILE, "Customer_" & $CONFIG_READ[$Get_Slected][0]) _ArrayDelete($CONFIG_READ, $Get_Slected) Return True EndIf SetError(1, 0, False) EndFunc ;==>_BL_LW_Delete Func _BL_LW_Search() If Not UBound($CONFIG_READ) Or $CONFIG_READ[0][0] = 0 Then Return SetError(1, 0, False) Local $Input_Box = InputBox("Aranacak Müşteri", "Müşterinin ismini giriniz.", "BlueLife", "", -1, -1, Default, Default, Default, $MAIN_FORM) If @error Then Return For $I = 1 To $CONFIG_READ[0][0] If $CONFIG_READ[$I][2] = $Input_Box Then GUICtrlSetState($CONFIG_READ[$I][1], 256) GUICtrlSetState($BL_Listview, 256) ExitLoop EndIf Next EndFunc ;==>_BL_LW_Search Func _BL_LW_Get_Slected() If Not UBound($CONFIG_READ) Or $CONFIG_READ[0][0] = 0 Then Return SetError(1, 0, False) For $I = 1 To $CONFIG_READ[0][0] If GUICtrlSendMsg($BL_Listview, 4140, $I - 1, 2) <> 0 Then Return $I EndIf Next Return SetError(1, 0, False) EndFunc ;==>_BL_LW_Get_Slected Func _Read_Customer($HWND = 0) Local $Count[500][10] = [[0]], $Value Local $IRead_SecName = IniReadSectionNames($CONFIG_FILE) If @error Then ReDim $Count[1][10] Else For $I = 1 To $IRead_SecName[0] $Value = StringLeft($IRead_SecName[$I], 9) If $Value = "Customer_" Then If StringTrimLeft($IRead_SecName[$I], 9) <> $I Then If IniRenameSection($CONFIG_FILE, $IRead_SecName[$I], "Customer_" & $I) <> 0 Then $IRead_SecName[$I] = "Customer_" & $I EndIf If $I >= $Count[0][0] Then ReDim $Count[$I + 1][10] $Count[0][0] = $I $Count[$I][0] = $I $Count[$I][2] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Customer", "") ;Müşteri ismi $Count[$I][3] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Connection", "") ;Müşteri bilgileri $Count[$I][4] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Computer", "") ;PC Name $Count[$I][5] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Problem", "") ;Problem $Count[$I][6] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Solved", "") ;Ne yapıldı $Count[$I][7] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Charge", "") ;Fiyat $Count[$I][8] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "First Time", "") ;Geliş Tarihi $Count[$I][9] = IniRead($CONFIG_FILE, $IRead_SecName[$I], "Finish Time", "") ;Gidiş Tarihi If GUICtrlGetHandle($HWND) <> 0 Then $Count[$I][1] = GUICtrlCreateListViewItem($Count[$I][2] & "|" & $Count[$I][3] & "|" & $Count[$I][4] & "|" & $Count[$I][5] & _ "|" & $Count[$I][6] & "|" & $Count[$I][7] & "|" & $Count[$I][8] & "|" & $Count[$I][9], $HWND) EndIf EndIf Next ReDim $Count[$Count[0][0] + 1][10] EndIf Return $Count EndFunc ;==>_Read_Customer Func _BL_LW_ADD() Local $BL_LW_ADD = True Local $BL_LW_ADD_TITLE = "Yeni Giriş", $BL_LW_ADD_BTITLE = "Bilgileri Gir" Local $BL_LW_NUMBER If @GUI_CtrlId <> $LW_ADD Then $BL_LW_ADD = False $BL_LW_ADD_TITLE = "Düzenle" $BL_LW_ADD_BTITLE = "Kaydet" If Not UBound($CONFIG_READ) Or $CONFIG_READ[0][0] = 0 Then Return SetError(1, 0, False) $BL_LW_NUMBER = _BL_LW_Get_Slected() If @error Then Return SetError(1, 0, False) EndIf Opt("GUIOnEventMode", 0) Local $CLIENT_FORM $CLIENT_FORM = GUICreate($BL_LW_ADD_TITLE, 869, 778, 188, 119, -1, -1, $MAIN_FORM) $Label1 = GUICtrlCreateLabel("Müşteri Bilgileri:", 32, 24, 168, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label2 = GUICtrlCreateLabel("İletişim Bilgileri:", 32, 112, 167, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label9 = GUICtrlCreateLabel("Bilgisayrın Marka ve Modeli:", 32, 200, 279, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label10 = GUICtrlCreateLabel("Arızası:", 32, 288, 80, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label11 = GUICtrlCreateLabel("Geliş Tarihi:", 32, 376, 121, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label12 = GUICtrlCreateLabel("Yapılan İşlemler:", 32, 464, 166, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label13 = GUICtrlCreateLabel("Ücret:", 32, 552, 67, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Label14 = GUICtrlCreateLabel("Teslim Edilen Tarih:", 32, 640, 197, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) $Button1 = GUICtrlCreateButton($BL_LW_ADD_BTITLE, 720, 720, 137, 33, 0) $Input2 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][2], 344, 32, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input4 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][3], 344, 120, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][4], 344, 208, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][5], 344, 296, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input6 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][6], 344, 472, 305, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Input7 = GUICtrlCreateInput($CONFIG_READ[$BL_LW_NUMBER][7], 344, 560, 73, 32) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo3 = GUICtrlCreateCombo("1", 344, 384, 57, 25) GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo1 = GUICtrlCreateCombo("Ocak", 424, 384, 121, 25) GUICtrlSetData(-1, "Şubat|Mart|Nisan|Mayıs|Haziran|Temmuz|Ağustos|Eylül|Ekim|Kasım|Aralık") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo2 = GUICtrlCreateCombo("2009", 568, 384, 81, 25) GUICtrlSetData(-1, "2010|2011|2012|2013|2014|2015|2016|2017|2018|2019|2020") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo4 = GUICtrlCreateCombo("1", 344, 648, 57, 25) GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo5 = GUICtrlCreateCombo("Ocak", 424, 648, 121, 25) GUICtrlSetData(-1, "Şubat|Mart|Nisan|Mayıs|Haziran|Temmuz|Ağustos|Eylül|Ekim|Kasım|Aralık") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Combo6 = GUICtrlCreateCombo("2009", 568, 648, 81, 25) GUICtrlSetData(-1, "2010|2011|2012|2013|2014|2015|2016|2017|2018|2019|2020") GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("TL", 440, 560, 30, 33) GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop EndSwitch WEnd GUIDelete($CLIENT_FORM) Opt("GUIOnEventMode", 1) EndFunc ;==>_BL_LW_ADD Func _Bl_EXIT() Exit EndFunc ;==>_Bl_EXIT Func _Bl_Test_Write_INI() ;~ If IniRead($CONFIG_FILE,"Customer_1","Customer","") <> "" Then Return IniWrite($CONFIG_FILE, "Customer_99", "Customer", "BlueLife " & Round(Random(1, 999))) IniWrite($CONFIG_FILE, "Customer_99", "Connection", "Deneme 0532 XXX XXXX") IniWrite($CONFIG_FILE, "Customer_99", "Computer", "Amd XXX") IniWrite($CONFIG_FILE, "Customer_99", "Problem", "HDD yanmış") IniWrite($CONFIG_FILE, "Customer_99", "Solved", "HDD değiştirildi ve sistem kuruldu") IniWrite($CONFIG_FILE, "Customer_99", "Charge", "120 YTL") IniWrite($CONFIG_FILE, "Customer_99", "First Time", "20/08/2010") IniWrite($CONFIG_FILE, "Customer_99", "Finish Time", "28/08/2010") EndFunc ;==>_Bl_Test_Write_INI Link to comment Share on other sites More sharing options...
beydere Posted August 30, 2010 Author Share Posted August 30, 2010 Ellerine sağlık tam olarak bitmediği halde mükemmel olmuş Sanırım tek sorunu düzenle ve yeni eklenin çalışmaması :S Link to comment Share on other sites More sharing options...
blue_life Posted August 31, 2010 Share Posted August 31, 2010 Link to comment Share on other sites More sharing options...
beydere Posted August 31, 2010 Author Share Posted August 31, 2010 Küçük sorum olucak. 1) config.ini dosyasının dışında mesela asd.ini olarak bir ini dosyası yapabilirmiyiz ? yani config.ini de silim işlemleri yapıyoruz ya. By asd.ini ye silmeler olmucak sadece eklenilecek yani. 2) Landan erişim sağlaya bilirmiyiz ?? Ben bu programı masaüstünde çalıştırıcam. config.ini dosyasını paylaşıma açıcam. Başka bir bilgisayardan bu config.ini ne nasıl ulaşabilirim ? Ve gerçekten mükemmelsin @blue_life teşekkürler Link to comment Share on other sites More sharing options...
beydere Posted August 31, 2010 Author Share Posted August 31, 2010 2 Tane gitti silermisiniz lütfen :S Link to comment Share on other sites More sharing options...
blue_life Posted August 31, 2010 Share Posted August 31, 2010 Link to comment Share on other sites More sharing options...
isaavcı Posted September 1, 2010 Share Posted September 1, 2010 hocam sizde bu fedakarlık olduğu müddetce bizler seni daha çok zorlarız. sizden bu çalışmaya benzer bir şey istiyeceğim yardımcı olursanız. şimdiden teşekkür ederim. ====================================================== Program şöyle açılacak _______________________ #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Documents and Settings\aa\Desktop\giris.kxf $Form1 = GUICreate("Form1", 298, 137, 204, 122) $Input1 = GUICtrlCreateInput("", 72, 24, 217, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 72, 54, 217, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("Adı :", 8, 28, 46, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Soyad :", 8, 58, 47, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Kaydet", 8, 88, 283, 41, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ================================ hocam bu programcıkta mantık şu yeni kayıt dediğimiz zaman ad ve soyadların tutulduğu bir ini olacak çünkü listbox değerlerini bu iniden alacak. ve burası açılacak #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListBoxConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Documents and Settings\aa\Desktop\sayfa3.kxf $Form1 = GUICreate("Form1", 629, 578, 190, 118) $Input1 = GUICtrlCreateInput("", 280, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 310, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput("", 341, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input4 = GUICtrlCreateInput("", 371, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input5 = GUICtrlCreateInput("", 401, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input6 = GUICtrlCreateInput("", 280, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input7 = GUICtrlCreateInput("", 310, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input8 = GUICtrlCreateInput("", 341, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input9 = GUICtrlCreateInput("", 371, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input10 = GUICtrlCreateInput("", 401, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input11 = GUICtrlCreateInput("", 280, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input12 = GUICtrlCreateInput("", 310, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input13 = GUICtrlCreateInput("", 341, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input14 = GUICtrlCreateInput("", 371, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input15 = GUICtrlCreateInput("", 401, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input16 = GUICtrlCreateInput("", 280, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input17 = GUICtrlCreateInput("", 310, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input18 = GUICtrlCreateInput("", 341, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input19 = GUICtrlCreateInput("", 371, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input20 = GUICtrlCreateInput("", 401, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input21 = GUICtrlCreateInput("", 280, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input22 = GUICtrlCreateInput("", 310, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input23 = GUICtrlCreateInput("", 341, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input24 = GUICtrlCreateInput("", 371, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input25 = GUICtrlCreateInput("", 401, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("1=", 251, 62, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("2=", 251, 92, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("3=", 251, 122, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label5 = GUICtrlCreateLabel("4=", 251, 153, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label6 = GUICtrlCreateLabel("6=", 251, 182, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input26 = GUICtrlCreateInput("", 280, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input27 = GUICtrlCreateInput("", 310, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input28 = GUICtrlCreateInput("", 341, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input29 = GUICtrlCreateInput("", 371, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input30 = GUICtrlCreateInput("", 401, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label7 = GUICtrlCreateLabel("7=", 251, 212, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input31 = GUICtrlCreateInput("", 280, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input32 = GUICtrlCreateInput("", 310, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input33 = GUICtrlCreateInput("", 341, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input34 = GUICtrlCreateInput("", 371, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input35 = GUICtrlCreateInput("", 401, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label8 = GUICtrlCreateLabel("8=", 251, 243, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input36 = GUICtrlCreateInput("", 279, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input37 = GUICtrlCreateInput("", 310, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input38 = GUICtrlCreateInput("", 341, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input39 = GUICtrlCreateInput("", 371, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input40 = GUICtrlCreateInput("", 401, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input41 = GUICtrlCreateInput("", 279, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input42 = GUICtrlCreateInput("", 309, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input43 = GUICtrlCreateInput("", 340, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input44 = GUICtrlCreateInput("", 370, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input45 = GUICtrlCreateInput("", 400, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input46 = GUICtrlCreateInput("", 279, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input47 = GUICtrlCreateInput("", 309, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input48 = GUICtrlCreateInput("", 340, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input49 = GUICtrlCreateInput("", 370, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input50 = GUICtrlCreateInput("", 400, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input51 = GUICtrlCreateInput("", 279, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input52 = GUICtrlCreateInput("", 309, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input53 = GUICtrlCreateInput("", 340, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input54 = GUICtrlCreateInput("", 370, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input55 = GUICtrlCreateInput("", 400, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label9 = GUICtrlCreateLabel("8=", 251, 272, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label10 = GUICtrlCreateLabel("9=", 251, 302, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label11 = GUICtrlCreateLabel("10=", 251, 332, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label12 = GUICtrlCreateLabel("11=", 251, 362, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input56 = GUICtrlCreateInput("", 279, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input57 = GUICtrlCreateInput("", 309, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input58 = GUICtrlCreateInput("", 340, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input59 = GUICtrlCreateInput("", 370, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input60 = GUICtrlCreateInput("", 400, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label13 = GUICtrlCreateLabel("12=", 251, 392, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input61 = GUICtrlCreateInput("", 279, 418, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input62 = GUICtrlCreateInput("", 309, 418, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input63 = GUICtrlCreateInput("", 340, 418, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input64 = GUICtrlCreateInput("", 370, 418, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input65 = GUICtrlCreateInput("", 400, 418, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label14 = GUICtrlCreateLabel("13=", 251, 422, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input66 = GUICtrlCreateInput("", 279, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input67 = GUICtrlCreateInput("", 309, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input68 = GUICtrlCreateInput("", 340, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input69 = GUICtrlCreateInput("", 370, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input70 = GUICtrlCreateInput("", 400, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label15 = GUICtrlCreateLabel("14=", 250, 451, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input71 = GUICtrlCreateInput("", 279, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input72 = GUICtrlCreateInput("", 309, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input73 = GUICtrlCreateInput("", 340, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input74 = GUICtrlCreateInput("", 370, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input75 = GUICtrlCreateInput("", 400, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label16 = GUICtrlCreateLabel("15=", 250, 481, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input76 = GUICtrlCreateInput("", 279, 507, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input77 = GUICtrlCreateInput("", 309, 508, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input78 = GUICtrlCreateInput("", 340, 507, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input79 = GUICtrlCreateInput("", 370, 507, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input80 = GUICtrlCreateInput("", 400, 507, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input81 = GUICtrlCreateInput("", 476, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input82 = GUICtrlCreateInput("", 506, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input83 = GUICtrlCreateInput("", 537, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input84 = GUICtrlCreateInput("", 567, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input85 = GUICtrlCreateInput("", 597, 58, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input86 = GUICtrlCreateInput("", 476, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input87 = GUICtrlCreateInput("", 506, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input88 = GUICtrlCreateInput("", 537, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input89 = GUICtrlCreateInput("", 567, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input90 = GUICtrlCreateInput("", 597, 88, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input91 = GUICtrlCreateInput("", 476, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input92 = GUICtrlCreateInput("", 506, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input93 = GUICtrlCreateInput("", 537, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input94 = GUICtrlCreateInput("", 567, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input95 = GUICtrlCreateInput("", 597, 118, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input96 = GUICtrlCreateInput("", 476, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input97 = GUICtrlCreateInput("", 506, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input98 = GUICtrlCreateInput("", 537, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input99 = GUICtrlCreateInput("", 567, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input100 = GUICtrlCreateInput("", 597, 148, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label17 = GUICtrlCreateLabel("16=", 251, 512, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label18 = GUICtrlCreateLabel("17=", 447, 62, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label19 = GUICtrlCreateLabel("18=", 447, 92, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label20 = GUICtrlCreateLabel("19=", 447, 123, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label21 = GUICtrlCreateLabel("20=", 447, 152, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input101 = GUICtrlCreateInput("", 476, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input102 = GUICtrlCreateInput("", 506, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input103 = GUICtrlCreateInput("", 537, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input104 = GUICtrlCreateInput("", 567, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input105 = GUICtrlCreateInput("", 597, 178, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label22 = GUICtrlCreateLabel("21=", 447, 182, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input106 = GUICtrlCreateInput("", 476, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input107 = GUICtrlCreateInput("", 506, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input108 = GUICtrlCreateInput("", 537, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input109 = GUICtrlCreateInput("", 567, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input110 = GUICtrlCreateInput("", 597, 208, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label23 = GUICtrlCreateLabel("22=", 447, 213, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input111 = GUICtrlCreateInput("", 475, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input112 = GUICtrlCreateInput("", 506, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input113 = GUICtrlCreateInput("", 537, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input114 = GUICtrlCreateInput("", 567, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input115 = GUICtrlCreateInput("", 597, 238, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input116 = GUICtrlCreateInput("", 475, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input117 = GUICtrlCreateInput("", 505, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input118 = GUICtrlCreateInput("", 536, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input119 = GUICtrlCreateInput("", 566, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input120 = GUICtrlCreateInput("", 596, 268, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input121 = GUICtrlCreateInput("", 475, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input122 = GUICtrlCreateInput("", 505, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input123 = GUICtrlCreateInput("", 536, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input124 = GUICtrlCreateInput("", 566, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input125 = GUICtrlCreateInput("", 596, 298, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input126 = GUICtrlCreateInput("", 475, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input127 = GUICtrlCreateInput("", 505, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input128 = GUICtrlCreateInput("", 536, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input129 = GUICtrlCreateInput("", 566, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input130 = GUICtrlCreateInput("", 596, 328, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label24 = GUICtrlCreateLabel("23=", 447, 242, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label25 = GUICtrlCreateLabel("24=", 447, 272, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label26 = GUICtrlCreateLabel("25=", 447, 302, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label27 = GUICtrlCreateLabel("26=", 447, 332, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input131 = GUICtrlCreateInput("", 475, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input132 = GUICtrlCreateInput("", 505, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input133 = GUICtrlCreateInput("", 536, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input134 = GUICtrlCreateInput("", 566, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input135 = GUICtrlCreateInput("", 596, 358, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label28 = GUICtrlCreateLabel("27=", 447, 362, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input136 = GUICtrlCreateInput("", 475, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input137 = GUICtrlCreateInput("", 505, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input138 = GUICtrlCreateInput("", 536, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input139 = GUICtrlCreateInput("", 566, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input140 = GUICtrlCreateInput("", 596, 388, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label29 = GUICtrlCreateLabel("28=", 447, 392, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input141 = GUICtrlCreateInput("", 475, 417, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input142 = GUICtrlCreateInput("", 505, 417, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input143 = GUICtrlCreateInput("", 536, 417, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input144 = GUICtrlCreateInput("", 566, 417, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input145 = GUICtrlCreateInput("", 596, 417, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label30 = GUICtrlCreateLabel("29=", 446, 421, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input146 = GUICtrlCreateInput("", 475, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input147 = GUICtrlCreateInput("", 505, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input148 = GUICtrlCreateInput("", 536, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input149 = GUICtrlCreateInput("", 566, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input150 = GUICtrlCreateInput("", 596, 447, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label31 = GUICtrlCreateLabel("30=", 446, 451, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input151 = GUICtrlCreateInput("", 475, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input152 = GUICtrlCreateInput("", 505, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input153 = GUICtrlCreateInput("", 536, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input154 = GUICtrlCreateInput("", 566, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input155 = GUICtrlCreateInput("", 596, 477, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label32 = GUICtrlCreateLabel("31=", 446, 481, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input156 = GUICtrlCreateInput("", 505, 507, 113, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label33 = GUICtrlCreateLabel("Toplam", 446, 512, 53, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Combo1 = GUICtrlCreateCombo("Ay Seçin", 251, 32, 367, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Kaydet", 251, 534, 368, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $List1 = GUICtrlCreateList("", 8, 32, 241, 526) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ===================================================== Listbostan isim seçildiği zaman ister aynı formda benim hazırladığım gibi veya söyle _____________________________________ #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListBoxConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=d:\dowlant\karma\sayfa3.kxf $Form1_1 = GUICreate("Form1", 625, 542, 190, 118) $Input1 = GUICtrlCreateInput("", 280, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 310, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input3 = GUICtrlCreateInput("", 341, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input4 = GUICtrlCreateInput("", 371, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input5 = GUICtrlCreateInput("", 401, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input6 = GUICtrlCreateInput("", 280, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input7 = GUICtrlCreateInput("", 310, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input8 = GUICtrlCreateInput("", 341, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input9 = GUICtrlCreateInput("", 371, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input10 = GUICtrlCreateInput("", 401, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input11 = GUICtrlCreateInput("", 280, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input12 = GUICtrlCreateInput("", 310, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input13 = GUICtrlCreateInput("", 341, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input14 = GUICtrlCreateInput("", 371, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input15 = GUICtrlCreateInput("", 401, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input16 = GUICtrlCreateInput("", 280, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input17 = GUICtrlCreateInput("", 310, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input18 = GUICtrlCreateInput("", 341, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input19 = GUICtrlCreateInput("", 371, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input20 = GUICtrlCreateInput("", 401, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input21 = GUICtrlCreateInput("", 280, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input22 = GUICtrlCreateInput("", 310, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input23 = GUICtrlCreateInput("", 341, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input24 = GUICtrlCreateInput("", 371, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input25 = GUICtrlCreateInput("", 401, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("1=", 251, 38, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("2=", 251, 68, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("3=", 251, 98, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label5 = GUICtrlCreateLabel("4=", 251, 129, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label6 = GUICtrlCreateLabel("6=", 251, 158, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input26 = GUICtrlCreateInput("", 280, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input27 = GUICtrlCreateInput("", 310, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input28 = GUICtrlCreateInput("", 341, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input29 = GUICtrlCreateInput("", 371, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input30 = GUICtrlCreateInput("", 401, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label7 = GUICtrlCreateLabel("7=", 251, 188, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input31 = GUICtrlCreateInput("", 280, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input32 = GUICtrlCreateInput("", 310, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input33 = GUICtrlCreateInput("", 341, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input34 = GUICtrlCreateInput("", 371, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input35 = GUICtrlCreateInput("", 401, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label8 = GUICtrlCreateLabel("8=", 251, 219, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input36 = GUICtrlCreateInput("", 279, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input37 = GUICtrlCreateInput("", 310, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input38 = GUICtrlCreateInput("", 341, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input39 = GUICtrlCreateInput("", 371, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input40 = GUICtrlCreateInput("", 401, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input41 = GUICtrlCreateInput("", 279, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input42 = GUICtrlCreateInput("", 309, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input43 = GUICtrlCreateInput("", 340, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input44 = GUICtrlCreateInput("", 370, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input45 = GUICtrlCreateInput("", 400, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input46 = GUICtrlCreateInput("", 279, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input47 = GUICtrlCreateInput("", 309, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input48 = GUICtrlCreateInput("", 340, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input49 = GUICtrlCreateInput("", 370, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input50 = GUICtrlCreateInput("", 400, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input51 = GUICtrlCreateInput("", 279, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input52 = GUICtrlCreateInput("", 309, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input53 = GUICtrlCreateInput("", 340, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input54 = GUICtrlCreateInput("", 370, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input55 = GUICtrlCreateInput("", 400, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label9 = GUICtrlCreateLabel("8=", 251, 248, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label10 = GUICtrlCreateLabel("9=", 251, 278, 18, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label11 = GUICtrlCreateLabel("10=", 251, 308, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label12 = GUICtrlCreateLabel("11=", 251, 338, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input56 = GUICtrlCreateInput("", 279, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input57 = GUICtrlCreateInput("", 309, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input58 = GUICtrlCreateInput("", 340, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input59 = GUICtrlCreateInput("", 370, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input60 = GUICtrlCreateInput("", 400, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label13 = GUICtrlCreateLabel("12=", 251, 368, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input61 = GUICtrlCreateInput("", 279, 394, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input62 = GUICtrlCreateInput("", 309, 394, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input63 = GUICtrlCreateInput("", 340, 394, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input64 = GUICtrlCreateInput("", 370, 394, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input65 = GUICtrlCreateInput("", 400, 394, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label14 = GUICtrlCreateLabel("13=", 251, 398, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input66 = GUICtrlCreateInput("", 279, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input67 = GUICtrlCreateInput("", 309, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input68 = GUICtrlCreateInput("", 340, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input69 = GUICtrlCreateInput("", 370, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input70 = GUICtrlCreateInput("", 400, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label15 = GUICtrlCreateLabel("14=", 250, 427, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input71 = GUICtrlCreateInput("", 279, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input72 = GUICtrlCreateInput("", 309, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input73 = GUICtrlCreateInput("", 340, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input74 = GUICtrlCreateInput("", 370, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input75 = GUICtrlCreateInput("", 400, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label16 = GUICtrlCreateLabel("15=", 250, 457, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input76 = GUICtrlCreateInput("", 279, 483, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input77 = GUICtrlCreateInput("", 309, 484, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input78 = GUICtrlCreateInput("", 340, 483, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input79 = GUICtrlCreateInput("", 370, 483, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input80 = GUICtrlCreateInput("", 400, 483, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input81 = GUICtrlCreateInput("", 476, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input82 = GUICtrlCreateInput("", 506, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input83 = GUICtrlCreateInput("", 537, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input84 = GUICtrlCreateInput("", 567, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input85 = GUICtrlCreateInput("", 597, 34, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input86 = GUICtrlCreateInput("", 476, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input87 = GUICtrlCreateInput("", 506, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input88 = GUICtrlCreateInput("", 537, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input89 = GUICtrlCreateInput("", 567, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input90 = GUICtrlCreateInput("", 597, 64, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input91 = GUICtrlCreateInput("", 476, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input92 = GUICtrlCreateInput("", 506, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input93 = GUICtrlCreateInput("", 537, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input94 = GUICtrlCreateInput("", 567, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input95 = GUICtrlCreateInput("", 597, 94, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input96 = GUICtrlCreateInput("", 476, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input97 = GUICtrlCreateInput("", 506, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input98 = GUICtrlCreateInput("", 537, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input99 = GUICtrlCreateInput("", 567, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input100 = GUICtrlCreateInput("", 597, 124, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label17 = GUICtrlCreateLabel("16=", 251, 488, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label18 = GUICtrlCreateLabel("17=", 447, 38, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label19 = GUICtrlCreateLabel("18=", 447, 68, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label20 = GUICtrlCreateLabel("19=", 447, 99, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label21 = GUICtrlCreateLabel("20=", 447, 128, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input101 = GUICtrlCreateInput("", 476, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input102 = GUICtrlCreateInput("", 506, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input103 = GUICtrlCreateInput("", 537, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input104 = GUICtrlCreateInput("", 567, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input105 = GUICtrlCreateInput("", 597, 154, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label22 = GUICtrlCreateLabel("21=", 447, 158, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input106 = GUICtrlCreateInput("", 476, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input107 = GUICtrlCreateInput("", 506, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input108 = GUICtrlCreateInput("", 537, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input109 = GUICtrlCreateInput("", 567, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input110 = GUICtrlCreateInput("", 597, 184, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label23 = GUICtrlCreateLabel("22=", 447, 189, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input111 = GUICtrlCreateInput("", 475, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input112 = GUICtrlCreateInput("", 506, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input113 = GUICtrlCreateInput("", 537, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input114 = GUICtrlCreateInput("", 567, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input115 = GUICtrlCreateInput("", 597, 214, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input116 = GUICtrlCreateInput("", 475, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input117 = GUICtrlCreateInput("", 505, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input118 = GUICtrlCreateInput("", 536, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input119 = GUICtrlCreateInput("", 566, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input120 = GUICtrlCreateInput("", 596, 244, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input121 = GUICtrlCreateInput("", 475, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input122 = GUICtrlCreateInput("", 505, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input123 = GUICtrlCreateInput("", 536, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input124 = GUICtrlCreateInput("", 566, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input125 = GUICtrlCreateInput("", 596, 274, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input126 = GUICtrlCreateInput("", 475, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input127 = GUICtrlCreateInput("", 505, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input128 = GUICtrlCreateInput("", 536, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input129 = GUICtrlCreateInput("", 566, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input130 = GUICtrlCreateInput("", 596, 304, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label24 = GUICtrlCreateLabel("23=", 447, 218, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label25 = GUICtrlCreateLabel("24=", 447, 248, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label26 = GUICtrlCreateLabel("25=", 447, 278, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label27 = GUICtrlCreateLabel("26=", 447, 308, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input131 = GUICtrlCreateInput("", 475, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input132 = GUICtrlCreateInput("", 505, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input133 = GUICtrlCreateInput("", 536, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input134 = GUICtrlCreateInput("", 566, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input135 = GUICtrlCreateInput("", 596, 334, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label28 = GUICtrlCreateLabel("27=", 447, 338, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input136 = GUICtrlCreateInput("", 475, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input137 = GUICtrlCreateInput("", 505, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input138 = GUICtrlCreateInput("", 536, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input139 = GUICtrlCreateInput("", 566, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input140 = GUICtrlCreateInput("", 596, 364, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label29 = GUICtrlCreateLabel("28=", 447, 368, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input141 = GUICtrlCreateInput("", 475, 393, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input142 = GUICtrlCreateInput("", 505, 393, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input143 = GUICtrlCreateInput("", 536, 393, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input144 = GUICtrlCreateInput("", 566, 393, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input145 = GUICtrlCreateInput("", 596, 393, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label30 = GUICtrlCreateLabel("29=", 446, 397, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input146 = GUICtrlCreateInput("", 475, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input147 = GUICtrlCreateInput("", 505, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input148 = GUICtrlCreateInput("", 536, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input149 = GUICtrlCreateInput("", 566, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input150 = GUICtrlCreateInput("", 596, 423, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label31 = GUICtrlCreateLabel("30=", 446, 427, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input151 = GUICtrlCreateInput("", 475, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input152 = GUICtrlCreateInput("", 505, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input153 = GUICtrlCreateInput("", 536, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input154 = GUICtrlCreateInput("", 566, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input155 = GUICtrlCreateInput("", 596, 453, 21, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label32 = GUICtrlCreateLabel("31=", 446, 457, 25, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input156 = GUICtrlCreateInput("", 505, 483, 113, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label33 = GUICtrlCreateLabel("Toplam", 446, 488, 45, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Combo1 = GUICtrlCreateCombo("Ay Seçin", 251, 8, 367, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Kaydet", 251, 510, 172, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $List1 = GUICtrlCreateList("", 8, 8, 241, 526) $Button2 = GUICtrlCreateButton("Yeni Kayıt", 446, 510, 174, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ================================================= ekle dediğimiz zaman kullanıcı ad ve soyad olarak ne yazdıysak o isimde bir klasör oluşturacak ve bu klasörde her aya ait iniler olacak (misal isa avcı\ocak.ini-şubat.ini.... combodan hangi ay seçildiyse o aya ait kayıtlar gösterilecek inputlarda değerlerini ilgili aydan alacak.ocak ini seçilince değerleri ordan alacak ve girilen değerleride kaydedecek toplam inputta o aya ait bütün inputlar toplanacak ====================================================== mesela 100 tene formdan oluşsa bunlar iç içemi yoksa ayrı müstakilmi olacak. ben hepsiyle uğraşamam derseniz (ki normaldir) bana en azından bir kaç tane kayıtla mantığını gösterirseniz sevinirim. yardımlarınızı bekliyorum bende düşünüyordum ama yok canım bukadarıda fazla demiştim. fakat soruya verdiğiniz cevap beni ümitlendirdi... sevgi ve saygılarımla Link to comment Share on other sites More sharing options...
blue_life Posted September 1, 2010 Share Posted September 1, 2010 @isaavcı Bu nedir? Çok uzun ve geniş bir gui. Korktum doğrusun Link to comment Share on other sites More sharing options...
blackman12 Posted September 1, 2010 Share Posted September 1, 2010 inputları keşke for döngüsüyle ve daha toplu oluştursaydın kodunun 700 satırı sadece gui bir de bununla işlem yaptırıcaksın. Link to comment Share on other sites More sharing options...
isaavcı Posted September 1, 2010 Share Posted September 1, 2010 hocam uzman sizsiniz tabiki daha az satırla daha çok işlevlik kazandırılabilir. benim hayalim bu sizin hayalinizi merak ediyorum...? Link to comment Share on other sites More sharing options...
Dj Demir Posted September 1, 2010 Share Posted September 1, 2010 evet gerçekten çok uzun ) ama dediğin ne kadar mümkün olsa da benim yardımcı olamayacım tek yer şurası ekle dediğimiz zaman kullanıcı ad ve soyad olarak ne yazdıysak o isimde bir klasör oluşturacak ve içinde aynı isimde olan bir ini Link to comment Share on other sites More sharing options...
blackman12 Posted September 2, 2010 Share Posted September 2, 2010 kodları bi zahmet silebilir misin oradan kodlar yerine au3 dosyanı koy isaavcı. çok bozuyo forum yapısını. Sırf bu yüzden okumaya üşendim istediklerini ama djdemir o dediğin kolay $kadi = guictrlread($kullaniciadiinput) $soyad = guictrlread($soyadinput) dircreate(@scriptdir & "\" & $kadi & $soyad) _FileCreate(@scriptdir & "\" & $kadi & $soyad & "\" & $kadi & $soyad & ".ini") Link to comment Share on other sites More sharing options...
blue_life Posted September 2, 2010 Share Posted September 2, 2010 @isaavcı Kısa güiyi boş ver. Uzun guide misal 1= karşısında 5 kutu var. Bunların işlevleri nedir? Tam olarak ne yapmak istiyorsun. Kodları kısaltmam için iyice anlamam lazım... Link to comment Share on other sites More sharing options...
maxi_cex Posted September 2, 2010 Share Posted September 2, 2010 Arkadaşlar bu kodları nereye yazacağız ben de denemek istiyorum da. Link to comment Share on other sites More sharing options...
blue_life Posted September 2, 2010 Share Posted September 2, 2010 @maxi_cex Aşağıdaki konuda bulunan ufacık ilk videoyu indirip izle... Link to comment Share on other sites More sharing options...
Dj Demir Posted September 2, 2010 Share Posted September 2, 2010 @Blackman $kadi = guictrlread($kullaniciadiinput) $soyad = guictrlread($soyadinput) dircreate(@scriptdir & "\" & $kadi & $soyad) buraya kadar buna benzer yapmıştım ama olmamıştı ve benim _fileCreate komutumda sorun vardı . EDIT = eksik bir yer copylenmiş Link to comment Share on other sites More sharing options...
isaavcı Posted September 2, 2010 Share Posted September 2, 2010 sevgili blackman12 hocam $kadi = guictrlread($kullaniciadiinput) $soyad = guictrlread($soyadinput) dircreate(@scriptdir & "\" & $kadi & $soyad) _FileCreate(@scriptdir & "\" & $kadi & $soyad & "\" & $kadi & $soyad & ".ini") örnek bir çalışma paylaşabilirmisin... Link to comment Share on other sites More sharing options...
blue_life Posted September 2, 2010 Share Posted September 2, 2010 #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #Region ### START Koda GUI section ### Form=C:\Documents and Settings\aa\Desktop\giris.kxf $Form1 = GUICreate("Form1", 298, 137, 204, 122) $Input1 = GUICtrlCreateInput("", 72, 24, 217, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 72, 54, 217, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("Adı :", 8, 28, 46, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Soyad :", 8, 58, 47, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Kaydet", 8, 88, 283, 41, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 $kadi = guictrlread($Input1) $soyad = guictrlread($Input2) dircreate(@scriptdir & "\" & $kadi & $soyad) _FileCreate(@scriptdir & "\" & $kadi & $soyad & "\" & $kadi & $soyad & ".ini") EndSwitch WEnd Link to comment Share on other sites More sharing options...
isaavcı Posted September 2, 2010 Share Posted September 2, 2010 hocam kutucuklara rakamsal değerler girilecek girilen değerleri iniye kaydececek ve daha sonra açtığımız zamanda iniden değerini alacak aslında birde sıfırla butonu olması lazım. yani inputlardaki değerler hem kayıt hemde görüntülemede kullanılacak. Please register to see this content. hocam formları inceleyin görüşlerinizi bekliyorum ________________________________________________________________ Link to comment Share on other sites More sharing options...
isaavcı Posted September 2, 2010 Share Posted September 2, 2010 arkadaşlar şu işi bir bakın ben foruma yazıyorum Gonderilme tarihi Bugün, 12:43 bu saatte cevap geliyor Gonderilme tarihi Bugün, 12:48 şu hıza bir bakın emeği geçen herkesten allah razı olsun Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.