كيف يتم عمل قاموس

بدل من استعمال قاعدة بيانات استعمل مصفوفة بعدد الكلمات

مثلا

dim a(100) as string,e(100) as string
private sub form_load()
a(0)="تفاحة"
e(0)="apple"
end sub

private sub command1_click()
for i=0 to 100
if text1.text=a(i) then
text2.text=e(i)
exit sub
next i
end sub

في الفورم لود ادخل الكلمات كلها في المصفوفة a() ,و ما يقابلها بالانجليزية في e()

لمشكلة ان البرنامج سيكون بطئ

هناك طرق كثيرة لتخزين الكلمات قاعدة بيانات او ملف عادى او ملف مورد لكن الافضل قاعدة بيانات ويمكنك تشفيرها بكلمة مرور كما توجد طريقة جيدة انا لم اجربها لكنها جائتنى الان وهى باستخدام الاداة WinSock وعمل برنامج القاموس وعمل برنامج اخر يحتوى على الكلمات وهذا البرنامج عند تشغيله لايظهر للمستخدم ويتم الاتصال بين البرنامجين فيرسل القاموس الكلمة الى هذا البرنامج فيرسل له البرنامج المعنى . ارجو ان تكون الفكرة واضحة لكن اكرر ان الافضل هو قاعدة البيانات :rolleyes:

اكيد الافضل هو قاعدة بيانات او على الاقل ان تحفظ في ملف منفصل

و لكن مشكلة السائل هي انه لا يريد ان يطلع احد على هذا الملف المنفصل

و الحلول في ذلك اما بتشفير بيانات هذا الملف مما سيبطئ عملية البحث أو انشاء ملف ذو امتداد لا يمكن لاحد ان يفتحه الا بواسطة برنامجك و يوجد درس عن كيفية انشاء امتداد خاص ببرنامجك

لها استعمالات كثيررررررررررررررررررررررره

ومنها الي قالوها الاخوان وفيه

حط ملف اكسيس وحطله كلمه سر ...... او انك تعتمد على الكود في الترجمه