كيف أضيف امر تحت الامر هذا المجود بصورة المرفق؟

ياريت توضح طلبك

استاذي العزيز

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

 السوال

 انا اريد ان اعمل رساله msgbox يظهر على هذه الرساله زر امر موافق  وزر امر تعليمات  انا ايد ان اضع امر تحت زر امر التعليمات  ؟؟

والله يحفظكم ويرعاكم

تفضل هذا طلبك MsgBox.zip

استاذي العزيز 

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

 الرجاء الاطلاع على الملف المرفق حتى تعرف  ماذا اقصد ؟؟

المطلوب

 كيف اضع اي  امر تحت زر امر التعليمات الذي في  msgobx 

والله يحفظكم ويرعاكم

MAS.rar

هذا ما فهمته بالفعل

وفى مرفقى الاجابة على سؤالك

أظنك لم تقم بعمل الRUN للبرنامج الذى أرسلته لك

اسلام الكبابى كتب:

هذا ما فهمته بالفعل

وفى مرفقى الاجابة على سؤالك

أظنك لم تقم بعمل الRUN للبرنامج الذى أرسلته لك

استاذي العزيز 

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

   بخصوص برنامجك الذي ارسلت لنا عبر مشاركة  غير الذي ابحث عنه استاذي العزيز

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

 والله يحفظكم ويرعاكم ويجعل الجنة داركم الاخير

MsgBox  لديها معطيات ثابته للتعامل معها . لا تستطيع ان تدخل عليها أي اضافات مثل مفتاح امر أو غيره ..

عليك القيام بذلك في نافذه مستقله لتحقيق طلبك مثل التي عملها لك اسلام الكبابي .

عزيزي اسلام لماذا تعاملت مع النافذه Dialog.Visible = True  لاظهارها ووجود loop ايضا .

ببساطه :   Dialog.Show 1

السلام عليكم...

من ناحية المبدأ الأمر بسيط، فالصيغة الكاملة للدالة MsgBox كالتالي:

MsgBox prompt, style, caption, helpfile, helpcontextid

فالبارامتر الثالث (Help File) يحدد اسم (و مسار) ملف التعليمات المحتوي على الموضوع الذي تريد عرضه، و البارامتر الأخير (Help Context ID) يحدد رقم الموضوع في ذلك الملف.

يعني أنه يجب أن يكون لديك ملف تعليمات و تعرف رقم تعريف الموضوع الذي تريد عرضه. تصميم ملف تعليمات مثل هذا ليس صعباً لكن المشكلة أن الدالة MsgBox تريد ملف تعليمات من النوع hlp الذي كان مستعملاً قبل Windows 7. و يوجد مع النسخة الكاملة لـ VB6 برنامج ملحق باسم Microsoft Help Workshop لإنشاء تلك الملفات. أما ملفات التعليمات من النوع chm فإنه يمكن صنعها ببرنامج Microsoft HTML Help Workshop إلا أنها تعطي خطأ عند ربطها مع MsgBox.

لعل المزيد من البحث يوصل إلى نتيجة.

سلام.

اقتباس

عزيزي اسلام لماذا تعاملت مع النافذه Dialog.Visible = True  لاظهارها ووجود loop ايضا .

ببساطه :   Dialog.Show 1

 

وما الفرق بين هذه الجملة وهذه الجملة؟ كلاهما جملة واحدة لنفس الغرض

وماذا تقصد باللوب ؟ هل تقصد الجمل الثلاثة

DoDoEventsLoop Until Dialog.Visible = False

هذه الجمل لاعلاقة لها باظهار الDialog أو اخفاؤه

انما هى شرط لابد منه كى لا يكمل الكود  الا اذا تم  الضغط على أحد أزارالDialog

ان كنت تستطيع ذلك دون هذه الجمل ودون أن تضع بدلآ منها جمل شرطية

IF .......THEN.......................END IF

فليتك تعدل لنا كودى وترفقه لنا بالطريقة السهلة البسيطة التى تقصدها

B)

MsgBox.zip

اقتباس

 ووجود loop ايضا

 

أجد الكود فى مرفقك هو نفس كودى بما فيه ال loop الذى اعترضت عليه

نريد كودآ بدون هذا ال loop ودون أن تضع بدلآ منها جمل شرطية

هههههههه  ضحكتني يا لكبابي وانا توني صاحي من النوم ... أنا تعمدت إضافة مفتاح جديد اسمه Shwo Window في نفس النافذه ليقوم بتنفيذ المطلوب باخترافيه واختصار .

ولكي يتسنى لك المقارنه بينه وبين ما كتبته انت وتتعلم منه .

هذا ما كتبه الكبابي لعرض نافذه للمستخدم يتم من خلالها الاختيار .

Private Sub Command1_Click()
Load Dialog
Dialog.Top = 3000: Dialog.Left = 3000
Rem"ÇßÊÈ Ýì ÇáÌãáÉ ÇáÓÇÈÞÉ ÇáÃÈÚÇÏ ÇáÊì ÊÑíÏåÇ"
Dialog.Visible = True
Dialog.Enabled = True
Dialog.Caption = "ÇÎÊÑ ãÇ ÊÑíÏ"
Dialog.Label1 = "ÇÖÛØ Úáì ÃÍÏ ÇáÇÎÊíÇÑíä"

Do
DoEvents
Loop Until Dialog.Visible = False
Rem"ÇáÌãá ÇáËáÇËÉ ÇáÓÇÈÞÉ ÊÚäì(áÇ Êßãá ÇáßæÏ ÇáÇ ÇÐÇ ßÇäÊ Dialog.Visible = False)"
Rem"Ãì ÇáÇ ÇÐÇ Êã ÊÍãíá Çá Dialog æÊã ÇáÖÛØ Úáì ÃÍÏ ÃÒÇÑå)"
If CokD = True Then
PP = 98: Print PP
Rem"ÇßÊÈ åäÇ ÈÏá ãä ÇáÌãáÉ ÇáÓÇÈÞÉ  ÇáßæÏ ÇáÐì ÊÑíÏå Ýì ÍÇáÉ ÇÖÛØ Úáì  (ÊÚáíãÇÊ)"
End If

If CokD = False Then
PP = 3267: Print PP
Rem"ÇßÊÈ åäÇ ÈÏá ãä ÇáÌãáÉ ÇáÓÇÈÞÉ  ÇáßæÏ ÇáÐì ÊÑíÏå Ýì ÍÇáÉ ÇÖÛØ Úáì  (ãæÇÝÞ)"
End If

Print "KKKKKKKKKKKKKKKK"
Rem"ÇßÊÈ åäÇ ÈÏá ãä ÇáÌãáÉ ÇáÓÇÈÞÉ  ÈÇÞì ßæÏ ÇáÝæÑã"

End Sub

16 سطر من الاوامر ليتم تنفيذ عرض نافذه .

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

Private Sub Command2_Click()
Form2.Show 1

If CokD = True Then
   Label1.Caption = "التعليمات"
Else
   Label1.Caption = "موافق"
End If

End Sub

ستة أسطر فقط .

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

أترك التعليق للاعضاء . 

اقتباس

هههههههه  ضحكتني يا لكبابي وانا توني صاحي من النوم

 

بصراحة انت اللى ضحكتني يا لعقدة

فين الأوامر اللى هينفذها كودك بعد الضغط على أى من الزرين( تعليمات , موافق)

اقتباس

كيف اضع اي  امر تحت زر امر التعليمات الذي في  msgobx

مطلوب كود ينفذ مجموعة أوامرفى الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (تعليمات)

مثلآ ينفذ مجموعة الأوامر PP = 3267: Print PP

وينفذ مجموعة أوامرأخرى فى نفس الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (موافق)

مثلآ ينفذ مجموعة الأوامر PP = 98: Print PP

وينفذ مجموعة أوامرأخرى (باقى كود الفورم الأصلية) فى أى من الحالتين بعد الانتهاء من الmsgbox

مثلآ ينفذ الأمر Print "KKKKKKKKKKKKK"

ان كنت تستطيع ذلك فليتك ترفق لنا برنامجك كاملآ بطريقتك السهلة البسيطة

السلام عليكم...

يا أخي إسلام... كلام أخينا العقدة صحيح.

عندما تريد عرض نافذة مشروطة (Modal) و هي التي لا يستطيع المستخدم التحول منها إلى نافذة أخرى إلا بإغلاقها، فإنك لا تحتاج إلا إلى سطر واحد:

Dialog.Show 1' أوDialog.Show vbModal

حيث vbModal ثابت معرف في VB و قيمته 1. و لا بصح استعمال الحلفة لهذا الغرض مع الاستعانة بجمل مثل Visible = False أو Visible = True أو Enabled = False أو Enabled = True ... إلخ.

ربما كتب أخونا العقدة الكود بشكل مختصر - و لكنه صحيح... فالكود قد يحتاج إلى أن يكون كالتالي:

Load Dialog
Dialog.Captiom = "عنوان الرسالة"
Dialog.Label1.Caption = "نص الرسالة"
Dialog.Show vbModal
If CokD Then
    ' اكتب هنا ما تريد تنفيذه في حالة النقر على موافق
Else
    ' اكتب هنا ما تريد تنفيذه عند النقر على الزر الآخر
End If

' اكتب هنا بقية الكود إذا كان هناك بقية

* لدي كود و تصميم لنافذة رسائل مخصصة بالكامل و متوافقة مع الدالة MsgBox الأصلية من حيث الأزرار - باستنثناء زر التعليمات - و عرض الرموز و القيم المعادة، بالإضافة إلى إمكانية تحديد نوع الخط و لونه و لون النافذة و تحديد رموز مخصصة و أزرار مخصصة.... إذا أسعفني الوقت سأقوم بإرفاقها في مشاركة قادمة إن شاء الله تعالى.

* لم نجب الأخ السائل (softmail8) عن سؤاله !!!

نرجو الاستفادة و السلام.

شكرآ لك

هكذا يكون الكود تم استبدال أربعة أسطر بسطر واحد

وليس استبدال كل كودى(21 سطر) بستة أسطر فقط

اقتباس

لدي كود و تصميم لنافذة رسائل مخصصة بالكامل و متوافقة مع الدالة MsgBox الأصلية من حيث الأزرار

أليست هذه هى التى يشترط لها ملف تعليمات التى تحدثت عنها سابقآ؟

نحن فى انتظارها

اقتباس

 

هكذا يكون الكود تم استبدال أربعة أسطر بسطر واحد

حمدلله على السلامه وصلت أخيرا ... الكلام كله على الاربعة أسطر ياكبابي الله يهديك ضيعت وقتنا ووقت المشرف عشان تفهم . ;)

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

اولا عند استخدام الاجراء الفرعي لابد من تمرير مصفوفه يحدد المبرمج عدد عناصرها والتي ستحمل عنوان او مسمى وظيفة المفتاح الذي سيظهر في نافذة الاختيارات للمستخدم .

وهي كالتالي :

Dim local_list(0 To 4) As String

local_list(0) = "موافق"
local_list(1) = "نعم"
local_list(2) = "لا"
local_list(3) = "التعليمات"
local_list(4) = "اخرى"

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

Dim local_list(0 To 2) As String

local_list(0) = "موافق"
local_list(1) = "نعم"
local_list(2) = "التعليمات"

 وستيم عرض النافذه بعرض يناسب عناصر المفاتيح الموجوده به .

بعد ذلك الاجراء سوف ياخذ ثلاث معطيات تمرير المصفوفه / عنوانه النافذه / الرسالة المطلوب اظهارها للمستخدم .

Show_MSG_Window local_list, "النافذة التفاعليه", "كل عام وانتم بخير"

وعند إختيار أي من الفاتيح الموجوده بنافذة المستخدم سيتم عرض نتائج الاختيارات بالنافذه الرئيسية ليتم تحديد اي إجراء يراه المبرمج لتكملة البرنامج .

أحببت ان أوضح الفكره بشكل مختصر وسريع وارفق لكم السورس كود .

طبعا انا متأكد أن ما سيقدمه لنا مشرفنا العزيز : najy_zl أفضل بكثير . ولكن تقبلوا هذا بصورة مؤقته .

معليش إضطررت لاضافة تغيير بسيط للملف ارجوا إعادة التحميل لمن سبق له تحميله سابقا  .

msgbox.zip

اخواني الاعزاء لقد ضفت على الاجراء امكانية تمرير  Alignment  لمكان ظهور الرسالة ولون الخط بثوابت يتم الاختيار منها وقمت بنقل الاجراء و Enum الى Public Module لتتمكن من التعامل مع الاجراء على مستوى المشروع كامل .

Show_MSG_Window local_list, "كل عام وانتم بخير", "رمضان كريم", Msg_Alignment_Center, Msg_color_Red

تستطيع اختيار موقع ظهور الرسالة من :

Msg_Alignment_Left
Msg_Alignment_Right
Msg_Alignment_Center

وايضا لون الخط :

Msg_color_Black
Msg_color_Red
Msg_color_Green

للتذكير فقط الاجراء ياخذ مصفوفة المفاتيح التي ستظهر في نافذة الاختيارات وعنوان النافذه ونص الرسالة الموجه للمستخدم و موضع ظهور الرسالة ولون خط الرسالة .

واترك لكم تطوير هذا الاجراء . وكل عام وانتم بخير .

msgbox.zip

السلام عليكم...

بعد إذن أخينا العقدة، و للفائدة أرفق لكم تصميم و كود نافذة حوار مخصصة.

تحتوي المرفقات على وحدة برمجية (Module) و نافذة (Form) لعرض رسالة مخصصة، حيث يمكن:

* تغيير عناوين الأزرار (بدل "موافق" و "إلغاء الأمر" ... إلخ).
* استعمال رمز مخصص للرسالة بدل الرموز الافتراضية للدالة MsgBox.
* تحديد خط نص الرسالة و الأزرار.
* تحديد لون نص الرسالة.
* تحديد لون نافذة الرسالة.

الرسالة تعمل بشكل مشابه للدالة MsgBox في VB6 حيث تعرض نفس الأزرار (مع تطبيق التخصيصات المذكورة سابقاً) و تعيد نفس القيم.

طريقة الاستعمال:
الأمر سهل. أضف الملفين MMessageBoxEx.bas (ملف الـ Module) و FMessageBoxEx.frm (ملف الـ Form) إلى المشروع، و عندما تريد عرض الرسالة استعمل الدالة ShowMessage المبينة فيما يلي.
 

Public Function ShowMessage( _
                            ByVal AMessage As String, _
                            Optional ByVal ACaption As String = "", _
                            Optional ByVal AButtons As TMsgBoxExButtons = mbButtonOk, _
                            Optional ByVal AIcon As TMsgBoxExIcon = mbIconNone, _
                            Optional ByVal ARightToLeft As Boolean = True, _
                            Optional ByVal ADefaultButton As TMsgBoxExDefButton = mbDefButton1, _
                            Optional ByVal ACustomButtons As String = "", _
                            Optional ACustomIcon As StdPicture = Nothing, _
                            Optional AFont As StdFont = Nothing, _
                            Optional ByVal ABackColor As OLE_COLOR = vbButtonFace, _
                            Optional ByVal ATextColor As OLE_COLOR = vbWindowText _
                           ) As VbMsgBoxResult

* كثرة البارامترات لغرض توفير خيارات للتحكم بشكل الرسالة، لكن لاحظ أن كل البارامترات اختيارية (أي يمكن عدم استعمالها) ما عدا البارامتر الأول (نص الرسالة).

= البارامتر AMessage (نوعه String): نص الرسالة.

= البارامتر ACaption (نوعه String): عنوان الرسالة. قيمته الافتراضية نص فارغ ما يعني أنه سيتم استعمال عنوان البرنامج (App.Title) كعنوان للرسالة. لعرض رسالة دون عنوان قم بتمرير فراغ - واحد على الأقل - كعنوان للرسالة.

= البارامتر AButtons (نوعه TMsgBoxExButtons): يحدد عدد و نوع الأزرار. النوع TMsgBoxExButtons معرف في الـ Module و قيمه كالتالي:
# mbButtonOk: زر واحد: موافق (القيمة الافتراضية)
# mbButtonOKCancel: زران: موافق - إلغاء الأمر
# mbButtonYesNo: زران: نعم - لا
# mbButtonYesNoCancel: ثلاثة أزرار: نعم - لا - إلغاء الأمر
# mbButtonRetryCancel: زران: إعادة المحاولة - إلغاء الأمر
# mbButtonAbortRetryIgnore: ثلاثة أزرار: إحباط - إعادة المحاولة - تجاهل

= البارامتر AIcon (نوعه TMsgBoxExIcon): يحدد رمز الرسالة. النوع TMsgBoxExIcon معرف في الـ Module و قيمه كالتالي:
# mbIconNone: دون رمز (القيمة الافتراضية)
# mbIconInformation: رمز رسالة المعلومات
# mbIconQuestion: رمز رسالة السؤال
# mbIconExclamation: رمز رسالة التعجب
# mbIconCritical: رمز رسالة الخطأ
# mbIconCustom: استعمال رمز مخصص للرسالة. الرمز عبارة عن صورة يتم تمريرها كبارامتر للدالة.

= البارامتر ARightToLeft (نوعه Boolean): يحدد ما إذا كان اتجاه الرسالة من اليمين إلى اليسار - عربي (الافتراضي)، أو من اليسار إلى اليمين - أجنبي. هذا البارامتر يؤثر في ترتيب نص و رمز الرسالة، و كذلك ترتيب و عناوين الأزرار:
# True (الافتراضية): رمز الرسالة على اليمين، نص الرسالة محاذى إلى اليمين، ترتيب الأزرار من اليمين إلى اليسار، عناوين الأزرار بالعربي.
# False: رمز الرسالة على اليسار، نص الرسالة محاذى إلى اليسار، ترتيب الأزرار من اليسار إلى اليمين، عناوين الأزرار بالإنجليزي.

= البارامتر ADefaultButton (نوعه TMsgBoxExDefButton): يحدد الزر الافتراضي الذي سيكون محدداً بشكل مبدئي عند عرض الرسالة. النوع TMsgBoxExDefButton معرف في الـ Module و قيمه كالتالي:
# mbDefButton1: الزر الأول محدد (القيمة الافتراضية)
# mbDefButton2: الزر الثاني محدد
# mbDefButton3: الزر الثالث محدد

= البارامتر ACustomButtons (نوعه String): يحدد العناوين المخصصة للأزرار. هذا البارامتر عبارة عن نص يتكون من عناوين الأزرار مفصولة بفواصل منقوطة (انظر الأمثلة فيما بعد). القيمة الافتراضية نص فارغ، أي سيتم استعمال العناوين الافتراضية للأزرار.

= البارامتر ACustomIcon (نوعه StdPicture أي صورة): الصورة التي ستستعمل كرمز للرسالة. لاستعمال الصورة كرمز للرسالة يجب: 1. أن يكون البارامتر AIcon مضبوطاً على القيمة mbIconCustom، و 2. أن لا تكون الصورة فارغة (مثلاً تمرير Image1.Picture دون أن يحتوي الـ Image1 على صورة). القيمة الافتراضية NoThing تعني أنه لا يوجد رمز مخصص.

= البارامتر AFont (نوعه StdFont أي خط): لتمرير خط يستعمل لعرض نص الرسالة و عناوين الأزرار. القيمة الافتراضية NoThing تعني أنه لا يوجد خط لتخصيص الرسالة (الخط الافتراضي حسب التصميم هو Tahoma و حجمه 10).

= البارامتر ABackColor (نوعه OLE_COLOR أي لون): لتحديد لون النافذة و الأزرار. قيمته الافتراضية vbButtonFace و هو اللون الافتراضي لنوافذ ويندوز.

= البارامتر ATextColor (نوعه OLE_COLOR أي لون): لتحديد لون نص الرسالة. قيمته الافتراضية vbWindowText و هو اللون الافتراضي لنصوص نوافذ ويندوز.

*** لا تهتم للأنواع المعرفة في الـ Module (أي TMsgBoxExButtons و TMsgBoxExIcon و TMsgBoxExDefButton) فعند كتابتك لاستدعاء الدالة، و بمجرد كتابتك للفاصلة التي تسبق البارامتر ستظهر لك قائمة بالقيم الممكنة لذلك البارامتر لتختار منها.

* القيمة المعادة من الدالة ShowMessage هي نفسها القيم التي تعيدها الدالة MsgBox التابعة لـ VB6 أي:
# vbOK: تم النقر على الزر موافق = 1
# vbCancel: تم النقر على الزر إلغاء الأمر = 2
# vbAbort: تم النقر على الزر إحباط = 3
# vbRetry: تم النقر على الزر إعادة المحاولة = 4
# vbIgnore: تم النقر على الزر تجاهل = 5
# vbYes: تم النقر على الزر نعم = 6
# vbNo: تم النقر على الزر لا = 7

*** أمثلة:
 

' رسالة بسيطة تتكون من نص و زر موافق
    ShowMessage "السلام عليكم"

' رسالة بسيطة مع تحديد عنوانها
    ShowMessage "السلام عليكم", "My Message"

' رسالة تحتوي على 3 أزرار: نعم - لا - إلغاء الأمر
    ShowMessage "السلام عليكم", "My Message", mbButtonYesNoCancel

' رسالة تحتوي على 3 أزرار: نعم - لا - إلغاء الأمر، مع تحديد الزر الثاني كزر افتراضي
    ShowMessage "السلام عليكم", "My Message", mbButtonYesNoCancel, , , mbDefButton2

' رسالة مع رمز علامة التعجب
    ShowMessage "السلام عليكم", "My Message", mbButtonRetryCancel, mbIconExclamation

' رسالة أجنبية - من اليسار إلى اليمين
    ShowMessage "السلام عليكم", "My Message", mbButtonRetryCancel, mbIconExclamation, False

' استعمال عناوين مخصصة للأزرار: أجل - كلا - انتظر قليلاً، بدل: نعم - لا - إلغاء الأمر
    ShowMessage "السلام عليكم", "My Message", mbButtonYesNoCancel, mbIconExclamation, , , "أجل;كلا;انتظر قليلاً"

' استعمال رمز مخصص للرسالة
    ShowMessage "السلام عليكم", "My Message", mbButtonRetryCancel, mbIconCustom, , , , Picture1.Picture

' استعمال رمز مخصص للرسالة - يتم تحميل صورة الرمز مباشرة من ملف
    ShowMessage "Test Message", "My Message", mbButtonRetryCancel, mbIconCustom, , , , LoadPicture("E:\ImageStore\Computer01.GIF")

' استعمال خط مخصص للرسالة
    ShowMessage "السلام عليكم", "My Message", mbButtonRetryCancel, mbIconExclamation, , , , , Text2.Font

' استعمال ألوان مخصصة للنافذة و النص
    ShowMessage "السلام عليكم", "My Message", mbButtonRetryCancel, mbIconExclamation, , , , , , &H8CE6F0, &H8515C7

*** المرفقات:

ShowMessage.rar

نرجو الاستفادة و السلام.

ما شاء الله تبارك الله .. جهد رائع جدا .

يا جماعه 

 انا الايد تصمميم رسائل انا اريد التعامل مع الرسائل ضمن فجوال البيسك 6

 الماذا تكون الاجابه عكس السوال

اقتباس

 

MsgBox  لديها معطيات ثابته للتعامل معها . لا تستطيع ان تدخل عليها أي اضافات مثل مفتاح امر أو غيره ..

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

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