كد تبديل فارسي به فينگليش

[soroush_k12]

با سلام
آيا كدي (تابعي) براي تبديل يك عبارت فارسي به فينگليش داريم؟؟؟
مثلا عبارت "سلام" رو به "slam" تبديل كند؟

[ARData]

براي اينکار شما بايد يک جدول درست کنيد داراي سه فيلد . يک فيلد مربوط به رديف و فيلد ديگر حرف انگليسي و ديگري حرف فارسي معادل . سپس با تعريف يک يا چند خط برنامه نويسي ابتدا شروع به تجزيه عبارت مورد نظر و سپس معادل سازي آن ‌از روي جدول مرجع نماييد .

[soroush_k12]

دوست عزيز ممنونم از راهنمايي شما
دوستان كسي قبلا اين كد رو ننوشته؟؟

[Mehr@ban]

سلام سوال خوبي بود ها

[id1385]

سلام
این یک راهنماییه نه جواب سوال شما.
مثل زیر شما میتونید با کمی کار و تمرین انجامش بدید

روی فرمتون یک تکست باکس بزارید،در حالت Keyup اون مثل زیر کد زیر رو بزارید


Private Sub Text1_KeyUp(Index As Integer, KeyCODE As Integer, Shift As Integer)
Text1(1).Text = Text1(1).Text & Phingilish(KeyCODE)
End Sub


خب توی این روال یک فانکشنی فراخوانی می شه (البته فانکشن نمونه هست) که فانکشنتون میتونه مثل این مورد باشه


Public Function Phingilish(KeyCODE As Integer) As String
Select Case KeyCODE
Case Is = 83
Phingilish = "Ó"
Case Is = 76
Phingilish = "á"
Case Is = 65
Phingilish = "Ç"
Case Is = 77
Phingilish = "ã"
End Select
End Function


همونطور که گفتم این فقط یه نمونه هست شما میتونید از این نمونه ایده بگیرید.



موفق باشید

[soroush_k12]

سلام
ممنون از راهنماييتون.
البته من ميخواستم يك رشته كه از قبل نوشته شده است به يك باره بصورت كامل تبديل به پينگيليش شود نه با تايپ هر كلمه .

[fakeuser1]

سلام
می تونید از http://onezero.ir/f2f/?word=%DA%A9%D9%84%D9%85%D9%87 استفاده کنید
نمونه ی به کار گیری javascript اش هم در http://www.onezero.ir/f2fconverter هست.