[asmarsou]

(15-02-23, 01:21 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
الجملة الشرطية المذكورة في سؤالك، أظن أنك فهمتها خطأ،، 
فطريقة استخدامها غير منطقية ..

على كل هي تعني : إذا تحقق الشرط(Condition) قم بتنفيذ (True)، وإذا لم يتحقق الشرط : نفذ (False) وهي تأخذ الشكل التالي :

كود :

Result = If(Condition, True, False)

ولا يمكن أن تأخذ أكثر من احتمالين، إما الشرط متحقق أو لا ..

وهي نفسها جملة الشرط التالية :

كود :

If Condition Then
   Result = True
Else
   Result = False
End If

---

---

في الكود عندك :

كود :

Dim serveurnumber As String = ""

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")
   serveurnumber = If(serveurnumber = "server8", "server7", "server10")

   AxWindowsMediaPlayer1.URL = URL1


End Sub

تطلب استبدال ("server13") بـ (serveurnumber)  والتي تساوي  لا شيء ("")

ثم تضع جملة المقارنة اذا (serveurnumber) = ("server8")

أصلاً هي فارغة، فعلي أي أساس تطلب المقارنة ؟؟!!

شكرا على الرد
دعني افسر هذا السطر و الذي هو صلب السؤال

كود :

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

ال serveurnumber  ياخذ قيمته  او بالاحرى نصه من  السلسلة فاما server8   او server7 او server10
ليس مقارنة بل و ان صح القول بمثابة توليفة ان وجد اسم السيرفر في القائمة يتم استكمال السطر التابع ل URL1=...... و منه يتم تشغيل الملف الصوتي المناط به
وان لم يوجد لا يشتغل
ملخص القول كيف يمكن اضافة عناصر اخرى لتلك السلسلة اي (سيرفر8,سيرفر7,سيرفر10,وهكذا)
ارجو انى قد اوصلت الفكرة من السؤال