+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أستفسار عن قراءة الاسطر (/showthread.php?tid=48115)
الصفحات:
1
2
أستفسار عن قراءة الاسطر - altoki939 - 24-03-24
يوجد لدي ملف 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 دقايق ارجاء الافادة من اصحاب الخبرة
وجزاكم الله خيرا
RE: أستفسار عن قراءة الاسطر - mrfenix93 - 24-03-24
مرفق مشروع لتنفيذ ذلك
ولاكن استبدل ال مسافات بين ال تاريخ و مواعيد الصلاه ب -
انشاء 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 = thedatatableRE: أستفسار عن قراءة الاسطر - altoki939 - 25-03-24
شكراً جزيلا لك اخي العزيز ولك الاجر من الله ....
اذا اريد اسحب كل يوم وقت من txt مثلا صلاة ظهر يظهر تلقائي الوقت للاذان بحيث كل يوم يتحدث في label وايضاً يعطيك العد تنازلي في اخر 10 دقايق في وقت الاًذان وايضاُ الاقامة فممكن تعطيني حل لهذا
RE: أستفسار عن قراءة الاسطر - mrfenix93 - 25-03-24
مرفق في المشروع
جلب مواقيت الصلاة ليوم معين
ومكن الممكن عمل timer لفعل ذلك لكل ميعاد صلاه
RE: أستفسار عن قراءة الاسطر - altoki939 - 26-03-24
ممكن تسويلي مثلا عن
اسحب كل يوم وقت من txt مثلا صلاة ظهر يظهر تلقائي الوقت للاذان بحيث كل يوم يتحدث في label وايضاً يعطيك العد تنازلي في اخر 10 دقايق في وقت الاًذان وايضاُ الاقامة فممكن تعطيني حل لهذا
RE: أستفسار عن قراءة الاسطر - mrfenix93 - 26-03-24
كود :
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
NextRE: أستفسار عن قراءة الاسطر - altoki939 - 27-03-24
ماشاءلله عليك كفو باقي تنبية يعني قبل دقيقة يعطيك منبة بالعد تنازلي من ٦٠ إلى ٠ بحسب توقيت ساعة - توقيت الأذن فكيف احط لجميع التوقيت مع حسب باقي لتوقيت الصلاة
RE: أستفسار عن قراءة الاسطر - altoki939 - 02-04-24
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
RE: أستفسار عن قراءة الاسطر - altoki939 - 07-04-24
لايوجد رد أو حل مثالي ؟
RE: أستفسار عن قراءة الاسطر - altoki939 - 28-04-24
السلام عليكم شباب ارجوا منكم معاينة الموضوع لوجود حال معكم لانة جربتة الكود وللاسف ما اشتغل