[asmarsou]

(15-02-23, 07:15 PM)Taha Okla كتب : توضيح (تصحيح مفهوم ) لهذا الكود :

كود :

serveurnumber = If(serveurnumber = "server8", "server7", "server10")

هذا يعني إذا كان المتغير  (serveurnumber) يساوي السيرفر ("server8")  قم يايتبداله بـ ("server7")  وإذا كان لا يساويه استبدله بـ ("server10")
فالعمليةو ليست تتالي أو تحقق من شغل السيرفر فيشغل عليه وإن لم يجد فيشغل على الذي يليه ..

ثم أنك وضعت هذا السطر بعد أن قمت بإفراغ المتغير (serveurnumber ) من قيمته من خلال الكود :

كود :

Dim serveurnumber As String = ""

بالتالي فإنه دوماً سيختار النتيجة  ("server10")
ومع ذلك هو لا فأئدة منه، لأنك بعد استخدام قيمته لم تستخدم هذه القيمة 
فالمتغير الذي استخدمته لتشغيل المشغل به قمت بتعبئة قيمته قبل الاستبدال أصلاً ولا يتعلق بالمتغير ولم يعد يتعلق بالقيمة الجديدة له ..

بالتالي يكون مع التوضيح :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ' تعرف متغير وتعبئته برابط
   Dim URL As String = "https://server13.mp3quran.net/basit_mjwd/002.mp3"
   ' تعريف متغير وتبئته بالرابط السابق بعد أن تم استبدال جزء منه بجزء آخر وتفريغ جزء آخر وهو السيرفر
   Dim URL1 As String = URL.Replace("server13", serveurnumber).Replace("basit_mjwd", "minsh")
   'استبدال اسم السيرفر ولكن المتغير فارغ بالتالي سيختار حالة عدم التحقق أي السيرفر9
   serveurnumber = If(serveurnumber = "server8", "server7", "server10")
   'تشغيل المشغل بالرابط  والذي قيمتهي هي
   ' "https://.mp3quran.net/minsh/002.mp3"
   AxWindowsMediaPlayer1.URL = URL1


End Sub

الاشكال هو كيفية اضافة عناصر اخرى لهذا السطر

كود :

serveurnumber = If(serveurnumber = "server8", "server7", "server10")

ليصبح مثلا كالتالي

كود :

serveurnumber = If(serveurnumber = "server8", "server7", "server10", "server12",server13,server11)

ترتيب ارقام ال server ليس مهم المهم هنا اضافة اكثر من ثلاث عناصر لتلك المجموعة
اما serveurnumber=""  لتعريف المتغير النصي بذاك الاسم فلو جذف لظهرت احطاء بالكود