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

[ahmadapril]

تم التواصل معك أخي الحبيب كامل .. :king:​

 

[السينتور]

الله يعافيك يا غالي ... وأشكرك على الكلام الطيب ...

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

لإنها معلومة واحدة فقط :d:

وهي أنه في 2008 نضع امتداد الأداة أما في 6 فلا نضعه ... <<< طبعاً الكلام مش واضح ,, أعرف ههههه :d:

مش مشكلة ,,, الان سنوضح بمثال ..

في 6 كنا نكتب كود جمع رقمين كما يلي

كود PHP:

Textbox3= val(textbox1)+ val(textbox2)
​

اما في 2008 فقد أصبح الكود كالتالي


كود PHP:

textbox3.text= val(textbox1.text)+ val(textbox2.text)
​

(لاحظ وجود الإمتداد (text.) في 2008 بينما هو غير موجود في 6)


هذا ما اعرفه بشكل عام .


واذا كان لديك كود تريد ان نتساعد في معرفة الصيغة الصحيحة له ,, تفضل اطرحه وان شاء الله خير


​

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

اشكرك بقوووة اخوي احمد والله يزيدك في علمك يارب ويفتح لك ابواب رحمة يارب
ومشكوررر على المعلومة الجميلة ياجمييل k:
وكثر الله من امثالك

وتابع ابداعك اخوي والله يسهل امورك كلها يارب ويوفقك في دراستك
اما بالنسبة للاكواد فليس لدي اي معلومة في الفيجوال 2008
ولكن سوف ابدء بتعلمها عند الانتهاء من تعلم برمجة قواعد البيانات اوراكل :d:
طبعاً سوف اتابع دروسك واحد تلو الاخر

لكن لدي اقتراح وهو عمل موضوع خاص بالدروس حتى يسهل على الاعضاء الوصل
الى هذة الدروس بكل سهولة ويسر وبالترتيب ايظاً

 

[ahmadapril]

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

اشكرك بقوووة اخوي احمد والله يزيدك في علمك يارب ويفتح لك ابواب رحمة يارب
ومشكوررر على المعلومة الجميلة ياجمييل k:
وكثر الله من امثالك

وتابع ابداعك اخوي والله يسهل امورك كلها يارب ويوفقك في دراستك
اما بالنسبة للاكواد فليس لدي اي معلومة في الفيجوال 2008
ولكن سوف ابدء بتعلمها عند الانتهاء من تعلم برمجة قواعد البيانات اوراكل :d:
طبعاً سوف اتابع دروسك واحد تلو الاخر

لكن لدي اقتراح وهو عمل موضوع خاص بالدروس حتى يسهل على الاعضاء الوصل
الى هذة الدروس بكل سهولة ويسر وبالترتيب ايظاً

وعليكم السلام ورحمة الله وبركاته
لا شكر على واجب يا غالي ... وأشكرك جزيل الشكر على الدعاء واسأل الله ان يجزيك عليه خير الجزاء
k:

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

أما الإقتراح فهو مفيد ورائع .. لكن هناك مشكلة تحول دون تطبيقه .. وهي ان العضو
لا يملك صلاحية تحرير مواضيعه بعد اكثر من 10 ايام

ولتعديل الفهرس لا بد من تحرير الموضوع ​

 

[Microsoft]

5/5
مشاء الله شرح مبسط الله يعطيك العافيه
ياليت مستقبلا تفصل اكثر بالبرنامج وبنفس الشرح
الله يقويك استاذي

 

[ahmadapril]

5/5
مشاء الله شرح مبسط الله يعطيك العافيه
ياليت مستقبلا تفصل اكثر بالبرنامج وبنفس الشرح
الله يقويك استاذي

جزاك الله كل خير على الدعاء .. وفتح عليك أبواب الرحمة والرزق ...

بإذن الله سيكون هناك المزيد من الشروحات عند عودتي للمنتدى (بعد الإمتحانات)
​

 

[ahmadapril]

وهذه آلة حاسبة عملتها بنفس مبدأ آلة مايكروسوفت
(إدخال الأرقام والنتيجة يظهران في نفس الخانة)

هي أقل كفاءة من آلة مايكروسوفت الموجودة في الوندوز ..
لكن ان شاء الله مستقبلاً سأعمل على تطويرها والشرح إن أمكن

التحميل ..

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

​

 

[فارس زمانه]

الله يعطيك الف عااافية أخوي
ياليت فضلاً ، التقاط صورة بعد وضع جميع الأكواد .؟

بالنسبة للدروس فسوف نتابعها ان شاء الله بعد انتهاء الامتحانات

k:

 

[ahmadapril]

الله يعطيك الف عااافية أخوي
ياليت فضلاً ، التقاط صورة بعد وضع جميع الأكواد .؟




k:

تفضل اخي العزيز ,, هذا هو الكود

(طبعاً يجب ان يكون هناك ايضاً textbox 2 و 3 و 4 غير ظاهرة -- ولكنها مستعملة ضمن الكود--)

Public Class Form1
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        MsgBox("Good Luck ... Program made by ahmadapril @ www.zyzoom.org/vb")
        End
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Text = 0
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 8
        TextBox1.Text = (TextBox1.Text) + (TextBox2.Text)
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 7
        TextBox1.Text = (TextBox1.Text) + (TextBox2.Text)
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 6
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 5
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 4
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 3
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox4.Text = 4
        TextBox2.Text = 0
        TextBox3.Text = Val(TextBox1.Text)
    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox4.Text = 3
        TextBox2.Text = 0
        TextBox3.Text = Val(TextBox1.Text)
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox4.Text = 2
        TextBox2.Text = 0
        TextBox3.Text = Val(TextBox1.Text)
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox4.Text = 1
        TextBox2.Text = 0
        TextBox3.Text = Val(TextBox1.Text)
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 1
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 2
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 9
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If TextBox2.Text = 0 Then
            TextBox1.Text = ""
        End If
        TextBox2.Text = 0
        TextBox1.Text = (TextBox1.Text + TextBox2.Text)
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox5.Text = 5
        TextBox1.Text = (TextBox1.Text) + "."
    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If TextBox4.Text = 1 Then
            TextBox1.Text = Val(TextBox3.Text) + Val(TextBox1.Text)
        End If
        If TextBox4.Text = 2 Then
            TextBox1.Text = Val(TextBox3.Text) - Val(TextBox1.Text)
        End If
        If TextBox4.Text = 3 Then
            TextBox1.Text = Val(TextBox3.Text) * Val(TextBox1.Text)
        End If
        If TextBox4.Text = 4 Then
            TextBox1.Text = Val(TextBox3.Text) / Val(TextBox1.Text)
        End If
    End Sub
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        TextBox1.Text = ""
    End Sub
End Class

 

[ahmadapril]

طبعاً اخي الغالي انا نسخت الكود ولصقته للسرعة .. وأظن يؤدي ما نريد .. وهو نقل المعلومات ​

 

[ABDOO_SKY]

رد

أنا أيضا عملت آلة حاسبة باستخدام فيجوال بيسك 6 منذ فترة واريد ان تعطوني رايكم فيها

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

 

[فارس الملاك]

بارك الله فيك عزيزي

​

 

[ahmadapril]

أنا أيضا عملت آلة حاسبة باستخدام فيجوال بيسك 6 منذ فترة واريد ان تعطوني رايكم فيها

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

ما شاء الله ,, برنامج رائع أخي الحبيب ..

سأحاول الان عمل واحد يقوم بنفس المهام .. << تقليد :d::d::d:​

 

[ahmadapril]

بارك الله فيك عزيزي​

حياك الله .. نورت الموضوع .. k:​

 

[ahmadapril]

تمت برمجة البرنامج ( لحساب الحجوم والمساحات ) ...

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

وهذا برنامج اخر كنت عامله سابقاً ويخص مجال الرياضيات أيضاً

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

 

[فدى الرسول]

يا غالى ما نوع البرنامج الناتج exe ولا امتداد اخر وهل يمكن تغيير الايقونه ؟؟؟

 

[ahmadapril]

يا غالى ما نوع البرنامج الناتج exe ولا امتداد اخر وهل يمكن تغيير الايقونه ؟؟؟

هلا بالغالي ,,

نعم ,, البرنامج الناتج امتداده exe

ويمكن تغيير الأيقونة

انظر الى البرنامج هنا

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

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

والايقونة الخاصة به كالتالي

​

 

[MAGIDCO]

كل الود والتقدير

ممتاز يالغلاااا

الله يعطيك العافية يا بعدي ,,

تقبل مروري وفائق ودي وإحترامي

 

[ahmadapril]

كل الود والتقدير​

ممتاز يالغلاااا​

الله يعطيك العافية يا بعدي ,,​

تقبل مروري وفائق ودي وإحترامي​

بارك الله فيك يا غالي . على هذا الكلام الطيب .. k:​

 

[Microsoft]

جزاك الله كل خير على الدعاء .. وفتح عليك أبواب الرحمة والرزق ...

بإذن الله سيكون هناك المزيد من الشروحات عند عودتي للمنتدى (بعد الإمتحانات)
​

الله يوفقك بالامتحانات وننتظرك اخي الكريم

 

[ahmadapril]

الله يوفقك بالامتحانات وننتظرك اخي الكريم

شكراً على الدعاء يا غالي ...

وأسأل الله أن يوفقك في جميع أمور حياتك ،،

​