تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] التفريق بين الحروف الكبيرة و الصغيرة في user an mot de passe
#1
السلام عليكم إخواني أريد المساعدة 

فيما يخص USER ادخل الحروف كبيرة او صغيرة يقبلها
اريد أن يفرق بين الحروف الكبيرة و الصغيرة
اريده ألا يقبل الكلمة الا كما كتبت
و شكرا إخواني
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#2
(30-07-21, 11:42 PM)hammadi كتب : السلام عليكم إخواني أريد المساعدة 

فيما يخص USER ادخل الحروف كبيرة او صغيرة يقبلها
اريد أن يفرق بين الحروف الكبيرة و الصغيرة
اريده ألا يقبل الكلمة الا كما كتبت
و شكرا إخواني

و عليكم السلام و رحمة الله
اذا كانت الكلمة تكتب الا بحروف كبيرة فقط او صغيرة فقط
تفضل هذا الكود الذي فيه حروف كبيرة و صغيرة و انت احذف منه ما تريد حسب رغبتك
PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
        Dim allowedChars 
As String "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz,. "

 
       If allowedChars.IndexOf(e.KeyChar) = -1 Then
            If Not e
.KeyChar Chr(Keys.BackThen
                e
.Handled True
                Beep
()
 
           End If
 
       End If
 
   End Sub 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
السلام عليكم ربما لم اعرف ان اشرح 
فانا سجلت في الداتا ahmed
و عندما اكتب AHMED يقبلها و كذلك يقبل ahmed ; يقبل Ahmed
فانا اريده الا يقبل الا ahmed كما هو مكتوب في الداتا
و كذل كلمة المرور يقبل الحروف الكبيرة و الصغيرة و لايبالي بما هو مكتوب
في الداتا
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
(31-07-21, 10:45 AM)hammadi كتب : السلام عليكم ربما لم اعرف ان اشرح 
فانا سجلت في الداتا ahmed
و عندما اكتب AHMED يقبلها و كذلك يقبل ahmed ; يقبل Ahmed
فانا اريده الا يقبل الا ahmed كما هو مكتوب في الداتا
و كذل كلمة المرور يقبل الحروف الكبيرة و الصغيرة و لايبالي بما هو مكتوب
في الداتا

ضع الاستعلام الذي تستخدمه
الرد
تم الشكر بواسطة: asmarsou , ابراهيم ايبو
#5
السلام عليكم ربما لم اعرف ان اشرح
فانا سجلت في الداتا ahmed
و عندما اكتب AHMED يقبلها و كذلك يقبل ahmed ; يقبل Ahmed
فانا اريده الا يقبل الا ahmed كما هو مكتوب في الداتا
و كذل كلمة المرور يقبل الحروف الكبيرة و الصغيرة و لايبالي بما هو مكتوب
في الداتا
Imports System.Data.OleDb
Public Class Form1
Public con As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source = " & Application.StartupPath & "\Database.mdb")
Public da As OleDbDataAdapter
Public dt As DataTable
Dim SQLstr As String = "SELECT * FROM Login"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = Nothing And TextBox2.Text <> Nothing Then
MsgBox("يجب عليك إدخال إسم المستخدم", MsgBoxStyle.Information, "تنبيه")
TextBox1.Focus()
End If
If TextBox2.Text = Nothing And TextBox1.Text <> Nothing Then
MsgBox("يجب عليك إدخال كلمة المرور", MsgBoxStyle.Information, "تنبيه")
TextBox2.Focus()
End If
If TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
MsgBox("يجب عليك إدخال إسم المستخدم و كلمة المرور", MsgBoxStyle.Information, "تنبيه")
TextBox1.Focus()
End If
If con.State = ConnectionState.Closed Then con.Open()
Using Cmd As New OleDbCommand(Nothing, con)
Cmd.CommandText = "SELECT COUNT(*) From Login Where Username = '" & TextBox1.Text & "' and Pass = '" & TextBox2.Text & "'"
Me.Label1.Text = Cmd.ExecuteScalar
Cmd.CommandText = "SELECT * From Login Where Username = '" & TextBox1.Text & "' and Pass = '" & TextBox2.Text & "'"
Home.Label1.Text = Cmd.ExecuteScalar
End Using
If Val(Me.Label1.Text) = 0 And TextBox2.Text <> Nothing And TextBox1.Text <> Nothing Then
MsgBox("اسم المستخدم أو كلمة المرور خطأ", MsgBoxStyle.Information, "تنبيه")
Me.BackColor = Color.Red

End If
If Val(Me.Label1.Text) > 0 Then
Home.Show()
Me.Close()
End If

End Sub
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
عملية التحقق من كلمة المرور والتحسس لحالة الاحرف تتم عبر كل حرف من اسم المستخدم ان كانت كبيرة او صغيرة
ولتنفيذ هذه المهمة يجب المرور على كل حرف من الكلمة المكتوبة ومقارنتها مع الكلمة المخزنة
قمت بعمل هذا المثال وهو فنكشن يرجع ترو او فولس  
اما كود الدخول الى البرنامج فالامر راجع لك حيث ستجلب اولا الاسم المخزن بدون التحقق من حالة الحرف ثم بعدها سنضيف كود عمل المقارنة لحالة الاحرف مع الاسم المدخل فإن لم يتحقق الامر لن نسمح بالدخول
اي اصبح الكود مركب


الملفات المرفقة
.zip   DetectUserNameAndUpperLower.zip (الحجم : 96.74 ك ب / التحميلات : 7)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asmarsou
#7
شكرا أخي
إنه يعمل فقط على الحروف و إذا أضفت شيء اخر فلا يعرفه
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
السلام عليكم ورحمة الله وبركاته
اخي الكريم

تفضل هذا التعديل على الفنكشن
كود :
 Public Function DetectCase() As Boolean
       If TextBox1.Text = MyName Then
           Return True
       End If
       Dim UserN1 As Char() = TextBox1.Text.Trim().ToCharArray()
       Dim UserN As Char() = MyName.ToCharArray()
       Dim detc As Boolean = True
       ' التحقق من طول المصفوفتين
       If UserN1.Length <> UserN.Length Then
           Return False
           Exit Function
         
       Else
           For i As Integer = 0 To UserN1.Length - 1
               ' فحص كل حرف من المصفوفة الاولى مع الحرف المساوي من المصفوفة الثانية ان كان يساويه في حالة الحرف
               If Char.IsLower(UserN1(i)) = True And Char.IsLower(UserN(i)) = True Or Char.IsUpper(UserN1(i)) = True And Char.IsUpper(UserN(i)) = True Then
                   detc = True
                   ' اذا كان هناك فراغ
               ElseIf Char.IsWhiteSpace(UserN1(i)) = True And Char.IsWhiteSpace(UserN(i)) = True Then
                   detc = True
                   ' التحقق من وجود ارقام
               ElseIf Char.IsNumber(UserN1(i)) = True And Char.IsNumber(UserN(i)) = True Then
                   detc = True
               Else
                   ' اذا لم يتحقق الشرط ستكون القيمة  فولص
                   detc = False
                   Exit For
               End If
           Next

       End If

       Return detc
   End Function
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:
#9
شكرا أخي لقد عملت الحروف و الارقام
بقيت لي الرموز و شكرا أخي على المجهود
الرد
تم الشكر بواسطة:
#10
الحمد لله والشكر لله
ولك اخي الكريم
بالنسبة للرموز يجب ان لاتحتوي كلمات السر او الاسماء على رموز (رأي شخصي)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف الحروف هتجنن بجد اليوم السابع 2 392 15-01-21, 02:58 AM
آخر رد: اليوم السابع
  تبديل الحروف الي ارقام وليس العكس Codack 7 902 02-11-20, 01:06 AM
آخر رد: Codack
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 982 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  [سؤال] عن برنمج نطق الحروف محمد ايمن 3 830 25-04-20, 07:23 PM
آخر رد: السندبااد
  برنامج لتوليد الحروف sads 18 4,501 11-02-20, 02:34 PM
آخر رد: DK-x
  هل من طريقة لحساب الحروف بهذه الطريقة seif mohamed 7 1,471 02-02-20, 01:54 AM
آخر رد: seif mohamed
  [VB.NET] هل تستخدم vb.net في المشاريع الكبيرة مصطفى السعدي 4 1,072 18-12-19, 04:03 PM
آخر رد: أمجد وضاح
  مساعدة منكم يا اهل الخير في كود تحويل كتابة الحروف من عربي الي فرنسي manouba 7 1,437 04-08-19, 10:25 PM
آخر رد: manouba
  ال User Control معاذ ابراهيم 8 1,860 23-06-19, 02:36 PM
آخر رد: معاذ ابراهيم
Rainbow [نقاش] التفريق بين الريجستري والمستخدم! DK-x 1 2,374 14-04-19, 01:24 PM
آخر رد: Mohamed20

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم