تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] هل يوجد كود تصحيح الي عند إدخال المستخدم الوقت في Text؟؟
#1
Question 
الاخوة الكرام
 السلام عليكم ورحمة وبركاتة
 هل يوجد كود  تصحيح الي عند إدخال المستخدم الوقت في Text؟؟
مثال
المستخدم ادخل الوقت  بشكل التالي
1.25ص
والوقت الصحيح  هوا
10:25ص

ومثال اخر
قد يدخل المستخدم الوقت بشكل التالي
1025
بدون :
  نامل من الله المساعدة والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

ان شاء الله تجد طلبك في المرفقات

يعطيك العافية


الملفات المرفقة
.rar   tim.rar (الحجم : 1.4 ك ب / التحميلات : 11)
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
(16-11-15, 09:39 PM)abulayth كتب : السلام عليكم

ان شاء الله تجد طلبك في المرفقات

يعطيك العافية
اخي العزيز
 السلام عليكم ورحمة وبركاته
 نامل التركيز على السوال والاجابة إذا سمحت ؟؟

الرد }}}}
تم الشكر بواسطة:
#4
اخي الكريم
اعتذر لك اشد الاعتذار عن محاولتي مساعدتك وان شاء الله لن تتكرر

Angry Angry Angry Angry
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#5
لماذا لا تعتمد خاصية الـ Input Mask في تصميم الجدول حيث تضع القناع بهذا الشكل : 00:00 .
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#6
أهلا أخي الكريم سالم , لقد عملت لك دالة خاصه لعمل ذلك في مشاركة سابقة ألم تعمل معك , هذه هي الدالة :

كود :
Private Function Check_Time(zMask As String, zTime As String) As Boolean

Dim Dots_Pos() As Integer
Dim Spaces_Pos() As Integer
Dim Char_Pos As Integer
Dim Dots_Count As Integer
Dim Spaces_Count As Integer
Dim zTestTime As String
Dim I As Integer, N As Integer

If Trim$(zMask) = "" Or Trim$(zTime) = "" Or Len(zMask) <> Len(zTime) Then
   Check_Time = False
   Exit Function
End If

Char_Pos = -1

For I = 1 To Len(zMask)

    If Mid$(zMask, I, 1) = ":" Then
       Dots_Count = Dots_Count + 1
       ReDim Preserve Dots_Pos(1 To Dots_Count) As Integer
       Dots_Pos(Dots_Count) = I
    End If
    
    If Mid$(zMask, I, 1) = " " Then
       Spaces_Count = Spaces_Count + 1
       ReDim Preserve Spaces_Pos(1 To Spaces_Count) As Integer
       Spaces_Pos(Spaces_Count) = I
    End If
    
    If Mid$(zMask, I, 1) = "ص" Or Mid$(zMask, I, 1) = "م" Then
       Char_Pos = I
    End If
    
Next

If Dots_Count = 0 And Spaces_Count = 0 And Char_Pos = -1 Then
  
   Check_Time = IsNumeric(zTime)
   Exit Function

Else

   If Dots_Count > 0 Then
  
      For I = LBound(Dots_Pos) To UBound(Dots_Pos)
          If Mid$(zTime, Dots_Pos(I), 1) <> ":" Then
             Check_Time = False
             Exit Function
          End If
      Next
      
   End If
  
   If Spaces_Count > 0 Then
  
      For I = LBound(Spaces_Pos) To UBound(Spaces_Pos)
          If Mid$(zTime, Spaces_Pos(I), 1) <> " " Then
             Check_Time = False
             Exit Function
          End If
      Next
      
   End If
  
   If Char_Pos > -1 Then
      If Mid$(zTime, Char_Pos, 1) <> "ص" And Mid$(zTime, Char_Pos, 1) <> "م" Then
         Check_Time = False
         Exit Function
      Else
         If Char_Pos = 1 Then
            zTestTime = Mid$(zTime, 2)
         ElseIf Char_Pos = Len(zTime) Then
            zTestTime = Left$(zTime, Len(zTime) - 1)
         End If
         zTime = zTestTime
      End If
      
   End If
  
   zTime = Replace$(zTime, ":", "")
   zTime = Replace$(zTime, " ", "")
  
   Check_Time = IsNumeric(zTime)
   Exit Function
  
End If

End Function

وطريقة إستخدامها لفحص الوقت المدخل في صندوق النص بهذه الطريقة :

كود :
If Check_Time("##:## " & "م", Text1.Text) Then
   MsgBox "الوقت صحيح"
Else
   MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("##:##", Text1.Text) Then
   MsgBox "الوقت صحيح"
Else
   MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("##:## " & "م", Text1.Text) Then
   MsgBox "الوقت صحيح"
Else
   MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("م" & " ##:##", Text1.Text) Then
   MsgBox "الوقت صحيح"
Else
   MsgBox "الوقت خطأ"
End If

على حسب التنسيق الذي تريده , وخذ بعين الإعتبار إذا كنت تريد أن يكون في تنسيق الوقت حرف إما "ص" أو "م" أن يكون يكون إما عن يمين أو يسار التنسيق مفصولا بمسافه , بالتوفيق .
الرد }}}}
تم الشكر بواسطة: Microformt , Microformt , محمد ئوزبك , محمد ئوزبك
#7
(20-11-15, 07:21 PM)Ahmed_Mansoor كتب : أهلا أخي الكريم سالم , لقد عملت لك دالة خاصه لعمل ذلك في مشاركة سابقة ألم تعمل معك , هذه هي الدالة :

كود :
Private Function Check_Time(zMask As String, zTime As String) As Boolean

Dim Dots_Pos() As Integer
Dim Spaces_Pos() As Integer
Dim Char_Pos As Integer
Dim Dots_Count As Integer
Dim Spaces_Count As Integer
Dim zTestTime As String
Dim I As Integer, N As Integer

If Trim$(zMask) = "" Or Trim$(zTime) = "" Or Len(zMask) <> Len(zTime) Then
  Check_Time = False
  Exit Function
End If

Char_Pos = -1

For I = 1 To Len(zMask)

   If Mid$(zMask, I, 1) = ":" Then
      Dots_Count = Dots_Count + 1
      ReDim Preserve Dots_Pos(1 To Dots_Count) As Integer
      Dots_Pos(Dots_Count) = I
   End If
   
   If Mid$(zMask, I, 1) = " " Then
      Spaces_Count = Spaces_Count + 1
      ReDim Preserve Spaces_Pos(1 To Spaces_Count) As Integer
      Spaces_Pos(Spaces_Count) = I
   End If
   
   If Mid$(zMask, I, 1) = "ص" Or Mid$(zMask, I, 1) = "م" Then
      Char_Pos = I
   End If
   
Next

If Dots_Count = 0 And Spaces_Count = 0 And Char_Pos = -1 Then
 
  Check_Time = IsNumeric(zTime)
  Exit Function

Else

  If Dots_Count > 0 Then
 
     For I = LBound(Dots_Pos) To UBound(Dots_Pos)
         If Mid$(zTime, Dots_Pos(I), 1) <> ":" Then
            Check_Time = False
            Exit Function
         End If
     Next
     
  End If
 
  If Spaces_Count > 0 Then
 
     For I = LBound(Spaces_Pos) To UBound(Spaces_Pos)
         If Mid$(zTime, Spaces_Pos(I), 1) <> " " Then
            Check_Time = False
            Exit Function
         End If
     Next
     
  End If
 
  If Char_Pos > -1 Then
     If Mid$(zTime, Char_Pos, 1) <> "ص" And Mid$(zTime, Char_Pos, 1) <> "م" Then
        Check_Time = False
        Exit Function
     Else
        If Char_Pos = 1 Then
           zTestTime = Mid$(zTime, 2)
        ElseIf Char_Pos = Len(zTime) Then
           zTestTime = Left$(zTime, Len(zTime) - 1)
        End If
        zTime = zTestTime
     End If
     
  End If
 
  zTime = Replace$(zTime, ":", "")
  zTime = Replace$(zTime, " ", "")
 
  Check_Time = IsNumeric(zTime)
  Exit Function
 
End If

End Function

وطريقة إستخدامها لفحص الوقت المدخل في صندوق النص بهذه الطريقة :

كود :
If Check_Time("##:## " & "م", Text1.Text) Then
  MsgBox "الوقت صحيح"
Else
  MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("##:##", Text1.Text) Then
  MsgBox "الوقت صحيح"
Else
  MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("##:## " & "م", Text1.Text) Then
  MsgBox "الوقت صحيح"
Else
  MsgBox "الوقت خطأ"
End If

أو

كود :
If Check_Time("م" & " ##:##", Text1.Text) Then
  MsgBox "الوقت صحيح"
Else
  MsgBox "الوقت خطأ"
End If

على حسب التنسيق الذي تريده , وخذ بعين الإعتبار إذا كنت تريد أن يكون في تنسيق الوقت حرف إما "ص" أو "م" أن يكون يكون إما عن يمين أو يسار التنسيق مفصولا بمسافه , بالتوفيق .

اخي العزيز
 لكم مني جزيل الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة: محمد ئوزبك


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 395 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 164 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  [سؤال] هل يوجد كود لمعرفة اسم حقل في جدول ( الاسم الرئيسي) الموجود بقاعدة البيانات allobaed 3 85 30-10-16, 01:32 AM
آخر رد: أبو عمر
Question [vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ Microformt 2 82 23-10-16, 05:36 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 87 21-10-16, 01:31 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 83 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
  [vb6.0] نقل من Combo الي TEXT iisys 10 214 26-09-16, 07:56 AM
آخر رد: iisys
  عندما اضغط على Try it يعرض لي التاريخ الموجود في الفورم اريد ان يعرض التاريخ في text abazrmhamed 3 123 19-09-16, 12:30 AM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اربط Combo.text بحقل الدول الموجود بقاعدة البيانات في برنامجي المرفق ؟؟ Microformt 3 140 09-09-16, 04:24 PM
آخر رد: Amir_alzubidy
  [سؤال] كود لربط combo box مع text box abazrmhamed 4 200 24-08-16, 01:08 PM
آخر رد: LoveVb

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


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