السلام عليكم ورحمة الله
لدي رابط قمت بتقسيمة الى 3 اقسام
وعندما اقوم بجمعة داخل حلقة يظهر لي خطأ
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As String = " http://server9.mp3quran.net... " Dim b As Integer = 1 Dim c As String = ".mp3" For b = 1 To 604 wmp.URL = a + b + ".mp3" Next
End Sub
اين المشكلة
الخطأ ناتج عن أنك تجمع عدد إلى نص وهو المتغير b
لهذا يجب أن تحوله إلى نص عند الجمع
wmp.URL = a + b.ToString() + ".mp3"
حسنا صديقي المشكلة متعلقة بالمتغير b حيث ان قيمته رقميه بحته 1 ومعنى هذا انه عند استخدامك لاشارة (+) سيقوم بعملية جمع حقيقية مع النصوص المتواجدة في المتغيرين a و c وهو ما لا يقبله العقل. يجب عليك ان تحول قيمة المتغير b الى نص او String وذلك باستخدام الطريقة التالية :
a.toString() .
تحياتي
هو يرتب الكود ولكن يشترط وضع أربع مسافات قبل كل سطر
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As String = "
http://server9.mp3quran.net... " Dim b As Integer = 1 Dim c As String = ".mp3" For b = 1 To 604 wmp.URL = a + b + ".mp3" Next End Sub
أين تجرب تنفيذ الكود وما هوا الخطأ الذي يظهر
لأنك تستخدم كود فيجوال بيسيك وأنت وضعت رابط الكود
في محرر php !
:P لا يهم اخوي ان كان الموقع لل php او لغيره
المهم هي ايصال الكود لحل المشكلة
الكود بالطبع أضعع في برنامج الفيسوال
التعليقات