منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود برمجي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] كود برمجي (/showthread.php?tid=3901)

كود برمجي - hadeel - 26-09-14

سلام عليكم ارجو المساعده
سوال
عندي ثلاث تكست بوك واحده للاسم الرباعي وواحده للاسم الثلاثي وواحد للاسم الرباعي واللقب اريد كود بحيث اذا ضفت اسم غير رباعي في تكتست الاسم الرباعي يقولي  لازم تدخل الاسم الرباعي ونفس الحاله للتكست بوك الباقين (الاسم الثلاثي,الاسم الرباعي واللقب) [يعني اذا دخلت اسم غير ثلاثي في تكست بوك الاسم الثلاثي تظهر راله اتقول انو الاسم غير ثلاثي ,وكذالك بالنسبه للاسم الرباعي واللقب اذا دخلت الاسم رباعي من غير لقب تظهر رساله تقول يجب ادخال اللاسم الرباعي واللقب) بالاضافه الى ذلك اريده مثلا من ادخل اسم في اي من التكست بوك الثلاث (الاسم الرباعي ,الاسم الثلاثي,الاسم الرباعي واللقب )وكان الاسم غير متطابق في اي وحده من التكست بوك دول  تظهر رساله تقول انو الاسم غير متطابق ... اذا ممكن تساعدوني  

RE: كود برمجي - vbnet - 26-09-14

.....

الاسم الثلاثي والرباعي يصعب حسمها ب TextBox واحد،
ومن مشاكلها لو كان الإسم الواحد اشتمل على مسافة مثل (ضيف الله)الذي يصعب حذف المسافة،
فعندئذ الاسم (محمد ضيف الله) سيعتبر اسم ثلاثي،
قد يستعين البعض بمكتبة أسماء لاستنثناء الاسماء المركبة التي تحتوي مسافة واعتبارها اسماً واحداً
ولكن لا تسلم من اسماء لم تخطر بالبال
أو حتى بعض الاسماء المركبة مثل (صالح محمد "أنا أعرف شخصا اسمه الأول فقط هكذا")
فستحتار بكيفية التعامل معه هل هما اسمان أم اسم واحد مركب.

الكثير استخدموا مربعات نص منفصلة لكل من الاسم الأول والاسم الثاني الخ للخروج من هذه المشكلة مع
وضع حقل لكل اسم بالاضافة للإسم الكامل الذي يشمل محتويات الاسماء  كلها مثل
TextBox1: ضيف الله
TextBox2: محمد
TextBox3: العربي
TextBox4: (ضيف الله محمد العربي) أو (العربي ضيف الله محمد) حسب الاسلوب المتبع من ناحبة البدء بالعائلة أم بالاسم الأول.

قد يستغن بعض المبرمجين عن TextBox4 إذا كانوا متمكنين من الاستعلام في قواعد البيانات.

.....

RE: كود برمجي - hadeel - 26-09-14

شكرا جزيلا
لكن اذا ممكن تنطيني الكود البرمجي...

RE: كود برمجي - hadeel - 27-09-14

شكرا جزيلا

RE: كود برمجي - hadeel - 27-09-14

مشكور اخي جزاك الله خير ....لكن كيف اقدر اعمل الاسم الاول من الاسم الثلاثي يساوي الاسم الاول من الاسم الرباعي لنفس الاسم

RE: كود برمجي - vbnet - 27-09-14

.....

ممكن عمل أربع TextBox بالاضافة لواحد خامس يظهر الاسم كامل سواء أدخل ثلاثي أو رباعي كالتالي
Text1 الاسم الأول - إجباري
Text2 الاسم الثاني - إجباري
Text3 الاسم الثالث
Text4 اسم اللقب (العائلة) - إجباري
Text5 الاسم كاملاً

هنا نرى أن الأول والثاني بالاضافة إلى اللقب (العائلة) إجباري، فبالتالي لن يكتب أقل من الاسم الثلاثي
كود :
Private Sub Command1_Click()
    ' نلاحظ لم نتفحص الثالث لأنه اختياري
    If Trim$(Text1.Text) = "" _
    Or Trim$(Text2.Text) = "" _
    Or Trim$(Text4.Text) = "" Then
        MsgBox "يجب إدخال الاسم الثلاثي على الأقل شامل اللقب"
    End If
End Sub

Private Sub Text1_Change()
    Call FullName
End Sub
Private Sub Text2_Change()
    Call FullName
End Sub
Private Sub Text3_Change()
    Call FullName
End Sub
Private Sub Text4_Change()
    Call FullName
End Sub

Private Sub FullName()
    Dim name As String
    name = Trim$(Text1.Text)
    name = name & " " & Trim$(Text2.Text)
    name = Trim$(name) & " " & Trim$(Text3.Text)
    name = Trim$(name) & " " & Trim$(Text4.Text)
    Text5.Text = Trim$(name)
End Sub


اطلاق العنان للخيال البرمجي بتسلسل منطقي ينتج في النهاية برمجة المهمة المطلوبة

.....