منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أستفسار عن قراءة الاسطر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 = thedatatable



RE: أستفسار عن قراءة الاسطر - 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
Next



RE: أستفسار عن قراءة الاسطر - 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

السلام عليكم شباب ارجوا منكم معاينة الموضوع لوجود حال معكم لانة جربتة الكود وللاسف ما اشتغل