beeeep

:rolleyes: عفواً هناك خطأ حيث أن الصحيح هو c=beep(a,b( وأظن أنكم لا حظتم الخطأ

مشكور وبارك الله فيك

شكرا لك بارك الله فيك ,, تحياتي

تشكر اخي , ويرجى شرح الكود بمزيد من التفصيل :

الكود بعد التعديل :

private sub command1_click ()

dim a as long

dim b as long

dim c as long

a=(int(rnd*10000))

b=(int(rnd*1000))

if text1.text="abd" then

form2.show

else

c=beep( a , b )

end if

end sub
private sub form1_load ()
randomize
end sub

بسم الله

موضوع شيق

ومساهمة مني في هذا الموضوع اللذيذ اضع هذا المثال البسيط

طبعا لا يسمى برنامج وانما هو مجرد شيء ترفيهي

وهو يقوم بعمل نغمة موسيقية يقوم بتأليفها المستخدم عن طريق الماوس او ازرار الالة الحاسبة في لوحة المفاتيح وحفظها

ويمكن استدعائها وتشغيلها بالسرعة الذي يريدها المستخدم

ارجو ان ينال اعجابكم

Music.rar

شكراً أيها الأخوة الكرام على تفاعلكم وجزيل الشكر للأخ ala2 vb على تصحيح الكود الملخبط وللأخ amir imam على البرنامج الجميل

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

وثانياً كتابة التعليمات :

أولاً نعرف المتغيرات a و b و c على أنها من النوع الطويل

ثم نكتب لكل من المتغيرين a و b الكود التالي

a=(int(rnd*10000))

b=(int(rnd*1000))

هذا يعطي كلاً من المتغيرين قيمة عددية صحيحة عشوائية حيث أن كلمة int تعطي المتغير قيمة عددية والكلمة rnd تعطيه قيمة عشوائية والعدد المضروب بالrnd هو الحد الأقصى له وطبعاً لا ننسى إغلاق كل الأقواس

ثم الكود

if text1.text="abd" then

form2.show

else

c=beep(a,B)

end if

هذا الكود يتحقق من قيمة مربع النص فإذا وجدها abd ينتقل بك إلى الفورم التالي وإذا وجدها غير ذلك يقوم بتعريف الإجراء beep ويمرر إليه القيمتين العشوائيتين a و b

وبهذا يعطيك صوتاً عشوائياً ذات مدة عشوائية كل مرة تضغط فيها الزر

ولكن قد تعتقد أن هذه القيم عشوائية ولكنها موضوعة بنظام محدد اختاره لها الويندوزمن عنده لذلك نكتب الكود التالي في حدث تحميل الفورم

randomize

وبذلك تعطي قيماً عشوائية حقيقية

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

abboodd dude

إيه ده أنا كل ما أكتب b ) يحط بداله وش ما عجبتني هذه الميزة

أنا الآن قرأت السورس كود تبع برنامجك واكتشفت أنو ذوقك حلو أخ amir imam وعندك أفكار حلوة استطعت تظهرها بكود ما في أبسط منه

بس في مشكلة بسيطة في برنامجك هي أنه عندما تطلب منه عرض النغمات يعرض لك النغمات منذ آخر clear ولو كان في تشغيل البرنامج المرة السابقة أي أن المستخدم قد يضغط فقط ثلاثة أزرار ويريد أن يسمعها فيظهر له نغمات من المرة السابقة وما قبلها لتشغيل البرنامج إذا لم يكن قد ضغط زر clear ولتلافي هذه المشكلة اكتب الكود التالي في حدث تحميل الفورم

open app.path & "\az.txt" foroutput as #1

close #1

بهذا يعيد صنع ملف التيكست من جديد

بسم الله

الاخ العزيز abboodd dude

شكرا جدا على الملحوظة دي

لكن انا كنت عامل المثال مجرد تجربة وممكن اي حد يضيف او يطور فيه

وممكن يبدأ فكرة بسيطة زي كده ويوصل بمجهود الاعضاء لبرنامج كبير ومفيد

جزاك الله خيرا

شكراً أخ amir imam وأرجو من الأخوة الأعضاء المشاركة في هذا الموضوع بطرق لاستخدام دوال الapi بطريقة ممتعة لنجمع بين التعلم والتسلية