|
|
|
|
|
|
|
|
|
منتدى التعليم الإلكتروني منتدى خاص لعمل دورات تعليمية في البرامج و الورش التعليمية خاصة و تتعلق بالتعليم الإلكتروني |
03-12-2007, 11:13 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
اسئلة في الفيجوال بيسك,, ارجو الرد استاذ خليل
السلام عليكم ورحمة الله
اخواني
لدي بعض الاستفسارات في الفيجوال بيسك
س/
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟
الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب
الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟
وفي الختام اتمنى ان تجيبوا على اسئلتي وبالاخص الاستاذ خليل ابراهيم
ودمتم,,,,,,,,,,,
التعديل الأخير تم بواسطة مبرمج مبتدئ ; 03-12-2007 الساعة 11:17 PM
|
03-13-2007, 12:07 AM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث 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
اتمنى قد فهمت
و وضعت لك ملفا
__________________
هذا من فضل ربي
|
03-13-2007, 03:41 AM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
جزاك الله خير يا استاذ خليل وبارك فيك
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث 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
اذا وضعت الماوس على الزر يظهر الكلام مثلا " اختيار ملف " " تغيير الرقم السري " تظهر بتأثير حلو ..... كيف اسويها.؟.؟
س/
كيف اضع زر لفتح ملف من الجهاز ومثلا تشفيره او عرض خصائصه كما هو موجود في البرنامج السابق؟؟
وجزاك الله خير
انا عارف اني تعبتك معاي يا استاذ خليل
لكن تحملنا ترانا مبتدئين
التعديل الأخير تم بواسطة مبرمج مبتدئ ; 03-13-2007 الساعة 02:51 PM
|
03-13-2007, 02:41 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
ارجو الرد
والملفات في المرفقات
|
03-13-2007, 09:10 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
السلام عليكم
شكرا جزيلا
الاستاذ خليل
__________________
هذا من فضل ربي
|
03-13-2007, 10:10 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
يكون الصور متغيرة بجعل الصورة في متغير و تجلبها بالكود كالتالي:
كود:
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 من النوع النصي
بالسطر الثاني جعلنا قيمة المتغير هو مسار البرنامجك
بالسطر الثالث هو اختبار اذا كان اخر قيمة من مسار البرنامج هو / اذا لم يكن موجود يجعلها موجودة
بالسطر الرابع
قلنا لخاصية الصور للنموذج (فورم) اجلبي صورة من المسار الذي مكتوب بين القوسين
الاستاذ خليل
__________________
هذا من فضل ربي
|
03-13-2007, 10:14 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
استاذ خليل
في الحقيقة مافهمت اي شئ من الرد بالاعلى
اتمنى التوضيح
عن اي سؤال انت تجاوب..؟
وارجو الاجابة عن جميع الاسئلة
وبارك الله فيك استاذ خليل
التعديل الأخير تم بواسطة مبرمج مبتدئ ; 03-13-2007 الساعة 10:58 PM
|
03-15-2007, 10:49 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
كنت اجيب عن
اقتباس:
لا مافهمت قصدي انا ماقصدي كيف احد صورة لا
قصدي يكون البرنامج كامل متغيير
مثل هذا البرنامج
|
ماذا تقصد بان البرنامج متغير؟
قصدك ان الصور تتبدل اتوماتيكيا كيف؟
هل تقصد تريد صورة تضهر ثم تاتي صورة بعدها مختلفة و هكذا
هل تقصد ان الصورة توجد خارج برنامجك و ثم تندرج بداخل برنامجك بالكود؟
اشرح تفصيلا لكي افكر معك بالحل
__________________
هذا من فضل ربي
|
03-16-2007, 12:47 AM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
جزاك الله خير على الرد
أنا قصدي
ان بعض البرامج يكون شكلها (يعني ثيم البرنامج ) متغيير
والمثال اللي وضعته لك يوضح ان البرنامج بالكامل تغيير مثل زر الاغلاق وزر التصغير والتكبير
ارجو ان تكون وصلت المعلومة
ومرة اشكرك استاذ خليل
|
03-16-2007, 12:49 AM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
والمثال اللي وضعته لك
عن طريق اداة وضعها لي احد الاخوان وشرحها كالاتي
تذهب الى الفيجوال بيسك
تضغط c+T
تضغط استعراض ثم تحدد الاداة وبذلك يتم تغيير واجهة البرنامج
|
03-16-2007, 04:43 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
قم بتعديل عدة نماذج (فورم)
ثم اكتب امر يضهر للفورم حسب الرغبة
لم يضهر لي الملف الذي ارفقته لانه توجد دوال ناقصة بجهازي اي ملف vbfksr2.ocx
عذرا ساشرح بالتفصيل
قم بتصميم فور1 بلون معين و اعدادات مختلفة
قم بتصميم اخرى بلون معين و اعدادات مختلفة
و هكذا
ثم اكتب فقط شفرة الانتقال للصفحة او الفورم المراد و هي مشروحة بالشروح
__________________
هذا من فضل ربي
|
03-17-2007, 12:48 AM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
جزاك الله خير استاذ خليل
والتطبيق في المرفقات
لكن ارجو منك ان تجيب على ماتبقى من اسئلة ضروري
وفي عندي اسفسار بسيط قبل لا انسى
وهو:
في تطبيق الصوت اللي ارفقته لك في الرد اللي فوق
كيف اجعل البرنامج يشتغل في جهاز اخر يعني صيغة exe ويكون الصوت شغال
لاني حاولت ولا عرفت
|
03-17-2007, 05:05 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
اقتباس:
لكن ارجو منك ان تجيب على ماتبقى من اسئلة ضروري
|
لم اعرف اي سؤال تقصد؟
اقتباس:
وفي عندي اسفسار بسيط قبل لا انسى
وهو:
في تطبيق الصوت اللي ارفقته لك في الرد اللي فوق
كيف اجعل البرنامج يشتغل في جهاز اخر يعني صيغة exe ويكون الصوت شغال
لاني حاولت ولا عرفت
|
الحل بارفاق الصوت يعني اذا جعلت الصوت ياخذ من ملف خارجي و هو صوت طبعا لا بد من ارفاقه مع برنامجك ايضا الفجوال بيسك لا يخزنه عنده بل يجب انت تخليه بنفس مسار البرنامج اي تعمل له نسخ و لصق في نفس مجلد البرنامج.
و اذا كنت واضع الاصوات في مجلد تنسخ هذا المجلد و تضعه في مكان exe برنامجك
الاستاذ خليل
__________________
هذا من فضل ربي
|
03-17-2007, 07:25 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
هذه الاستفسارات:
كود بلغة HTML:
س/
حمل الملف التالي
http://up.9q9q.net/up/index.php?f=tsQcd8Ikf
إذا لم يعمل حمل من الرابط التالي
http://www.upmoon.com/up9/setup.rar
اذا وضعت الماوس على الزر يظهر الكلام مثلا " اختيار ملف " " تغيير الرقم السري " تظهر بتأثير حلو ..... كيف اسويها.؟.؟
س/
كيف اضع زر لفتح ملف من الجهاز ومثلا تشفيره او عرض خصائصه كما هو موجود في البرنامج السابق؟؟
اقتباس:
الحل بارفاق الصوت يعني اذا جعلت الصوت ياخذ من ملف خارجي و هو صوت طبعا لا بد من ارفاقه مع برنامجك ايضا الفجوال بيسك لا يخزنه عنده بل يجب انت تخليه بنفس مسار البرنامج اي تعمل له نسخ و لصق في نفس مجلد البرنامج.
و اذا كنت واضع الاصوات في مجلد تنسخ هذا المجلد و تضعه في مكان exe برنامجك
الاستاذ خليل
|
طيب في برنامج عندي من برمجة احد الاخوان يوجد به صوت ومامعاه ملف صوت خارجي
يعني تطبيق exe فقط ومع ذلك شغال الصوت
ما اقدر ارفق الملف لان حجمه كبير شوية
|
03-17-2007, 11:57 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
اها
صديقك يرفق الملف بملف المصادر لا ادري هذا ما اذكره هذي لم استعملها فبلا لكن ابحث عنها بمنتدى الفريق العربي للبرمجة اتوقع ان تجدها
مع العلم انه يسبب كبر في الحجم للملف و بطء ايضا
بالنسبة للملف توجد دالة ناقصة تحوي عل gif89.ocx لم يعمل لدي
__________________
هذا من فضل ربي
|
03-19-2007, 02:53 AM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
اها
صديقك يرفق الملف بملف المصادر لا ادري هذا ما اذكره هذي لم استعملها فبلا لكن ابحث عنها بمنتدى الفريق العربي للبرمجة اتوقع ان تجدها
مع العلم انه يسبب كبر في الحجم للملف و بطء ايضا
|
طيب لعلي أن اجدها في منتدى الفريق العربي للبرمجة
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
بالنسبة للملف توجد دالة ناقصة تحوي عل gif89.ocx لم يعمل لدي
|
جرب حمله من الرابط التالي وان شاء الله سيشتغل معك
اختر حفظ الهدف باسم
http://www.ar-tr.com/vb/uploaded/175_1159799783.zip
التعديل الأخير تم بواسطة مبرمج مبتدئ ; 03-19-2007 الساعة 03:04 AM
|
03-19-2007, 09:45 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
وجدت لك الطريقة على الرابط التالي
و الطريقة كالتالي
إتبع الخطوات :
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
الاستاذ خليل
الاستاذ خليل
__________________
هذا من فضل ربي
|
03-19-2007, 10:22 PM
|
عضو
|
|
تاريخ التسجيل: Feb 2007
المشاركات: 20
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
وجدت لك الطريقة على الرابط التالي
و الطريقة كالتالي
إتبع الخطوات :
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 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )
|
لم يظهر شئ في شريط الادوات
|
03-19-2007, 10:35 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
ساعمل شرح لحظة
__________________
هذا من فضل ربي
|
03-19-2007, 10:52 PM
|
|
المدير العام
|
|
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
|
|
الشرح كصورة بالمرفق
__________________
هذا من فضل ربي
|
الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
|
|
تعليمات المشاركة
|
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
كود HTML معطلة
|
|
|
الساعة الآن 05:41 PM
| |
| |