• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

المهندس الليبي

اعضاء جدد
  • عدد المشاركات

    47
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

1 متابع

عن المهندس الليبي

  • الرتبة
    عضو جديد
  1. عند الدخول في حلقه طويله لا استطيع التحكم في الفورم

    استخدمتها استطعت التحكم لكن الفورم ثقيل جدا
  2. السلام عليكم اخواني عند الدخول في الحلقة التاليه For x As Integer = 0 To length length2 = Un4seen.Bass.Bass.BASS_ChannelGetData(stream, data, length) Next اصبح غير قادر ع التحكم في الفورم حتى الخروج من الحلقه وهي حلقة طويلة جدا بالالاف ..... ارجوا ان تساعدوني في ايجاد الحل هذا البرنامج كاملا Public Class Form1 Private StreamTHD As Thread Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text.Trim = "" Then MsgBox("You must choose file", MsgBoxStyle.OkOnly, "ERROR") Else Application.DoEvents() Stream() End If End Sub Private Sub Stream() Dim fileName As String = "C:\test.mp3" Dim eror As String = Nothing If Un4seen.Bass.Bass.LoadMe() = False Then MsgBox("Error") Exit Sub End If Un4seen.Bass.Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero, Nothing) Dim stream As Integer = Un4seen.Bass.Bass.BASS_StreamCreateFile(TextBox1.Text, 0, 0, BASSFlag.BASS_STREAM_DECODE) eror = Un4seen.Bass.Bass.BASS_ErrorGetCode If stream = 0 Then '' Stream = 0 error MsgBox("StreamCreatefileError" & Un4seen.Bass.Bass.BASS_ErrorGetCode) End If Dim lame As New EncoderLAME(stream) eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.InputFile = Nothing 'STDIN eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.OutputFile = Nothing 'STDOUT eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.LAME_Bitrate = CInt(EncoderLAME.BITRATE.kbps_128) eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.LAME_Mode = EncoderLAME.LAMEMode.Default eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.LAME_TargetSampleRate = Int(EncoderLAME.SAMPLERATE.Hz_44100) eror = Un4seen.Bass.Bass.BASS_ErrorGetCode lame.LAME_Quality = EncoderLAME.LAMEQuality.Quality eror = Un4seen.Bass.Bass.BASS_ErrorGetCode 'lame.Start(Nothing, IntPtr.Zero, False) 'eror = Un4seen.Bass.Bass.BASS_ErrorGetCode If Not lame.Start(Nothing, IntPtr.Zero, False) Then MsgBox("LameStartError" & Un4seen.Bass.Bass.BASS_ErrorGetCode) End If Dim icecast As New ICEcast(lame) icecast.ServerAddress = "Salem-VAIO" icecast.ServerPort = 8001 icecast.Username = "salem" icecast.Password = "b2006d" icecast.MountPoint = "/stream" icecast.StreamName = "2" icecast.StreamGenre = " Genre 2" icecast.PublicFlag = True icecast.SongTitle = "Test 2 Song" If icecast.Connect() Then If icecast.Login() Then If icecast.IsConnected() Then Dim m_BroadCast As New BroadCast(icecast) m_BroadCast.AutoReconnect = True m_BroadCast.ReconnectTimeout = 5 Dim length As Integer = CInt(Un4seen.Bass.Bass.BASS_ChannelSeconds2Bytes(stream, 5)) Dim data(length) As Byte Dim length2 As Integer For x As Integer = 0 To length length2 = Un4seen.Bass.Bass.BASS_ChannelGetData(stream, data, length) Next MsgBox("ok") End If End If Else MsgBox("Error") End If Return End Sub End Sub End Class
  3. السلام عليكم: اخواني لقد قمت بتحويل كود الاستاذ في الموجود في هذا الرابط http://www.socketcoder.com/ArticleFile.aspx?index=2&ArticleID=64 وكان الكود بلغة سي شارب وحولته لفيجوال بيسك دوت نت عن طريق الموقع http://www.developerfusion.com/tools/convert/csharp-to-vb/ فظهرت لي الاخطاء التاليه : ------------------------------------------------------------------------------------------------ الكود الاصلي: this.Load += new System.EventHandler(this.RTP_VOIP_Library_Sample_Load); this.FormClosing += new System.Windows.Forms.FormClosingEventHandler(this.RTPVoiceConferencingSample_FormClosing); الكود بعد التحويل Me.Load += New System.EventHandler(AddressOf Me.RTP_VOIP_Library_Sample_Load) Me.FormClosing += New System.Windows.Forms.FormClosingEventHandler(AddressOf Me.RTPVoiceConferencingSample_FormClosing) رسالة الخطأ Public Event Load(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event. ------------------------------------------------------------------------------------------------ عند اضافة الكلمة المفتاحيه raiseevent كما مقترح في الرسال فيقوم بالاعتراض على الكلمة me وعند ازالة الكلمة me يعترض على استدعاء هذا الحدثف ي للكلاس المشتق (Derived classes cannot raise base class events.) فما الحل ارجوكم ساعدوني .
  4. شكرا لكي على هذا الموضوع الرائع والمفيد لكن لي سؤال هل يمكن اسنخدام نفس طريقتك لكن على الصوت بدلا من الصوره
  5. لدي class ضمن البرنامج يظهر خطأ بانه غير موجود رغم انه موجود

    اخواني ارجوا المساعدة
  6. السلام عليكم: حسب الصوره التاليه يخبرني ان الكلاس غير موجود رغم انه موجود بالرنامج http://www2.0zz0.com/2012/06/03/14/950569713.jpg
  7. كيف يتم التأكد من صلاحياته
  8. لماذا لا استطبع الدخول الى الرابط التالي

    شكرا لك اخي
  9. السلام عليكم: اخوتي كيف يمكن عمل شبكة Ad-Hoc في ويندوز 7
  10. السلام عليكم: وجدت بعض الردود في المنتدى تشير للرابط التالي: http://www.arabteam2000-forum.com/index.php?showtopic=199027 بصفته يحتوي غلي برامج تقوم بدعم الكتابة بالعربية للتطلبقات التي لا تدعم اللغة العربية لكن عند الدخول عليه تظهلا لي الرسالة التالية: [#10344] ليس لديك صلاحيات لمشاهدة هذا الموضوع . فكيف يمكن حل المشكله لاني محتاج لهذه البرامج
  11. اخي شكرا لك لكن رابط البرنامج لا يعمل ارجوك انا محتاج لهذا البرنامج جدا
  12. السلام عليكم: ممكن رابط مواضيع البرامج الفائزة في المسابقة الماضية
  13. اخي هل وصل البرنامج
  14. تم ارفاق الكود لك في رساله خاصه على بريدك [email protected] الرساله تحت عنوان الكود الخاص بالموضوع الذي يطلب المساعدة في منتدى الفريق العربي للبرمجة
  15. هل مثبت في جهازك خادم IIS لكي يعمل معك الكود الخاص بالويب سرفس