برنامج الكامل في الاكواد الفيجولية

صالح فاضل كتب:

لم استطع فهم البرنامج مع انني خبير في vb6

يرجي التوضيح وشكرا

و هل يقيم الأنسان نفسه :rolleyes:

---

من أسم البرنامج واضح أنه برنامج به دوال و أمثلة يعنى أكواد جاهزة.

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

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

يمكن في غلط او اي شي او اكواد خاصة بملفات dll لانها كلها عبارة عن برفكت وفنكشنات !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

اقتباس

ولكن اقول ان اكواد البرنامج لا تمت الى اكواد الفيجول بيسك بصلة

Win32 APIs ؟ لم افهم القصد

هل التي تكون في المودول

او في الجنرال العام للفورم

اذا كان هذا هو القصد

فاني لا افهمها اقوم بحفظ ما يلزمني والرجوع الي الهلب msdn

Win32 APIs ؟ وان كان غير ذلك

فانا لا اعرف شي عنها يرجى التوضيح

وشكرا اخي الكريم

لا تمل من طريقتى فقد تستفيد.

هل يمكنك تفسير الكود التالى :

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
Dim Cnt As Long
For Cnt = 0 To 500 Step 10
	Beep Cnt, 50
	Me.Caption = Cnt
	DoEvents
Next Cnt
End Sub

السلام عليكم

الاخ msayed2004 يقصد بـــ win32 api هى دوال خاصة بالويندوز موجودة فى مكتبات dll خاصة بالويندوز يتم مناداتها عن طريق الفجيوال بيزيك مثل دالة beep موجودة فى مكتبة kenel32.dll فى الويندوز

اولا اخي الحبيب( msayed2004 )اقلك انا استخدم الديفلت الطبيعي لهذه الدالة

ما استخدمت هذه الدالة عبر استدعائها من ملف

ثانيا اقل لك ان الكود عبارة انه اثناء ظهورالشاشة(Form_Activate )تعمل صوت

بيكون for بعد كل10 step

يخلي قيمة الصوت يتدرج بارتفاع قيمة المتغيرcnt وسرعته 50 وينتج عنه الصوت

ويظهر لي في الكبشن الخاص بالفورم قيمة cnt

يعني عمل لي فنكشن للbeep بمقدار الارتفاع وسرعة الصوت

طيب اخي العزيز

انا ايش استفدت من هذا الكود عملت صوت وعطلت عمل beep الاصلية

ولازم اححد فيها قوة امتداد الصوت والسرعة

ايش استفدت انا الان وماهي العلاقه؟

طيب كان المفروض البرنامج يشرح لي كيف اعمل الدالة اصلا في ملف dll

واعرف علي اساس تم بناء هذه الدالة

ما يكونش الغرض نسخ الكود ويالله

وايضا كان المفروض يشرح لي الدوال الاصلية

مثال : يعني كيف تم بناء دالة sqr

علي اي اساس ويقل ان العملية تتم بجمع وطرح والخخخخخخخخ ..........

وايضا يشرح لي البرنامج كيف انا اصلح ملف(dll) واستدعيه بمثل هذا البرفكت

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

وللتوضيح : مثلا انا عملت دالة تفقيط من 1 الي 9999999999999وكنت اريد اعمل لها ملف dllواارسل له القيمه وهو يرجع لي (string)

بس حاولت مع اكتفdll ولم استطيع عمل الملف واستدعائه وعملت الفنكشن في المودول .....................

اما اني انسخ كود ما اعرفش ايش بيعمل لي الا عندما انفذه

فالعملية كلها نقل في نقل!!!!!!!!

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

وفي الاخير اقول القضية نحب نستفيد ليس الغرض التقييم والتفاخر

وشكرا اخي العزيزعلى اهتمامك

مع الأسف فهمتنى غلط و أنا لا أقصد التقييم أو التفاخر أطلاقا و يعلم الله نيتى.

---

- الـ APIs تقدر تقول أنها وظائف موجودة بالنظام بنستدعيها للقيام بشئ ما و بالنسبة للغة كالـ VB 6 فبدون الـ APIs فهى لا شئ و لا تستطيع عمل شئ مفيد.

- لو بصينا مثلا للأداه اللى أسمها Common Dialog فهى تغليف لبعض دوال الـ APIs و التغليف (Wrapping) الهدف منه تسهيل الأشياء.

- أذن فهى وظائف موجودة بالنظام وفرتها ميكروسوفت للمبرمجين (مش لمبرمجى الـ Classic VB بس بل لكل المبرمجين) للقيام بوظائف ما.

- دالة Beep هى مثال و هى لم تعطل الـ Beep الأصلية (يعنى لو أعطيناها أسم آخر هتشتغل Beep العادية تماما) دى كانت مثال فقط.

- الدوال موجودة جميعا على الـ MSDN (الموقع مش الأسطوانة) مع شرح لها , لكن شرح يناسب كل لغات البرمجة , موقع AllAPI يوفر شرح لمعظم الدوال المشهورة و اللى بنستخدمها كتير و لكن موجه الى مبرمجى الـ VB

- أما عن كيفية عمل هذه الدوال فهو غير قابل للتفسير بالـ VB فهى مصنوعة بلغات قوية تتعامل مع الحاسب مباشرة كلغة التجميع و السى.

- طبعا أنصحك بتعلمها لأن نداء وظائف جاهزة فى مجموعة Components كالـ Common Dialog لا يعتبر برمجة فعليه و هو للمبتدئين فقط (و لا أقصد أى تجريح , أنا أتكلم بصفة عامة).

- توجد مجموعة من الدروس هنا بالمنتدى عن الـ APIs (و لدينا هنا منتدى خاص بها) و أيضا توجد دروس جيدة على AllAPI كالموجودة هنـــــــــــــــــــــــــــا.

- لتحويل دالة ما مشروحة على الـ MSDN للـ Syntax المستخدم فى الـ VB لمناداتها راجع : How To Get Started Programming with the Windows API.

- الآن عليك بالتجربة لتتعود عليها و أن لم تجد تفسير لسؤال لك بالمنتدى أو بمحركات بحث كـ Google ضع سؤالك هنا (تذكر البحث أولا).

أخيرا نرجو أنك تحسن الظن بالناس و أن لا تتخيل أن كل من يحاول المساعدة متكبر أو متعالى يستعرض ما لديه.

بالمناسبة : ما معنى الـ (البرفكت) فى مشاركتك السابقة ؟

شكرا جزيلا اخي العزيز( msayed2004 ) علي هذا التوضيح وهذا الجهد المضني وانا اقدر تماما الجهد الذي قمت به ويعلم الله اني لا اقصدك انت

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

واخيرا اشكرك ياخي العزيز علي تفاعلك معي والعفو منك ان صدر مني اي شي غير مقصود ........

والفت نظرك ياخي الكريم الي انه إن شاء الله قررت الانتقال الي تعلم البرمجه بواسطة vb.net وهذا الموضوع

كان احد مواضيعي بتاريخ 29-10-2007 فقد وجدت ما كنت ابحث عنه للانتقال الي البرمجه by vb.net فقد وجدت في هذا الرابط :

http://www.vb4arab.com/vb/showthread.php?t=2473

شرح كامل للفارق بين vb6 and vb.net من الناحية المعنوية وإن شاء الله تعم الفائدة ولكن لن اترك vb6 ابد فهي اللغة الام ولي معها

تاريخ طويل مع انني الي اليوم اكتشف اشياء جديدة فيها ّّّّّّّّّّّّّّ!!!!!!!!!!!!!!؟؟؟؟؟؟؟؟؟؟؟؟؟

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

واشكرك مرة اخري اخي العزيز وإن شاء الله يدوم التواصل

نعيما ياباشا :D