أهل صيــــــدا
 
الرئيسيةمكتبة الصورس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول
المواضيع الأخيرة
» اب ترحييييب حااار
الإثنين يوليو 14, 2008 9:11 pm من طرف banoota

» بلوووووووووووووووووك
الأحد يونيو 15, 2008 12:17 pm من طرف hisham anis

» ادخل من هنا على msn
الأربعاء يونيو 11, 2008 12:33 pm من طرف سعودي مخلص للبنان

» أمريكي تزوج خليجية
الخميس يونيو 05, 2008 8:08 pm من طرف hisham anis

» شوفو الانجليزي شوسهل
الخميس يونيو 05, 2008 8:05 pm من طرف hisham anis

» شات علك بنات
الخميس يونيو 05, 2008 7:09 am من طرف hisham anis

» ريح العطنطر
الخميس يونيو 05, 2008 7:07 am من طرف hisham anis

» قتيل بقرو
الخميس يونيو 05, 2008 7:06 am من طرف hisham anis

» شات لبنان
الخميس يونيو 05, 2008 7:02 am من طرف hisham anis

» للدعم الفني
الخميس يونيو 05, 2008 6:54 am من طرف hisham anis

» ....................
الخميس يونيو 05, 2008 6:14 am من طرف hisham anis

» رسائل جوال 1
الخميس مايو 29, 2008 6:31 am من طرف hisham anis

» شيء غريب
الثلاثاء مايو 27, 2008 1:36 pm من طرف hisham anis

» عسى ما نست
الخميس مايو 22, 2008 6:54 am من طرف hisham anis

» خطوبة
الخميس مايو 22, 2008 6:52 am من طرف hisham anis

» رنين الأحزان
الخميس مايو 22, 2008 6:52 am من طرف hisham anis

» أم المشاكل
الخميس مايو 22, 2008 6:51 am من طرف hisham anis

» خراط ...............
الخميس مايو 22, 2008 6:50 am من طرف hisham anis

» عروبة
الخميس مايو 22, 2008 6:49 am من طرف hisham anis

» تحريك جو
الخميس مايو 22, 2008 6:48 am من طرف hisham anis

» الشغالة
الخميس مايو 22, 2008 6:48 am من طرف hisham anis

» بسرعة
الخميس مايو 22, 2008 6:47 am من طرف hisham anis

» تضامن شديد
الخميس مايو 22, 2008 6:46 am من طرف hisham anis

» الصدق والأمانة
الخميس مايو 22, 2008 6:45 am من طرف hisham anis

» معازلجي
الخميس مايو 22, 2008 6:44 am من طرف hisham anis

» قطار اموت
الخميس مايو 22, 2008 6:33 am من طرف hisham anis

» قتيل بقرو
الخميس مايو 22, 2008 6:31 am من طرف hisham anis

» ريح العطنطر
الخميس مايو 22, 2008 6:29 am من طرف hisham anis

» العود لامنه
الخميس مايو 22, 2008 6:28 am من طرف hisham anis

» لعن الله
الخميس مايو 22, 2008 6:27 am من طرف hisham anis

الإبحار
 البوابة
 الفهرس
 قائمة الاعضاء
 البيانات الشخصية
 س .و .ج
 ابحـث
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
أفضل 10 أعضاء في هذا المنتدى
hisham anis
 
max
 
سعودي مخلص للبنان
 
banoota
 
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المتواجدون الآن ؟
ككل هناك 1 عُضو حالياً في هذا المنتدى :: 0 عضو مُسجل, 0 عُضو مُختفي و 1 زائر

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 6 بتاريخ السبت ديسمبر 14, 2013 9:32 pm
تصويت

شاطر | 
 

 طريقه عمل اله حاسبه

اذهب الى الأسفل 
كاتب الموضوعرسالة
hisham anis
Admin
avatar

عدد الرسائل : 282
الموقع : evils saida
تاريخ التسجيل : 22/04/2008

مُساهمةموضوع: طريقه عمل اله حاسبه   الثلاثاء مايو 13, 2008 1:41 pm

طريقه عمل اله حاسبه للفيجوال بيسك








~*¤ô§ô¤*~كــيفكم اخباركم إن شــاء اللـه الأمور كلها تمام التمام بفضل الله سبحانه وتعالى ~*¤ô§ô¤*~






درس اليوم : راح نصمم آلة حاسبة بإذن الله تعالى مع تركيب skin مما يحسن الشكل او المظهر الخارجي لأي برنامج مع طريقة تركيبه + مجموعة اشكال جميلة


بـ ع ـد ان عرفنا ما سنقوم به الآن



`·.¸¸.·¯`··._.· (هيـآآآ إلى العمل) ·._.··`¯·.¸¸.·`


أولا :- نروح نفتح برنامج الفيجوال بيسك




طبعا بعتقد ان مافيه اي تعقيدات بالصورة

1- إبدأ

2- كافة البرامج

3- Microsoft Visual Studio 6.0

4- Microsoft Visual Basic 6.0

كل شيء واضح

تابع الصورة التالية





إلى الآن لا توجد تعقيدات

عند فتح البرنامج ستظهر تلك النافذة الموجودة بالصورة

ونضغط على Standard دبل كلك

او نضغط عليها مرة وحدة ثم نضغط open ( فتح )


يتبع .....





مثل ما انت شايف بالصورة ان هذا المربع هو المشروع إلي بنعمل فيه

ونبدأ الآن بـ اول الخطوات ....

1- نقوم بتغير الإسم from إلى اسم البرنامج مثلا او شيء انت تريد كتابته

يتـــبع










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

روح عند الخيار caption

ثم اكتب ماشئت

لكن يمكن الحين يدور سؤال في ذهنك

ابغى اخلي الإسم يكون في جهة اليمين مو اليسار

تابع الصورة وراح تفهم إن شاء الله تعالى






روح عند الخيار Righ To L e f t ( ملاحظة انا كتبت L e f t هكذا وهي بالأساس بدون مسافات لكن لو كتبتها بدون مسافات راح تكون نجوم مثل كذا **** لإن المنتدى مشفر هذه الكلمة على العموم نكمل )

واضغط على السهم الصغير

وراح تشوف خيارين

1- True

False - 2

الخيار الأول True سيجعل الكلمة التي كتبناهاآ في جهة اليمين

الخيار الثاني False سيجعل الكتابة التي كتبناهآ في جهة اليسار


الآن سوف نقوم بتكبير المشروع قليلا ويكون على حسب المشروع إلي تبغى تسويه

لكن حنا مادام راح نعمل آلة حاسبة ما راح يكون كبير

وتقدر تخليه على مزاجك وتغير كل شيء على كيفك



تآآآبع

’’’’






مثل ما انت شايف بالصورة

من خلال هذي المقابس ( إلي لونها ازرق ) تقدر تكبر او تصغر المشروع

------------------------------------------------------------------------------------------------------

الآن راح نبدأ بالعمل في المشروع


........

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

الأداة الأولى إلي راح نستخدمها

Command Button

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

الأداة الثانية

Text Box

وظيفة هالأداة كمان إلي راح يفتح البرنامج بعد الإنتهاء منه بإمكانه ادخال البيانات من هذه الأداة !!

اوضح اكثر

حنا بالدرس قلنا إننا راح نصمم آلة حاسبة مو .؟!

علشان نعمل آلة حاسبة

لازم نتيح للمستخدم ادخال الأرقام إلي يبغى يطرحها او يقسمها او يضربها او يجمعها

وهذي الأداة إلي بتقوم بالواجب

اتمنى ان الكل فهمني

لكن بعد التطبيق راح تفهم اكثر


¨°•√♥ الآن نقوم نقوم بوضع الأزرار والتكست بوكس في المشروع ♥√•°¨





كل شيء واضح

إلي محدد باللون الأحمر كيف سويناه ؟

بإستخدام الأداة Command Button

إلي محدد باللون الأزرق كيف سويناه ؟


بإستخدام الأداة Text Box

الآن مرة ثانية يمكن يجي سؤال بـ اذهان إلي مركزين معاااي

حنا هدفنا إننا نقوم بصنع آلة حاسبة

و وضعنا اربعة ازرار ألا وهي ان كل زر سيحمل كود برمجي مع تغير الإسم ( جمع - طرح - قسمة - ضرب )

لكن المربعين الي باليسار ( إلي فوق ) هذول بيكون إلي بيستخدم البرنامج راح يضع الرقمين إلي يبغى يطبق عليهم العملية الحسابية

والمربع إلي تحت من جهة اليسار راح يظهر فيه الناتج !!

السؤال هنا ...

ليه ما نكتب بإستخدام الأداة Label النتيجة او الناتج في المكان الفارغ !

صورة توضيحية لهالمكان





الجواب

هو ان حنا فيما بعد راح نركب skin و الـskin ما راح يطلع الكلام المكتوب بالأداة ليبل ( عند تركيب الskin راح تظهر معه اداة اخرى نستطيع بها الكتابة )

لكن لو ما بنركب skin بإمكاننا الكتابة بهذه الأداة Lable



نكمل ::..

الآن سوف نقوم بتغير اسم

Comman1 إلى إجمع

Command2 إلى إطرح

Command3 إلى إضرب

Command4 إلى إقسم

كيف نغير اسمائهم؟!


نقوم بالضغط على الزر Command1 ضغطة واحد

ثم تروح للـ Caption وتحذف المكتوب وتكتب إجمع


¨°o.O (صــــــــــــــورة توضيحيـــــــــــــة) O.o°¨





وتعمل بنفس الطريقة مع الأزرار الأخرى

وستحصل على النتيجة التالية






^

على فكرة مو شرط ترتب الآلة الحاسبة بهالترتيب

بـ إمكانك تغير الترتيب هذا

بوضع الأزرار مثلا في جهة اخرى او اضافة اشياء اخرى ( تطويـر )

بعتقد الآن ما بقى شيء وننتهي من تصميم الآلة

الآن ما سوف نقوم به هو برمجة الأكواد

اضغط على دبل كلك على الزر

" اجمع "

ستظهر لك مثل هذه الناافذة




هذا الكود

كود:
Private Sub Command1_Click()

End Sub

يظهر عند برمجة اي شيء !!

نشرـرح لكم معنى هذا الكود


اقتباس:

الآن تعال نلاحظ ماذا تعني السطور السابقة:
• الكلمة Private تعني أن الجزء التالي سيعمل من خلال الفورم فقط ولن يعمل من خلال الفورم الأخرى ... ولكي تجعل الإجراء عاما أي يعمل من خلال أي جزء في البرنامج استبدل الكلمة Private.
• الكلمة Sub تعني أن الجزء المحصور بين كلمتي Sub و End Sub عبارة عن مقطع برمجي متكامل ... ولا يتجزأ.
• الكلمة Command1 تعني أن المقطع التالي هو إجراء خاص بالكائن الذي إسمه Command1 وهو زر الأمر الذي أسميـته بهذا الإسم.
• الكلمة Click تعني أن هذا الإجراء سيتم تنفيذه في حالة الحدث Click ومجموع الكلمتين Command1_Click تعني أن هذا الإجراء يعمل من خلال الحدث Click فوق زر الأمرCommand1.
• الكلمة End Sub تعني أن المقطع (الإجراء) قد انتهى.
مقتبسة من احد الأعضاء

اوك بعد ان ضغطنا على الزر إجمع سوف نضع هذا الكود


كود:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
صورة توضيحية




الآن بشرح الكود على حسب علمي

اولا حنا وضعنا من الأداة Text Box ثلاث مربعات

المربع الأول و الثاني < هم العددين إلي راح نضع فيهم الأرقام لنطبق العملية الحسابية

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

إذا نأتي لشرح الكود

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

الكود لو بشرحه بالكلام

هو ان

المربع Text3.text

يساوي

مجموع العددين Text1.text

+

Text2.text

بتمنى الكل فهم

طيب الحين نروح لزر الطرح

ونضغط دبل كلك

وانت إلي بتضع الكود بنفس الطريقة

لاحظ كود الجمع


كود:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
لو غيرنا علامة ( + ) إلى ناقص ( - )

بيكون مثل كذا


كود:
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
والآن كـ أننا نقول

ان التكست بوكس 3

يساوي

طرح العددين إلي بالتكست بوكس 1 و 2

>>

صورة اخرى توضيحية




الآن يتسنى لنا كود زر الضرب والقسمة

وانت راح تضعه بنفس الطريقة لكن مع تغيير الإشارة فقط

حيث الضرب علامة النجمة > *

والقسمة /

الآن اضغط F5 او هذا الزر




والأن إلي عملناه هو تجربة البرنامج

والآن قم بوضع الرقمين في التكست بوكس1 و 2

وانا وضعت في التكسبت بوكس 1 رقم 5 و تكست بوكس 2 ايظاً رقم 5

ثم جرب بنفسك وإضغط على إجمع

سترى ان الناتج يكون في التكست بوكس 3





ولو جربت ايظاً بالطرح او الضرب او القسمة كلو برضو الناتج صحيح

الآن اضغط هذا الزر لنكمل تعديلنا على البرنامج ( المشروع )




الآن ما سنقوم به هو حذف كلمة text1 و text2 و text3

حتى لا تشوه من شكل البرنامج

اوك الآن نضغط على التكست بوكس Text1 ونقوم بحذف الكلمة بالطريقة التالية




وايظاً مو شرط تحذفه وتجعلها فارغة لكي المستخدم للبرنامج يضع الأرقام

ربما انت تضع (( ضع الرقم الأول هنا ))

وانت براحتك

لكن احب اوضح شيء انتبه تحذف كلمة text1 من هالمكان




اتمنى انكم فهمتو

وطبعاً بنفس الطريقة نقوم بحذف tex2 و tex3

صورة البرنامج بعد حذفهم




او بـ إمكانك كتابة ما شئت كــ هكذا




وطبعا كبرت حجم التكست بوكس من ناحية اليمين ( من المقابس طبعاً )

علشان يكون كافي للجملة إلي بكتبها

الآن شنو باقي حبايبي قلبي ,.



8


8


!~¤§¦ ترـركـــــيب الـ Skin ¦§¤~!


يتبع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://saidawi2.yoo7.com
 
طريقه عمل اله حاسبه
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
صيداوي ما يهاب الموت صيداوي صيداوي كرمال الدين صيداوي :: أهـــــــــــــــــــــــــــــــــــــــــــــــــــل صيـــــــــــــــــــــــــــــــــــــــــــــــــــدا :: الكمبيوتر :: الفيجوال بيسك-
انتقل الى: