x_files_x Posted July 31, 2013 Share Posted July 31, 2013 (edited) Sadece isim kaydetmek için yapılmış bir script deneme amaçlı yapılmıştır, http://d-h.st/UIS : Program http://d-h.st/Z3j :Kaynak kodu http://d-h.st/NAq : Udf kaynak Skincrafter teması ve dll sini sizin bulmanız gerekiyor ben örnek olsun die verdim ;Edit @Mesale0077 arkadaşıma yardımından dolayı tşkler Diğer yorum yapan arkadaşlarımada verdiği fikirlerden ötürü tşk ederim, Edited August 1, 2013 by x_files_x Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted July 31, 2013 Share Posted July 31, 2013 (edited) birde resimli yapsanız mesala resim ekle ve resimli müşteri olabilr yada telefon resim adres giblierini girilebilinen güzel bir çalışma yapılsa hem faydalı bir prgram olur hemde arkadaşlarda yaptığınız çalışmadan faydalanır böyle çalışmaların devamını bekilyoruz güzel çalışma olmuş Edited July 31, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 31, 2013 Share Posted July 31, 2013 (edited) Üzgünüm ama daha fazla özellik eklenmesi gerekiyor. Bu şekilde kimsenin hiçbir işine yaramaz. Tabii bu tür bir çalışma yapmak isteyenler için faydalı bir örnek olmuş. Temayı ben beğenmedim. Daha resmi bir şey olabilirdi ya da tema kullanılmayabilirdi. Kolay gelsin. Edited July 31, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
MAKINCI Posted July 31, 2013 Share Posted July 31, 2013 Bende'de şöyle bir örnek var, belki birinin işine yarar... http://www.mediafire.com/download/ydhtpdc90pdyy1x/phonebook.rar Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted August 1, 2013 Share Posted August 1, 2013 (edited) ; "GUICtrlPic.au3" udf yi indirin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=E:\IKONLAR\Yeni Ikonlar\Status-mail-task.ico #AutoIt3Wrapper_Compression=0 #AutoIt3Wrapper_UseUpx=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Constants.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include "GUICtrlPic.au3" Opt("GUICloseOnESC") $sFldr1 =@AppDataDir & "\resimler\" DirCreate($sFldr1) DirCreate(@TempDir & "\S9D") $skin = @TempDir & "\S9D\Mechanics.skf" $dll = @TempDir & "\S9D\SkinCrafterDll.dll" $Pic1 = @ProgramFilesDir & "\AutoIt3\Examples\GUI\Torus.png" FileInstall("Mechanics.skf", $skin, 1) FileInstall("SkinCrafterDll.dll", $dll, 1) Sleep(500) Global $nSkinCrafterDll Func _LoadSkinCrafter($nDLL) $nSkinCrafterDll = DllOpen($nDLL) If Not FileExists($nDLL) Then SetError(1) Return 0 EndIf If $nSkinCrafterDll = -1 Then SetError(2) Return 0 EndIf DllCall($nSkinCrafterDll, "int:cdecl", "InitLicenKeys", "wstr","SKINCRAFTER", "wstr","SKINCRAFTER.COM", "wstr", "[email protected]","wstr","DEMOSKINCRAFTERLICENCE") DllCall($nSkinCrafterDll, "int:cdecl", "DefineLanguage", "int", 0) Return 1 EndFunc Func _InitializeSkinCrafter($nHWND, $nSkin) If Not WinExists($nHWND) Then SetError(1) Return 0 EndIf If Not FileExists($nSkin) Then SetError(2) Return 0 EndIf DllCall($nSkinCrafterDll, "int:cdecl", "InitDecoration", "int", 1) DllCall($nSkinCrafterDll, "int:cdecl", "LoadSkinFromFile", "wstr", $nSkin) DllCall($nSkinCrafterDll, "int:cdecl", "ApplySkin") DllCall($nSkinCrafterDll, "int:cdecl", "DecorateAs","long",$nHWND,"long",1) Return 1 EndFunc _LoadSkinCrafter($dll) $Form1_1 = GUICreate(" .:|:. Müşteri Kayıt .:|:.", 406, 335, 238, 159) GUISetOnEvent(-3, "_Exit") _InitializeSkinCrafter($Form1_1, $skin) $Group1 = GUICtrlCreateGroup("Kayıt", 8, 8, 294, 65) $cInput = GUICtrlCreateInput("", 92, 30, 195, 25) $Label1 = GUICtrlCreateLabel("Adı ve Soyadı:", 16, 32, 72, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("", 312, 8, 81, 65) $Button1 = GUICtrlCreateButton("Ekle", 325, 25, 55, 20) $Button2 = GUICtrlCreateButton("Sil", 325, 48, 55, 20) $Button3 = GUICtrlCreateButton("Resetle", 325, 88, 55, 20) GUICtrlCreateGroup("", -99, -99, 1, 1) $cList = GUICtrlCreateList("", 8, 88, 297, 240) $Dosya = @AppDataDir & "\kisiler.ini" GuiCtrlSetData(-1, IniRead($Dosya, "kullanıcılar", "adlar", "")) $a8 = _GUICtrlPic_Create($Pic1, 310, 127, 89, 105, BitOR($GUI_SS_DEFAULT_PIC,$WS_BORDER)) GUISetState(@SW_SHOW) $cCheck_Dummy = GUICtrlCreateDummy() GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND") Func _ReadcList() Local $iCnt = _GUICtrlListBox_GetCount($cList) Local $sMsg = "" For $n = 0 To $iCnt - 1 $sMsg &= _GUICtrlListBox_GetText($cList, $n) & "|" Next Return $sMsg EndFunc While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $cList $sChosen = GUICtrlRead($cList) If $sChosen <> "" Then GUICtrlSetData($cInput, $sChosen) if FileExists( $sFldr1&GUICtrlRead($cInput)&".jpg") then _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cInput)&".jpg", 0) else _GUICtrlPic_SetImage($a8,$Pic1 , 0) endif EndIf Case $cCheck_Dummy $sText = GUICtrlRead($cInput) $iIndex = _GUICtrlListBox_FindString($cList, $sText) If $iIndex <> -1 Then _GUICtrlListBox_SetCurSel($cList, $iIndex) _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cList)&".jpg", 0) Else _GUICtrlListBox_SetCurSel($cList, -1) _GUICtrlPic_SetImage($a8,$Pic1 , 0) EndIf Case $Button1 If DirGetSize($sFldr1) = -1 Then DirCreate($sFldr1) endif $Dosya = $Dosya If Not StringInStr(IniRead($Dosya, "kullanıcılar", "adlar", "") & "|", GUICtrlRead($cInput)) Then IniWrite($Dosya, "kullanıcılar", "adlar", _ReadcList() & GUICtrlRead($cInput)) if Not GUICtrlRead($cInput)="" then $sMessage = "Resim ekle" $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Images (*.jpg)", $FD_FILEMUSTEXIST + $FD_MULTISELECT) If @error Then MsgBox($MB_SYSTEMMODAL, "", "dosya seçilmedi.") endif filecopy($sFileOpenDialog ,$sFldr1&GUICtrlRead($cInput)&".jpg") _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cInput)&".jpg", 0) endif EndIf GuiCtrlSetData($cList, "") GuiCtrlSetData($cList, IniRead($Dosya, "kullanıcılar", "adlar", "")) Case $Button2 $Dosya = $Dosya Global $MusteriData = StringStripWS(IniRead($Dosya,"Kullanıcılar","Adlar",""), 3) $Gread = StringStripWS(GUICtrlRead($cList), 3) If $Gread <> "" And StringInStr("|" & $MusteriData & "|", "|" & $Gread & "|") <> 0 Then $MusteriData = StringReplace($MusteriData, $Gread, "") $MusteriData = StringReplace($MusteriData, "||", "|") If $MusteriData = StringRight($MusteriData,1) = "|" Then $MusteriData = StringTrimRight($MusteriData,1) GUICtrlSetData($cList, "") GUICtrlSetData($cList, $MusteriData) _GUICtrlPic_SetImage($a8,$Pic1 , 0) filedelete($sFldr1&GUICtrlRead($cInput)&".jpg") IniWrite($Dosya,"Kullanıcılar","Adlar",$MusteriData) EndIf Case $Button3 _GUICtrlPic_SetImage($a8,$Pic1 , 0) FileDelete($Dosya) DirRemove($sFldr1, 1) GUICtrlSetData($cList, "") GUICtrlSetData($cInput, "") EndSwitch WEnd Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) If $lParam = GUICtrlGetHandle($cInput) Then If BitShift($wParam, 16) = $EN_CHANGE Then GUICtrlSendToDummy($cCheck_Dummy) EndIf EndIf EndFunc Func _Exit() FileDelete(@TempDir & "\S9D") Exit 0 EndFunc Edited August 1, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted August 1, 2013 Author Share Posted August 1, 2013 @Reyiz Yorumlarınız için tşk ederim, tema ilginc oldugu icin oyle yaptım, bu örnek zaten ben rastgele yaptım kimsenin işine yarasın die degil sadece göstermelik, çünkü autoit bilgim henüz birilerine faydalı olabilecek kadar çok degil, Resim ve tlf numarasıda eklenebilir ama işlerimden dolayı onları düşünecek vakit olmuyor, tema değişir tabiki, @Mesale0077 tşk ederim örnegini inceleyim :) @Makıncı örnek güzel tşk ederim 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.