تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كم سؤال و استفسار و طلب رأي
#1
السلام عليكم و رحمة الله و بركاته 

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

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

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

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

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

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

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

ممكن يا شباب اذا عندكم شي مشاريع حلوة او ممكن تساعدوني ياريت تقلولي
الرد
تم الشكر بواسطة: احمد تيم
#2
وعليكم السلام ,, 


الله يوفقك يا اخي وتنجح في دراستك ان شاء الله ,, 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


الملفات المرفقة
.zip   Calculator.zip (الحجم : 3.89 ك ب / التحميلات : 162)
الرد
تم الشكر بواسطة: ABO.BANCIANA


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في قوائم الفيجوال tighrmte 1 21 منذ 53 دقيقة مضت
آخر رد: tighrmte
  سؤال حول التنقل بين ال textbox haider kh 4 49 منذ 6 ساعة مضت
آخر رد: haider kh
  سؤال في listbox tighrmte 0 55 13-03-19, 07:38 PM
آخر رد: tighrmte
  سؤال في شاشة عرض البرنامج tighrmte 3 141 20-02-19, 07:13 PM
آخر رد: tighrmte
  سؤال في تحزيم البرنامج tighrmte 6 163 11-02-19, 09:57 PM
آخر رد: tighrmte
  سؤال في اداة msflixgrid tighrmte 2 102 04-02-19, 11:37 PM
آخر رد: tighrmte
  سؤال حول البحث في combobox tighrmte 3 221 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 171 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  [سؤال] سؤال عن اداءة ActiveReport الخاصة بالتقرير في vb6 محمد حمد محمد 4 197 16-01-19, 01:26 PM
آخر رد: محمد حمد محمد
  سؤال في اداة msflixgrid tighrmte 2 146 16-01-19, 01:22 AM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم