• الإعلانات

    • فيصل الحربي

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

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

samerselo

المشرفين القدامى
  • عدد المشاركات

    2,524
  • تاريخ الانضمام

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

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

16 عادي

عن samerselo

  • الرتبة
    مشرف قسم Visual Basic.NET
  • تاريخ الميلاد 01/14/1972

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : دمشق، سورية

أحدث الزائرين لملفلك الشخصي

11,136 زياره للملف الشخصي
  1.   كلامك غير صحيح لأن اعطائي قيمة آسكي للرقم المدخل من قبل مستخدم البرنامج لا يعطي نتائج صحيحة حسب طريقة حساب البرنامج والهدف منه    
  2. السلام عليكم ورحمة الله وبركاته   بما أنني مبتعد منذ فترة طويلة عن البرمجة فقد حاولت عمل نفس البرنامج بلغتي الفيجول بايزك والانتقال لسي شارب وبما أنني نادرا ما أتعامل بالسي شارب لذا واجهت صعوبة حتى حصلت على النتيجة المطلوبة   الكود بلغة الفيجول بايزك         Dim result As Integer = 0        Dim TMR As String        For i = 0 To Me.txtImeiNumber.Text.Length - 2 Step 2            result += Val(Me.txtImeiNumber.Text(i))        Next  هنا مستخدم البرنامج لايمكنه سوى إدخال أرقام في مربع النص والغرض تنفيذ خوارزمية حسابية خاصة ولكن الكود الذي أعطاني النتيجة الصحيحة في السي شارب هو             int result = 0;            string TMR = null;            int i = 0;            int j = 0;            string k;            for (i = 0; i <= this.txtImeiNumber.Text.Length - 2; i += 2)            {                k = Convert.ToString(this.txtImeiNumber.Text[i]);                result +=Convert.ToInt32(k);            }  لماذا في السي شارب اضطررت للتحويل مرتين بينما في الفيجول بايزك أخذت القيمة التي أريد مباشرة وهل من طريقة أفضل لتحقيق نفس النتيجة   مثلا إذا كان في مربع النص الرقم 3 فإن الفيجول بايزك يضيف القيمة 3 مباشرة للناتج بينما السي شارب إذا ألغينا سطر التحويل لنصي وأخذنا القيمة مباشرة بنفس طريقة الفيجول بايزك فإنه يضيف القيمة 51 بدلا من القيمة 3
  3. تصحيح بسيط إصدارة 2005 تدعم الفريموورك 2.0 وليس 3.0 جرب تنصيب الفريموورك 2.0 قبل المتابعة هناك مشكل يتعلق ببرمجة أوفيس إن كنت تعمل على نظام 64 بت ( فيستا أو سفن ) وملخصه التالي: مكتبات الأوفيس هي 32 بت لذا عندما تقوم بعمل Compile لمشروعك بالوضع الافتراضي AnyCpu ستحصل معك مشاكل في بعض الأحيان على الأنظمة 64 بت لذا ندخل إلى خصائص MyProject ونعدل خيارات Compile إلى معالج x86 ونعيد ترجمة المشروع عندها سيعمل بنجاح
  4. سوأل : كيف اخلي شكل الزر مدور ...؟

    ممكن عن طريق تجاوز الطريقة Paint للزر ورسم الزر من جديد باستخدام أوامر GDI ابحث في المشاركات القديمة هناك سؤال مماثل قمت بالإجابة عنه موجود فيه مثال بالكود عن هذه الطريقة
  5. ''' <summary> ''' Method to read a specified line in a text file ''' </summary> ''' <param name="file">File to read from</param> ''' <param name="line">Line number to read</param> ''' <returns></returns> Public Shared Function ReadSpecifiedLine(file As String, lineNum As Integer) As String 'create a variable to hold the contents of the file Dim contents As String = String.Empty 'always use a try...catch to deal 'with any exceptions that may occur Try Using stream As New StreamReader(file) contents = stream.ReadToEnd().Replace(vbCr & vbLf, vbLf).Replace(vbLf & vbCr, vbLf) Dim linesArray As String() = contents.Split(New Char() {ControlChars.Lf}) 'Make sure we have ana ctual array If linesArray.Length > 1 Then 'Make sure user didnt provide number greater than the number 'of lines in the array, and not less than 0 (zero) Thanks AdamSpeight2008 If Not lineNum > linesArray.Length AndAlso Not lineNum < 0 Then Return linesArray(lineNum) Else 'Failed our check so return the first line in the array Return linesArray(0) End If Else 'No array so return the line Return contents End If End Using Catch ex As Exception Return ex.ToString() End Try End Function
  6. شكرا لك بقيت نقطة أخيرة أحتاج لفهمها وهي في معالج الاتصال بشبكة لاسلكية هناك قائمة اختيار مكتوب بجانبها Security Type وفيها عدة خيارات WPA2-Personal أو WEP و خيارات أخرى وهناك أيضا القائمة Encryption Type ممكن أطمع في حصولي على وصف بسيط لهم مشكورا
  7. بإمكانك استخدام تحكم Timer لهذا الغرض كالكود التالي مثلا Private WithEvents tmr As New Timer With {.Interval = 20000, .Enabled = True} Private Sub tick() Handles tmr.Tick Dim count As Integer Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("ax32") count = pProcess.Length If (pProcess.Length > 1) Then MsgBox("لا يمكن تشغيل أكثر من نسخة من البرنامج") For Each p As Process In pProcess If (count > 1) Then p.Kill() End If count = count - 1 Next End If End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.ShowInTaskbar = False Me.Visible = False End Sub
  8. مشكور هل ممكن نعمل ذلك بدون أكسيس بوينت أي نعتبر جهاز Windows 7 هو الرئيسي ونستخدمه بدل أكسيس بوينت وخصوصا أنه من النادر جدا أن نحتاج للاتصال بين الثلاثة أجهزة في نفس الوقت
  9. برنامجي و ال Multithreading !

    عدل الكود trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.Start() إلى trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.SetApartmentState(ApartmentState.MTA) trd.Start()
  10. يمكنك ذلك باستخدام Process ID لقتل العملية وليس عن طريق Process Name انظر المرفق يحتوي على برنامج Task Manager متكامل من صنعي وإذا كان لديك أي سؤال حول الأكواد نتكلم بعد استعراضك للكود SimpleTaskManager.rar
  11. لدي ثلاثة أجهزة أريد عمل شبكة لاسلكية بينهم الأول - يعمل بنظام Windows 7 ultimate 64 bit وموصول به كرت شبكة لاسلكي عن طريق USB الثاني - يعمل بنظام Windows XP وموصول به كرت شبكة لاسلكي عن طريق USB الثالث - جهاز بورتابل يعمل بنظام Windows Vista home premium 32 bit وهو يحتوي على كرت شبكة لاسلكي builtin