منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كم سؤال و استفسار و طلب رأي
نسخة كاملة : كم سؤال و استفسار و طلب رأي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

Aboood00

25-09-13, 04:01 PM
السلام عليكم و رحمة الله و بركاته 

اخواني انا من شوي سجلت لان المنتدى فيجوال بيسك و عجبني صراحة 

عندي كم استفسار 

انا بالمرحلة الثانوية 

و عندنا المنهج اليوم فيجوال بيسك و المشروع لازم نعمل فيه مشروع 

بصراحة بدي رايكم بمشروع و بدي صراحة مساعدتكم 

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

اعمل اول شي فريم انستول لتثبيت مثلا آلة حاسبة و كمان برنامج نصي و ممكن اضيف على الالة الحاسبة الاضافة الصوتية يعني اوامر صوتية 

ممكن يا شباب اذا عندكم شي مشاريع حلوة او ممكن تساعدوني ياريت تقلولي

احمد تيم

27-09-13, 08:38 PM
وعليكم السلام ,, 


الله يوفقك يا اخي وتنجح في دراستك ان شاء الله ,, Big Grin


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




اول شيء افتح الفيجوال بيسك وانشىء مشروع جديد كما في الصورة


\
هذا مكان العمل 
وهذه هي الادوات


وهذا لاستعراص مكان البرنامج على الشاشة 


وهذه هي شاشات البرنامج


اذا اي مكون ناقص عندك بتقدر تضيفه من هذه القائمة 




الان ندخل بالمفيد , ضيف كلمة اضافة الرقم الاول نفس اللي بالصورة من خلال الضغط على حرف A الكبير على اليسار , وبعدين غير القيمة من اليمين على كلمة caption 






الان ضيف text box وهذا لادخال الرقم




كرر الخطوة 




الان ضيف هذه الازرار 






وهذه 




الان طبق الصورة التالية للدخول الى صفحة الكود 




اختار المفاتيح التي تريدها 






اضف Dim a, b, r as Integer
 في البداية


الان اضف هذا الكود عند الزر الاول 


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




وهذا في الثاني 


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




وهذا 


Private Sub Command3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a * b
Text3.Text = r
End Sub






Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a / b
Text3.Text = r
End Sub






الان اضغط على هذه الشكل لتشغيل برمجيتك 




ويمكنك اختبارها 




الان تبقى عليك انشاء نسخة تنفيذية منه من خلال الخطوات التالية :






اتمنى ان يكون الشرح خفيف وغير معقد ,, 


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

قمت بارفاق مثال على الة حاسبة اتمنى ان تستفيد منه

وانا هنا جاهز للاجابة على استفساراتك في اي وقت Angel
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كم سؤال و استفسار و طلب رأي