الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف تصنع برنامج حاسبه

مغلق
بدأه VBD في 14 مايو 2007 · 3 رد · 744 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا الدرس الثاني من العضو الجديد vbdوأرجو الأستفادة منها

كيف تصنع برنامج حاسبه

الطريقة سهله جدا جدا جداٌ

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

2-label وأداة النصCommand Button_أربعة أزرار منTextBoxضع الأدوات الأتية:أداتان من مربع النص

3-أجعل لكل زر أسم الزر الأول سميه:"جمع"الثاني:"طرح"الثالث":"قسمة"الرابع:"ضرب

4-:أضغط على الزر"جمع"واكتب في لوحة البرمجة

label1=(Text1.Text)+0+(Text2.Text)

5-:أضغط على الزر"طرح"واكتب في لوحة البرمجة

label1=(Text1.Text)-(Text2.Text)

6-:أضغط على الزر"قسمة"واكتب في لوح البرمجة

label1=(Text1.Text)\(Text2.Text)

7-:أضغط الزر "ضرب"واكتب في لوحة البرمجة

label1=(Text1.Text)*(Text2.Text)

8-جرب العمل سينجح لكن إذا كتبت أحرف ماذا سيحدث :huh: !!ستظهر لك نافذة خطأ

لكي تتفدا هذا الخطأ غير الكود السابق وجعله هكذا:

if IsNumerisIf IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) Then

(Label1 = (Text1.Text) + 0 + (Text2.Text)

Else

MsgBox "ممنوع كتابة الحروف", , "خطأ"

End If

ملاحضه مهمه:يجب تغيير أكواد الأزرار إلى الكود الذي في الأعلى

جرب العمل هل البرنامج فيه أخطأ أم لأ؟؟؟

VBD

#2

السلام عليكم

يعطيك العافيه لكن لو كان بالصور كان

افضل من ناحية المتلقي الدرس واسرع للفهم

وجزاك الله خير

سلام

get-7-2007-4nw_net_hbj46tna.jpg
#3

شكرا لكن برجاء استعمال الـ Code tags لأظهار الأكواد كـ :

label1=(Text1.Text)*(Text2.Text)
#4

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

جميل جدا ومفيده ولكن الاجمل لو شوية تنسيق وشرح لسطور الاكود ,,,

بالتوفيق ,,,,,

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</

هذا الموضوع مغلق.

مواضيع مشابهة