samerselo

  كلامك غير صحيح لأن اعطائي قيمة آسكي للرقم المدخل من قبل مستخدم البرنامج لا يعطي نتائج صحيحة حسب طريقة حساب البرنامج والهدف منه    

شكرا لك وجزاك الله خيرا

ما نفعت نفس خطأ جلب القيمة

السلام عليكم ورحمة الله وبركاته   بما أنني مبتعد منذ فترة طويلة عن البرمجة فقد حاولت عمل نفس البرنامج بلغتي الفيجول بايزك والانتقال لسي شارب وبما أنني نادرا ما أتعامل بالسي شارب لذا واجهت صعوبة حتى حصلت على النتيجة المطلوبة   الكود بلغة الفيجول بايزك         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

تصحيح بسيط إصدارة 2005 تدعم الفريموورك 2.0 وليس 3.0 جرب تنصيب الفريموورك 2.0 قبل المتابعة هناك مشكل يتعلق ببرمجة أوفيس إن كنت تعمل على نظام 64 بت ( فيستا أو سفن ) وملخصه التالي: مكتبات الأوفيس هي 32 بت لذا عندما تقوم بعمل Compile لمشروعك بالوضع الافتراضي AnyCpu ستحصل معك مشاكل في بعض الأحيان على الأنظمة 64 بت لذا ندخل إلى خصائص MyProject ونعدل خيارات Compile إلى معالج x86 ونعيد ترجمة المشروع عندها سيعمل بنجاح

ممكن عن طريق تجاوز الطريقة Paint للزر ورسم الزر من جديد باستخدام أوامر GDI ابحث في المشاركات القديمة هناك سؤال مماثل قمت بالإجابة عنه موجود فيه مثال بالكود عن هذه الطريقة

''' <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

شكرا لك

شكرا لك بقيت نقطة أخيرة أحتاج لفهمها وهي في معالج الاتصال بشبكة لاسلكية هناك قائمة اختيار مكتوب بجانبها Security Type وفيها عدة خيارات WPA2-Personal أو WEP و خيارات أخرى وهناك أيضا القائمة Encryption Type ممكن أطمع في حصولي على وصف بسيط لهم مشكورا

بإمكانك استخدام تحكم 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

مشكور هل ممكن نعمل ذلك بدون أكسيس بوينت أي نعتبر جهاز Windows 7 هو الرئيسي ونستخدمه بدل أكسيس بوينت وخصوصا أنه من النادر جدا أن نحتاج للاتصال بين الثلاثة أجهزة في نفس الوقت

عدل الكود trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.Start() إلى trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.SetApartmentState(ApartmentState.MTA) trd.Start()

يمكنك ذلك باستخدام Process ID لقتل العملية وليس عن طريق Process Name انظر المرفق يحتوي على برنامج Task Manager متكامل من صنعي وإذا كان لديك أي سؤال حول الأكواد نتكلم بعد استعراضك للكود SimpleTaskManager.rar

لدي ثلاثة أجهزة أريد عمل شبكة لاسلكية بينهم الأول - يعمل بنظام Windows 7 ultimate 64 bit وموصول به كرت شبكة لاسلكي عن طريق USB الثاني - يعمل بنظام Windows XP وموصول به كرت شبكة لاسلكي عن طريق USB الثالث - جهاز بورتابل يعمل بنظام Windows Vista home premium 32 bit وهو يحتوي على كرت شبكة لاسلكي builtin

إن شاء الله