الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن مساعدة بخصوص شيئاً

مغلق
بدأه matrixyb في 17 أغسطس 2006 · 16 رد · 1,029 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

انا اليوم ابي فزعتكم يا شباب

ابغا اعرف كيف اضيف صوت على زر معين

يعني : اذا ضغطت زر معين يطلع صوت معين

ملاحظة جميع ازرار الكبيورد

يعني برضوا : الاحرف و الارقام و كل شي مثل الدليت و البرنت سكرين

هل لها طريقة يا شباب

و في نقطة ثانية كمان

انا مصمم البرنامج للاطفال (كلكم تقولوا لايش يبي يوصل) ابي اوصل لنقطة معينة

اخلي البرنامج ما يظهر ابدا يعني يكون تحت عند الساعة واذا ضغطت عليه

ما يشتغل فهمتوا علي (هههههههه) مو ما يشتغل ما يظهر يعني مكانه واحد تحت واذا ضغطت

على زر معين يطلع الصوت بس هذا الى ابغاه

وشكرا

ابو عماد

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#2

:P صديقي العزيز في برنامجك اذا كنت تملك مثلا صندوق نص textbox ضمن خيارات keyprees اكتب تعليمة beep

لا اله الا الله وحده لا شريك له

#3

مشكور اخي على الرد بس شكلك يا اخي ما فهمت علي

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#4

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

ازرار الكيبورد من خارج البرنامج و دى سهله جدا باستخدام داله اسمها getkeysstate و هى من دوال ال api ابحث عنها فى المنتدى هتلاقى كتير من الامثله و شرح عليها وو ظيفتها انها تعطيك قيم اقل من الصفر فى حاله الضغط على الزر او تعطى صفر او واحد فى حاله عدم الضغط على الزر فباستخدام حلقه for to تبداء من

واحد الى 255 و وضع تلك الكود داخل تايمر يعمل ب interval =1 كده تكون قدرت تتحسس جميع ازرار الكيبورد و بعد كده باستخدام select case لل 255 رقم اللى بيمثلو قيم الازرار للتوضيح الحرف A = 65

فى جدول المحارف ASCII تقدر فى الاخر معرفه الزر اللى فى وضع ضغط و هنا تفتح ملف الصوت الخاص بالزر . دى كانت الفكره فقط عليك انك تبحث عن الداله و تبداء التطبيق .

#5

ههههههه

اخواني للاسف ما فهمت كمان

ارجوا شرح

طويل وواضح مع الشكر

ابو عماد

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#6

السلام عليكم يا اخ matrixyb

دلوقتي هانعمل مع بعض نموذج صغير جدا علشان تخلي البرنامج يعرف انت دوست على انهي زرار في الكيبورد

جاهز ؟؟؟؟

يلا..

اعمل نموذج فارغ مش عليه اي كائنات خالص

دلوقتي روح على نافذة الخصائص

وروح عند الخاصية KeyPreview

اعملها True

,وبعد كدة

دوس 2 كليك على النموذج علشان تخش تكتب الكوود

اختار الحدث KeyDown بدلا من الحدث Load

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

المهم

دلوقتي انت داخل الحدث KeyDown

اكتب فيه الكود ده

هذا الكود مهمته هايطلع رسالة اول لما تدوس على حرف A

If KeyCode = vbKeyA Then

MsgBox "A"

End If

دلوقتي شغل البرنامج ودوس على حرف A

هايطلعلك الرسالة اللي انت كاتبها وهي A

بس كدة

طبعا هاتكرر هذا الكود على عدد الأزرار اللي انت عاوزها مع تغيير اسم الزرار اللي جنبكلمة VbKey

يعني كدة مثلا

If KeyCode = vbKeyA Then

MsgBox "A"

End If

If KeyCode = vbKeyB Then

MsgBox "B"

End If

If KeyCode = vbKey5 Then

MsgBox "5"

End If

If KeyCode = vbKeyf1 Then

MsgBox "F1"

End If

If KeyCode = vbKeyY Then

MsgBox "Y"

End If

وهكذا ..

بس والله ما بعرف ما هو اسماء الأزرار الأتية

+ - * / Enter Back space \ و Delete

اللي يعرفهم يكتبهملي لو سمحت

حد فهم حاجة ؟؟؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#7

برضوا انت ما فهمتني ابغا اذا اضغط اطلع صوت انا محدده

فهمت علي ولا لا

ارجوا ان تساعدني

تم تعديل هذه المشاركة بواسطة matrixyb في 18 أغسطس 2006 في 21:14

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#8

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

وبعدين هاجهزبك برنامج بتاع الأصوات اللي انت عاوزها

بس قولي الأول فهمت اللي انا قلتهولك ولا لأ

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#9

ايوا فهمت و طبقت

و لله الحمد

ما هو التالي

وفقك الله

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#10

خذ هذا المرفق

ده اول لما تدوس على المفاتيح اللي على الكيبورد ( طبعا انا معملتش كل المفاتيح انا عامل 5 بس وموضحين اسمائهم في البرنامج) اول لما تدوس عليهم هايصدر اصوات

اما بقى بخصوص التعامل مع المفاتيح وهو البرنامج في حالة إخفاء على ما انا فهمت طلبك اللي في الأول دي انا مش بعرف اعملهخا

سلامي لك

Sound_by_keys.rar

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#11

مشكور اخي MohamedAliSalim على ردك

و المرفق الى حطيته لي عرفت كيف اتعامل معه

بس ما عرفت كيف اسوي اصوات للارقام و الرموز و التاب و الدليت و غيرها

و كمان ابغا البرنامج يشتغل في كل مكان مثلا انا فاتح البرنامج و ضغطت زر يطلع صوت

ابغاه اذا مثلا رحت الورد و كتبت يطلع الصوت و اذا كتبت في اي مكان يطلع الصوت كيف الطريقة

وشكرا اخوكم ابوعماد

تم تعديل هذه المشاركة بواسطة matrixyb في 20 أغسطس 2006 في 16:36

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#12

أنظر اخى الى هذا الدرس

ويارب يكون هذا ما تريد

وانا اشكر كل من شاركوا فى هذا الموضوع الجميل

لأننى استفدت منهم

وأريد ان أفيدكم ببعض ما عندى

والسلام عليكم ورحمة الله وبركاته

Dars_key.rar

Dars_key.rar

#13

مشكور اخواني على ردودكم

بس انا ابغا البرنامج يشتغل في كل مكان مثلا انا فاتح البرنامج و ضغطت زر يطلع صوت

ابغاه اذا مثلا رحت الورد و كتبت يطلع الصوت و اذا كتبت في اي مكان يطلع الصوت كيف الطريقة

وشكرا اخوكم ابوعماد

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#14

وينكم يا شباب ما رديتوا

انا ابغا البرنامج يشتغل في كل مكان مثلا انا فاتح البرنامج و ضغطت زر يطلع صوت

ابغاه اذا مثلا رحت الورد و كتبت يطلع الصوت و اذا كتبت في اي مكان يطلع الصوت كيف الطريقة

وشكرا اخوكم ابوعماد

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#16

انا ابغا رد واضح و شكرا

تم تعديل هذه المشاركة بواسطة matrixyb في 23 أغسطس 2006 في 22:28

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#17

بصراحة يا اخي انا لآ اعرف اكثر من اللي قلته لك

حكاية ان البرنامج يعمل على كل شئ يعني على الوررد وعلى اي حتة تكتب فيها دي صعبة عليا ولا اعرفها

ولكن اطلب منك ان تستمر في البحث عن ما تريد لانه فعلا هايبقى برنامج فكرته جميله

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

هذا الموضوع مغلق.

مواضيع مشابهة