blue_life Posted September 8, 2010 Share Posted September 8, 2010 @Aqil990 Unicode için diğer örneği, Azerice için bir önceki mesajımdaki örneği kullanabilirsin. Malsef bir önceki örnekte Unicode sorunu autoitten deyil. Googlenin ilgili linki ile desteklenmiyor. Sen bir gui ve input olsun ve inputa sözleri girince çevirsin mi diyorsun? Guini Kodaform Designer ile tasarlayıp paylaşırsan yardımcı olurum... Ayrıca yeni soru sorunca bir önceki mesajını editleme. Yoksa kolay kolay cevap alamazsın. Yeniden mesaj yazki bizler fark edelim... Link to comment Share on other sites More sharing options...
Aqil990 Posted September 11, 2010 Author Share Posted September 11, 2010 Ben off top olmasin deye editlemisdim, bundan sonra sen dedigin gibi yaparim Su kodda her shey hazir amma unicode de bashka: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form", 385, 180) $Input1 = GUICtrlCreateInput("", 56, 56, 249, 21) $Button1 = GUICtrlCreateButton("Tercume Et", 168, 96, 137, 25) $Label2 = GUICtrlCreateLabel("ENG AZE", 18, 16, 329, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $yazimiz=GUICtrlRead($Input1) $teryazimiz=_GoogleTranslate($yazimiz,"en","az") GUICtrlSetData($Input1,$teryazimiz) EndSwitch WEnd Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "az") $Translation = InetRead('http://translate.google.com/translate_a/t?client=t&text=' & $sText & '&hl=en&sl=' & $sFrom & '&tl=' & $sTo) If @error Then Return SetError(1, 0, 0) $Translation = StringRegExp(BinaryToString($Translation) , '"(?i)(.*?)"', 3) If @error Then Return SetError(2, 0, 0) If StringStripWS($Translation[0],3) = "" Then Return $Translation[2] Return $Translation[0] EndFunc ;==>> _GoogleToMsgBox Link to comment Share on other sites More sharing options...
Aqil990 Posted September 13, 2010 Author Share Posted September 13, 2010 belki son yaziyi gormemissinizdir o yuzden sunu yazdim Link to comment Share on other sites More sharing options...
blue_life Posted September 14, 2010 Share Posted September 14, 2010 Please register to see this content. Fazla kasmaya gerek yok! Yukarıdaki profosyonel programı kullan. Global $BL_LANGUAGES[58][2] = [[57],["af", "Afrikaans"],["sq", "Albanian"],["ar", "Arabic"],["hy", "Armenian"],["az", "Azerbaijani"],["eu", "Basque"],["be", "Belarusian"],["bg", "Bulgarian"],["ca", "Catalan"],["zh-CN", "Chinese"], _ ["hr", "Croatian"],["cs", "Czech"],["da", "Danish"],["nl", "Dutch"],["en", "English"],["et", "Estonian"],["tl", "Filipino"],["fi", "Finnish"],["fr", "French"],["gl", "Galician"],["ka", "Georgian"], _ ["de", "German"],["el", "Greek"],["ht", "Haitian Creole"],["iw", "Hebrew"],["hi", "Hindi"],["hu", "Hungarian"],["is", "Icelandic"],["id", "Indonesian"],["ga", "Irish"],["it", "Italian"], _ ["ja", "Japanese"],["ko", "Korean"],["lv", "Latvian"],["lt", "Lithuanian"],["mk", "Macedonian"],["ms", "Malay"],["mt", "Maltese"],["no", "Norwegian"],["fa", "Persian"],["pl", "Polish"], _ ["pt", "Portuguese"],["ro", "Romanian"],["ru", "Russian"],["sr", "Serbian"],["sk", "Slovak"],["sl", "Slovenian"],["es", "Spanish"],["sw", "Swahili"],["sv", "Swedish"],["th", "Thai"],["tr", "Turkish"], _ ["uk", "Ukrainian"],["ur", "Urdu"],["vi", "Vietnamese"],["cy", "Welsh"],["yi", "Yiddish"]] Global $LANGUAGE_FROM[2] = ["English", "en"] Global $LANGUAGE_TO[2] = ["Azerbaijani", "az"] Global $COMBO_DATA For $I = 1 To $BL_LANGUAGES[0][0] $COMBO_DATA &= $BL_LANGUAGES[$I][1] & "|" Next If StringRight($COMBO_DATA, 1) = "|" Then StringRight($COMBO_DATA, 1) Global $Read_Data, $GET_TEXT Opt("GUIOnEventMode", 1) Global $Form1 = GUICreate("Form1", 333, 288, 251, 219) GUISetOnEvent(-3, "_MenuExit") Global $Edit1 = GUICtrlCreateEdit("", 0, 0, 329, 121) GUICtrlSetData(-1, "I go to home") Global $Edit2 = GUICtrlCreateEdit("", 0, 160, 329, 121) Global $Combo1 = GUICtrlCreateCombo("", 8, 128, 145, 25) GUICtrlSetData(-1, $COMBO_DATA, $LANGUAGE_FROM[0]) GUICtrlSetOnEvent(-1, "_Combo_From") Global $Combo2 = GUICtrlCreateCombo("", 176, 128, 145, 25) GUICtrlSetData(-1, $COMBO_DATA, $LANGUAGE_TO[0]) GUICtrlSetOnEvent(-1, "_Combo_TO") GUISetState(@SW_SHOW) While 1 $Read_Data = StringStripWS(GUICtrlRead($Edit1), 3) If $Read_Data <> "" And $GET_TEXT <> $Read_Data Then $GET_TEXT = $Read_Data GUICtrlSetData($Edit2, _GoogleTranslate($GET_TEXT, $LANGUAGE_FROM[1], $LANGUAGE_TO[1])) EndIf Sleep(100) WEnd Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ch") ;Writed BlueLife If StringInStr($sText, Chr(32)) Then $sText = StringReplace($sText, Chr(32), "%20") If StringInStr($sText, @CR) Then $sText = StringReplace($sText, @CR, "%0D") If StringInStr($sText, @LF) Then $sText = StringReplace($sText, @LF, "%0A") $Translation = InetRead("http://translate.google.com/translate_a/t?client=english&text=" & $sText & "&hl=en&sl=" & $sFrom & "&tl=" & $sTo) If @error Then Return SetError(1, 0, "") $Translation = StringRegExp(BinaryToString($Translation, 4), ':"(?i)(.*?)"', 3) If @error Then Return SetError(2, 0, "") If StringStripWS($Translation[0], 3) = "" Then Return $Translation[2] Return $Translation[0] EndFunc ;==>_GoogleTranslate Func _Combo_From() Local $Read_LNG = GUICtrlRead($Combo1) For $I = 1 To $BL_LANGUAGES[0][0] If $BL_LANGUAGES[$I][1] = $Read_LNG Then $LANGUAGE_FROM[1] = $BL_LANGUAGES[$I][0] $GET_TEXT = "" Return EndIf Next EndFunc ;==>_Combo_From Func _Combo_TO() Local $Read_LNG = GUICtrlRead($Combo2) For $I = 1 To $BL_LANGUAGES[0][0] If $BL_LANGUAGES[$I][1] = $Read_LNG Then $LANGUAGE_TO[1] = $BL_LANGUAGES[$I][0] $GET_TEXT = "" Return EndIf Next EndFunc ;==>_Combo_TO Func _MenuExit() Exit EndFunc ;==>_MenuExit Link to comment Share on other sites More sharing options...
Swisyn Posted September 14, 2010 Share Posted September 14, 2010 blue-life hocam bu konuda sormak istediğim bir husus var yerimi bilmiyorum ama. Please register to see this content. sitesindeki link ekleme kısmına programımdan linkleri gönderiyorum fakat sitedeki Captcha gösterme radio butonunu checkleyemiyorum ve Save Links butonu bir resim olduğundan dolayı clickletemiyorum acaba bununla alakalı ne yapılabilir. Saygılar. Link to comment Share on other sites More sharing options...
blue_life Posted September 14, 2010 Share Posted September 14, 2010 @Swisyn Elindeki kodlarını eklersen (istersen özeldende gönderebilirsin) bir göz atarım... Link to comment Share on other sites More sharing options...
Aqil990 Posted September 15, 2010 Author Share Posted September 15, 2010 usta verdigin program guzelde zaten bizim dil yok, kodlardada unicode yok , neyse ya biz yapamiyacagiz galiba shunu . yinede tewekkur ediyorum ilgine gore. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.