+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال في الوقت ارجو الافادة (/showthread.php?tid=3544)
الصفحات:
1
2
RE: سؤال في الوقت ارجو الافادة - VB.NET - 09-08-14
مشكور اخوي الله يعطيك العافية
طيب اخوي اذا كان ودي بدال ان يقوم باظهار رسالة بنوع المود اريده ان يقوم بتغير النص الموجود في حقل sub من "موعد سفر" الى "تم الموعد"
اي يقوم بعملية تعديل السجل update
RE: سؤال في الوقت ارجو الافادة - VB.NET - 13-08-14
ولاكن اخوي في مشكلة ان الكود الي عملته لي يقوم بأظهار اول سجل ولايقوم بعملية المقارنة مع كافة السجلات في قاعدة البيانات المطابقة للوقت الحالي
RE: سؤال في الوقت ارجو الافادة - VB_Coder - 13-08-14
السلام عليكم
- أخي الأكسس عندي 2003 ولم استطع فتح قاعدة البيانات 2007 فلو تحفظ قاعدة البيانات بتنسيق 2003 وترفقها مع المثال ، علشان اقدر اساعد في هذا الموضوع .
- تحياتي .
RE: سؤال في الوقت ارجو الافادة - VB.NET - 16-08-14
اخوي VB_CODE
السلام وعليكم ورحمة الله
اشكرك على المساعدة
المطلوب وهو كتالي :
لدي جدول فيه حقلين الاول time
والثاني State القيمة بداخله 0
اريد كود يقوم كل 5 ثواني بالبحث داخل حقل time اذا وجد قيمة اي حقل تساوي للوقت الحالي
يقوم بتغير قيمة حقل ال state من 0 الى 1
انا جربت الكود التالي ولاكن يطبق على اول سجل يعني اول سجل في الجدول وباقي السجلات ما ينفذ الامر
RsTi.Requery
RsTi.Find "[time]='" & Time & "'"
If Not RsTi.EOF Then
RsTi![State] = 1
RsTi.Update
End If
RE: سؤال في الوقت ارجو الافادة - VB_Coder - 16-08-14
السلام عليكم
- في البداية ، ماهي صيغة أو تنسيق الوقت الذي تحفظه في الحقل time ، الأفضل أن يكون حفظ الوقت بتنسيق 24 ساعه يعني يكون
الوقت من غير حرف ال ص أو م أو AM أو PM بل يكون أرقام فقط يعني الساعة ١٢:٠٠ ص تكون ٠٠:٠٠ والساعة ٠١:٠٠ م تكون ١٣:٠٠ .
- هل أنت تحفظ الوقت كامل يعني رقم الساعة والدقيقة والثانية أم الساعة والدقيقة ، فإذا كنت تحفظ الوقت كامل وبناءً على ماطلبت أن يكون فحص حقل ال time كل خمس ثواني فمن الممكن أن لايتم التطابق إلا نادراً جداً ، لذلك من الأفضل أن تحفظ الساعة والدقيقة فقط وبهذا ستسهل عملية
المقارنة أو المطابقة .
- إذاً لنفترض أنك تحفظ الوقت بتنسيق ٢٤ ساعة وأيضاً تحفظ الوقت بأخذ الساعات والدقائق فقط من دون الثواني ، ولنفترض أن إسم الجدول Table1 وإسم متغير الخاص بالإتصال بقاعدة البيانات DB ولنفترض أن نوع الحقل time نصي ونوع الحقل
state رقمي ، سيكون كود التايمر بهذا الشكل :
Dim CurTime As String
CurTime = Format(Time , "HH:MM")
DB.execute "update Table1 set state=1 where time='" & Trim$(CurTime) & "'"
- وبهذا الكود سيتم تعديل حقل ال state لكل سجل في الجدول يكون قيمة حقل ال time فيه يساوي الوقت الحالي .
- تحياتي .
RE: سؤال في الوقت ارجو الافادة - VB.NET - 17-08-14
اخوي vb_coder
عملت الكود وعند التنفيذ يعطيني الرسالة التالية
RE: سؤال في الوقت ارجو الافادة - VB_Coder - 17-08-14
السلام عليكم
- شاهد الطريقة في تعديل المثال .
- تحياتي .
RE: سؤال في الوقت ارجو الافادة - VB.NET - 18-08-14
وعليكم السلام اشكرك اخوي على المساعده
تمت التجربه
ولاكن كيف اقوم بأنشاء عد تنازلي مثلا
لدي تكست يوجد فيه 30 اريد ان يقوم بالعد التنازلي
RE: سؤال في الوقت ارجو الافادة - VB_Coder - 18-08-14
السلام عليكم
كود :
Private Sub Timer1_Timer()
IF Val(Trim$(Text1.Text)) > 0 Then
Text1.Text = Val(Trim$(Text1.Text)) - 1
Else
Timer1.Enabled = False
Exit Sub
End IF
End Sub- تحياتي .
RE: سؤال في الوقت ارجو الافادة - VB.NET - 18-08-14
مشكور اخوي والله يعطيك العافية