منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(29-08-17, 09:04 PM)سعود كتب : [ -> ]

كود :

SelectNodes

هذه تعني اكثر من نود واحدة ...اذا كانت النتيجة اكثر من واحدة كيف  تعدل بالكود؟
ممكن تستخدم 

كود :

SelectSingleNode

اقصد لو كانت هناك نتيجة واحدة نستخدم  

كود :

SelectSingleNode

(29-08-17, 07:05 PM)السندبااد كتب : [ -> ]

أخي العزيز أبو روضة أنصحك بمتابعة درس الشاكي لله الذي أشار له الأخ سعود حتى تفهم كل شيء

وبالنسبة لسؤالك عن التاجات، فالجواب في الصورة التالية:

الله يرضى عليك اخي

---

(30-08-17, 12:29 AM)bidaya كتب : [ -> ]

(29-08-17, 07:05 PM)السندبااد كتب : [ -> ]

أخي العزيز أبو روضة أنصحك بمتابعة درس الشاكي لله الذي أشار له الأخ سعود حتى تفهم كل شيء

وبالنسبة لسؤالك عن التاجات، فالجواب في الصورة التالية:

الله يرضى عليك اخي

هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

(30-08-17, 01:55 AM)سعود كتب : [ -> ]

إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

بكل تاكيد

كود :

Imports System.Net
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
       url = WebUtility.HtmlDecode(url)
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
       For r As Integer = 0 To nod.Count - 1
           ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
               If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
                   lst.Add(n.Attributes("href").Value)
               End If
           Next
       Next
   End Sub
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
End Class

(30-08-17, 02:53 AM)سعود كتب : [ -> ]مهو انتا فهمتها وعملت اقتناص!
على كل حال شي طبيعي لو تبحث بمواضيعي  واقصد الاسئلة بتلاقيني  اتعب عشان افهم حاجة والاخوان ما يقصرون بس انا افهم ببطء ولما افهم شغلة اعاود لاسئلتي واستغرب بطء فهمي لكن هذي هي الدنيا والناس تختلف ... يعني لا تجهد عقلك ابدا ريح بالك  مع الوقت تتضح الامور اكثر و اكثر.
انا فهمت من مشاركتك كيف استخدم Htmlweb الخاصة بـ HtmlAgilityPack 
لاول مرة استخدمها وما فهمتها زمان الا الان بفضل الله ثم فضلك.
الموضوع يحتاج راحة وارتياح  صدقني المخ يتعب.
اما شرح الفيديو فمتى ما صرت مستعد له باذن الله اجهزه.

(30-08-17, 03:17 AM)سعود كتب : [ -> ]

إقتباس :فالسور تكررت لدى فقولت اكيد العيب من كود معين كهذا مثلا

ونا برضو تكررت معي وكنت ححذف ردي لما قولت "بكل تاكيد"
بس مع المحاولة والتنقيح انهيت المثال.

(30-08-17, 05:47 AM)سعود كتب : [ -> ]

إقتباس :بعد البحث فى الصفحة اتضح لى ان هناك قراء لهم قراءة المصحف المجود و المصحف المرتل Smile  لكن لم اعرف فصلهم عن بعض " الله المستعان "

الصبر
اصلا غالبا استخدم الحيلة وكثرة الشروط.
شوف هذا المشروع مفتوح المصدر لكافة الموجودين بالموقع ويمكنك تحميل اي سورة  سواء عبر IDM او تحميل بالبرنامج بعد ان تنقر الزر الايمن للفارة على قائمة السور
تحميل الملف

(30-08-17, 01:55 AM)سعود كتب : [ -> ]

إقتباس :هل يمكن تطبيق الفكرة على هذا الموقع وجزاكم الله خيرا

بكل تاكيد

كود :

Imports System.Net
Public Class Form1
   Dim lst As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim url As String = "http://ourquraan.com/shyookh/%D8%B3%D8%B9%D9%88%D8%AF-%D8%A7%D9%84%D8%B4%D8%B1%D9%8A%D9%85/"
       url = WebUtility.HtmlDecode(url)
       Dim hweb As New HtmlAgilityPack.HtmlWeb
       Dim doc As HtmlAgilityPack.HtmlDocument = hweb.Load(url, "Get")
       Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//div[@class='btn-group']/p[2]")
       For r As Integer = 0 To nod.Count - 1
           ListBox1.Items.Add(nod.Item(r).InnerText.Trim)
           For Each n As HtmlAgilityPack.HtmlNode In nod(r).SelectNodes("//a[2]")
               If n.Attributes("href").Value.ToString.ToLower.Contains("/quran/") Then
                   lst.Add(n.Attributes("href").Value)
               End If
           Next
       Next
   End Sub
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = lst(sender.selectedindex)
   End Sub
End Class

الله يرضى عليك اخي سعود دائما متألق
اتمنى ان الموضوع يتطور وتضاف له طرق اخرى مثل تغيير المقرء

(30-08-17, 03:00 PM)السندبااد كتب : [ -> ]

إقتباس :الله يرضى عليك اخي سعود دائما متألق

اتمنى ان الموضوع يتطور وتضاف له طرق اخرى مثل تغيير المقرء

تفضل أخي العزيز، ولا تنسانا من دعاءك في هذه الأيام الفضيلة:

شكرا لك اخي الكريم اسأل الله ان يجعل  لك في كل حرف كتبته بالف حسنة
وان يبارك لك في كل اعمالك
وان يرزقك الجنة يارب