برنامج الالة الحاسبة بشكل مختلف
اكواد البرنامج
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