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

مبرمج مبتدئ · #1 03-12-2007, 11:13 PM

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

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

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

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

الاستاذ خليل · #2 03-13-2007, 12:07 AM

مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث 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
اتمنى قد فهمت
و وضعت لك ملفا

مبرمج مبتدئ · #3 03-13-2007, 03:41 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث 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

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

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

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

مبرمج مبتدئ · #4 03-13-2007, 02:41 PM

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

الاستاذ خليل · #5 03-13-2007, 09:10 PM

السلام عليكم

شكرا جزيلا

الاستاذ خليل

الاستاذ خليل · #6 03-13-2007, 10:10 PM

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

كود:

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 من النوع النصي
بالسطر الثاني جعلنا قيمة المتغير هو مسار البرنامجك
بالسطر الثالث هو اختبار اذا كان اخر قيمة من مسار البرنامج هو / اذا لم يكن موجود يجعلها موجودة
بالسطر الرابع
قلنا لخاصية الصور للنموذج (فورم) اجلبي صورة من المسار الذي مكتوب بين القوسين

الاستاذ خليل

مبرمج مبتدئ · #7 03-13-2007, 10:14 PM

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

الاستاذ خليل · #8 03-15-2007, 10:49 PM

كنت اجيب عن

اقتباس:

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

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

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

مبرمج مبتدئ · #9 03-16-2007, 12:47 AM

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

مبرمج مبتدئ · #10 03-16-2007, 12:49 AM

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

الاستاذ خليل · #11 03-16-2007, 04:43 PM

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

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

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

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

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

كود:

Me.Hide
    form1.Show

مبرمج مبتدئ · #12 03-17-2007, 12:48 AM

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

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

الاستاذ خليل · #13 03-17-2007, 05:05 PM

اقتباس:

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

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

اقتباس:

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

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

الاستاذ خليل

مبرمج مبتدئ · #14 03-17-2007, 07:25 PM

اقتباس:

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

هذه الاستفسارات:

كود بلغة HTML:

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

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


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

اقتباس:

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

الاستاذ خليل

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

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

الاستاذ خليل · #15 03-17-2007, 11:57 PM

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

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

مبرمج مبتدئ · #16 03-19-2007, 02:53 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

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

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

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

الاستاذ خليل · #17 03-19-2007, 09:45 PM

وجدت لك الطريقة على الرابط التالي

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

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

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

الاستاذ خليل

الاستاذ خليل

مبرمج مبتدئ · #18 03-19-2007, 10:22 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

وجدت لك الطريقة على الرابط التالي

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

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

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 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )

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

الاستاذ خليل · #19 03-19-2007, 10:35 PM

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

الاستاذ خليل · #20 03-19-2007, 10:52 PM

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