بدايتك مع عالم البرمجة ,, شرح مفصل لبرمجة آلة حاسبة بواسطة visual basic

[ahmadapril]

أخي الكريم المحترم يرجع لك الفضل لكونك دفعتني الى ان اهتم بعالم البرمجة حيت مباشرة بعض
التطلع الى موضوعك سرعت الى تحميل البرنامج ولكن بالفرنسية وصبحت اجتهد في درس البرمجة
ملاحضة : بعد اجتهادي وبحتى في مختلف المنتديات عبر شبكة النت استنتجت مع كامل احترماتي
لك ان البرمجة التى قدمت فيها عيب في عملية القسمة لكون ان القسمة على 0 لا معنا لها وبالتالي
يكون الكود في برمجتك لعملية القسمة غير صحيح و دليل عاى دالك هو :

وبعد ااجتهادي توصلت الى الكود الصحيح الخاص بالقسمة وطبقته على عملية القسمة فقط وكانت
النتيجة كالتالي :

انا لا اعاتبك يا استادي ولكن بهده الطريقة تفيدنى وافيدك وفي الختام سوف اعطيك الكود الخاص بالقسمة وشكراا

الفضل لله أولاً وأخيراً أخي الحبيب ,,

وبصراحة انا لم انتبه لموضوع القسمة على صفر (جل من لا يسهو .. :b

ولكن الحل بسيط جداً ,,

في كود زر القسمة نستعمل جملة IF فيصبح كالتالي

Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox2.Text = 0 Then
            TextBox3.Text = ""
            MsgBox("لا يمكن القسمة على صفر")
        End If
        If TextBox2.Text <> 0 Then
            TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
        End If
    End Sub

وهذه صورة

وتفضل رابط الآلة بعد التعديل

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

وتحياتي لك يا غالي :king:

 

[ahmadapril]

ونسيت أن أشكرك أخي الحبيب الغالي حسن على ما قدمته من نقد بناء وفكرة تساهم في تقدمنا جميعاً :king:

جزاك الله كل خير يا غالي ,, بالفعل الهدف من الموضوع هو النقاش البناء حتى يستطيع كل واحد منا التغلب على عيوب برنامجه ,, وبالتالي الارتقاء نحو الافضل ,,

بالتوفيق يا غالي ,, وأي ملاحظة جديدة لا تتردد ،، k:​

 

[hassan002]

ونسيت أن أشكرك أخي الحبيب الغالي حسن على ما قدمته من نقد بناء وفكرة تساهم في تقدمنا جميعاً :king:​

جزاك الله كل خير يا غالي ,, بالفعل الهدف من الموضوع هو النقاش البناء حتى يستطيع كل واحد منا التغلب على عيوب برنامجه ,, وبالتالي الارتقاء نحو الافضل ,, ​

بالتوفيق يا غالي ,, وأي ملاحظة جديدة لا تتردد ،، k:​

اشكركك يا اخي التعاون هو افضل وسيلة النجاح واتمنى لك النجاح

 

[samoraaa123]

الله يعافيك أخي الكريم .. ​

بصراحة ,, تعجبت من هذه الجملة !!!​

أولاً .. الأمور نسبية ،، (ما هو قديم بالنسبة لك قد يكون جديد بالنسبة لغيرك) .. ​

ثانياً .. يرجى اعادة قراءة العنوان لتصل الفكرة المقصودة من الموضوع ​

وكما تعرف أخي ،، .. مشوار الألف ميل يبدأ بخطوة .. ​

أو بمعنى آخر .. من أراد أن يصعد السلم فعليه بالدرجة الاولى ثم الثانية وهكذا ​

وقياساً على ذلك ,, فمن يريد البدء بتعلم البرمجة فليس من المنطق أن يبدأ تعلمه ببرمجة نظام تشغيل ينافس الوندوز :d::d::d::d:​

بارك الله فيك اخي الكريم
انا عندي شغل VB جامد جدا
لكني الان لست متفرغ له
الان انا متفرغ لل 3D Max
ولا تؤاخذني من كلمه قديمه :b:
انا ممكن اجبلك مشاريع ضخمه واكواد رائعه لو حبيت يعني
موفق :king:

 

[ahmadapril]

بارك الله فيك اخي الكريم
انا عندي شغل VB جامد جدا
لكني الان لست متفرغ له
الان انا متفرغ لل 3D Max
ولا تؤاخذني من كلمه قديمه :b:
انا ممكن اجبلك مشاريع ضخمه واكواد رائعه لو حبيت يعني
موفق :king:

جزاك الله كل خير على تعاونك أخي الحبيب ،،

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

بالنسبة لي حالياً اعرف :-

1 - اكواد العمليات الحسابية

2 - اكواد انشاء او تعديل قيمة او مفتاح رجستري او حذفه

3 - اكواد الجمل المشهورة مثل IF و FOR وما الى ذلك

4 - اكواد تشغيل بعض التطبيقات ضمن بيئة برنامج VB مثل انترنت اكسبلورر ووندوز ميديا بلير


,,,

اذا كان لديك اكواد اخرى يا غالي فأتمنى ان تعطينا اياها

(اعطينا الأكواد فقط ,,,
اما من حيث الأفكار البرمجية وطبيعة عمل البرنامج لازم الواحد يبدع بنفسه :d



تحياتي لك ,, مع الشكر والتقدير

 

[Corporation]

بارك الله فيكم أحبـآئي ..

بس اللي أستغربت منه أنه في لغة الفيجوآل تعريف المتغير(الرقم) يكون بـ text

لأني أدرس الـ ++C ويتعبر الرقم متغير صحيح --> intger

وايضاً مـآذا لو قمنـآ بـ أدخال رقم بـ السآلب :d:

أو رقم عشري ... Etc

على العموم يعطيك العافية ..

وياليت يـآغالي تجيب لنـآ مكتبة Msdn --> ليكتمل البرنآمج والمكآتب اللي فية ,,

بوركت ..

​

 

[عبد الرحمن المعقلي]

شكرا على المشاركه الجميله جزاكالله خير

 

[ahmadapril]

بارك الله فيكم أحبـآئي ..​

بس اللي أستغربت منه أنه في لغة الفيجوآل تعريف المتغير(الرقم) يكون بـ text​

لأني أدرس الـ ++C ويتعبر الرقم متغير صحيح --> intger​

وايضاً مـآذا لو قمنـآ بـ أدخال رقم بـ السآلب :d:​

أو رقم عشري ... Etc​

على العموم يعطيك العافية ..​

وياليت يـآغالي تجيب لنـآ مكتبة Msdn --> ليكتمل البرنآمج والمكآتب اللي فية ,,​

بوركت ..​

حياك الله أخي الحبيب ،، k:

أيضاً في VB يمكن استخدام Integer

مثلاً

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As Integer
s = 5
TextBox1.Text = s
End Sub

هذا الكود عند تنفيذه يعطينا ما يلي

وبإذن الله يا غالي سيكون هناك دروس قادمة ومواضيع وشروحات وتطبيقات ووو ....... (كيف بدنا نحفظهم ههههههههههههه :d​

ستكون هذه بعد نهاية الامتحانات عندي بإذن الله ​

 

[ahmadapril]

شكرا على المشاركه الجميله جزاكالله خير

العفو يا غالي ،، حياك الله ،، نورت الموضوع k:

 

[LoOoZ]

وفقك الله​

 

[ahmadapril]

​

وفقك الله​

أشكرك يا غالي على الدعاء

وأسأل الله ان يوفقك ويوفقنا جميعاً

تحياتي لك

​

 

[ksa.502]

يعطيك الف عافية. جار تحميل البرنامج و تطبيق الشرح.بانتظار المزيد


10\10

تحياتي لك

 

[hassan002]

وسام : شكر
اخي اشكرك كتيرا على موضوعك الهائل .بصراحة مند تطلعي على موضوعك
ابتليت بعالم فيجوال بيزك كتيرا الى درجة قصيرة اجتهتد كتيرا في هدا العالم السحري
وهدا بطبعية الحال يرجع الفضل اليك لكوني كنت اعاني من الملل وكنت اجهل هدا العالم التقافي و لكوني مدرس لمادة الرياضيات الهمني هدا العالم السحري .وامنيتي ان يكون لنا ركن في هدا المنتدى خاص بهدا العالم نستفيد منه جميعا.
مع تحياتى الاخ أحمد من أخوك hassan002 حسن من المغرب

اشكررك كتيرا

 

[ahmadapril]

يعطيك الف عافية. جار تحميل البرنامج و تطبيق الشرح.بانتظار المزيد


10\10

تحياتي لك

الله يعافيك ياغالي k:

 

[ahmadapril]

وسام : شكر
اخي اشكرك كتيرا على موضوعك الهائل .بصراحة مند تطلعي على موضوعك
ابتليت بعالم فيجوال بيزك كتيرا الى درجة قصيرة اجتهتد كتيرا في هدا العالم السحري
وهدا بطبعية الحال يرجع الفضل اليك لكوني كنت اعاني من الملل وكنت اجهل هدا العالم التقافي و لكوني مدرس لمادة الرياضيات الهمني هدا العالم السحري .وامنيتي ان يكون لنا ركن في هدا المنتدى خاص بهدا العالم نستفيد منه جميعا.
مع تحياتى الاخ أحمد من أخوك hassan002 حسن من المغرب

اشكررك كتيرا

فعلاً اخي الحبيب ،، كلامك هذا وسام أعتز به وأفتخر ,, بارك الله فيك اخي الحبيب ،،:king:

 

[الليث الضارب]

بارك الله فيك ياغالي وجزاك الله خير ,,
إبداع بمعنى الكلمة ,,
تم التقييم الشخصي + الموضوع ,,
بأنتظار الدروس القادمة
لك أجمل تحية ,,

 

[mr.3bode]

شدني الموضوع وبشدة

وحقيقة انا ابحث عن مثل هذه الدروس الجميله والبسيطة ولقيتها هنا

علماص بان الفيجوال بيسك كنت محتار اي نسخة اركب لكن وجدت الحل ولقيت المناسب عندك

لك احلى 5 نجوم + تقييم

 

[ABDOO_SKY]

السلام عليكم اخي متى ستضع لنا شرح الالة التي مثل الة الويندوز

 

[محمد الغالي]

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

المهم اخوي انا طبقت شرحك ومثل ماقلت لكن المشكة لمن اجي افتحها ماتفتح مادري الخلل من عندي والا لا.؟؟؟
ومن

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

الحاسبة اللي سويتها بانتظارك يالغالي...

 

[ابوعيون]

اشكرك على فتح موضوع مميز ومفيد وعسى ان يثيبك الله