منتدى جزيرة الرياضيات - اسئلة في الفيجوال بيسك,, ارجو الرد استاذ خليل

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)

- منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)

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

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

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

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

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

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

جزاك الله خير يا استاذ خليل وبارك فيك

اقتباس:

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

كود:

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

هنا تضع كود تشغيل الصوت



End Sub

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

كود:

Private Sub Command2_Click()

هنا تضع كود تشغيل الصوت

End Sub

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

اقتباس:

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

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

اقتباس:

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

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

كود:

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

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

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

س/
حمل الملف التالي
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 برنامجك

الاستاذ خليل

اقتباس:

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

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

كود بلغة HTML:

س/

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

http://up.9q9q.net/up/index.php?f=tsQcd8Ikf

إذا لم يعمل حمل من الرابط التالي

http://www.upmoon.com/up9/setup.rar



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





س/

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

اقتباس:

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

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

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

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

اقتباس:

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

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

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

اقتباس:

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

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

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

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

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

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

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

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

الاستاذ خليل

الاستاذ خليل

اقتباس:

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

كود:

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

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

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

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