کمک در ساخت دیکشنری !!!!!!!!!!!!!!!!!

[butterfly8528]

سلام به تمام دوستای گل .

من دارم یک برنامه دیکشنری انگلیسی به فارسی و برعکس مینویسم .

برنامه به درستی لغات رو از انگلیسی به فارسی ترجمه میکنه .

مشکل من اینجاست که نمیتونم کاری کنم که برنامه لغات رو از فارسی به انگلیسی

هم ترجمه کنه .

راستی بانکش اطلاعاتیش هم access است .

لطفا هرکس که میتونه کمکم کنه . این پروژه رو باید تا چند روز دیگه تحویل بدم .

راستی اینم کد دیکشنریه :

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM Farsi"
Adodc1.Refresh
End Sub

Private Sub cmdTranslate_Click()
Dim i As Long
Adodc1.RecordSource = "SELECT * FROM English WHERE English_Word LIKE('" & Text1 & "%')"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
Text1 = Adodc1.Recordset.Fields("English_Word")
i = Adodc1.Recordset.Fields("Word_ID")
Adodc1.RecordSource = "SELECT * FROM Farsi WHERE English_ID=" & i
Adodc1.Refresh
Text2 = ""
While Not Adodc1.Recordset.EOF
Text2 = Text2 & Adodc1.Recordset.Fields("Farsi_Word")
Adodc1.Recordset.MoveNext
Wend
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Else
Text2 = "يافت نشد"
End If
End Sub


:تشویق:

[ferdin]

شما می تونید از چند جدول استفاده کنید یک جدول برای لغات انگلیسی ویکی برای فارسی...البته هر لغت باید شناسه داشته باشدو هر لغت فارسی شناسه های مربوط به لغت انگلیسی خود را باید در فیلدهای جداگانه داشته باشد و بالعکس

[parselearn]

دوست عزيز من ميدونم از چه بانكي استفاده مي كنيد
با توجه به بانك شما نميشه
مگر قسمت فارسي بانك رو در جدولي ديگر اصلاح كني
بايد تك تك كلمات فارسي جدا بشن و همچنين معني داشته باشند
موفق باشيد

[butterfly8528]

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

واسه همین کدش رو گذاشتم تا شما دوستها و اساتید گل مشکلش رو حل کنید .

من میدونم برنامه نویسای بزرگی در این سایت هستند که میتونن مشکل منو تو 3 سوت حل کنن .

کارم خیلی گیره کمکم کنید . http://forum.p30world.com/images/New-smile/N_aggressive%20(40).gif

[xxxxx_xxxxx]

سلام
كاش خود برنامه رو مي گذاشتيد تا دوستان بهتر بتونند نظر بدند آخه تا بانك رو نبينيم كه نميشه چيزي گفت.
اين برنامه رو من چند ماه پيش تو همين سايت گذاشتم.
------
خب حالا من تغييراتي تو برنامه دادم امتحانش كنيد. ولي به خاطر اين كه در فيلد كلمات فارسي چندين كلمه مترادف وجود دارد و گاه توضيحي است نتايج دقيق نيست.(براي بعضي كلمات)
بانك كلمات را از اينجا (http://persiandrive.net/147707) دانلود كنيد.

[butterfly8528]

سلام دوستان عزیز .

اینم کد دیکشنری .

دیتا بیس هم دقیقا همین دیتا بیس xxxxx_xxxxx عزیز هست

لطفا کاری کنید که ضریب اشتباه خیلی کم بشه یا اگه بشه ضریب خطا 0 بشه .

[butterfly8528]

از شما دوستان واقا کسی نیست که بتون مشکل ما رو حل کنه ؟

بابا والا کمک کردن ثواب داره :ناراحت:

[M_P_1374]

میتونی توی تیبلت فقط دوتا فیلد کلمه و معنی بذاری و تو کلمه یه بار انگلیسی رو بنویسی یه بار فارسی میتونی اینکارم بکنی
یه کمبو بذاری دو تا گزینه فارسی به انگلیسی و انگلیسی به فارسی رو هم بهش اضافه کنی
بعد اونجایی که کلمه رو وارد میکنی میزنی بگرده دنبال معنی این کد رو بذاری
البته در این صورت میتونی دو تا بانک بسازی هم یه دونه با چهار تا فیلد
اگه اونم خواستی بگو ما در خدمتیم

if combo1.listindex = 0 then
dim a as variant
a = text1.text
a = "kalame=' "+a+"'"
data1.recordset.movefirst
data1.recordset.findfirst a
else
dim a as variant
a = text1.text
a = "word='"+a+"'"
data1.recordset.movefirst
data1.recordset.findfirst a
end ifمن خودم برای دیکشنری هام از همین کد استفاده میکنم جواب میده!!!:لبخند:

[butterfly8528]

M_P_1374 واقعا دمت گرم داشتم کم کم به کل نا امید می شدم .

من هم پروژ رو گذاشتم و هم دیتا بیس ( xxxxx_xxxxx جان گزاشته ) . لطفا برنامه رو جوری

کن که 1 : ضریب اشتباه به 0 نزدیک بشه 2 - وقتی کاربر تو تکست باکس برنامه چه فارسی

نوشت و یا چه انگلیسی برنامه درست عمل کنه .

بعد برنامه رو تکمیل کن و بزار همین جا .

خلاصه اول امیدم به خداست بعد شما :تشویق:

[butterfly8528]

M_P_1374 پس جی شد ؟

چه کار کردی ؟:ناراحت: