تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز"
#1
السلام عليكم ورحمة الله تعالى وبركاته
مشان ما اطيل عليكم
نفوت بالموضوع
أولا
ضع الادوات الاتية
Timer
Label
وضع خاصية Name للتايمر Style
وضع خاصية Name للابيل AscCode
وضغطتين على الفورم وامحي كل شيء
وضع هذا الكود على السريع :

كود :
Private Sub Form_KeyPress(KeyAscii As Integer)
AscCode.Caption = "Asc [ " & Chr$(KeyAscii) & " ]  <<=|=>>  " & " ( " & (KeyAscii) & " ) " ' ليعطيك الاسي كود ل اي زر
End Sub
' The Code Created By Alaa Akrami
Private Sub Form_Load()
'لتنسيق الواجهة على اكمل وجه
Form1.Caption = "AsciiCode Explorer" ' ضبط العنوان الرئيسي للفورم
Form1.BackColor = vbBlack 'ضبط لون خلفية الفورم للاسود
AscCode.BackColor = vbBlack  'ضبط لون خلفية اليبل للاسود
AscCode.ForeColor = vbWhite  'ضبط لون الخط للابيض
AscCode.Caption = "{{  " & " Press Any Key " & "  }}"  ' عندما تشغل البرنامج يطبع في الليبل اضغط اي زر
AscCode.Font.Bold = True ' يجعل الخط في الليبل سميك
AscCode.Font.Name = "Arial"  ' يحوال الخيط الى اريل
AscCode.Font.Size = "15"  ' يحوال حجم الخط الى 15
AscCode.AutoSize = True ' لجعل الليبل يتغير حجمه حسب الخط الذي فيه "النص والحجم"
Style.Interval = 1 ' لجعل قيمة المؤقت 1 من 1000 من الثانية
End Sub

Private Sub Style_Timer()
'لتنسيق احداثيات الليبل
AscCode.Left = ((Form1.Width / 2 - AscCode.Width / 2)) ' لجعل الفورم اقرب للوسط
AscCode.Top = ((Form1.Height / 2 - AscCode.Height / 2)) ' لجعل الفورم اقرب للوسط
AscCode.Font.Size = ((Form1.Height + Form1.Width) / 500) ' لجعل الخط الموجود داخل الليبل يناسب الحجم
End Sub

والسلام عليكم ورحمة الله تعالى وبركاته
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام

- مشكور أخي الكريم . جزاك الله خير .

- تحياتي لك .
الرد }}}
تم الشكر بواسطة:
#3
شكراً على المرور
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم...

شكراً على الكود، و لكن ليس من الصواب استعمال الـ Timer في هذا الغرض (المحافظة على توسيط الـ Label) خاصة و أن الكود سيتم تنفيذه 1000 مرة في الثانية الواحدة - على الأقل نظرياً.

* يكفي وضع نفس الكود في الحدث Form_Resize لتنفيذه فقط عندما يتغير حجم (أبعاد) النافذة.

شكراً مرة أخرى و السلام عليكم.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#5
هههههه معك حق
شكراً على المرور
الرد }}}
تم الشكر بواسطة:
#6
علاء الاكرمي كتب :هههههه معك حق
شكراً على المرور

هذا كود بأستخدام vb9
اولا قم بأضافة 2 Text box
في حدث KeyPress للتكست الاول
اكتب الكود :

txt2.Text=e.KeyCode.ToString
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,124 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,218 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  برنامج جديد benali17 2 1,661 27-01-21, 11:27 PM
آخر رد: benali17
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15
  عاجل هل يوجد اي برنامج ينفع مشروع تخرج جاهز مثال ابو عمر الشهري 1 1,635 24-11-20, 03:17 AM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم