المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ₪ Project للمبتدئين في visual basic 6 ₪


N E O
11-05-2005, 06:21 PM
.: بسم الله الرحمن الرحيم :.
السلام عليكم ورحمة الله تعالى وبركاته


هذا أول موضوع لي في منتدى البرمجة وانشاء الله أفيد وأستفيد

Project للمبتدئين في visual basic 6
هذا البرنامج قمت بتصميمه بنفسي واتمنى ان يحوز على اعجابكم, سيضم البرنامج 5 forms وهذا هو شكل البرنامج الأساسي


.: بسم الله الرحمن الرحيم :.
السلام عليكم ورحمة الله تعالى وبركاته


هذا أول موضوع لي في منتدى البرمجة وانشاء الله أفيد وأستفيد

Project للمبتدئين في visual basic 6
هذا البرنامج قمت بتصميمه بنفسي واتمنى ان يحوز على اعجابكم, سيضم البرنامج 5 forms وهذا هو شكل البرنامج الأساسي


http://hamoood2002.jeeran.com/forums/general.jpg
http://hamoood2002.jeeran.com/forums/force.jpg
http://hamoood2002.jeeran.com/forums/math.jpg
http://hamoood2002.jeeran.com/forums/money.jpg
http://hamoood2002.jeeran.com/forums/caclulator.jpg


يتــــــ :) :) :) :) ــــبع
N E O
11-05-2005, 06:29 PM
كما شاهدتم سيضم البرنامج 4 forms بالإضافة إلى الفورم الأساسي ليصبح المجموع 5 .
الآن قم بتصميم الــForms كما شاهدتها.

سنبدأ شرح البرنامج خطوة خطوة.


Form1


http://hamoood2002.jeeran.com/forums/generalex.jpg


1: اكتب الأمر Form2.show .
2:اكتب الأمر Form3.show .
3:اكتب الأمر Form4.show .
4:اكتب الأمر Form5.show .
6:اكتب الأمر End .

والآن قمنا بالإنتهاء من الخطوة الأولى وتعتبر أسهل خطوة في البرنامج.

يتــــ :) :) :) :) ـــبع
N E O
11-05-2005, 06:40 PM
الخطوة الثانية
Form2


http://hamoood2002.jeeran.com/forums/forceex.jpg

هذا البرنامج سيقوم بحساب الأسس من اتربيع إلى الأس العاشر...فقط اكتب الرقم المطلوب في الــText box ثم اضغط على الأس المطلوب ليقوم بحسابه.

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

في زر تربيع اكتب الأمر التالي
Text1.text=text1.text*text1.text

في زر تكعيب اكتب الأمر التالي
Text1.text=text1.text*text1.text*text1.text

هل لاحظتم...نحن نضيف في كل أس عبارة *text1.text وهكذا وقوموا بالتكرار إلى أن تصلوا إلى الأس العاشر وسيكون الأمر بالشكل التالي

Text1.text=text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*t ext1.text*text1.text


-----------
في زر العودة إلى البرنامج الرئيسي كتب الأمر التالي
Form1.show
N E O
11-05-2005, 06:59 PM
الخطوة الثالثة
Form3


قبل البدء بكل شيء يجب عليك تعريف الطول والعرض والإرتفاع ....إلخ
لذلك اضغط على الفورم مرتين وستظهر لك شاشة البرمجة واختر تعريف هذه الأشياء في General كما هو موضح في الصورة


http://hamoood2002.jeeran.com/forums/ta3reef.jpg

http://hamoood2002.jeeran.com/forums/mathex.jpg

1: سنرمز للطول بحرف a مثلا وقد قمنا بتعريفه سابقا والآن اضغط مرتين واكتب الأمر التالي
http://hamoood2002.jeeran.com/forums/atool.JPG


2: سنرمز للعرض بالحرف b وكرر الخطوة السابقة
http://hamoood2002.jeeran.com/forums/btool.JPG

3:في زر الناتج سنكتب قانون حساب المستطيل وهو الطول x العرض ولكن بلغة البرمجة ستكتب الأمر التالي:

Text1.text=a*b
وهكذا نكون قد انتهينا من برنامج حساب مساحة المستطيل


برنامج لحساب مساحة المثلث


4: سنرمز لطول القاعدة بالحرف c ونقوم بتكرار العملية
http://hamoood2002.jeeran.com/forums/ctool.JPG


5: سنرمز للإرتفاع بالحرف o ونقوم بتكرار العملية
http://hamoood2002.jeeran.com/forums/otool.JPG


6: اضغط على زر الناتج مرتين واكتب الأمر التالي
Text2.text=0.5*c*o
وهكذا نكون قد انتهينا من برنامج حساب مساحة المثلث


يتــــ :D :D :D :D ــبع
oms
11-05-2005, 07:03 PM
ما شاء الله أخوي برنامج جميل

والشرح أجمل .... تابع في تقديم برامجك :biggthump
N E O
11-05-2005, 07:10 PM
التكملة


برنامج لحساب مساحة الدائرة

7: سنرمز لنصف القطر "نق" بالحرف z ثم نكتب الأمر التالي
http://hamoood2002.jeeran.com/forums/ztool.JPG


8:سنكتب في زر الناتج الأمر التالي
Text3.text=3.14*z^2
وهكذا نكون قد انتهينا من برنامج حساب مساحة الدائرة

برنامج حساب مساحة شبه المنحرف

9:سنرمز للقاعدة الصغرى بحرف m ....والآن وقد شاهدت كيف تتم البرمجة فقم بكتابة الأمر بنفسك
10: سنرمز للقاعدة الكبرى بحرف Y وقم بتكرار العملية
11:سنرمز للإرتفاع بحرف x وقم بتكرار العملية.
12:في زر الناتج ستكتب قانون مساحة شبه المنحرف ولكن بلغة البرمجة وسيكون الأمر كالتالي
Text4.text=m+y/2*x

مبارك لك ...لقد انهيت برنامج حساب مساحة شبه المنحرف بنفسك.

13:في هذا الزر ستكتب الأوامر التالية لمسح جميع المحتويات
Text1.text=""
Text2.text=""
Text3.text=""
Text4.text=""

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

وكذا نكون قد أنهينا الخطوة الثالثة بنجاح.
N E O
11-05-2005, 07:19 PM
Form4


http://hamoood2002.jeeran.com/forums/moneyex.jpg


هذا البرنامج لا يختلف كثيرا عن السابق فقط قم بتعريف قيمة الدرهم وسنرمز له بالحرف x
وفي شاشة البرمجة قم باختيار general واكتب الأمر التالي
Dim x as integer

1: بما أننا قمنا بتعريف الدرهم بحرف x فكل ما عليك فعله هو الضغط مرتين على الزر وكتابة الأمر

http://hamoood2002.jeeran.com/forums/dirhmtool.JPG


كما قلت لكم انه لا يختلف كثيرا عن سابقه
2 : بما ان كل دولار يساوي 3,66 درهم اذاً سنكتب الأمر التالي عند الضغط مرتين في زر التحويل
Text1.Text = x / 3.66
3: بما ان كل درهم يساوي 15 ليرة سورية اذا سنكتب الأمر التالي
Text1.Text = x * 15
4: قوموا بتكرار العملية بنفسكم
5: لمسح جميع المحتويات اكتبوا الأمر التالي
Text1.text=""
6: قد قمنا بذكرها سابقا لذا نفذوها بنفسكم
ملاحظة: لا يشترط بالتقيد بالعملات المذكورة ويمكنكم الآن اختيار عملات اخرى وبرمجتها بكل سهولة.
والآن لقد انتهينا من الخطوة الرابعة وبقي لنا آخر خطوة
N E O
11-05-2005, 07:25 PM
Form5


http://hamoood2002.jeeran.com/forums/caclulatorex.jpg

هذه الآلة الحاسبة بدائية بعض الشيء وهي للمبتدئين:
1:ستكتب الأمر التالي لتقوم بضرب القيمة الأولى في القيمة الثانية وسيظهر لك الناتج في text3 والأمر هو:
Text3.Text = Text1.Text * Text2.Text

2: ستكتب الأمر التالي لتقوم بطرح القيمة الثانية من القيمة الأولى وسيظهر لك الناتج في text3 والأمر هو:
Text3.Text = Text1.Text - Text2.Text

3: ستكتب الأمر التالي لتقوم بجمع القيمة الأولى مع القيمة الثانية وسيظهر لك الناتج في text3 والأمر هو:
Text3.text=val(text1.text)+val(text2.text)

4: ستكتب الأمر التالي لتقوم بقسمة القيمة الأولى على القيمة الثانية وسيظهر لك الناتج في text3 والأمر هو:
Text3.Text = Text1.Text / Text2.Text
5: أنت تعرف ما عليك فعله لتقوم بالعودة للبرنامج الرئيسي فقط قم بتابة الأمر
Form1.show
6: لمسح جميع المحتويات قم بكتابة الأوامر
Text1.text=""
Text2.text=""
Text3.text=""
والآن قد قمنا بإنهاء الخطوة الأخيرة وأصبح المشروع جاهزا للإستخدام فقط قم بتشغيله الآن.
شكرا لكم على زيارة الموضوع واذا كان هنالك خطأ فأخبروني وانشاء الله اكون في الخدمة.

All copyrights reserved to Dragon Slayer @ montada.com ©
oms
11-05-2005, 07:26 PM
أخوي لو تستخدم معامل القوة يكون أحسن ...
بدل ما تكتب :


text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*text1.text*t ext1.text*text1.text


أكتب :

MsgBox Val(Text1.Text) ^ 3
N E O
11-05-2005, 07:28 PM
ما شاء الله أخوي برنامج جميل

والشرح أجمل .... تابع في تقديم برامجك


تسلم على ردك الجميل مراقبنا oms ...وانشاء الله اكون قد افدت :)
N E O
11-05-2005, 07:34 PM
أخوي لو تستخدم معامل القوة يكون أحسن ...

أكيد أحسن ...ولكن كنت أشرح للمبتدئين...وراح يفهمونها احسن :)

شكرا على النصيحة.
THE LION
14-05-2005, 06:19 PM
مرحبا يا أخ Dragon Slayer, وشكرا على الموضوع الجميل.
كما وأشكر الأخ OMS على فعاليته في هذا المنتدى الذي كان خاملا من قبل... ةعلى موقعه التعليمي الرائع...

وهذه نصيحة صغيرة مني إلى كل الأعضاء بالنسبة للبرنامج المشروح, وبالأخص بالنسبة للكبّاس "العودة إلى البرنامج الرئيسي": من الممكن وضع الكود التالي لكي تختفي شاشة الفورم الحالي عند العودة إلى الفورم الرئيسي.




...
form1.show
form3.visible = false
...




بحيث أنّ form1 هو الفورم الرئيسي, و form3 هو أي فورم فرعي(ثانوي).
hyuga Neji
07-06-2005, 08:46 AM
السلام عليكم




شلونكم


مشكوراخوي:DRAGON SLAYER


علي الموضوع الحلو والشرح المبسط والمميز



اخوك:نيجي