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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تكملـــــة الكـــــود (/showthread.php?tid=40885)



تكملـــــة الكـــــود - homid2008 - 06-03-22

إخواني الاعزاء 
ماذا ينقص الكود لكي يطابق تكست 1 مع تكست 2 في نفس الوقت
جربت = OR AND ولم يطابقين تكست 1  مع تكست 2
افيدونا جزيتم خيراً

https://drive.google.com/file/d/1dKG9_0uXHTzDSXlwkV8hEb5hYOhb32SH/view?usp=sharing

[صورة مرفقة: view?usp=sharing]


RE: تكملـــــة الكـــــود - ابو انس - 06-03-22

روابط الدرايف لا تعمل يطلب حق الوصول / قم بمنح حق الوصول
او الافضل ان ترفع الملف مباشرة ولا داعي للدرايف


RE: تكملـــــة الكـــــود - asmarsou - 06-03-22

(06-03-22, 10:21 PM)homid2008 كتب : إخواني الاعزاء 
ماذا ينقص الكود لكي يطابق تكست 1 مع تكست 2 في نفس الوقت
جربت = OR AND ولم يطابقين تكست 1  مع تكست 2
افيدونا جزيتم خيراً

https://drive.google.com/file/d/1dKG9_0uXHTzDSXlwkV8hEb5hYOhb32SH/view?usp=sharing

[صورة مرفقة: view?usp=sharing]

جرب ما يلي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim c As String = TextBox1.Text
       TextBox2.Text = c
   End Sub



RE: تكملـــــة الكـــــود - homid2008 - 11-03-22

(06-03-22, 10:30 PM)ابو انس كتب : روابط الدرايف لا تعمل يطلب حق الوصول / قم بمنح حق الوصول
او الافضل ان ترفع الملف مباشرة ولا داعي للدرايف

مشكور اخي علۑ تجاوبك
اخي ابو انس رفعت الصوره ولم تظهر والان رفعتها مرة اخرئ

(06-03-22, 10:40 PM)asmarsou كتب :
(06-03-22, 10:21 PM)homid2008 كتب : إخواني الاعزاء 
ماذا ينقص الكود لكي يطابق تكست 1 مع تكست 2 في نفس الوقت
جربت = OR AND ولم يطابقين تكست 1  مع تكست 2
افيدونا جزيتم خيراً

https://drive.google.com/file/d/1dKG9_0uXHTzDSXlwkV8hEb5hYOhb32SH/view?usp=sharing

[صورة مرفقة: view?usp=sharing]

جرب ما يلي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim c As String = TextBox1.Text
       TextBox2.Text = c
   End Sub

اخي العزيز
الكود ينفع للمطابقه اذا كانت النتيجه واحده في تكست 1 وتكست 2
لكن لدي النتيجه مختلفه في الاثنين وطلبي اذا كانت النتيجه في تكست 1 هي(حاضر) وتكست 2 هي (غياب) تكون النتيجه في تكست 1 او حتئ تكست 3 هي (غياب)  
تقبل تحياتي.

(11-03-22, 06:22 PM)homid2008 كتب :
(06-03-22, 10:30 PM)ابو انس كتب : روابط الدرايف لا تعمل يطلب حق الوصول / قم بمنح حق الوصول
او الافضل ان ترفع الملف مباشرة ولا داعي للدرايف

مشكور اخي علۑ تجاوبك
اخي ابو انس رفعت الصوره ولم تظهر والان رفعتها مرة اخرئ

(06-03-22, 10:40 PM)asmarsou كتب :
(06-03-22, 10:21 PM)homid2008 كتب : إخواني الاعزاء 
ماذا ينقص الكود لكي يطابق تكست 1 مع تكست 2 في نفس الوقت
جربت = OR AND ولم يطابقين تكست 1  مع تكست 2
افيدونا جزيتم خيراً

https://drive.google.com/file/d/1dKG9_0uXHTzDSXlwkV8hEb5hYOhb32SH/view?usp=sharing

[صورة مرفقة: view?usp=sharing]

جرب ما يلي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim c As String = TextBox1.Text
       TextBox2.Text = c
   End Sub



اخي العزيز
الكود ينفع للمطابقه اذا كانت النتيجه واحده في تكست 1 وتكست 2
لكن لدي النتيجه مختلفه في الاثنين وطلبي اذا كانت النتيجه في تكست 1 هي(حاضر) وتكست 2 هي (غياب) تكون النتيجه في تكست 1 او حتئ تكست 3 هي (غياب)  
تقبل تحياتي.
Textbox1. Text=(حاضر) ♥ Textbox2. Text=(غياب) 
اذا مطابق
Textbox3. Text=(مطابق نتيجه تكست 1 وتكست 2)
اذا غير مطابق
Textbox3. Text=(غير مطابق نتيجه تكست 1 وتكست 2)
طبقتها بدالة if ولم تفلح معي اخواني الاعزاء

(11-03-22, 06:22 PM)homid2008 كتب :
(06-03-22, 10:30 PM)ابو انس كتب : روابط الدرايف لا تعمل يطلب حق الوصول / قم بمنح حق الوصول
او الافضل ان ترفع الملف مباشرة ولا داعي للدرايف

مشكور اخي علۑ تجاوبك
اخي ابو انس رفعت الصوره ولم تظهر والان رفعتها مرة اخرئ

(06-03-22, 10:40 PM)asmarsou كتب :
(06-03-22, 10:21 PM)homid2008 كتب : إخواني الاعزاء 
ماذا ينقص الكود لكي يطابق تكست 1 مع تكست 2 في نفس الوقت
جربت = OR AND ولم يطابقين تكست 1  مع تكست 2
افيدونا جزيتم خيراً

https://drive.google.com/file/d/1dKG9_0uXHTzDSXlwkV8hEb5hYOhb32SH/view?usp=sharing

[صورة مرفقة: view?usp=sharing]

جرب ما يلي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim c As String = TextBox1.Text
       TextBox2.Text = c
   End Sub



اخي العزيز
الكود ينفع للمطابقه اذا كانت النتيجه واحده في تكست 1 وتكست 2
لكن لدي النتيجه مختلفه في الاثنين وطلبي اذا كانت النتيجه في تكست 1 هي(حاضر) وتكست 2 هي (غياب) تكون النتيجه في تكست 1 او حتئ تكست 3 هي (غياب)  
تقبل تحياتي.
Textbox1. Text=(حاضر) ♥ Textbox2. Text=(غياب) 
اذا مطابق
Textbox3. Text=(مطابق نتيجه تكست 1 وتكست 2)
اذا غير مطابق
Textbox3. Text=(غير مطابق نتيجه تكست 1 وتكست 2)
طبقتها بدالة if ولم تفلح معي اخواني الاعزاء



RE: تكملـــــة الكـــــود - ابو انس - 11-03-22

في المرفقات مثال عن ما تريده حسب فهمي لكلامك ولو اني غير متأكد من اني فهمت ما تريد بشكل صحيح
طبعا الموضوع بسيط ولا يحتاج لارفاق مثال ولكني تعمدت فعل ذلك اعتقد ان الامر سوف يكون اكثر وضوحا لك ولنا في حال عدلت على المثال او كتبت به ملاحظات للتعديل عليه
التيكست بوكس 1 و 2 الافضل ان يكونوا كومبوبوكس وانا عملتلك في المثال الامرين سويا


RE: تكملـــــة الكـــــود - homid2008 - 11-03-22

(11-03-22, 06:57 PM)ابو انس كتب : في المرفقات مثال عن ما تريده حسب فهمي لكلامك ولو اني غير متأكد من اني فهمت ما تريد بشكل صحيح
طبعا الموضوع بسيط ولا يحتاج لارفاق مثال ولكني تعمدت فعل ذلك اعتقد ان الامر سوف يكون اكثر وضوحا لك ولنا في حال عدلت على المثال او كتبت به ملاحظات للتعديل عليه
التيكست بوكس 1 و 2 الافضل ان يكونوا كومبوبوكس وانا عملتلك في المثال الامرين سويا

بارك الله فيك اخي العزيز


انتهى مع خالص شكري