مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته..
أقدم لكم مشروع إنشاء آلة حاسبة بسيطة بالفيجوال بيسك..
افتح مشروع جديد على الفيجوال وأضف الأدوات الموجودة في الصورة..
http://upload.traidnt.net/upfiles/TJU30863.jpg
- (3) أدوات من نوع (Text) << اجعلها فارغة من أي نص..
- (5) أدوات من نوع (Command) << رتبها كما في الصورة من اليسار لليمين.. وسجل عليها البيانات الموجودة بالصورة..
# حتى يكتمل المشروع بصورة منظمة.. حدد الفورم بالفأرة وسجل التالي :
- خاصية (Caption = آلة حاسبة)..
- خاصية (RightToLeft) << اجعلها (True)..
- خاصية (Icon) << اختر منها رابط أيقونة لبرنامج الآلة..
- خاصية (BorderStyle) << اجعلها (Fixed Single)..
# حدد أداة الـ (Text1) وسجل التالي :
- خاصية (aligment) << اجعلها (Right justify)..
- خاصية (Text) << امسحها واجعلها فارغة..
وبالأخير افتح نافذة الكود وامسح كل ما هو موجود بها وضع هذا الكود :
كود PHP:
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
# شرح الكود :
كود PHP:
Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub
هذا زر القسمة.. وفيه قلنا للبرنامج أن الـ Text3 تساوي الـ Text1 تقسيم الـ Text2..
وجئنا بالدالة (val) على الأداتين الأولى والثانية.. لكي تحول أي قيمة نصية أو غير عددية يكتبها المستخدم إلى العدد (صفر).. وذلك تلافياً لأخطاء البرنامج..
وهذا الكود مكرر في زر الضرب والجمع والطرح.. مع تغيير العملية إلى العملية الموجودة في الزر..
كود PHP:
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
هنا كود الزر (DEL).. وفيه إفراغ أدوات الـ Text.. لتهيئتها إلى عملية حسابية أخرى..
شغل البرنامج واكتب الأعداد في المستطيل الأول والثاني.. واضغط على زر العملية الحسابية لتظهر النتيجة في المستطيل الثالث..
تحميل المشروع مع البرنامج.. على الرابط التالي :
http://www.gulfup.com/?c2ikwP
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته..
أقدم لكم مشروع إنشاء آلة حاسبة بالفيجوال بيسك أكثر تطوراً..
افتح مشروع جديد على الفيجوال وأضف الأدوات الموجودة في الصورة..
http://upload.traidnt.net/upfiles/5BW30804.jpg
- (3) أدوات من نوع (Text) << اجعلها فارغة من أي نص..
- (17) أداة من نوع (Command) << رتبها كما في الصورة من اليسار لليمين.. وسجل عليها البيانات الموجودة بالصورة..
- (2) أداتين من نوع (Option)..
# حتى يكتمل المشروع بصورة منظمة.. حدد الفورم بالفأرة وسجل التالي :
- خاصية (Caption = آلة حاسبة)..
- خاصية (RightToLeft) << اجعلها (True)..
- خاصية (Icon) << اختر منها رابط أيقونة لبرنامج الآلة..
- خاصية (BorderStyle) << اجعلها (Fixed Single)..
# حدد أداة الـ (Text1) وسجل التالي :
- خاصية (aligment) << اجعلها (Right justify)..
- خاصية (Text) << امسحها واجعلها فارغة..
وبالأخير افتح نافذة الكود وامسح كل ما هو موجود بها وضع هذا الكود :
كود PHP:
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
# شرح الكود :
كود PHP:
Private Sub Form_Load()
Option1 = True
End Sub
هنا وضعنا الخيار على الأداة (Option1).. لكي تكون مفعلة تلقائياً عند فتح البرنامج.. ولما يضغط المستخدم على أي رقم يتم كتابته في الـ Text1..
كود PHP:
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).. إلى الرقم المكتوب في الزر..
كود PHP:
Private Sub Command13_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub
هذا زر القسمة.. وفيه قلنا للبرنامج أن الـ Text3 تساوي الـ Text1 تقسيم الـ Text2..
وجئنا بالدالة (val) على الأداتين الأولى والثانية.. لكي تحول أي قيمة نصية أو غير عددية يكتبها المستخدم إلى العدد (صفر).. وذلك تلافياً لأخطاء البرنامج..
وهذا الكود مكرر في زر الضرب والجمع والطرح.. مع تغيير العملية إلى العملية الموجودة في الزر..
كود PHP:
Private Sub Command12_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
هنا كود الزر (DEL).. وفيه إفراغ أدوات الـ Text.. لتهيئتها إلى عملية حسابية أخرى..
لتحميل المشروع مع البرنامج.. على الرابط التالي :
http://www.gulfup.com/?9tPeyE
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته..
أقدم لكم مشروع إنشاء آلة حاسبة متطورة بالفيجوال بيسك..
آلة حاسبة بأداة Text واحدة.. كالآلة الموجودة في النظام..
وجدت أن الأخ محمد يوسف الله يجزاه ألف خير سبقني لذلك بصورة واضحة لذلك اعتمدت شرحه..
تجد الشرح مع المشروع على هذا الرابط :
http://www.kutub.info/library/book/11263
إذا صعب عليك فهم الجزء الثاني والجزء الثالث.. فابدأ بالأول وظل عليه إلى أن تتعود وتفهمه ثم انتقل لما بعده..
أحد الأصدقاء على الفيس طلب مني هذا العمل.. ولم أجد مكان أطرحه فيه إلا هنا.. وأتمنى أن أكون قد وفقت بالشرح..
هذا وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين..
وما عاد إلا سلامتكم ^_^..
مزيد مرير..
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
درس قيم مبرمجنا أبو ربيع
دمت بخير وعافية
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
الأغر :
القيم مرورك يالغالي..
وجعل الله الخير والعافية بدروبك دووووم..
سلمت على المرور ولا حرمت إطلالتك..
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
والله يبغى له عقول مفتوحه تفهم وإحنا عقولنا في إجازه والله
يعطيك ألف عافيه أخوي
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
إن شاء الله تتفتح عقولنا..
بس يبغالنا شوي رغبة وشوي اجتهاد.. والله الموفق..
أشكرك جزيل الشكر أخت أبحر على المرور..
والخير دربك إن شاء الله..
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
درس رائع يا أبو ربيع ..
ومن البرامج المحببه إلى قلبي الفيجوال بيسك ..
وتم عمل الآلة الحاسبة في أكثر من شكل ..
ولكن البرنامج الآن لا يتوفر لديّ على جهازي الجديد
للأسف والا والله ودي بالتطبيق ..
أشكرك من الأعماق ..
wr
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
سؤال يالغالي .. ؟؟!
برنامج القرآن الكريم ..
بأي لغة صممته ..؟؟
wr wr wr
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
اقتباس:
المشاركة الأصلية كتبت بواسطة styler
درس رائع يا أبو ربيع ..
ومن البرامج المحببه إلى قلبي الفيجوال بيسك ..
وتم عمل الآلة الحاسبة في أكثر من شكل ..
ولكن البرنامج الآن لا يتوفر لديّ على جهازي الجديد
للأسف والا والله ودي بالتطبيق ..
أشكرك من الأعماق ..
Wr
رائع جداً.. ومع التطبيق تزيد الخبرة بصورة كبيرة..
وإن شاء الله تثبت البرنامج قريب.. ونشوف أعمالك إن شاء الله..
الشكر موصول لك أنت على المرور الرائع..
والله يوفقك وييسر دربك..
رد: مشروع إنشاء آلة حاسبة بالفيجوال بيسك وتطويرها
اقتباس:
المشاركة الأصلية كتبت بواسطة styler
سؤال يالغالي .. ؟؟!
برنامج القرآن الكريم ..
بأي لغة صممته ..؟؟
wr wr wr
بنفس اللغة هذي اللي بالدرس هذا..
بلغة الفيجوال بيسك..
وسلمت يالغالي على السؤال والمرور..
