سؤال في الفورم : الحروف الكابيتل والاسمول

ارفق ملفك للتعديل عليه إن شاء الله

اتفضل الملف

وشكرا مقدما

capslock.rar

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

أخي الكريم H_O_A

وبعد أذن أخي أبو حسن .. قمت باتمام الجواب

وذلك بالاعتماد على المقارنة بين الحروف المدخلة من قبل المستخدم

بناء على جدول Asci وذلك بعمل متغيرين للمقارنة .. ولذلك فإن A في جدول الأسكي غير a

وعلى ذلك فأن المثال يقارن الكلمات المتماثلة تماما .. والكود هو أنظر أدناه

Dim X As Integer
Dim i As Integer
X = Asc(Me.enter_password)
i = Asc(Me.password)
If X = i Then
MsgBox "good"
Else
MsgBox "wrong password"
End If

مع قبول تحياتي

أخوكم ekseer

Ekcapslock.rar

لا ليس هذا المقصود

المثال المرفق ملي بالاخطاء

طلبي هو

arabtEam لاتساوي arabteam

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

اضافة علي ذلك ان

arabteam لا تساوي office وهكذا

نعم أخي اكسير الدالة هي دالة Asc ولكن بأخذ كل رقم أو حرف على حده ثم عملية المقارنة

دالة التحويل من حسب جدول آسكي

Function Str2Int(ByVal InStrng As Variant) As String

  Dim StrLn As Long
  Dim Cntr As Long
  Dim NewStr As String

  Str2Int = ""
  StrLn = Len(Nz(InStrng))
  If StrLn = 0 Then Exit Function
  NewStr = ""

  For Cntr = 1 To StrLn
	Select Case Mid(InStrng, Cntr, 1)
	Case "0" To "z"								 
	  NewStr = NewStr & Asc(Mid(InStrng, Cntr, 1))  
	End Select

 Next Cntr
 Str2Int = NewStr
 End Function

الفضل بعد الله للأخت زهرة وليس لي

وشكرا

capslock.rar

بارك الله فيك اخي ابو حسن

وجزاك الله كل خير

ياسلام

الله يفتح عليكم

هو ده المطلوب

كل الشكر للجميع

السلام عليكم .. معليش ياإخوان قاتل الله العجلة

أخي H_O_A والله صادق مثال يئن بالاخطاء

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

وقلت ياليت الامور تتم بكل هذه البساطة ............ تحياتي

شكرا لأخي أبو حسن .. شكرا لمعلمتنا زهرة

أخوكم Ekseer