شرح ببرنامج فيجول بيسك6

[shabb_shabb]

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

[shabb_shabb]

سلام عليكم
اخواني بالاسلام لكم الان درس
اشرطة التمرير
والان نبدأ الشرح

نقوم باضافة التالي :-

1) Frame

2) 3 HScroll
3) 3 Label
4) Picture
الرجاء اضافة كل شيء بالترتيب كما في الصوره



بعد تعديل اسماء الادواة
وترتيبها نقوم بكتابة الكود

الكود الاول
الكود لـ Form

Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50
HScroll2.Min = 0
HScroll2.Max = 255
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50
HScroll3.Min = 0
HScroll3.Max = 255
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50
End Sub

الكود الثاني
لشريط التمرير الاول HScroll1

Private Sub HScroll1_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

الكود الثالث
لشريط التمرير الثاني HScroll2

Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

الكود الرابع
لشريط التمرير الثالث HScroll3

Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

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







وهكذا انتهينا من الشرح

[Argonaut]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله تعالى وبركاته

حسن فعلت ...

بالنسبة لاخ رنجوجيت الجواب لا هذه الاداة فقط للصوت واذا مشروع يعرض ما على النظام انا جاهز

وشكرا.اخوك

[shabb_shabb]

السلام عليكم
اهلا بك اخي Argonaut انشاء الله نفيد الشباب واذا ممكن عندي طلب صغير منك
اذا ممكن تقولنا عن الاداة الي تعرض الي على الشاشة مع الكود مشكووووووووور
وشكرا لكم

[شيختهم]

السلام عليكم
انا ابغي برنامج الفيجول بيسك تعبت وانا ادور عليه و ما حصلته لو سمحتو ممكن تعطوني اياه ؟؟؟؟؟

[shabb_shabb]

اهلا شيختهم نعم ممكن بس المشكله البرنامج كبير وما بنزل على المنتدا

[Argonaut]

حسن سوف ارفق ماتريد يازميلي

[Argonaut]

هذا الذي طلبته

[بنتـ errorالحوت]

شرح رائع...
وتعاون اروع..
دمتم على هذا الجهد..
ودمنا متابعين ...
تحياتووووو....

[shabb_shabb]

السلام عليكم
مشكورين جميعا على الردود وشكرا على البرامج اخي Argonaut

[Argonaut]

السلام عليكم
مشكورين جميعا على الردود وشكرا على البرامج اخي Argonaut

لا شكر على وجب

[shabb_shabb]

مشكور اخي على مرورك
جزاك الله كل خير انشاء الله
سلامي