اسئلة في الفيجوال بيسك,, ارجو الرد استاذ خليل

[مبرمج مبتدئ]

السلام عليكم ورحمة الله
اخواني
لدي بعض الاستفسارات في الفيجوال بيسك
س/
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟

الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب

الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟

وفي الختام اتمنى ان تجيبوا على اسئلتي وبالاخص الاستاذ خليل ابراهيم
ودمتم,,,,,,,,,,,

[الاستاذ خليل]

مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث MouseMove

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
هنا تضع كود تشغيل الصوت

End Sub

س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟
بسيطة تختار حدث الضغط على الزر و تضع فيه الصوت

Private Sub Command2_Click()
هنا تضع كود تشغيل الصوت
End Sub

الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب
روح للفوتو شوب او اجلب اي صورة و ضعها بالخلفية اي اذهب لخاصية الصور Picture و اجلبها و ستكون خلفية لبرنامجك


الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = &H8000000D
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub
يلزمك لفعله عدة امور و هي تغيير خاصية style الى Graphical
او كتابة الكود التالي بحدث لود النموذج (الفورم)

Private Sub Form_Load()
Command1.Style = 1
End Sub

و ثم تختار حدث تحريك الماوس في الفورم و تكتب الشفرة السابقة الخاصة بتغيير اللون حيث
Command1.BackColor = &H8000000D
End Sub

يمثل اسم الكائن ثم نغير خاصية الخلفية ثم الرمز اللون و تستطيع تغييره من الذهاب الى اي شيء فيه لون من الفجوال بيسك و نسخ الارقام اللون
هذا درس الصوت
http://www.hesab.net/vb/showthread.php?t=2165
اتمنى قد فهمت
و وضعت لك ملفا

[مبرمج مبتدئ]

مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث MouseMove

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
هنا تضع كود تشغيل الصوت

End Sub

س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟
بسيطة تختار حدث الضغط على الزر و تضع فيه الصوت

Private Sub Command2_Click()
هنا تضع كود تشغيل الصوت
End Sub


الحمد لله سويتها
الله يجزاك الف الف الف خير
وهذا التطبيق
في المرفقات




الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب
روح للفوتو شوب او اجلب اي صورة و ضعها بالخلفية اي اذهب لخاصية الصور Picture و اجلبها و ستكون خلفية لبرنامجك


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




ا
الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = &H8000000D
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub
يلزمك لفعله عدة امور و هي تغيير خاصية style الى Graphical
او كتابة الكود التالي بحدث لود النموذج (الفورم)

Private Sub Form_Load()
Command1.Style = 1
End Sub

و ثم تختار حدث تحريك الماوس في الفورم و تكتب الشفرة السابقة الخاصة بتغيير اللون حيث
Command1.BackColor = &H8000000D
End Sub

يمثل اسم الكائن ثم نغير خاصية الخلفية ثم الرمز اللون و تستطيع تغييره من الذهاب الى اي شيء فيه لون من الفجوال بيسك و نسخ الارقام اللون
هذا درس الصوت
http://www.hesab.net/vb/showthread.php?t=2165
اتمنى قد فهمت
و وضعت لك ملفا


بارك الله فيط تم التطبيق وتم تغيير اللون
وهذا التطبيق
في المرفقات



جزاك الله خير ومعليش تعبتك معاي
وودي بعض الاستفسارات اذا تسمح

س/
حمل الملف التالي
http://up.9q9q.net/up/index.php?f=tsQcd8Ikf
إذا لم يعمل حمل من الرابط التالي
http://www.upmoon.com/up9/setup.rar

اذا وضعت الماوس على الزر يظهر الكلام مثلا " اختيار ملف " " تغيير الرقم السري " تظهر بتأثير حلو ..... كيف اسويها.؟.؟


س/
كيف اضع زر لفتح ملف من الجهاز ومثلا تشفيره او عرض خصائصه كما هو موجود في البرنامج السابق؟؟


وجزاك الله خير
انا عارف اني تعبتك معاي يا استاذ خليل
لكن تحملنا ترانا مبتدئين

[مبرمج مبتدئ]

ارجو الرد
والملفات في المرفقات

[الاستاذ خليل]

السلام عليكم

شكرا جزيلا

الاستاذ خليل

[الاستاذ خليل]

يكون الصور متغيرة بجعل الصورة في متغير و تجلبها بالكود كالتالي:


Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"

Me.Picture = LoadPicture(s & "imge\bakbox.jpg")

الشفرة السابقة تقوم بجلب صورة الى خلفية برنامجك تاخذها من مجلد الصورimge و اسم الصورة الموضوعة bakbox و نسقها jpg


بالنسبة لاول سطر هو عرفنا متغير اسمه s من النوع النصي
بالسطر الثاني جعلنا قيمة المتغير هو مسار البرنامجك
بالسطر الثالث هو اختبار اذا كان اخر قيمة من مسار البرنامج هو / اذا لم يكن موجود يجعلها موجودة
بالسطر الرابع
قلنا لخاصية الصور للنموذج (فورم) اجلبي صورة من المسار الذي مكتوب بين القوسين

الاستاذ خليل

[مبرمج مبتدئ]

استاذ خليل
في الحقيقة مافهمت اي شئ من الرد بالاعلى
اتمنى التوضيح
عن اي سؤال انت تجاوب..؟
وارجو الاجابة عن جميع الاسئلة
وبارك الله فيك استاذ خليل

[الاستاذ خليل]

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

اشرح تفصيلا لكي افكر معك بالحل

[مبرمج مبتدئ]

جزاك الله خير على الرد
أنا قصدي
ان بعض البرامج يكون شكلها (يعني ثيم البرنامج ) متغيير
والمثال اللي وضعته لك يوضح ان البرنامج بالكامل تغيير مثل زر الاغلاق وزر التصغير والتكبير
ارجو ان تكون وصلت المعلومة
ومرة اشكرك استاذ خليل

[مبرمج مبتدئ]

والمثال اللي وضعته لك
عن طريق اداة وضعها لي احد الاخوان وشرحها كالاتي
تذهب الى الفيجوال بيسك
تضغط c+T
تضغط استعراض ثم تحدد الاداة وبذلك يتم تغيير واجهة البرنامج

[الاستاذ خليل]

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

لم يضهر لي الملف الذي ارفقته لانه توجد دوال ناقصة بجهازي اي ملف vbfksr2.ocx

عذرا ساشرح بالتفصيل

قم بتصميم فور1 بلون معين و اعدادات مختلفة
قم بتصميم اخرى بلون معين و اعدادات مختلفة
و هكذا

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

Me.Hide
form1.Show

[مبرمج مبتدئ]

جزاك الله خير استاذ خليل
والتطبيق في المرفقات
لكن ارجو منك ان تجيب على ماتبقى من اسئلة ضروري


وفي عندي اسفسار بسيط قبل لا انسى
وهو:
في تطبيق الصوت اللي ارفقته لك في الرد اللي فوق
كيف اجعل البرنامج يشتغل في جهاز اخر يعني صيغة exe ويكون الصوت شغال
لاني حاولت ولا عرفت

[الاستاذ خليل]

لكن ارجو منك ان تجيب على ماتبقى من اسئلة ضروري

لم اعرف اي سؤال تقصد؟


وفي عندي اسفسار بسيط قبل لا انسى
وهو:
في تطبيق الصوت اللي ارفقته لك في الرد اللي فوق
كيف اجعل البرنامج يشتغل في جهاز اخر يعني صيغة exe ويكون الصوت شغال
لاني حاولت ولا عرفت

الحل بارفاق الصوت يعني اذا جعلت الصوت ياخذ من ملف خارجي و هو صوت طبعا لا بد من ارفاقه مع برنامجك ايضا الفجوال بيسك لا يخزنه عنده بل يجب انت تخليه بنفس مسار البرنامج اي تعمل له نسخ و لصق في نفس مجلد البرنامج.
و اذا كنت واضع الاصوات في مجلد تنسخ هذا المجلد و تضعه في مكان exe برنامجك

الاستاذ خليل

[مبرمج مبتدئ]

لم اعرف اي سؤال تقصد؟

هذه الاستفسارات:
س/
حمل الملف التالي
http://up.9q9q.net/up/index.php?f=tsQcd8Ikf
إذا لم يعمل حمل من الرابط التالي
http://www.upmoon.com/up9/setup.rar

اذا وضعت الماوس على الزر يظهر الكلام مثلا " اختيار ملف " " تغيير الرقم السري " تظهر بتأثير حلو ..... كيف اسويها.؟.؟


س/
كيف اضع زر لفتح ملف من الجهاز ومثلا تشفيره او عرض خصائصه كما هو موجود في البرنامج السابق؟؟

الحل بارفاق الصوت يعني اذا جعلت الصوت ياخذ من ملف خارجي و هو صوت طبعا لا بد من ارفاقه مع برنامجك ايضا الفجوال بيسك لا يخزنه عنده بل يجب انت تخليه بنفس مسار البرنامج اي تعمل له نسخ و لصق في نفس مجلد البرنامج.
و اذا كنت واضع الاصوات في مجلد تنسخ هذا المجلد و تضعه في مكان exe برنامجك

الاستاذ خليل

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

ما اقدر ارفق الملف لان حجمه كبير شوية

[الاستاذ خليل]

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



بالنسبة للملف توجد دالة ناقصة تحوي عل gif89.ocx لم يعمل لدي

[مبرمج مبتدئ]

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

طيب لعلي أن اجدها في منتدى الفريق العربي للبرمجة

بالنسبة للملف توجد دالة ناقصة تحوي عل gif89.ocx لم يعمل لدي

جرب حمله من الرابط التالي وان شاء الله سيشتغل معك

اختر حفظ الهدف باسم
http://www.ar-tr.com/vb/uploaded/175_1159799783.zip

[الاستاذ خليل]

وجدت لك الطريقة على الرابط التالي (http://www.arabmoheet.net/forum/default.asp?codepage=3&topic_no=10503)

و الطريقة كالتالي


إتبع الخطوات :

1_ إفتح add in manager من قائمة add ins _ قوم بتحديد VB 6 RESOUCE EDITOR

2 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )

3 _ إختار ملفات *.* وإدرج الملف الصوتي وسيسميه 101 داخل مجلد CUSTOM

ولتشغيل الصوت اكتب الكود التالى .


Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
إصدار_الصوت = StrConv(LoadResData(101, "CUSTOM"), 64)
sndPlaySound إصدار_الصوت, 5
End Sub



الاستاذ خليل



الاستاذ خليل

[مبرمج مبتدئ]

وجدت لك الطريقة على الرابط التالي (http://www.arabmoheet.net/forum/default.asp?codepage=3&topic_no=10503)

و الطريقة كالتالي


إتبع الخطوات :

1_ إفتح add in manager من قائمة add ins _ قوم بتحديد VB 6 RESOUCE EDITOR

2 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )

3 _ إختار ملفات *.* وإدرج الملف الصوتي وسيسميه 101 داخل مجلد CUSTOM

ولتشغيل الصوت اكتب الكود التالى .


Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
إصدار_الصوت = StrConv(LoadResData(101, "CUSTOM"), 64)
sndPlaySound إصدار_الصوت, 5
End Sub



الاستاذ خليل



الاستاذ خليل


اتبعت الشرح
ولكن للأسف في هذه النقطة:
2 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )

لم يظهر شئ في شريط الادوات

[الاستاذ خليل]

ساعمل شرح لحظة

[الاستاذ خليل]

الشرح كصورة بالمرفق

[مبرمج مبتدئ]

جزاك الله خير على الشرح

طبقت وظهرت معاي
لكن الصوت مايشتغل
وتظهر لي الصورة التالية:
http://www.s7bqatar.com/mlffat//photos/499.gif

[الاستاذ خليل]

هات ملفك ببحث معاك بحله مع الصوت طبعا

[مبرمج مبتدئ]

هات ملفك ببحث معاك بحله مع الصوت طبعا

الملف في الرد رقم 4 http://www.hesab.net./vb/showpost.php?p=13488&postcount=4 ( تطبيق الصوت )
ومعليش على اني تعبتك معاي
لك الاجر ان شاء الله

[الاستاذ خليل]

و جدت لك ملفين مفتوحين به يمكن ان تستفيد من الكود منقول من موقع انجليزي يحوي على اكواد هو التالي
http://www.planet-source-code.com/vb

للفتح الملفات

[مبرمج مبتدئ]

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

[الاستاذ خليل]

كل ما جربت فيهم بتفهم
انت غير فقط ما يلزم خليه زي ما هو
افضل لك

حاول او اسئل في منتدى المحيط العربي هو ممتاز ايضا في البرمجة

[مبرمج مبتدئ]

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

[الاستاذ خليل]

عفوا

و شكرا لتقديرك

[zine pef]

الأخ الفاضل الأستاذ خليل سؤالي هو كيف اوضع كودللموس عندما اضعه لجملة متحركة تتوقف و شكرا..

[الاستاذ خليل]

تستعمل حدثين و تايمر


تايمر تجعل يه كود يحرك النص و دايما يكون شغال

و ثم تذهب لحدث ماوس موف على الزر و تلغي عمل التايمر بمرور الماوس عليه

و تذهب لحدث ماوس موف للفورم ايضا تشغل التايمر


الاستاذ خليل

[zine pef]

شكرا استاذي الفاضل ابو خليل و سوف اطبقها

[zine pef]

تستعمل حدثين و تايمر


تايمر تجعل يه كود يحرك النص و دايما يكون شغال

و ثم تذهب لحدث ماوس موف على الزر و تلغي عمل التايمر بمرور الماوس عليه

و تذهب لحدث ماوس موف للفورم ايضا تشغل التايمر


الاستاذ خليل
استادي هل ممكن توضيح اكثر ..حدث ماوس موف على الزر..و حدث ماوس موف للفرم والف شكر

[الاستاذ خليل]

تجده الشرح بالمرفق

الاستاذ خليل

[zine pef]

السلام عليكم
شكرا يا استاذ على هذا الملف و ما يتضمن من شرح ..
لكن انا لاأريد وضع زر command ...
و بالتفصيل انا اريد .. عـــند فتح فورم تكون فيه جملة متحركة و عندى وضع الموس عليها تتوقف..
و شكرا مرة ثانية ...

[الاستاذ خليل]

اجعل تايمر يقوم باضهار احرف و يعمل بدون توقف

ثم اعط الجملة او الحرف في حدث ماوس موف امر ايقاف التايمر

ثم اعط حدث ماوس موف للفورم امر تشغيل التايمر

.