السؤال الأسبوعي

السلام عليكم ورحمة الله وبركاته

هذا الكود تبع السؤال الثالث

وللصدق والصراحة مش من عندي

لقيت كود مشابه له في مكتبة الأكواد في المنتدى

وعدلت على الكود الى ماصلح معي

مع اني مش فاهم تمام ايش اللي صار وايش الفكرة

فإذا امكن

عندى كم سؤا ل على الموضوع هذا

هل اقدر استخدم نفس الكود لفتح واغلاق اي برنامج..فأنا جربت على الورد ومانفع

وشغلة ثانية ايش الأستخدامات الثانية اللي ممكن استفيد منها من process

وألف سلام

ملاحظة:

في كود بمكتبة الأكواد يمكن يفيدكم على السؤال الثاني..

وهذا الرابط تبعه

من هنا

طريقة فتح ملف واغلاقة من الدوت.rar

اقتباس

هذا الكود تبع السؤال الثالث

تماماً هو المطلوب، كود جميل جداً

بصراحة، لم أتوقع بأنكم ستحلون سؤالي بتلك الطريقة.. وحتى أبين قصدي ارفق لكم برنامجاً يقوم بفتح ال WordPad ثم يقوم بكتابة رسالة في البرنامج، وبعد ذلك يقوم بحفظ الرسالة على شكل RTF (عن طريق ال WordPad)... وكل ذلك بضغطة زر واحدة....

ملاحظة: قد لا تكتمل كل الخطوات التي ذكرتها أعلاه جميعها في جهازك وذلك يعتمد على سرعة الجهاز وأمور أخرى كثيرة... ولكن حاول القيام بذلك لأكثر من مرة.

هذا هو السؤال الأخير ومشاركتي الأخيرة... وفقكم الله جميعاً

LastQuestion.zip

مشاركتك الأخييييرا فين

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظظظظ

ايش القصد اخ هارون

اخر سؤال ماشي مش مشكلة

بس اخر مشاركة هذي قوية

خلينا عاقلين ...

ان كان احد غلط قول بليز

وان كان شي ثاني كمان قول

كل شي ممكن نناقشه مادمنا اخوان وفي نفس المكان

صح ولا خطأ

مع التحية يا افضل استاذ

وهذي مش كذبه ولا مجاملة

في انتظار مشاركاتك..

....

السلام عليكم

يبدو يا إخواني الأفاضل أن أخانا الكريم هارون يقصد آخر سؤال وآخر مشاركة في هذا الموضوع وليس على الإطلاق

لأ، أنا هنا، أنا هنا... لقد زارني إبليس لمدة ثلاثة أيام وقمت بطرده... لعنة الله عليه.

شكراً يا أعز الأحباب لكلماتكم التي طيّبت خاطري.

حمداً لله على السلامة يا هارووووووووووووووون....

و ربنا يبعد عنا وعنك ابليس اللعين ;)

هااااااااااارررررووووووووووووووووووووووووووووووووون

حقيقي إفتقدتك

و كنت مرعوب ان يكون كلامك عن اخر مشاركه سليم

حمدا لله على عودتك إلينا سالما

الحمد الله على السلامه

شكلك ماقدرت تفارقنا :D

والله يديم الوفاق :rolleyes:

يالله الى حل الأكواد

الأستاذ رجع

ياويلنا :D

لا أعلم ماذا اقول رداً على كلماتكم الرقيقة، بارك الله فيكم جميعاً.

بالنسبة للسؤال الأخير:

بما أن أي برنامج على كمبيوترك تستطيع إستخدامه عن طريق لوحة المفاتيح ودون أن تحرك مؤشر الماوس، فمثلاً برنامج ال Word تستطيع فتحه ثم كتابة صفحة كاملة فيه ثم تغيير الخطوط والألوان...ألخ وبعد ذلك تحفظ الصفحة على جهازك وكل ذلك بإستخدام المفاتيح (لا تستخدم الفأرة على الإطلاق)... فإننا فعلياً نستطيع القيام بكل ذلك عن طريق كلاس واحدة في النت وهي SendKeys.

ها هي ال Solution :

SendKeys.zip

ويبارك فيك ان شاالله

بس هارون الى الحين وانا انتظر لرد على اسئلتي

ممكن لو سمحت طبعا اذا ماكان فيه تعب او بهذله

والسلام ليك

اقتباس

بس هارون الى الحين وانا انتظر لرد على اسئلتي

أي اسئلة تقصد أخي "الدكتور هاي" :D

في المشاركة ماقبل الأخيرة لك

عن السؤال السابق اذا سمحت

وتسلم على اسرع رد حصلت علية في المنتدى

أولاً، بالنسبة لبرنامج ال Word، يجب أن تعلم إسمه التنفيذي (عادة ما تكون أسماء البرامج في أجهزتنا تختلف عن الإسم الذي نعرفه به، فمثلاً برنامج الورد إسمه WINWORD.EXE، ولذلك للتعامل معه يجب أن تتعامل مع إسمه الحقيقي الذي وضعته، ولمعرف إسم أي برنامج تنفيذي قم بالخطوات التالية:

أضغط على Alt+Ctrl+Delete، سيظهر لك Windows task manager، إذهب الى المسطرة المسماة Processes وستجد فيها كل البرامج التي تعمله حالياً على جهازك، لذلك لمعرفة أي برنامج آخر (لا يعمل حاليا) قم بفتحه وأنظر إسمه البروسيس له في ال Windwos task manager (بهذه الطريقة عرفت إسم برنامج ال Word)... حاول الآن أن تفتح الفيجوال ستديو ومعرفة إسمه.

بالنسبة للكلاس Process فهي كلاس واسعة ولا يستطيع أحدنا أن يشرح لك جميع فوائدها، فمن خلال تستطيع التعامل مع البرامج على جهازك وبالشكل الذي يحلو لك، ولكنني سأعطيك فائدتين صغيرتين وأترك لك الباقي للبحث عنه في ال MSDN:

مثلاً، لو أردت أن تشغل صفحة على الإنترنت فإننا نقوم بوضع العنوان على شكل نص بالشكل التالي:

Process.Start("www.geocities.com/haroon68")

وهذا المثال يفتح موقع الشخصي :D ، حاول ان تفتح مواقع أخرى.

ويمكنك أن تفتح ملف بعينه بعدة طرق عن طريق هذه الكلاس، فمثلاً لو كان عندك على ال Desktop ملف نصي بإسم hms.txt فإننا نستطيع فتحه بالطريقة التالية:

Dim Pro As New Process
 Pro.StartInfo.FileName = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\hms.txt"
 Pro.Start()

حاول أن تفتح ال MSDN وابحث عن تلك الكلاس هناك لترى كم هي واسعة.

تسلم هارون

انا بطبعي افتح واقرا

لكن عندي مشكلة عامه بالجهاز انها ماتفتح ملفات الهلب ابدا

الإ في مكانها الإفتراضي

يعني مكانا التحميل

(وصراحة نزلت موضوع في الدعم الفني وإلى الحين مالقيت حل)

عشين كذا مضطر اسأل الى ماأشوف لها حل

والسلام

سأضع سؤال الأسبوع الرابع بعد ان وافق هارون على طلبي بذلك..

الموضوع هذه المرة لن يختبر علمك بالفيبي بل مدى قدراتك كمبرمج ..

الدالة المطلوبة هذه المرة بسيطة و يمكن لأي مبتدئ كتابتها..

الدالة هي : CountOccurrences

Function CountOccurrences(StringToSearch as string,StringToCount as String) as Integer

الدالة تقوم بعد عدد مرات وقوع متغير نصي داخل متغير نصي اخر..

StringToSearch: هو المتغير الذي سيتم البحث خلاله

StringToCount: هو المتغير الذي سيتم البحث عنه و عد عدد مرات وقوعه ضمن StringToSearch

مثال:

اذا كان StringToSearch = "Ahmed Mohammed Ahmed" و StringToCount = "Ahmed" فيكون ناتج استدعاء الدالة هو 2

جميع الحلول المقدمة سيتم اختبارها و الحل الأسرع هو الفائز

السلام عليكم

اخي HMS اذا سمحت اريد السورس كود لـ LastQuestion !!

وشكر لك على مجهوداتك الجبارة وافكارك الهادفه في هذا المنتدى .

السلام عليكم

شوف كده (المرفقات)

وهناك طريقة أخرى - في بالي - لكن أظن هذه أسرع

CountOccurrences.txt

سلام عليكم

ارجو ان يكون هذا احل ضمن المستوى المطلوب (h)

Function CountOccurrences(ByVal StringToSearch As String, ByVal StringToCount As String) As Integer
        If Not StringToSearch.IndexOf(StringToCount) Then
            x += 1
            CountOccurrences(StringToSearch.Remove(StringToSearch.IndexOf(StringToCount), _
            StringToCount.Length), StringToCount)
        End If
        Return x
    End Function

FourQuestion.rar

السلام عليكم

هذا هو حلي مني أليكم :D

  Function CountOccurrences(ByVal StringToSearch As String, ByVal StringToFind As String) As Integer
        Dim I As Integer = 0
        Dim Text() As Object = StringToSearch.Split(" ")
        For I = 0 To Text.GetUpperBound(0)
            If Text(I).ToString = StringToFind.ToString Then
                CountOccurrences += 1
            End If
        Next
    End Function

ما شاء الله على حماس الشباب، طيب لماذا لم أر ذلك الحماس عندما كنت أطرح أسئلتي؟؟؟ :angry:

أعتقد بأن سؤال Undo خير من أسئلتي ويحقق الغاية من "سؤال الإسبوع"، فأنا عندما فكرت في الموضوع في البداية كان غايتي هي طرح سؤال أحصل منه على أكثر من حل وبالتالي نقوم سوية بدراسة الحلول وإختيار أفضلها... بارك الله فيك يا مشرفنا العزيز.

اقتباس

اخي HMS اذا سمحت اريد السورس كود لـ LastQuestion

لقد وضعته أخي Non-top حاول أن تقرأ المشاركة الثامنة بعد المشاركة التي طرحت فيها السؤال وستجد السورس كود كاملاً...

أنا لم أجرب الأكود الذي وضعها الزملاء ولكن أظن الجميع قد تجاهل نقطة مهمة وهي: هل البحث يراعي حالة الأحرف (إن كان النص لاتيني)؟؟؟.

وأيضاً نقطة أخرى لم يوضحها لنا Undo، ماذا لو كان النص الذي نريد البحث عنه موجود في جزء من كلمة، فهو قال (متغير نصي) ولم يقل (كلمة)... فمثلاً هل يوجد النص man في كلمة woman أم لا؟؟

إن أردنا البساطة، وغضينا البصر عن تساؤلاتي، وكذلك إن غضينا البصر عن الأخطاء التي يمكن أن تحدث إن كان أحد النصوص هو Null، فنستطيع أن نكتب الدالة بالشكل التالي:

Function CountOccurrences(ByVal StringToSearch As String, ByVal StringToFind As String) As Integer
        Dim No_Of_Words As Integer
        For X As Integer = 0 To StringToSearch.Length
            If StringToSearch.IndexOf(StringToFind, X) = X Then
                No_Of_Words += 1
            End If
        Next
        Return No_Of_Words
End Function

ونستطيع أن نعطي الخيار بإعتماد حالة الأحرف بهذه الدالة، علماً بأننا يمكننا عملها بصورة أفضل وأسرع عن طريق جعل المعامل الإختياري Text_Search من نوع CompareMethod (وليس عن طريق تحويل حروف النص الذي ننوي البحث فيه الى Upper...)، والدالة هي:

Function CountOccurrences(ByVal StringToSearch As String, ByVal StringToFind As String, Optional ByVal Text_Search As Boolean = True) As Integer
        
If StringToSearch <> "" And StringToFind <> "" Then
            Dim No_Of_Words As Integer
            If Text_Search = True Then
                Dim str1 As String = StringToSearch.ToUpper
                Dim Str2 As String = StringToFind.ToUpper
                For X As Integer = 0 To StringToSearch.Length
                    If str1.IndexOf(Str2, X) = X Then
                        No_Of_Words += 1
                    End If
                Next
            Else
                For X As Integer = 0 To StringToSearch.Length
                    If StringToSearch.IndexOf(StringToFind, X) = X Then
                        No_Of_Words += 1
                    End If
                Next
            End If
            Return No_Of_Words
End If

End Function

ملاحظة (بعد أن قرأت كودي ثانية وأغلقت جهازي الذي عليه برنامج الفيجوال ستديو): يجب أن يكون القيمة القصوى لأي For...Next في الدوال أعلاه أقل من طول النص الذي نريد البحث فيه بمقدار رقم واحد... وإن تركنا الدالة دون ذلك فلا أعتقد بأننا سنحصل على Exception...

السلام عليكم

أخي HMS كلامك لا غبار عليه لكن (انا على الأقل) أجبت على السؤال كما طرح و لم أرد أن أخرج عليه حتى أزيد خصائص أخرى فمثلا بالأضافة لحالة الأحرف و وجود المتغير في متغير يمكن أن نضيف خاصية أخرى و هي أن نعطي المستعمل حق البحث عن كلمات متعددة في نفس الوقت مثلا يدخل Visual Basic Word و يعطيه عدد تكرر كل كلمة و للأسف أنا الآن لست على جهازي لذلك يأحاول أضافة عدد من الخاصيات في البحث و وضع الكود ان شاء الله و شكرا

كلامك سليم أخي الحبيب، ولكن نحن نريد الفائدة ولذلك نطرح عيوب سؤال Undo (بيني وبينك، غايتي فقط هي أن أحرجه :D ).

بالنسبة لكودك فأنا كما أسلفت لم أجربه ولكن لي عليه ملاحظة سريعة، لماذا لا تجعل المصفوفة من نوع String بدلاً من Object؟

محمد النحرواي: من الواضح أن الفيجوال بيسك 6 لا زالت مالئة عليك قلبك....

Non-top ، حرام عليك يا رجل، الموضوع سهل ليش بتعقده بهيك كود.

الآن أرجو أن أسمع إنتقاداتكم لي... ولا تنتظروا Undo ليحكم بيننا، فهو يزور القسم في الشهر مرة، مشغول في المؤتمرات وربطات العنق :rolleyes: ، الله يعينه.

اقتباس

غايتي هي طرح سؤال أحصل منه على أكثر من حل وبالتالي نقوم سوية بدراسة الحلول وإختيار أفضلها

يعني الفكرة فكرتك .. انا طبقتها بس.. و بعدين العملية عملية تغيير يعني المفروض يكون هناك سؤال سهل كل فترة (المقصود بسهل يعني يمكن للجميع المشاركة و ليس المقصود بالسهل ان الجميع يمكنه الفوز)

اقتباس

فمثلاً هل يوجد النص man في كلمة woman أم لا؟؟

نعم يوجد و بلاش تصعبها يا كابتن :mad: و كذلك لا داعي لحكاية الcase insensitive

اقتباس

بيني وبينك، غايتي فقط هي أن أحرجه

ايوة كدة :D :D قول الحقيقة..

سأنتظر يومين اخرين قبل اختبار الجميع و ابلاغكم بالنتائج..

بالمناسبة يا شباب...... الكود المختبر سيتم اختباره بجميع الحالات و منها Nothing كما قال HMS