aaqassam

New member

vbdele10.png


___
كيف الحال مبعدين أرض الإبداع
__

هـذا أول موضوع لي وأتمنى لكم الإستفادة .,
340000055.png

أولا ماهو Mid : هو بمرتبة تحديد لمكان من نص معين
340000055.png

في هذآ الشرح سنتحدث عن Mid وبعض إستخداماتها الرائعة ,
أضف Button
قم بكتابة الكود الآتي في Button1:

كود:
كود:
         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sqebdAs String 'إضافة متغير من نوع سترنج بإسم صقور الابداع
        sqebd= "How Are You?" ' إعطاء قيمة للمتغير صقور الابداع
        MsgBox(Mid(DevPoint, 1, 3), vbInformation, "Dr.EvilCoderSc-MidLesson")
        ' عمل مد إلى المتغير ديف بوينت بحيث يبدأ من الحرف الأول 1 وينتهي بالحرف الثالث 3
    End Sub ' إنهاء السب

الآن قم بتجريب المشروع :
o3VkC-Yw53_408199981.jpg

النتيجة إنه قام بأخذ اول ثلاث حروف وهي كلمة (How) كما بالصورة الموضحة :
Wv6Ht-eD11_631212130.jpg

نستنتج من ذلك صيغة كتابة Mid هي :
Mid(التكست المراد ,بداية من الحرف, إلى الحرف)
340000055.png

ماذا نستفيد من ذلك ؟! ,
لنأخذ أمر من الحياة الواقع :26:,
عندما نريد استرجاع كلمة المرور للبريد الإلكتروني مثلا (هوتميل , جيميل) ونختار خيار الإسترجاع من قبل الإيميل البديل يقوم بكتابته هكذا :
Dr.Ev******@*******
أليس كذلك ؟
كيف تم هذا ؟! , لنأخذ مثال بسيط من مشروع أبسط :
قم بإضافة TextBox و Button كما في الصورة :
HuacE-46O8_767792972.jpg

قم بكتابة الكود التآلي في الـButton1 :

كود:
كود:
        [COLOR=DeepSkyBlue] Private Sub[/COLOR] Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' بداية السب
        Dim alltext As Integer = TextBox1.TextLength
        ' إنشاء متغير بإسم التكست نوعية انتجر وتعيين قيمته كعدد حروف التكستبوكس
        Dim msgcont As String = Replace(TextBox1.Text, Mid(TextBox1.Text, 3, alltext), "****@****")
        'إنشاء متغير نوعية سترنج وتعريفه كإستبدال للميد ب(****@***)
        MsgBox(msgcont, , "Dr.EvilCoderSc-MidLesson")
        ' مسج بوكس للنتيجة الأخيرة
    End Sub ' إنهاء السب
جرب المشروع :
o3VkC-Yw53_408199981.jpg

أكتب جملة بالتكست بوكس شرط أن لا تقل عن 3 احرف أو أكتب بريد إلكتروني :
2rxSu-DN87_668173412.jpg

إضغط (شفره بـ*) والنتيجة هي :
kEmN8-2M5l_381410027.jpg


340000055.png

ماهذا المثال !؟, أريد مثال أكثر إفادة لو سمحت..
هذا مثال للتوضيح , ولكن لا تستعجل لننتقل إلى المثال الثاني,
340000055.png

المثال الثاني /
أضف مربع نص و لابل ,
ضع هذا الكود بالفورم لود :
كود:
كود:
     label1.text = "50"
أو عدله من خصائص اللابل ليصبح الشكل النهائي للفورم هكذا :
wN0a4-CnG7_28442504.jpg

بعد ذلك , أضف هذا الكود إلى TextBox1_TextChanged :
كود:
كود:
     Label1.Text = Label1.Text - TextBox1.TextLength
' حساب عدد الحروف المتبقية في التكست
Dim harf As Integer = 0 ' انشاء متغير من نوع رقم وقيمته صفر
While (Label1.Text < harf)
' حلقة تكرار إذا كان الحروف لم يبقى منها شيء لا يسمح لك بالكتابة
Replace(TextBox1.Text, Mid(TextBox1.Text, 50, TextBox1.TextLength), " ")
'حذف جميع ما بعد الحرف 50 وجعله غير قابل للكتابة إلا بعد تنقيصه
End While ' انهاء الحلقة
شغل المشروع :
o3VkC-Yw53_408199981.jpg

أنظر إلى النتيجة !,
طبعا الذي عملناه بهذا المشروع مثل نظام (تويتر) في كتابة البرودكاستات لك عدد معين من الحروف وهذا إحدا إستخدامات Mid , وهنالك الكثير الكثير من الإستخدامات لهاته الدالة العجيبة !
sqebd
:rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes:
 

التعديل الأخير بواسطة المشرف:

المواضيع المشابهة

عودة
أعلى