19-04-19, 09:44 PM
الصفحات : 1 2
20-04-19, 11:33 AM
ينقل الموضوع للقسم المناسب
بخصوص تفعيل الكتابة من لوحة المفاتيح
تم عمل الكود وادراجه بالسورس المرفق
مرفق السورس + البرنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
22-04-19, 01:35 AM
شكرا لك
كثيييييييييييييييييييييييييرا
معلهش
backspace و delete
وايضا shift مع 8 علامة الضرب لا يعملوا
كثيييييييييييييييييييييييييرا
معلهش
backspace و delete
وايضا shift مع 8 علامة الضرب لا يعملوا
22-04-19, 03:43 AM
تم التعديل على السورس
لتعديل كلاً من + و - الموجود اعلى الاحرف
حيث يعمل دون الحاجة على الضغط على Shift
وتم اضافة كود كلاً من Back و Delect و (Shift + 8)
وتم اضافة زر مسح رقم واحد بكل مرة
وكذلك تغيير شكل اقرب رقم عشري
مرفق السورس + برنامج الاختبار
صورة لشكل البرنامج بعد التعديلات
تحياتى لك
وتمنياتى لك التوفيق
22-04-19, 09:00 PM
شكرا وجاري التجربة
22-04-19, 11:37 PM
الله ينور عليك
ممكن
بعد الضغط علي علامة يساوي وظهور النتيجة
اذا اجرينا اي عملية احري(الضغط علي اي زر ) يقوم بمسح ماعلي الشاشة والشروع في عملية جديدة
شكرا
ممكن
بعد الضغط علي علامة يساوي وظهور النتيجة
اذا اجرينا اي عملية احري(الضغط علي اي زر ) يقوم بمسح ماعلي الشاشة والشروع في عملية جديدة
شكرا
23-04-19, 01:21 AM
إقتباس :![]()
عزيزي
هل أنت مدرك أن ترتيب الأرقام معكوسة؟
23-04-19, 02:37 AM
(22-04-19, 11:37 PM)atefkhalf2004 كتب : [ -> ]الله ينور عليك
ممكن
بعد الضغط علي علامة يساوي وظهور النتيجة
اذا اجرينا اي عملية احري(الضغط علي اي زر ) يقوم بمسح ماعلي الشاشة والشروع في عملية جديدة
شكرا
بخصوص هذا الامر يمكنك فعل الامر بنفسك
بوضع معرف كالتالى خارج اى حدث
كود :
Private newRun As Booleanومن ثم تاتى عند كود تنفيذ الـ = والضغط على Enter
باضافة هذا السطر باخر سطركود :
newRun = Trueثم تاتى فى كل حدث اخر لكل زر
وتضع كود تحقق
اذا كان newRun = True تجعل كود :
TextBox1.Text = 0
newRun = Falseوكود التحقق ده سيكون قبل تنفيذ كود الزر نفسه
تحياتى لك
وتمنياتى لك التوفيق
(23-04-19, 01:21 AM)saoud2 كتب : [ -> ]إقتباس :![]()
عزيزيهل أنت مدرك أن ترتيب الأرقام معكوسة؟![]()
لا مشكلة من الترتيب لانه فى النهاية مظهر فقط
الاهم ما فى الامر هو المضمون
لان المظهر يمكنك تعديله وترتيبه
يمكنك تحميل السورس المدرج فى الموضوع
والتعديل عليه كما تشاء
تحياتى لك
وتمنياتى لك التوفيق
23-04-19, 01:09 PM
السيد الفاضل
If newRun = True Then
TextBox1.Text = 0
newRun = False
End If
[جربت ووضعت
Dim secundnum As Decimal
Dim oparation As Integer
Dim selected As Boolean = False
Private newRun As Boolean
ووضعت اخر زر انتر
newRun = True
ولكن لا جديد
برجاء اعادة تحميل السورس بعد التعديل
If newRun = True Then
TextBox1.Text = 0
newRun = False
End If
[جربت ووضعت
Dim secundnum As Decimal
Dim oparation As Integer
Dim selected As Boolean = False
Private newRun As Boolean
ووضعت اخر زر انتر
newRun = True
ولكن لا جديد
برجاء اعادة تحميل السورس بعد التعديل
24-04-19, 05:11 AM
اعد المحاولة مجدداً اخى الفاضل
فالامر ابسط بكثير
فقط اعد قراءة ردي مججداً وركز وتخيل الامر
وستتمكن بالنهاية بفعلها ما يجعلنى لا اقم بذلك
كونى اريدك ان تتعب قليلاً وتتعلم من الاخطاء والتجربة
تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2