19-10-19, 01:51 AM
19-10-19, 12:07 PM
اخي ممكن توضح اكتر
لنساعدك لاني ما فهمت
اللي بتقصدو
هاد كود عند الضغط على زر 1 ينفذ امر
PHP كود :
If e.Keycode = Keys.D1 Then
'اكتب الامر هنا
End If
ملاحظة : يجب وضع الكود في حدث KeyDown
20-10-19, 02:23 AM
حضرتك الالة شغالة ب الماوس
عايز اشغلها من لوحة المفاتئح
لما اضغط من لوحة المفاتيح علي الارقام تنغذ
وايضا العمليات الاخىي
شكرا
عايز اشغلها من لوحة المفاتئح
لما اضغط من لوحة المفاتيح علي الارقام تنغذ
وايضا العمليات الاخىي
شكرا
20-10-19, 11:46 PM
جرب المثال بالمرفقات
21-10-19, 11:07 AM
شكرا لحضرتك
وجاري التجربة
بعد اذنك
العمليات ( الضرب * مثلا ) لا تعمل من لوحة المفاتيح
وايضا
عندما اضغط علي الرقم 6 مثلا ثم اضغط علي رمز الضرب * عايز يمسح الشاشة تمهيدا لان ادخل الرقم التالي
وعند الضغط علي انتر ينفذ وهكذا شكرا لك
وجاري التجربة
بعد اذنك
العمليات ( الضرب * مثلا ) لا تعمل من لوحة المفاتيح
وايضا
عندما اضغط علي الرقم 6 مثلا ثم اضغط علي رمز الضرب * عايز يمسح الشاشة تمهيدا لان ادخل الرقم التالي
وعند الضغط علي انتر ينفذ وهكذا شكرا لك
21-10-19, 03:17 PM
السلام عليكم ورحمة الله وبركاته
عملته بسرعه لذلك ينقصه زر رجوع للخلف (هذا عليك)واذا حبيبت يمكنك اضافة عمليات اخرى مثل Sin cos وغيرها اهم شي فكرة البرنامج التي عملتها بطريقة مختصرة بحيث اختصرت الكثير من الاسطر البرمجية
كل ماعليك اضافة 15 زر كما في الصورة وتغيير نص الزر ايضا كما في الصورة واضافة تكست بوكس 1
واضافة الكود التالي كما هو
بالتوفيق
لا ادري لماذا لايتم رفع الصورة اعتذر يطلع عندي خطأ
ما ادري الخطأ وين الصورة لاترفع
ال 15 زر النص يكون لكل واحد
1 و 2 و3و4و5و6و7و8و9و0 و - و + و = و / و *
عملته بسرعه لذلك ينقصه زر رجوع للخلف (هذا عليك)واذا حبيبت يمكنك اضافة عمليات اخرى مثل 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 و - و + و = و / و *
23-10-19, 12:33 AM
حضراتكم حد يكمل المطلوب بعد اذنكم
23-10-19, 03:15 AM
(21-10-19, 11:07 AM)atefkhalf2004 كتب : [ -> ]شكرا لحضرتك
وجاري التجربة
بعد اذنك
العمليات ( الضرب * مثلا ) لا تعمل من لوحة المفاتيح
وايضا
عندما اضغط علي الرقم 6 مثلا ثم اضغط علي رمز الضرب * عايز يمسح الشاشة تمهيدا لان ادخل الرقم التالي
وعند الضغط علي انتر ينفذ وهكذا شكرا لك
اذا كنت ستستخدم لوحة المفاتيح منذ بداية البرنامج .... ستعمل معك
ولا بتم مسح الرقم لمجرد الضغط على العملية الحسابية .... واذا ضغطت ENTER فهي تكافئ "="
جرب البرنامج مرة اخرى للتأكد