+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تشغيل ازاز لوحة المفاتيح في الالة الحاسبة (/showthread.php?tid=29420)
الصفحات:
1
2
تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - atefkhalf2004 - 19-04-19
كيف
تشغيل ازاز لوحة المفاتيح في الالة الحاسبة
مع الماوس
شكرا
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - elgokr - 20-04-19
ينقل الموضوع للقسم المناسب
بخصوص تفعيل الكتابة من لوحة المفاتيح
تم عمل الكود وادراجه بالسورس المرفق
مرفق السورس + البرنامج للاختبار
تحياتى لك
وتمنياتى لك التوفيق
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - atefkhalf2004 - 22-04-19
شكرا لك
كثيييييييييييييييييييييييييرا
معلهش
backspace و delete
وايضا shift مع 8 علامة الضرب لا يعملوا
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - elgokr - 22-04-19
تم التعديل على السورس
لتعديل كلاً من + و - الموجود اعلى الاحرف
حيث يعمل دون الحاجة على الضغط على Shift
وتم اضافة كود كلاً من Back و Delect و (Shift + 8)
وتم اضافة زر مسح رقم واحد بكل مرة
وكذلك تغيير شكل اقرب رقم عشري
مرفق السورس + برنامج الاختبار
صورة لشكل البرنامج بعد التعديلات
تحياتى لك
وتمنياتى لك التوفيق
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - atefkhalf2004 - 22-04-19
شكرا وجاري التجربة
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - atefkhalf2004 - 22-04-19
الله ينور عليك
ممكن
بعد الضغط علي علامة يساوي وظهور النتيجة
اذا اجرينا اي عملية احري(الضغط علي اي زر ) يقوم بمسح ماعلي الشاشة والشروع في عملية جديدة
شكرا
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - saoud2 - 23-04-19
إقتباس :
عزيزي
هل أنت مدرك أن ترتيب الأرقام معكوسة؟ 
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - elgokr - 23-04-19
(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 كتب :إقتباس :
عزيزيهل أنت مدرك أن ترتيب الأرقام معكوسة؟
لا مشكلة من الترتيب لانه فى النهاية مظهر فقط
الاهم ما فى الامر هو المضمون
لان المظهر يمكنك تعديله وترتيبه
يمكنك تحميل السورس المدرج فى الموضوع
والتعديل عليه كما تشاء
تحياتى لك
وتمنياتى لك التوفيق
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - atefkhalf2004 - 23-04-19
السيد الفاضل
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
ولكن لا جديد
برجاء اعادة تحميل السورس بعد التعديل
RE: تشغيل ازاز لوحة المفاتيح في الالة الحاسبة - elgokr - 24-04-19
اعد المحاولة مجدداً اخى الفاضل
فالامر ابسط بكثير
فقط اعد قراءة ردي مججداً وركز وتخيل الامر
وستتمكن بالنهاية بفعلها ما يجعلنى لا اقم بذلك
كونى اريدك ان تتعب قليلاً وتتعلم من الاخطاء والتجربة
تحياتى لك
وتمنياتى لك التوفيق