مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها

[أبو ربيع]

بسم الله الرحمن الرحيم

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

أقدم لكم مشروع إنشاء آلة حاسبة بسيطة بالفيجوال بيسك..

افتح مشروع جديد على الفيجوال وأضف الأدوات الموجودة في الصورة..



- (3) أدوات من نوع (Text) << اجعلها فارغة من أي نص..
- (5) أدوات من نوع (Command) << رتبها كما في الصورة من اليسار لليمين.. وسجل عليها البيانات الموجودة بالصورة..

# حتى يكتمل المشروع بصورة منظمة.. حدد الفورم بالفأرة وسجل التالي :

- خاصية (Caption = آلة حاسبة)..
- خاصية (RightToLeft) << اجعلها (True)..
- خاصية (Icon) << اختر منها رابط أيقونة لبرنامج الآلة..
- خاصية (BorderStyle) << اجعلها (Fixed Single)..

# حدد أداة الـ (Text1) وسجل التالي :

- خاصية (aligment) << اجعلها (Right justify)..
- خاصية (Text) << امسحها واجعلها فارغة..

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

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub 

# شرح الكود :

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub 

هذا زر القسمة.. وفيه قلنا للبرنامج أن الـ Text3 تساوي الـ Text1 تقسيم الـ Text2..
وجئنا بالدالة (val) على الأداتين الأولى والثانية.. لكي تحول أي قيمة نصية أو غير عددية يكتبها المستخدم إلى العدد (صفر).. وذلك تلافياً لأخطاء البرنامج..

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

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub 

هنا كود الزر (DEL).. وفيه إفراغ أدوات الـ Text.. لتهيئتها إلى عملية حسابية أخرى..

شغل البرنامج واكتب الأعداد في المستطيل الأول والثاني.. واضغط على زر العملية الحسابية لتظهر النتيجة في المستطيل الثالث..


تحميل المشروع مع البرنامج.. على الرابط التالي :

http://www.gulfup.com/?c2ikwP

[أبو ربيع]

بسم الله الرحمن الرحيم

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

أقدم لكم مشروع إنشاء آلة حاسبة بالفيجوال بيسك أكثر تطوراً..

افتح مشروع جديد على الفيجوال وأضف الأدوات الموجودة في الصورة..



- (3) أدوات من نوع (Text) << اجعلها فارغة من أي نص..
- (17) أداة من نوع (Command) << رتبها كما في الصورة من اليسار لليمين.. وسجل عليها البيانات الموجودة بالصورة..
- (2) أداتين من نوع (Option)..

# حتى يكتمل المشروع بصورة منظمة.. حدد الفورم بالفأرة وسجل التالي :

- خاصية (Caption = آلة حاسبة)..
- خاصية (RightToLeft) << اجعلها (True)..
- خاصية (Icon) << اختر منها رابط أيقونة لبرنامج الآلة..
- خاصية (BorderStyle) << اجعلها (Fixed Single)..

# حدد أداة الـ (Text1) وسجل التالي :

- خاصية (aligment) << اجعلها (Right justify)..
- خاصية (Text) << امسحها واجعلها فارغة..

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

Private Sub Command1_Click()
If Option1 = True Then
Text1 = Text1 & 1
Else
Text2 = Text2 & 1
End If
End Sub

Private Sub Command10_Click()
If Option1 = True Then
Text1 = Text1 & 10
Else
Text2 = Text2 & 10
End If
End Sub

Private Sub Command11_Click()
If Option1 = True Then
Text1 = Text1 & "00"
Else
Text2 = Text2 & "00"
End If
End Sub

Private Sub Command12_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Private Sub Command13_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command14_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command15_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command16_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command17_Click()
If Option1 = True Then
Text1 = Text1 & "."
Else
Text2 = Text2 & "."
End If
End Sub

Private Sub Command2_Click()
If Option1 = True Then
Text1 = Text1 & 2
Else
Text2 = Text2 & 2
End If
End Sub

Private Sub Command3_Click()
If Option1 = True Then
Text1 = Text1 & 3
Else
Text2 = Text2 & 3
End If
End Sub

Private Sub Command4_Click()
If Option1 = True Then
Text1 = Text1 & 4
Else
Text2 = Text2 & 4
End If
End Sub

Private Sub Command5_Click()
If Option1 = True Then
Text1 = Text1 & 5
Else
Text2 = Text2 & 5
End If
End Sub

Private Sub Command6_Click()
If Option1 = True Then
Text1 = Text1 & 6
Else
Text2 = Text2 & 6
End If
End Sub

Private Sub Command7_Click()
If Option1 = True Then
Text1 = Text1 & 7
Else
Text2 = Text2 & 7
End If
End Sub

Private Sub Command8_Click()
If Option1 = True Then
Text1 = Text1 & 8
Else
Text2 = Text2 & 8
End If
End Sub

Private Sub Command9_Click()
If Option1 = True Then
Text1 = Text1 & 9
Else
Text2 = Text2 & 9
End If
End Sub

Private Sub Form_Load()
Option1 = True
End Sub 

# شرح الكود :

Private Sub Form_Load()
Option1 = True
End Sub 

هنا وضعنا الخيار على الأداة (Option1).. لكي تكون مفعلة تلقائياً عند فتح البرنامج.. ولما يضغط المستخدم على أي رقم يتم كتابته في الـ Text1..

Private Sub Command1_Click()
If Option1 = True Then
Text1 = Text1 & 1
Else
Text2 = Text2 & 1
End If
End Sub 

هذا الكود في الزر رقم واحد.. وفيه قلنا للبرنامج.. إذا كان الخيار (Option1) هو المفعل فاكتب رقم (1) في الـ Text1.. وإذا لم يكن هو المفعل فاكتب رقم (1) في الـ Text2..

ولاحظ أن هذا الكود مكرر في أزرار باقي الأرقام من (00) إلى (9).. وكذلك مكرر في نقطة الفاصلة (.).. طبعاً مع تغيير الرقم (1).. إلى الرقم المكتوب في الزر..

Private Sub Command13_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub 

هذا زر القسمة.. وفيه قلنا للبرنامج أن الـ Text3 تساوي الـ Text1 تقسيم الـ Text2..
وجئنا بالدالة (val) على الأداتين الأولى والثانية.. لكي تحول أي قيمة نصية أو غير عددية يكتبها المستخدم إلى العدد (صفر).. وذلك تلافياً لأخطاء البرنامج..

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

Private Sub Command12_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub 

هنا كود الزر (DEL).. وفيه إفراغ أدوات الـ Text.. لتهيئتها إلى عملية حسابية أخرى..

لتحميل المشروع مع البرنامج.. على الرابط التالي :

http://www.gulfup.com/?9tPeyE

[أبو ربيع]

بسم الله الرحمن الرحيم

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

أقدم لكم مشروع إنشاء آلة حاسبة متطورة بالفيجوال بيسك..

آلة حاسبة بأداة Text واحدة.. كالآلة الموجودة في النظام..

وجدت أن الأخ محمد يوسف الله يجزاه ألف خير سبقني لذلك بصورة واضحة لذلك اعتمدت شرحه..

تجد الشرح مع المشروع على هذا الرابط :

http://www.kutub.info/library/book/11263


إذا صعب عليك فهم الجزء الثاني والجزء الثالث.. فابدأ بالأول وظل عليه إلى أن تتعود وتفهمه ثم انتقل لما بعده..

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

هذا وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين..

وما عاد إلا سلامتكم ^_^..

مزيد مرير..

[الأغر]

درس قيم مبرمجنا أبو ربيع
دمت بخير وعافية

[أبو ربيع]

الأغر :

القيم مرورك يالغالي..


وجعل الله الخير والعافية بدروبك دووووم..


سلمت على المرور ولا حرمت إطلالتك..

[أبحر بأفكآري ~]

والله يبغى له عقول مفتوحه تفهم وإحنا عقولنا في إجازه والله

يعطيك ألف عافيه أخوي

[أبو ربيع]

إن شاء الله تتفتح عقولنا..

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

أشكرك جزيل الشكر أخت أبحر على المرور..

والخير دربك إن شاء الله..

[STYLER]

درس رائع يا أبو ربيع ..
ومن البرامج المحببه إلى قلبي الفيجوال بيسك ..
وتم عمل الآلة الحاسبة في أكثر من شكل ..
ولكن البرنامج الآن لا يتوفر لديّ على جهازي الجديد
للأسف والا والله ودي بالتطبيق ..


أشكرك من الأعماق ..

[STYLER]

سؤال يالغالي .. ؟؟!

برنامج القرآن الكريم ..
بأي لغة صممته ..؟؟

[أبو ربيع]

درس رائع يا أبو ربيع ..
ومن البرامج المحببه إلى قلبي الفيجوال بيسك ..
وتم عمل الآلة الحاسبة في أكثر من شكل ..
ولكن البرنامج الآن لا يتوفر لديّ على جهازي الجديد
للأسف والا والله ودي بالتطبيق ..


أشكرك من الأعماق ..

Wr

رائع جداً.. ومع التطبيق تزيد الخبرة بصورة كبيرة..

وإن شاء الله تثبت البرنامج قريب.. ونشوف أعمالك إن شاء الله..

الشكر موصول لك أنت على المرور الرائع..

والله يوفقك وييسر دربك..

[أبو ربيع]

سؤال يالغالي .. ؟؟!

برنامج القرآن الكريم ..
بأي لغة صممته ..؟؟

بنفس اللغة هذي اللي بالدرس هذا..

بلغة الفيجوال بيسك..

وسلمت يالغالي على السؤال والمرور..