برنامج الالة الحاسبة

[قنديل الصياد]

اقدم لكم اخوانى واساتذتى الاعزاء بالمنتدى برنامج الالة الحاسبة

والبرنامج هدية منى لاستاذى / مجدى يونس

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

الاكواد المستخدمة فى البرنامج كالتالى

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Next
 MsgBox " مع تحياتى / قنديل الصياد .. منتديات اوفيسنا "
End Sub

Private Sub CommandButton1_Click()
Label1.Caption = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub CommandButton2_Click()
Label1.Caption = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub CommandButton3_Click()
Label1.Caption = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub CommandButton4_Click()
Label1.Caption = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

مرفق ملف به  التطبيق

 

برنامج الالة الحاسبة.rar

 

 

[مجدى يونس]

الاخ قنديل الصياد

هدية مقبولة ان شاء الله وشكرا لك

ونورت مع الاخوة الزملاء منتدى الباوربوينت

 

 

من احدث اعمالى المتواضعة على الرابط التالى

http://www.officena.net/ib/index.php?showtopic=48260

[حمادة عمر]

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

[حمادة عمر]