محاولة لكتابة العربي بطريقة سريعة

[هشام مرسي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

كنت أفكر منذ زمن في محاولة لعمل برنامج يمكن عن طريقة كتابة النص العربي بيد واحدة

وكنت أفكر في محاكات الكتابة اليدوية

فيمكن تخصي زر للحروف بدون نقط ثم تكتب النفقط بإتخدام الأسهم مثلا

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

ويمكن أستخدامها في التلفون المحمول

والله الموفق إلى كل خير

letters2.rar

[الشهابي]

الأخ / هشام مرسي

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

لو توضع الحروف العربية في الكود سوف يكون أفضل حتى لا تتعرض للمسح عن طريق الخطأ

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

المهم ماشاء الله عليك ربنا يبارك فيك

إلى مزيد من الإبداع والأفكار العبثرية إن شاء الله

جزاك الله خير

[خالد الشاعر]

الاخ هشام

فكرة جديدة جداَ تسلم ايدك

جزاك الله كل خير

[الـعيدروس]

السلام عليكم

الأخ الفاصل هشام فكرة جميلة جدا

جزاك الله كل خير

وبعد إذنك

الأخ الحبيب الشهابي

حسب فهمي لما تريد يمكن

إستبدل كود حدث UserForm_Initialize

بهذا الكود

Private Sub UserForm_Initialize()

AL = Array("أ", "ا", "إ", "ء", "ئ", "ب", "ت", "ي", "ن", "ث", "ح", "خ", "ج", "", "", "د", "ذ", "ر", "ز", "", _

"س", "ش", "ص", "ض", "", "ط", "ظ", "ع", "غ", "", "ل", "ك", "", "", "", "ف", "ق", "", "", "", "م", "ه", "و", "ؤ", "")

c9.Caption = AL(0)

u9.Caption = AL(1)

d9.Caption = AL(2)

r9.Caption = AL(3)

l9.Caption = AL(4)

c8.Caption = AL(5)

u8.Caption = AL(6)

d8.Caption = AL(7)

r8.Caption = AL(8)

l8.Caption = AL(9)

c7.Caption = AL(10)

u7.Caption = AL(11)

d7.Caption = AL(12)

r7.Caption = AL(13)

l7.Caption = AL(14)

c6.Caption = AL(15)

u6.Caption = AL(16)

d6.Caption = AL(17)

r6.Caption = AL(18)

l6.Caption = AL(19)

c5.Caption = AL(20)

u5.Caption = AL(21)

d5.Caption = AL(22)

r5.Caption = AL(23)

l5.Caption = AL(24)

c4.Caption = AL(25)

u4.Caption = AL(26)

d4.Caption = AL(27)

r4.Caption = AL(28)

l4.Caption = AL(29)

c3.Caption = AL(30)

u3.Caption = AL(31)

d3.Caption = AL(32)

r3.Caption = AL(33)

l3.Caption = AL(34)

c2.Caption = AL(35)

u2.Caption = AL(36)

d2.Caption = AL(37)

r2.Caption = AL(38)

l2.Caption = AL(39)

c1.Caption = AL(40)

u1.Caption = AL(41)

d1.Caption = AL(42)

r1.Caption = AL(43)

l1.Caption = AL(44)

Hid

End Sub

تم تعديل أبريل 1, 2012 بواسطه alidroos

[الشهابي]

الأستاذ القدير / العيدروس

تعديل رائع من رجل رائع

هكذا يكون الفورم أفضل

شكراً لك أستاذنا وشكراأيضا للأخ هشام مرسي صاحب الفكرة

[هشام مرسي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

شكرا لكل من علق وعدل 

والله الموفق إلى كل خير