تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If
#4
توضيح (تصحيح مفهوم ) لهذا الكود :
كود :
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
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: asmarsou , سعود , ابو روضة


الردود في هذا الموضوع
RE: كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If - بواسطة Taha Okla - 15-02-23, 07:15 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن ايضاح اكثر لـ continu for justforit 6 338 05-11-25, 12:10 AM
آخر رد: justforit
  كيفية منع ظهور الأخطاء من إعدادات البيسيك mmaalmesry 2 861 29-08-25, 10:30 AM
آخر رد: mmaalmesry
  كيفية جلب أسماء الأعمدة بجدول من جداول sql heem1986 2 757 17-08-25, 09:15 PM
آخر رد: heem1986
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 4 3,015 06-08-25, 06:34 PM
آخر رد: Taha Okla
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,298 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
Question [VB.NET] هناك سؤال يهم كل مبرمج الماذا برنامجك يظهر على بعض الشاشات اكثر دقه بشكل مصغر ومشوه Microformt 0 453 01-02-25, 03:48 PM
آخر رد: Microformt
  كيفية احتساب الفرق بين تاريخين بناء على عدد معين مصمم هاوي 2 560 15-01-25, 02:02 PM
آخر رد: مصمم هاوي
  كيفية التعامل مع inputbox في فيجوال ستوديو أسامة حسين 4 3,526 14-01-25, 02:04 AM
آخر رد: أبو خالد الشكري
  اضافة لون للالوان في التاكست بكس أحمد فتح الرحمن 4 474 08-01-25, 04:05 PM
آخر رد: أحمد فتح الرحمن
  اضافة ايام للتاريخ العيدروس 2 380 07-01-25, 02:06 AM
آخر رد: العيدروس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم