يوجد لدي ملف txt وهوة عبار عن كل الاشهر من شهر 1 الى شهر 12
01 01 05:28 06:49 12:15 03:16 05:36 06:52
فمثلا 01 شهر واحد - الايام 1 - 31 اما باقي تواقيت كتالي
05:28 صلاة الفجر
06:49 صلاة ضحي
12:15 صلاة ظهر
03:16 صلاة العصر
05:36 صلاة مغرب
06:52 صلاة المغرب
فسوال كيف اعمل برنامج يقراء من المذكرة بصيغة txt لجميع السنة بحسب اليوم
بحيث يسحب بيانات ويعطيك العد التنازلي بين الاقامة قبل 10 دقايق ارجاء الافادة من اصحاب الخبرة
وجزاكم الله خيرا
مرفق مشروع لتنفيذ ذلك
ولاكن استبدل ال مسافات بين ال تاريخ و مواعيد الصلاه ب -
انشاء
DataTable
كود :
Dim thedatatable As New DataTable
thedatatable.Columns.Add("Date")
thedatatable.Columns.Add("s1")
thedatatable.Columns.Add("s2")
thedatatable.Columns.Add("s3")
thedatatable.Columns.Add("s4")
thedatatable.Columns.Add("s5")
thedatatable.Columns.Add("s6")
قرائة الملف تحزين كل بيان في مكان منفصل
كود :
Dim FileName As String = System.IO.Path.Combine(Application.StartupPath, "altoki939.txt")
For Each line As String In System.IO.File.ReadLines(FileName)
Dim values() As String = line.Split("-".ToCharArray)
ملئ ال جدول من ملف ال تكست
كود :
Dim newrow As DataRow = thedatatable.NewRow
newrow("Date") = values(0) + "/" + values(1) + "/" + Now().ToString("yyyy")
newrow("s1") = values(2)
newrow("s2") = values(3)
newrow("s3") = values(4)
newrow("s4") = values(5)
newrow("s5") = values(6)
newrow("s6") = values(7)
thedatatable.Rows.Add(newrow)
Next
DataGridView1.DataSource = thedatatable
شكراً جزيلا لك اخي العزيز ولك الاجر من الله ....
اذا اريد اسحب كل يوم وقت من txt مثلا صلاة ظهر يظهر تلقائي الوقت للاذان بحيث كل يوم يتحدث في label وايضاً يعطيك العد تنازلي في اخر 10 دقايق في وقت الاًذان وايضاُ الاقامة فممكن تعطيني حل لهذا
مرفق في المشروع
جلب مواقيت الصلاة ليوم معين
ومكن الممكن عمل timer لفعل ذلك لكل ميعاد صلاه
ممكن تسويلي مثلا عن
اسحب كل يوم وقت من txt مثلا صلاة ظهر يظهر تلقائي الوقت للاذان بحيث كل يوم يتحدث في label وايضاً يعطيك العد تنازلي في اخر 10 دقايق في وقت الاًذان وايضاُ الاقامة فممكن تعطيني حل لهذا
كود :
Dim x As Date = Now.ToString("dd-MM-yyyy")
For Each row In DataGridView1.Rows
If x = row.Cells(0).Value Then
label1.text = row.Cells(1).Value
label2.text = row.Cells(2).Value
label3.text = row.Cells(3).Value
label4.text = row.Cells(4).Value
label5.text = row.Cells(5).Value
label6.text = row.Cells(6).Value
End If
Next
ماشاءلله عليك كفو باقي تنبية يعني قبل دقيقة يعطيك منبة بالعد تنازلي من ٦٠ إلى ٠ بحسب توقيت ساعة - توقيت الأذن فكيف احط لجميع التوقيت مع حسب باقي لتوقيت الصلاة
Dim x As Date = Now.ToString("dd-MM-yyyy")
For Each row In DataGridView1.Rows
If x = row.Cells(0).Value Then
label1.text = row.Cells(1).Value
label2.text = row.Cells(2).Value
label3.text = row.Cells(3).Value
label4.text = row.Cells(4).Value
label5.text = row.Cells(5).Value
label6.text = row.Cells(6).Value
End If
Next
جربت هذا كود ماشغال للاسف في error
السلام عليكم شباب ارجوا منكم معاينة الموضوع لوجود حال معكم لانة جربتة الكود وللاسف ما اشتغل