• الإعلانات

    • فيصل الحربي

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

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

zxcqwe

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

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

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

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

1 عادي

عن zxcqwe

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 05/12/1991

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

  • الجنس ذكر
  • الدولة : مصر
  1. وعليكم السلام ورحمة الله وبركاته أخي الكريم/ يمكنك عمل ذلك عن طريق استخدام خاصية TextMatrix للـMSFlexGrid، وذلك كالآتي: MSFlexGrid1.TextMatrix(1, 0) = "softmail8"ولتوضيح ذلك جيداً، بالمرفقات التعديل على برنامجك   أسألك الدعاء. aol.rar
  2. وعليكم السلام ورحمة الله وبركاته أخي الكريم/ يمكنك عمل ذلك عن طريق استخدام خاصية TextMatrix للـMSFlexGrid، وذلك كالآتي: MSFlexGrid1.TextMatrix(1, 0) = "softmail8"ولتوضيح ذلك جيداً، بالمرفقات التعديل على برنامجك   أسألك الدعاء.
  3. وعليكم السلام ورحمة الله وبركاته تفضل أخي إسلام.. Private Sub Command1_Click() Dim X As Integer Dim N As Integer X = 1 'أول قيمة للحلقات التكرارية N = Val(InputBox(" ", "أدخل قيمة N")) Dim I(100) As Integer 'يمكنك زيادة العدد 100 ليعبر عن أقصى قيمة ممكنة للمتغير N Do Until X > N For I(X) = 1 To 20 'استبدل السطر التالي بالحدث الذي تريد تنفيذه في كل حلقة تكرارية Print I(X) Next I(X) X = X + 1 LoopEnd Sub  هذا بافتراض أنك تريد تنفيذ نفس الحدث في كل حلقة تكرارية من الحلقات التي عددها N أما إذا كنت تريد تنفيذ حدث مختلف لكل حلقة تكرارية؛ فيمكنك إضافة بعض التعديلات كالآتي:   Private Sub Command1_Click() Dim X As Integer Dim N As Integer X = 1 'أول قيمة للحلقات التكرارية N = Val(InputBox(" ", "أدخل قيمة N")) Dim I(100) As Integer 'يمكنك زيادة العدد 100 ليعبر عن أقصى قيمة ممكنة للمتغير N Do Until X > N For I(X) = 1 To 20 'هنا سيتم تنفيذ حدث مختلف لكل حلقة تكرارية Select Case X Case 1: Print I(X) Case 2: Print I(X) * 10 Case 3: Print I(X) * 100 ' ' ' ' End Select Next I(X) X = X + 1 LoopEnd Sub  ولكن هنا ستقابلك مشكلة، حيث أنك لا تعرف قيمة N وبالتالي فأنت لا تعرف عدد الحلقات التكرارية حتى تجعل لكل حلقة منها حدثاً خاصاً بها..   ربما لو أخبرتني عمّا تريد أن تفعل بالضبط؛ لاستطعت أن أفيدك أكثر، ولكن سأحاول أن أقترح عليك شيئاً يمكن أن يساعد في هذا الأمر..   في هذه الحالة يمكنك ربط الحدث بقيمة X والذي يعبر عن القيمة الحالية للمتغير N (أو بمعنى آخر هو رقم الحلقة التكرارية الحالي)، وذلك كالآتي:   فلنفترض أنك تريد تنفيذ حدثاً واحداً -كما في الكود الأول- والحدث هو أن تجعل عرض صندوق الصورة (Picture box) يتغير مع الحلقة التكرارية، هنا لا مشكلة ستستخدم الكود الأول، ولكنك ستستبدل جملة ((Print I(X) بـ((Picture1.Width = I(X)..   ولكننا إذا كنا نريد في الحلقة التكرارية الأولى تغيير قيمة Picture1.Width، وفي الحلقة الثانية تغيير قيمة Picture2.Width، ثم Picture3.Width، وهكذا؛ ففي هذه الحالة سنقوم بتعديل بسيط وهو عمل مصفوفة بحيث يكون هناك Index لعنصر صندوق الصورة (Picture box) فبدلاً من أن تكون الصورة الأولى Picture1، والثانية Picture2،..... نجعله كالآتي مثلاً: Pic(1)Pic(2)Pic(3)  في هذه الحالة يمكننا ربط الحدث بقيمة X كما ذكرت، ويكون الكود بالبساطة الآتية : Private Sub Command1_Click() Dim X As Integer Dim N As Integer X = 1 'أول قيمة للحلقات التكرارية N = Val(InputBox(" ", "أدخل قيمة N")) Dim I(100) As Integer 'يمكنك زيادة العدد 100 ليعبر عن أقصى قيمة ممكنة للمتغير N Do Until X > N For I(X) = 1 To 20 'استبدل السطر التالي بالحدث الذي تريد تنفيذه في كل حلقة تكرارية Pic(X).Width = I(X) 'هنا سيتغير عرض صندوق النص الأول في الحلقة التكرارية الأولى والثاني في الحلقة الثانية وهكذا.. Next I(X) X = X + 1 LoopEnd Sub   لعلي أكون وفّقت في إيضاح الأمر بالصورة المناسبة   وأنا هنا في الخدمة إن أردت الاستفسار عن شيء   والسلام عليكم ورحمة الله وبركاته
  4. السلام عليكم ورحمة الله وبركاته ------------------------------------ اسمحوا لي بالدخول مباشرة إلى الموضوع: أنا أستخدم طريقة لتشفير النص بصيغة Hex وسأوضح ذلك بالمثال الآتي: مثلاً النص لدينا هو (A5 B1 E2 E9 AD DD C6 A2 F4 F1) ومفتاح التشفير هو (03 02 01) تقوم الطريقة على أساس إيجاد قيمة البايت الأول من النص XOR البايت الأول من المفتاح، والبايت الثاني من النص XOR البايت الثاني من المفتاح، وهكذا... فتكون النتيجة في هذا المثال كالآتي: البايت الأول = A5   XOR   01 البايت الثاني = B1   XOR   02 البايت الثالث = E2   XOR   03 البايت الرابع = E9   XOR   01 البايت الخامس = AD   XOR   02 وهكذا...   وقمت بعمل الكود الآتي: Public Function HexToString(ByVal HexToStr As String) As String Dim strTemp As String Dim strReturn As String Dim i As Long For i = 1 To Len(HexToStr) Step 3 strTemp = Chr$(Val("&H" & Mid$(HexToStr, i, 2))) strReturn = strReturn & strTemp Next i HexToString = strReturnEnd FunctionPublic Function StringToHex(ByVal StrToHex As String) As String Dim strTemp As String Dim strReturn As String Dim i As Long For i = 1 To Len(StrToHex) strTemp = Hex$(Asc(Mid$(StrToHex, i, 1))) If Len(strTemp) = 1 Then strTemp = "0" & strTemp strReturn = strReturn & Space$(1) & strTemp Next i StringToHex = strReturn StringToHex = Trim$(StringToHex)End FunctionFunction ChkNum(NM As Single, LN As Integer) As Integer If NM = Fix(NM) Then ChkNum = -1 * LN Else ChkNum = 0End FunctionFunction Enc(Str As String, StrKey As String) As String Dim X As Integer Dim M As Integer Dim L As Integer Dim O As Single L = Len(HexToString(StrKey)) For X = 1 To Len(HexToString(Str)) M = Asc(Mid$(HexToString(Str), X, 1)) O = (X Mod L) - ChkNum(X / L, L) Enc = Enc & " " & StringToHex(Chr$(M Xor Asc(Mid$(HexToString(StrKey), O, 1)))) Next X Enc = Trim$(Enc)End Function   حيث أستخدم الدالة ()Enc لعمل ذلك   وحتى الآن لا توجد أي مشكلة بالدالة وتأتي بالنتيجة سليمة مائة بالمائة ولكن المشكلة في الوقت، فعد استخدام الدالة مع نص كبير نسبياً (20 كيلو بايت مثلاً) يأخذ وقتاً طويلاً، في حين أنني أحتاج للحصول على النتيجة بسرعة لأني مرتبط بزمن، وطبعاً هذا الوقت الطويل متوقع مع هذه الدالة لأنه كما ترون فالبرنامج يقوم بأكثر من عملية حسابية على كل بايت على حدة في النص بأكمله   فهل يمكن الحصول على نفس النتيجة ولكن بطريقة أسرع؟؟ وشكراً جزيلاً لكم  
  5. Select Case لمتغيرين

    Private Sub Command1_Click() Select Case Val(Text1.Text) Case Is < 9 If Val(Text2.Text) < 15 Then Text3.Text = "100" Case Is > 9 If Val(Text2.Text) > 15 Then Text3.Text = "200" End Select End Sub أو Private Sub Command1_Click() Select Case Val(Text1.Text) Case Is < 9 And Val(Text2.Text) < 15 Text3.Text = "100" Case Is > 9 And Val(Text2.Text) > 15 Text3.Text = "200" End Select End Sub
  6. السلام عليكم ورحمة الله وبركاته أريد كوداً لإنشاء Broadband connection بطريقة أوتوماتيكية (دون استخدام الويزارد) وذلك بمجرد إدخال اسم المستخدم وكلمة السر الخاصين بالاتصال وأيضاً أريد كوداً للتعديل على اتصال Broadband موجود بالفعل ملحوظة: أريد أن يعمل على كل من (Windows 7, Windows XP) أرجو سرعة التلبية لشدة احتياجي له وشكراً فمثلاً هذا هو البرودباند وطريقة إنشاءه (التقليدية) وكل ما أريد هو أن أصل إلى النتيجة النهائية الموجودة في هذا الفيديو القصير ولكن من برنامجي عن طريق الكود وذلك بكتابة اسم المستخدم (UserName) وكلمة المرور (Password) وشكراً لكم على كل حال
  7. أولاً:تم تعديل السؤال. ثانياً:الموضوع لا يحتاج إلى رفع المشروع فأنا أستخدم نفس الكود الي تستخدمه ولكي تلاحظ المشكلة قم بعمل الآتي: افتح notepad قم بتحويل اللغة إلى العربية قم بكتابة أي نص باللغة العربية ثم قم بتحويل اللغة (لغة الكتابة)إلى الإنجليزية ثم قم بعمل Ctrl+A ثم Ctrl+C لنسخ النص وهكا تكون قد نسخت نصاً عربياً ولكن عندما كانت لغة الكتابة هي الإنجليزية وهنا قم بالذهاب إلى الفيجوال بيسك واستخدم نفس الكود الذي قمت بكتابته سترى أن النص ظهر على شكل علامات استفهام في التكست بوكس
  8. المشكلة بكل بساطة أنه عند عمل نسخ (copy) لنص باللغة العربية في حين أن مؤشر الفأرة يكون مجهز ليكتب بالانجليزية فعند استخدام Clipboard.GetText للصق النص في الفيجوال بيسك فإن النص يظهر بشكل علامات استفهام ؟؟؟؟؟؟؟ ولكن إذا كان النسخ عندما كانت اللغة هي العربية فإن النص يلصق بشكل سليم لقد أرهقني البحث عن حل لهذه المشكلة دون طائل أرجو ممن يملك الحل أن يتكرم بوضعه لأنني أحتاجه بشدة
  9. لقد وقعت في هذه المشكلة من قبل وقد قمت بحلها بطريقة بسيطة لا أعرف إن كان هذا ما تريدأم لا : ضع أداة label واجعل الخاصية caption ="" و الخاصية backstyle=1-transparent (كما يمكن أن تجعل خاصية backcolor مساوية لنفس الخاصية الخاصة بالفورم) وبالتالي فلن يظهر ال label ومن ثم قم بعمل الحدث الذي تريد لل label_click وليس لل line فيعتقد ال user أن الحدث يتم عند الضغط على ال line لأنه لا يرى ال label :P أرجو أن تفيدك هذه الطريقة