التأكد من صحه إدخال أسم ...

mrx_ta7ady

,,,,

شااكرهــ لك ..

شرح وآآفـــــي ,,

والله يوفقك دنيــا وآخرهــ

بس ما أدري وش أقول لك ..

سؤالي عن تشيك أن المستخدم أدخل أسم و ما عندي قاائمه أسمـــآآء

ياليت تكون فهمت قصدي !!

وشااكرهـ مسااعدتك لي مره آخــــــرى

هذا مثال بسيط :

Dim NamesArry(1 To 5) As String ' مصفوفة الاسماء 

Private Sub Form_Load()
' تعبئة المصفوفه بالاسماء 
NamesArry(1) = "ابتسام"
NamesArry(2) = "فاطمه"
NamesArry(3) = "نعيمه"
NamesArry(4) = "ساره"
NamesArry(5) = "جعبور"

End Sub


Private Sub Command1_Click()
' هنا يتم التشييك مع البرنامج الفرعي الذي يقوم بالبحث بالمصفوفه مقارنة الاسم المدخل بالموجود بالمصفوفه 

If Trim(Text1) = Trim(CheckNames) Then
   MsgBox "اهلا : " & Trim(Text1) ' عند تطابق الاسم تظهر الرساله الترحيبيه
Else
   MsgBox "هذا الاسم غير مسجل : " & Trim(Text1) '  عند عدم وجود الاسم 
End If

End Sub


Private Function CheckNames() As String
'CheckNames البرنامج الفرعي 

Dim i As Integer

CheckNames = "Nothing" ' القيمه الافتراضيه 

' تكرار بحجم المصفوفه 

For i = 1 To UBound(NamesArry)
	If Trim(Text1) = Trim(NamesArry(i)) Then ' شرط المقارنه لمطابقة الاسم الموجود بالمصفوفه مع الاسم المدخل من قبل المستخدم
	   CheckNames = Trim(NamesArry(i)) ' اسناد الاسم 
	   Exit For
	End If
Next i

End Function



Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii <> 8) And (KeyAscii > 46 And KeyAscii < 58) Then KeyAscii = 0
End Sub

طبعا يمكن تطبيق ذلك من قاعدة بيانات

استفيدي من المثال الذي وضعه العقدة، يكفي استخدام

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii <> 8) And (KeyAscii > 46 And KeyAscii < 58) Then KeyAscii = 0
End Sub

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

لو وضحت المشكلة من البداية أكثر لما كان عدد الصفحات وصل لـ 3

اقتباس

أختي العقـــــــــــــــده ,,,

لا ..لالالالالا.. ازعل منك ترى .. اش اختي العقـده يالله يالله عدلي مشاركتك الاخيره وشيلي اختي العقده هذي .. ترى معاد اقدر ادخل المنتدى بعد كذه ..

MsgBox Len(TextBox1)

UserName.rar

جربي المرفق :

Names_Data.zip

العقده كتب:

لا ..لالالالالا.. ازعل منك ترى .. اش اختي العقـده يالله يالله عدلي مشاركتك الاخيره وشيلي اختي العقده هذي .. ترى معاد اقدر ادخل المنتدى بعد كذه ..

Xacker كتب:

لو وضحت المشكلة من البداية أكثر لما كان عدد الصفحات وصل لـ 3

:blush:

:::

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

تفضَّلي هذا المثال الذي عملته لك

مع تحيَّاتيى للجميع

_______________________________.rar

المرفقات تعمل، تأكدي من وجود برنامج WinZip أو WinRar أو برنامج ضغط آخر لديك حتى تقومي بفك الضغط عنها.

(هناك built-in tool ضمن الويندوز لفك الضغط عن أرشيف ZIP سلفاً فكيف لا يعمل؟)

:S

وكاتبة الموضوع في قسم الفيجوال بيسك 6 ليه بس

اقتباس

أنا حملت المرفقات و فكيت الضغط

وعندي برنامج WinZip ...

بس أتوقع أن البرنامج مو عندي ..

انا أشتغل على برنامج

Visual BASIC 2005 Express Edition

:::

لو سمحت أخوووي سااعدني !!

ساعدينا انتي .. !!؟؟؟

يوجد بالمنتدى قسم خاص لمبرمجي Microsoft Visual Basic.NET

واما بالنسبه للاكواد فلن تجدي صعوبه بتحويلها الى vb.net على فرض انك تدرسي Microsoft Visual Basic.NET الان .

لماذا لا تريدين استخدام الدالة IsNumeric إذا كانت تؤدي المطلوب ..