(28-09-24, 12:17 PM)altoki939 كتب : مشكلة في عمل تذكير في اخر وقت لصلاة مثلا
صلاة فجر ساعة 4:30 اريد تذكير لما تكون ساعة 4:29 بالعد تنازلي ؟
وايضا كيف حسب وقت لصلاة التالية مثلاً صلاة الظهر ساعة 12:30 كيف احتساب وقت المتبقي لصلاة
وايضا طريقة حمل شريط متحرك ؟
وجزاكم الله خيرا
مثال بسيط للشريط المتحرك:
PHP كود :
Public Class Form1 Dim lines() As String = New String() {"السبت", "الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة"} Sub re() lblh.Left = pnlh.Left - lblh.Width End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For Each h As String In lines lblh.Text &= h & " " Next re() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick lblh.Left += 1 End Sub Private Sub lblh_Move(sender As Object, e As EventArgs) Handles lblh.Move If lblh.Left >= pnlh.Right Then re() End Sub End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
28-09-24, 05:02 PM (آخر تعديل لهذه المشاركة : 28-09-24, 06:01 PM {2} بواسطة justforit.)
(28-09-24, 03:26 PM)altoki939 كتب : وطريقة معرفة فارق بين وقت ؟
مثلا ساعة 12:30 الاقامة
وساعة حالية 12:00 يعطيك العد دتنازلي؟
المشكلة ان لكل شخص طريقته في التخزين والعرض و المقارنة لو ترفع مثال بسيط حتى تحدد الاسلوب الاوحد للحل المناسب لك صدقني بدون هذه الطريقة ستتاخر عن الحصول على الاجابة.
بشكل عام ذكرت لك ان الدالة المسؤولة و تحتاج منك التعديل هي كالتالي:
PHP كود :
Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String Try Dim years As Integer = 0, months As Integer = 0, days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0 If toDate = Nothing Then toDate = DateTime.Now
Do Until toDate.AddYears(-1) < fromDate years += 1 toDate = toDate.AddYears(-1) Loop
Do Until toDate.AddMonths(-1) < fromDate months += 1 toDate = toDate.AddMonths(-1) Loop
Do Until toDate.AddDays(-1) < fromDate days += 1 toDate = toDate.AddDays(-1) Loop
Do Until toDate.AddHours(-1) < fromDate hours += 1 toDate = toDate.AddHours(-1) Loop Do Until toDate.AddMinutes(-1) < fromDate minuts += 1 toDate = toDate.AddMinutes(-1) Loop
Do Until toDate.AddSeconds(-1) < fromDate sec += 1 toDate = toDate.AddSeconds(-1) Loop
Return String.Format("{0} Years {1} Months {2} Days {3} Houres {4} Minutes {5} Seconds", years, months, days, hours, minuts, sec) Catch ex As Exception Return "Error" End Try End Function
المثال بالمرفقات
vs 2022 access 2007
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Public Class Form1 Dim db As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb" Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & db Dim con As New OleDbConnection(str) Dim dt As New DataTable Dim da As New OleDb.OleDbDataAdapter("select tname,tt from tb", con) Public Shared Function GetDateSpanText(fromDate As DateTime, toDate As DateTime) As String Try Dim days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0 Do Until toDate.AddHours(-1) < fromDate hours += 1 toDate = toDate.AddHours(-1) Loop Do Until toDate.AddMinutes(-1) < fromDate minuts += 1 toDate = toDate.AddMinutes(-1) Loop Do Until toDate.AddSeconds(-1) < fromDate sec += 1 toDate = toDate.AddSeconds(-1) Loop Return String.Format(" {0} س {1} د {2} ث", hours, minuts, sec) Catch ex As Exception Return "Error" End Try End Function Function ts(t1 As DateTime, t2 As DateTime) As String Return GetDateSpanText(t1, t2) End Function Sub gd() dt.Clear() da.Fill(dt) Me.DataGridView1.Rows.Clear() For Each row As DataRow In dt.Rows Me.DataGridView1.Rows.Add(row(0), row(1)) Next End Sub Sub sp() For Each row As DataGridViewRow In Me.DataGridView1.Rows If row.IsNewRow = False Then Me.DataGridView1.Rows(row.Index).Cells(2).Value = ts(Now, CDate(row.Cells(1).Value)) End If Next End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load gd() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick sp() End Sub End Class
تحديث ليكون التحديث فقط للباقي و ليس كل البيانات
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
28-09-24, 08:49 PM (آخر تعديل لهذه المشاركة : 28-09-24, 09:48 PM {2} بواسطة altoki939.)
ماشاءلله عليك كفيت ووفيت ماشاءلله اعجبتني فكرتك
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟ لو تعيد رفع ملف القاعدة منفردا يكون افضل.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟ لو تعيد رفع ملف القاعدة منفردا يكون افضل.
تتيح قاعدة البيانات التاريخ لكل يوم بالتاريخ + صلاه فجر + صلاه شروق + صلاة ظهر + صلاة العصر + صلاة المغرب + صلاة العشاء
اريد نفس لي عملتة سابقا لكن تحديث اليوم ااستخراج تاريخ اليوم من قاعدة بيانات بجميع الصلاوات مع العد تنازلي لكل صلاة
ايضا يحدد لون لكل صلاة قريبة اقل من دقيقة وحدة .
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟ لو تعيد رفع ملف القاعدة منفردا يكون افضل.
تتيح قاعدة البيانات التاريخ لكل يوم بالتاريخ + صلاه فجر + صلاه شروق + صلاة ظهر + صلاة العصر + صلاة المغرب + صلاة العشاء
اريد نفس لي عملتة سابقا لكن تحديث اليوم ااستخراج تاريخ اليوم من قاعدة بيانات بجميع الصلاوات مع العد تنازلي لكل صلاة
ايضا يحدد لون لكل صلاة قريبة اقل من دقيقة وحدة .
الله يقدرني على تجهيز المثال مع انها اول مرة افكر مثل هذه الفكرة قد لا استطيع التطبيق كما تريده انت لكن الله يعين .
اول خطوة اضافة استعلامات لملف الاكسس
ثاني خطوة برمجة الواجهة في فيجوال بيسك دوت نت.
قد اتاخر ......
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟ لو تعيد رفع ملف القاعدة منفردا يكون افضل.
تتيح قاعدة البيانات التاريخ لكل يوم بالتاريخ + صلاه فجر + صلاه شروق + صلاة ظهر + صلاة العصر + صلاة المغرب + صلاة العشاء
اريد نفس لي عملتة سابقا لكن تحديث اليوم ااستخراج تاريخ اليوم من قاعدة بيانات بجميع الصلاوات مع العد تنازلي لكل صلاة
ايضا يحدد لون لكل صلاة قريبة اقل من دقيقة وحدة .
الله يقدرني على تجهيز المثال مع انها اول مرة افكر مثل هذه الفكرة قد لا استطيع التطبيق كما تريده انت لكن الله يعين .
اول خطوة اضافة استعلامات لملف الاكسس
ثاني خطوة برمجة الواجهة في فيجوال بيسك دوت نت.
قد اتاخر ......
