الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل على كود تحويل وقت ؟

بدأه W XP 2003 في 6 سبتمبر 2012 · 7 رد · 637 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تعديل على كود تحويل وقت من 24 الى 12 ساعه ?

عندي LabelX1

TextBox6

RibbonButton2

  Dim x As Integer
        On Error Resume Next
        x = TextBox6.Text
        If x < 12 Then
            LabelX1.Text = x.ToString + ":00 am"
        Else
            x = x - 12
            LabelX1.Text = x.ToString + ":00 pm"
        End If

اريد عند ادخال عدد في TextBox6 مجرد ظغط على زر Enter اظهار نتيجه ؟

واريد : مشكلة في كود انه لا يدعم دقائق ... فقط ساعات اي عند ادخال مثلا : 19:12 تظهر نتيجه خطااا ... اريد حل للمشكله ...

#2

ممكن مساعه يااخوان

#3

أرفق مثال وإن شاء الله بيتم التعديل عليه

#5

تفضل أخي الكريم الكود بعد التعديل

Dim x As String
        On Error Resume Next
        x = TextBox6.Text

        If x.Length <> 2 Then
            Dim all() As String
            all = x.Split(":")
            If Val(all(0)) < 12 Then
                LabelX1.Text = all(0) + ":" + all(1) + " am"
            Else
                all(0) = Val(all(0)) - 12
                LabelX1.Text = all(0) + ":" + all(1) + " pm"
            End If
        Else
            If CInt(x) < 12 Then
                LabelX1.Text = x.ToString + ":00 am"
            Else
                x = x - 12
                LabelX1.Text = x.ToString + ":00 pm"
            End If
        End If
1
#6

تسلم يدك يااخي 100% ممكن سؤال ثاني

اريد عند ادخال عدد في TextBox6 مجرد ظغط على زر Enter اظهار نتيجه ؟

#7

في حدث Keyup ل TextBox6 اكتب الكود التالي

If e.KeyCode = Keys.Enter Then
            Button1_Click(Nothing, Nothing)
        End If
#8

تسلم يدك يااخي الغالي

تم حل مشكلة

مواضيع مشابهة