منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تشغيل ازاز لوحة المفاتيح في الالة الحاسبة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
كيف
تشغيل ازاز لوحة المفاتيح في الالة الحاسبة
مع الماوس
شكرا
ينقل الموضوع للقسم المناسب

بخصوص تفعيل الكتابة من لوحة المفاتيح
تم عمل الكود وادراجه بالسورس المرفق

مرفق السورس + البرنامج للاختبار

تحياتى لك
وتمنياتى لك التوفيق
شكرا لك
كثيييييييييييييييييييييييييرا

معلهش 
backspace  و  delete
وايضا shift   مع   8   علامة الضرب  لا يعملوا
تم التعديل على السورس
لتعديل كلاً من + و - الموجود اعلى الاحرف
حيث يعمل دون الحاجة على الضغط على Shift

وتم اضافة كود كلاً من Back  و Delect و (Shift + 8)
وتم اضافة زر مسح رقم واحد بكل مرة
وكذلك تغيير شكل اقرب رقم عشري

مرفق السورس + برنامج الاختبار 

صورة لشكل البرنامج بعد التعديلات

تحياتى لك
وتمنياتى لك التوفيق
شكرا وجاري التجربة
الله ينور عليك
ممكن
بعد الضغط علي علامة يساوي وظهور النتيجة
اذا اجرينا اي عملية احري(الضغط علي اي زر )   يقوم بمسح ماعلي الشاشة والشروع في عملية جديدة
شكرا
إقتباس :


عزيزي
هل أنت مدرك أن ترتيب الأرقام معكوسة؟  Huh 
(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 كتب : [ -> ]
إقتباس :


عزيزي
هل أنت مدرك أن ترتيب الأرقام معكوسة؟  Huh 


لا مشكلة من الترتيب لانه فى النهاية مظهر فقط

الاهم ما فى الامر هو المضمون 

لان المظهر يمكنك تعديله وترتيبه
يمكنك تحميل السورس المدرج فى الموضوع
والتعديل عليه كما تشاء

تحياتى لك
وتمنياتى لك التوفيق
السيد الفاضل

  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

ولكن لا جديد
برجاء اعادة تحميل السورس بعد التعديل
اعد المحاولة مجدداً اخى الفاضل
فالامر ابسط بكثير

فقط اعد قراءة ردي مججداً وركز وتخيل الامر
وستتمكن بالنهاية بفعلها ما يجعلنى لا اقم بذلك
كونى اريدك ان تتعب قليلاً وتتعلم من الاخطاء والتجربة

تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2