[atefkhalf2004]

وجدت هذا الملف علي احد المواقع
بسيط
اتمني تشغيل الالة من لوحة المفايح
لما اضغط 1   من اللوحة ينفذ وهكذا

[AbdoDabak]

اخي ممكن توضح اكتر

لنساعدك لاني ما فهمت

اللي بتقصدو

هاد كود عند الضغط على زر 1 ينفذ امر

PHP كود :

If e.Keycode = Keys.D1 Then
'اكتب الامر هنا 

End If 


ملاحظة : يجب وضع الكود في حدث KeyDown

[atefkhalf2004]

حضرتك الالة شغالة ب الماوس
عايز اشغلها من لوحة المفاتئح
لما اضغط من لوحة المفاتيح علي الارقام تنغذ
وايضا العمليات الاخىي
شكرا

[boudyonline]

جرب المثال بالمرفقات

[atefkhalf2004]

شكرا لحضرتك
وجاري التجربة

---

بعد اذنك

العمليات ( الضرب * مثلا ) لا تعمل من لوحة المفاتيح
وايضا
عندما اضغط علي الرقم 6 مثلا ثم اضغط علي رمز الضرب * عايز يمسح الشاشة تمهيدا لان ادخل الرقم التالي
وعند الضغط علي انتر ينفذ وهكذا شكرا لك

[3booody]

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

عملته بسرعه لذلك ينقصه زر رجوع للخلف (هذا عليك)واذا حبيبت يمكنك اضافة عمليات اخرى مثل Sin cos وغيرها اهم شي فكرة البرنامج التي عملتها بطريقة مختصرة بحيث اختصرت الكثير من الاسطر البرمجية

كل ماعليك اضافة 15 زر كما في الصورة وتغيير نص الزر ايضا كما في الصورة واضافة تكست بوكس 1
واضافة الكود التالي كما هو
بالتوفيق

---

كود :

Public Class Form1
   Dim num1, num2 As Double
   Dim ob As String

   Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
       If IsNumeric(e.KeyChar) Then
           TextBox1.Text &= e.KeyChar
       Else
           Select Case e.KeyChar
               Case "+"
                   checktxt("+")
               Case ("-")
                   checktxt("-")
               Case ("*")
                   checktxt("*")
               Case "/"
                   checktxt("/")
               Case ("=")
                   GiveAns()
               Case ChrW(Keys.Enter)
                   GiveAns()
           End Select
       End If
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True
       TextBox1.ReadOnly = True
       For Each bt As Control In Me.Controls
           If bt.Name.Contains("Button") Then
               AddHandler bt.Click, AddressOf BT_click
           End If
       Next
   End Sub
   Sub BT_click(ByVal sender As Object, ByVal e As EventArgs)
       Select Case sender.Text
           Case "+"
               checktxt("+")
           Case "-"
               checktxt("-")
           Case "*"
               checktxt("*")
           Case "/"
               checktxt("/")
           Case "="
               GiveAns()
           Case Else
               TextBox1.Text &= sender.Text
       End Select
   End Sub
   Sub checktxt(ByVal t As String)
       If Not TextBox1.Text = "" Then
           ob = t
           num1 = TextBox1.Text
           TextBox1.Text = ""
       End If
   End Sub
   Sub GiveAns()
       Try
           num2 = TextBox1.Text
           Select Case ob
               Case "+"
                   TextBox1.Text = num1 + num2
               Case "-"
                   TextBox1.Text = num1 - num2
               Case "*"
                   TextBox1.Text = num1 * num2
               Case "/"
                   TextBox1.Text = num1 / num2
           End Select
       Catch ex As Exception

       End Try
   End Sub
End Class

---

لا ادري لماذا لايتم رفع الصورة اعتذر يطلع عندي خطأ

---

ما ادري الخطأ وين الصورة لاترفع
ال 15 زر النص يكون لكل واحد
1 و 2 و3و4و5و6و7و8و9و0 و - و + و = و / و *

[atefkhalf2004]

حضراتكم حد يكمل المطلوب بعد اذنكم

[boudyonline]

(21-10-19, 11:07 AM)atefkhalf2004 كتب : شكرا لحضرتك
وجاري التجربة

---

بعد اذنك

العمليات ( الضرب  * مثلا ) لا تعمل من لوحة المفاتيح
وايضا
عندما اضغط علي الرقم 6 مثلا   ثم  اضغط علي رمز الضرب *  عايز  يمسح الشاشة  تمهيدا  لان ادخل الرقم التالي
وعند الضغط علي انتر  ينفذ  وهكذا    شكرا لك

اذا كنت ستستخدم لوحة المفاتيح منذ بداية البرنامج .... ستعمل معك
ولا بتم مسح الرقم لمجرد الضغط على العملية الحسابية .... واذا ضغطت ENTER فهي تكافئ "="

جرب البرنامج مرة اخرى للتأكد