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

ومثال اخر
قد يدخل المستخدم الوقت بشكل التالي
1025
بدون :
  نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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


الملفات المرفقة
.rar   tim.rar (الحجم : 1.4 ك ب / التحميلات : 29)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
تم الشكر بواسطة: 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

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

اخي العزيز
 لكم مني جزيل الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة: محمد ئوزبك


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 188 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 43 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Lightbulb هل يوجد كود لإرسال رسائل SMS للجوال عن طريق النت أو مودم شريحة جوال ياسر عبد الكريم 4 79 09-10-17, 07:32 PM
آخر رد: ياسر عبد الكريم
  تصحيح كود التعديل حافظ حافظ 3 115 27-09-17, 09:50 PM
آخر رد: حافظ حافظ
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 156 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 132 22-08-17, 10:24 PM
آخر رد: guerciftech
Question [vb6.0] هل يوجد برنامج تنصيب يبحث ويجمع ملفات برنامجي المصنوع من فجوال بيسك ؟؟ Microformt 3 159 11-07-17, 04:34 PM
آخر رد: Microformt
  [سؤال] هل يوجد طريقة او شرح لتجميل البرامج فى فيجوال بيسك 6 Ratchinko 6 299 10-07-17, 01:01 PM
آخر رد: مصمم هاوي
  التعامل مع الماسحات الضوئية هل يوجد حل ؟ dr.mostashar 5 262 04-07-17, 05:46 PM
آخر رد: dr.mostashar
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 175 28-05-17, 11:58 PM
آخر رد: Microformt

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


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