[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