برنامجي (الكاتب العربي) للكتابة في برامج أدوبي التي لا تدعم العربي بالخطوط العادية

[نجيب الفاتح]

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

الكاتب العربي

رابط تنزيل البرنامج حجم الملف 10 كيلوبايت فقط) :
http://rapidshare.com/files/12239010...Katib.rar.html
أو هنا :
http://www.zshare.net/download/13607705804021c5/
رابط مباشر من موقع الاخ أبوبدر -حفظه الله و وفقه - ،أرجو ان لا تنشروا هذا الرابط لأنه خاص لأعضاء المنابر فقط، لكن يمكنكم نشر الروابط السابقة على الرابيد شير و الزي شير :
http://najeeb.abobadr.net/ArabicKatib.rar
جربته على نسخة فوتوشوب لا تدعم العربي و يحول النصوص بصورة جيدة.
لا تنسوا انه نسخة بيتا لهذا فيه بعض الأخطاء النادرة في التحويل و يعكس الأسطر.
حفظاً لحقوق مبتكر الفكرة فإن فكرة البرنامج مستوحاة من هذا الموقع و يمكن استخدامه في التحويل (من المواقع التي أنصح ان تكون في مفضلة أي شخص منا) :
http://convert.wajihah.com/
أتمنى ان يعجبكم البرنامج و تستغلوه في أوجه الخير النافعة
تعديل :
مساهمة من الاخ أكتوم Aktoom :


يعطيكم العافية

[MiND ViSiON]

جزاك الله خير اخي نجيب وجعله في موازين حسناتك

[<phoenix>]

لي الشرف أن أكون أول شخص يقوم بالتجربه ^_^ ... أهلا وسهلا أستاذ نجيب ومبروك عليك البرنامج الجديد , شيء مفرح صراحه ^^

راجعين .

[y@sser]

الف شكر استاذنا الحبيب

[~|hakem|~]

شكرا لك

ممكن طلب

عايز أعرف فكرة بسيطة عن كيفية برمجته (ليس درسا بل الطريقة أو التقنية)

[نجيب الفاتح]

جزاكم الله خيرا يا شباب
الأخ أبوسلطان
مشكور على مرورك العطر ووفقك الله لكل خير
أخي أحمد فينيكس
لي الشرف أن ترد على موضوعي،و أرجو ان يكون البرنامج مفيد
وفقك الله لكل خير

[نجيب الفاتح]

عذراً الإخوة ياسر و حاكم يبدو أننا كنا نكتب في نفس الوقت
مشكور أخي ياسر و زوجك الله من الصالحات التي تسرك في حضورك و غيابك
الاخ حاكم
وفقك الله لكل خير و جزاك الله خيراً
المفترض أنه توجد معادلة لأخذ كل حرف و إضافة عدد معين لتحويله إلى الشكل الاول من أشكاله و عدد ىخر لتحويله إلى الشكل الثاني و هكذا...
و لكنني برمجت البرنامج بطريقة غبية و لكنها تؤدي المطلوب عن طريق وضع جميع احتمالات الحرف في مصفوفة و من ثم قراءة الكلمة و اختيار الحالة الصحيحة (الحالة مقصود بها في اول الكلمة او وسطها او آخرها أوحرف مفرد ) .
و هذا جزء من الكود الخاص بالبرنامج:

Dim PrevCharConnected As Boolean, NextCharConnected As Boolean, PrevChar As String
'ÌÝÌÝÌ Ì áÌ
If Len(Text1.Text) = 0 Then Exit Sub
If Len(Text1.Text) = 1 Then
If Left(Text1.Text, 1) >= "&#193;" And Left(Text1.Text, 1) <= "&#237;" Then TextBox1.Text = ChrW(A7(Asc(Left(Text1.Text, 1)) - Asc("&#195;")))
Exit Sub
End If
PrevCharConnected = False
PrevChar = "" ' Left(Text1.Text, 1)
For i = 1 To Len(Text1.Text)
La = False
'////////////////
If Mid(Text1.Text, i, 1) >= "&#193;" And Mid(Text1.Text, i, 1) <= "&#237;" Then
'\\\\\\\\\\\\\
If Mid(Text1.Text, i + 1, 1) >= "&#193;" And Mid(Text1.Text, i + 1, 1) <= "&#237;" And i <> Len(Text1.Text) Then
NextCharConnected = True
              Select Case Mid(Text1.Text, i + 1, 1)

و غالباً سأضع مصدر البرنامج بصورة مجانية إن شاء الله حتى يستفيد منه الجميع و يطوره الجميع بصورة أحسن
يعطيك العافية

[شاركيز]

جزاك الله ا/ نجيب

[العقرب77]

بارك الله فيك حبيبنا ورفع قدرك

[aktoom]

بارك الله بك أخي الحبيب

والمطلوب منك أن تعمل لنا كل يوم برنامج ......... حتى نراك يوميا ...

[نجيب الفاتح]

جزاكم الله خيراً إخوتي شاركيز و العقرب و الأستاذ أكرم و رفع قدركم
الاخ اكرم طلباتك أوامر و ربنا يقدرنا على هذا
أتمنى ان يكون البرنامج قد أدى المطلوب
يعطيكم العافية

[توفيق عبي]

بارك الله فيك
وجعله الله في ميزان حسناتك
ونفع الله بك الامة الاسلامية

[ALSOODY]

برنامج مفيد ويختصر لنا الوقت ..ولكنه لا يربط الحروف لا ادري لماذا فقد جربته في اليويليد عشان اكتب المنابر كتب لي ا ل م ن ا ب ر وزي ذا ..

[والدفيصل]

الله يغفر لك ولوالديك .

برنامج جميل و اجمل ما في البرنامج اني استلمته من يدك عافاك الله ووفقك .

[zeo77]

بارك الله فيك اخي الكريم
الف شكر على البرنامج المهم