(28-09-24, 12:17 PM)altoki939 كتب : [ -> ]مشكلة في عمل تذكير في اخر وقت لصلاة مثلا
صلاة فجر ساعة 4:30 اريد تذكير لما تكون ساعة 4:29 بالعد تنازلي ؟
وايضا كيف حسب وقت لصلاة التالية مثلاً صلاة الظهر ساعة 12:30 كيف احتساب وقت المتبقي لصلاة
وايضا طريقة حمل شريط متحرك ؟
وجزاكم الله خيرا
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, 03:26 PM)altoki939 كتب : [ -> ]وطريقة معرفة فارق بين وقت ؟
مثلا ساعة 12:30 الاقامة
وساعة حالية 12:00 يعطيك العد دتنازلي؟
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
Imports System.Data.OleDb
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)altoki939 كتب : [ -> ]ماشاءلله عليك كفيت ووفيت ماشاءلله اعجبتني فكرتك
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
(29-09-24, 12:57 AM)justforit كتب : [ -> ](28-09-24, 08:49 PM)altoki939 كتب : [ -> ]ماشاءلله عليك كفيت ووفيت ماشاءلله اعجبتني فكرتك
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟
لو تعيد رفع ملف القاعدة منفردا يكون افضل.
(29-09-24, 07:12 PM)altoki939 كتب : [ -> ](29-09-24, 12:57 AM)justforit كتب : [ -> ](28-09-24, 08:49 PM)altoki939 كتب : [ -> ]ماشاءلله عليك كفيت ووفيت ماشاءلله اعجبتني فكرتك
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟
لو تعيد رفع ملف القاعدة منفردا يكون افضل.
ارجاء استخدام هذي قاعدة البيانات
https://www.mediafire.com/file/ceb2vx8f1...accdb/file
تتيح قاعدة البيانات التاريخ لكل يوم بالتاريخ + صلاه فجر + صلاه شروق + صلاة ظهر + صلاة العصر + صلاة المغرب + صلاة العشاء
اريد نفس لي عملتة سابقا لكن تحديث اليوم ااستخراج تاريخ اليوم من قاعدة بيانات بجميع الصلاوات مع العد تنازلي لكل صلاة
ايضا يحدد لون لكل صلاة قريبة اقل من دقيقة وحدة .
(29-09-24, 09:07 PM)justforit كتب : [ -> ](29-09-24, 07:12 PM)altoki939 كتب : [ -> ](29-09-24, 12:57 AM)justforit كتب : [ -> ](28-09-24, 08:49 PM)altoki939 كتب : [ -> ]ماشاءلله عليك كفيت ووفيت ماشاءلله اعجبتني فكرتك
لو ممكن شوف قاعدة بيانات اريد اضيف كل صلاه في قائمة بروحها مع التاريخ محدد
فاذا ممكن اريد يكون فلتر لتاريخ اليوم وايضا كل صلاة يكون لها تنبيه قبل صلاة بدقيقة
الملف المرفق الخاص بك اعترض عليه برنامج الحماية
ما هي المشكلة برايك؟
لو تعيد رفع ملف القاعدة منفردا يكون افضل.
ارجاء استخدام هذي قاعدة البيانات
https://www.mediafire.com/file/ceb2vx8f1...accdb/file
تتيح قاعدة البيانات التاريخ لكل يوم بالتاريخ + صلاه فجر + صلاه شروق + صلاة ظهر + صلاة العصر + صلاة المغرب + صلاة العشاء
اريد نفس لي عملتة سابقا لكن تحديث اليوم ااستخراج تاريخ اليوم من قاعدة بيانات بجميع الصلاوات مع العد تنازلي لكل صلاة
ايضا يحدد لون لكل صلاة قريبة اقل من دقيقة وحدة .
الله يقدرني على تجهيز المثال مع انها اول مرة افكر مثل هذه الفكرة قد لا استطيع التطبيق كما تريده انت لكن الله يعين .
اول خطوة اضافة استعلامات لملف الاكسس
ثاني خطوة برمجة الواجهة في فيجوال بيسك دوت نت.
قد اتاخر ......