برنامج الالة الحاسبة بشكل مختلف

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

برنامج الالة الحاسبة بشكل مختلف

 

اكواد البرنامج

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Next
End Sub

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
TextBox5.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
TextBox6.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
MsgBox "شكرا لاستخدامك برنامج الالة الحاسبة .. مع تحياتى / قنديل الصياد", , "منتديات اوفيسنا"

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

 

 

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

 

الالة الحاسبة بصورة اخرى.rar

 

 

[مجدى يونس]

الاخ قنديل

مجهود رائع شكر لك

[حمادة عمر]

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