اكواد الفجول بيسك <<<مسااعده ^_^

[hooos]

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

ان شاء الله الكل بخيير ^_^

المهم :-
طالبتنا المعلمه اكواد الآله الحاسبه والاله لتحويل النسبه المئويه الى الفهرن هايت
واله حساب التقدير )^^
وانا والله ما اعرف لها::)
بس الي عنده اكوادها او يعرف لها فلا يبخل وخاصه الاله الحاسبه ^_^

ومشكورين والله يعطيكم العافيه

وبالتوفيق ان شاء الله للجميييع ^_^


########### hooos ##########

[طلال الكويت]

اف اكوادك كثيره
عندي كود كتابه كتابه
الحاسبه طار
بشوف لك ان لقيت فرصه

[hooos]

خخخخخخخخخخخخ
سوووري
^_^

[CuTe.Haker]

لسسه محتآجه الاكواد والا حصلتي عليها ؟

[hooos]

ايوه احتاج <<

[ALmuhhnad]

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

جبت لك طريقة صنع آلة حاسبة ^^

شرح مصور (( مني شرحي شخصياً )^^ ))

نفتح الفيجوال بيسك 6 ثم مشروع جديد

ونظيف الأدوات كما في الصورة التالية

http://img691.imageshack.us/img691/8639/81826744.jpg

نختار زر الناقص لندخل الكود كما في الصورة التالية

http://img257.imageshack.us/img257/2336/89949492.jpg

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

http://img525.imageshack.us/img525/6638/43944548.jpg

شرح للكود السابق


Text3.Text = Val(Text1.Text) - Val(Text2.Text)
نقول في الكود السابق ان التكست رقم 3 يساوي تكست رقم 1 ناااقص التكست رقم 2

أعتقد أنه بدون شرح مفهوم
بعد كذا نقوم بكتابة نفس الكود لزر الجمع ونقوم بتغيير إشارة الناقص إلى إشارة جمع كما في الصوؤة

http://img26.imageshack.us/img26/5021/76386773.jpg

نكرر العملية السابقة مع الأزرار الباقية كما في الصورة

http://img827.imageshack.us/img827/8151/46344875.jpg

في الصورة السابقة نظيف سطر أومر وهو
On Error Resume Next
وضيفة هذا السطر هي أنه يقول في حال حدوث أي خطأ في عملية القسمة تجاهلة
مثلا جربي أن لا تضعي هذا السطر بالقسمة وبعد الإنتهاء من كتابة جميع الأوامر المطلوبة بدون كتابة هذا السطر وقومي بتشغيل البرنامج واقسمي 0 تقسيم 0 راح تظهر رسالة تفيد بخطأ أنه لا يستطيع القسمة 0 تقسيم 0 ثم يغلق البرنامج لذالك وضعت هذا السطر كي يتخطا الأخطأ في عملية القسمة ولا يظهر شيء

نشغل البرنامج كما في الصورة التالية

http://img714.imageshack.us/img714/3452/61702908.jpg

ننظر لنتيجة البرنامج كما في الصورة التالية

http://img153.imageshack.us/img153/3658/65026982.jpg

الحين البرنامج جاهز وبدون تقدرون تغيرين تصميم البنامج لليعجبك

للمعلومية :
* = ×
/ = ÷

وانتهينا من برنامج الحاسبة الحمد لله ^^ إن شاء الله كل شيء واضح وأي إستفسار أنا حاظر ^^

Bye Bye

[e . V . E . L]

ههههههههه مشالله دخلتوا بلفصل الثاني على طول ...


بكتابنا الفيجوال بيسك بالفصل الثاني هههه


مشالله عليكم ...

هع ..

[hooos]

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

جبت لك طريقة صنع آلة حاسبة ^^

شرح مصور (( مني شرحي شخصياً )^^ ))

نفتح الفيجوال بيسك 6 ثم مشروع جديد

ونظيف الأدوات كما في الصورة التالية

http://img691.imageshack.us/img691/8639/81826744.jpg

نختار زر الناقص لندخل الكود كما في الصورة التالية

http://img257.imageshack.us/img257/2336/89949492.jpg

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

http://img525.imageshack.us/img525/6638/43944548.jpg

شرح للكود السابق


Text3.Text = Val(Text1.Text) - Val(Text2.Text)
نقول في الكود السابق ان التكست رقم 3 يساوي تكست رقم 1 ناااقص التكست رقم 2

أعتقد أنه بدون شرح مفهوم
بعد كذا نقوم بكتابة نفس الكود لزر الجمع ونقوم بتغيير إشارة الناقص إلى إشارة جمع كما في الصوؤة

http://img26.imageshack.us/img26/5021/76386773.jpg

نكرر العملية السابقة مع الأزرار الباقية كما في الصورة

http://img827.imageshack.us/img827/8151/46344875.jpg

في الصورة السابقة نظيف سطر أومر وهو
On Error Resume Next
وضيفة هذا السطر هي أنه يقول في حال حدوث أي خطأ في عملية القسمة تجاهلة
مثلا جربي أن لا تضعي هذا السطر بالقسمة وبعد الإنتهاء من كتابة جميع الأوامر المطلوبة بدون كتابة هذا السطر وقومي بتشغيل البرنامج واقسمي 0 تقسيم 0 راح تظهر رسالة تفيد بخطأ أنه لا يستطيع القسمة 0 تقسيم 0 ثم يغلق البرنامج لذالك وضعت هذا السطر كي يتخطا الأخطأ في عملية القسمة ولا يظهر شيء

نشغل البرنامج كما في الصورة التالية

http://img714.imageshack.us/img714/3452/61702908.jpg

ننظر لنتيجة البرنامج كما في الصورة التالية

http://img153.imageshack.us/img153/3658/65026982.jpg

الحين البرنامج جاهز وبدون تقدرون تغيرين تصميم البنامج لليعجبك

للمعلومية :
* = ×
/ = ÷

وانتهينا من برنامج الحاسبة الحمد لله ^^ إن شاء الله كل شيء واضح وأي إستفسار أنا حاظر ^^

Bye Bye


مشكوور والله يعطيك العافيه ان شاء الله
والله الشرح واضح ومرتب
بس اخوي ممكن تعطيني الكواد النهائيه يعني اذا خلص منها وانتهيت من كتابه
الاكواد <<تعطيني نهايتها <<؟؟ ^_^

[hooos]

ههههههههه مشالله دخلتوا بلفصل الثاني على طول ...


بكتابنا الفيجوال بيسك بالفصل الثاني هههه


مشالله عليكم ...

هع ..

لالا احنا الفصل الاول الفجول بيسك
الله يعين <<

[ALmuhhnad]

خخخخـ عااد تدرون أني لسة ما اخذة مادة الحاسب كلها ^^"
بنسبة لفيجوال بيسك أي شيء يصعب عليكم رأسلو لي على الخاص وإن شاء الله اساعدكم ^^

[e . V . E . L]

ثواني اجيب لك الاكواد

[e . V . E . L]

تفضلي خيــتو ...


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



تفضلي


http://www.ar-tr.com/vb/attachment.php?attachmentid=526&d=1174939741


وعلى فكرة اسمة (( الفيجوال بيسك ))

[hooos]

مشكور والله يعطيك العافيه ان شاء الله

بس مكتوب في كتاب الحاسب الفجول ؟؟

ومن ناحيه البرنامج ما فهمت وش يسوي ؟؟

^_^

[e . V . E . L]

ههههه بالكتاب الاحض مليون خطاء بالوزارة ..


ومن ناحية البرنامج جميل جدا جدا ...


احس اني اباخذ الاول بالفصل الثاني ..


هو تقدرين اتسوي حاسبة فية ..


برامج ..

منبة


ساعة


وحاجات مرة حلوة ..

[hooos]

هههههههههههههههههه
الله يوفق الجميع ان شاء الله



بس ما لقيت كود الحاسبه )^^ ؟

[ALmuhhnad]

تفضلي هذا الكود النهائي للبرنامج

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
On Error Resume Next
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

[ALmuhhnad]

احس اني اباخذ الاول بالفصل الثاني ..

خخخخخـ بس ما اتوقع يطلبون منك تجيب برامج زي كذا حدهم يقلون آلة حاسبة

على فكرة أخويـ e . V . E . L لو تبي نتبادل الخبرات في الفيجوال بيسك 6 أنا جاهز ^^

[hooos]

مشكورين والله يعطيكم العافيه على المساعده ^_^

[e . V . E . L]

على فكرة أخويـ e . V . E . L لو تبي نتبادل الخبرات في الفيجوال بيسك 6 أنا جاهز ^^ تسلملي لبى قلبك انا اعرف شوي بالفيجوال بيسك وبعدين بالمدارس يعلمونك الاساسيات وليس تطبيق عملي ..

[ALmuhhnad]

طيب لو تبي تتعلم قلي ^^

[chamsou_23i]

thankssssssssssssssssssss

[محمد_هكر]

مشكوررررررررررررررررررررر رر