20 | اداتين للقائمة ComboBox & ListBox في لغة فيجوال بيسك 6 | Visual Basic 6.0 Tutorial

[@abdalabd6022]

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

[@safa45521]

جزاك الله خيرا

[@اميرعامرعباس]

بارك الله بيك استاذ

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

تسلم استاذ بالتوفيق يارب

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

سلام عليكم استاذ ممكن سؤال توضيحي حول سؤال المشروع والسؤال هومطلوب تقريرعن مفهوم ومراحل دراسة النظام ممكن توضيح فكره لهذا السؤال وشكرآ

[@aliqusay]

اعتذر لان انة اعرف برمجة فقط

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

شكرآ جزيلآ

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

السلام وعليكم استاذ ممكن حل هذا السؤال اكتب اقتران(داله) لحساب مساحة المستطيل واستدعاء الاقتران من الاجراء الحديث command1-click () مع شرح فكرة السؤال اذا امكن مع جزيل الشكر

[@aliqusay]

ما افتهمت السؤال ممكن توضيح او اذا السؤال بالانگليزي يكون افضل

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

@@aliqusay استاذهوالسؤال عربي

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

سؤال/اكتب اقتران(دالة)لحساب مساحة المستطيل واستدعاءالاقتران من الاجراء الحديث command1-click استاذ هذا السؤال وشكرآ

[@aliqusay]

Private Sub Command1_Click() Text3.Text = fun(Val(Text1.Text), Val(Text2.Text)) End Sub Function fun(a As Integer, b As Integer) As Integer fun = a * b End Function

[@aliqusay]

مساحة المستطيل =a*b لذلك نحتاج ثنين من ال text box حتة ندخل قيم a و b واستخدمة val حتة يحول النص الى ارقام والدالة تستقبل قيم a و b وتدخل بالمعادلة و ترجع باسم الدالة الناتج

[@عليالعراقي-ز8ن3ض]

طبعا جزاك الله كل الخير ان شاءالله....ممكن اعرف اذا تنزل شرح هياكل بيانات

[@aliqusay]

استاذي العزيز تگدر تبحث عن اللي اريدة باليوتيوب او تبحث بقناتي. بس هياكل بيانات ياخذونة بأكثر من لغة برمجة

[@mrfahad.33]

انا عندي مشكله اذا جيت اكتب داخل الزر يقول ال listbox عالية level وش الحل ؟

[@aliqusay]

بالقناة تلگا حساباتي راسلني و دزلي صورة للمشكلة

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

استاذ اذا ماتصيرزحمه هذا مثال اقتران دالة لايجاد مساحة الدائرة function funl (r ) FUNL=r^2*3.14 endfunction private sub command1-click () R=var (text1.text) text2.TEXT=funl () end sub استاذ حل السؤال مثل هذا المثال اذا امكن الحل مع شرح السؤال الذي ارسله اليك قبل لحظات وشكرا

[@Loken94]

سلام عليكم اخوية العزيز اريد منكتحلي سوال بالفيجوال بيسك شوال هو شلون اطبع حرف حرف وكل حرف بسطر

[@aliqusay]

استخدم vbNewLine

[@aliqusay]

Print "hello" & vbNewLine & "saad"

[@aliqusay]

اكثر اوامر الطباعة موجودة بال vb مثل vbTab وغيرها

[@Loken94]

ali qusay شكرا❤

[@meepool9888]

لما تريد اضافة عناصر للاداة وكل عنصر في سطر هو انك تمشي لصندوق الخصائص وتلقي list بيقابلها list1 وبجنبها سهم صغير لفتح القائمة والاضافة عنصر في كل سطر نبدا في السطر الاول بادخال العنصر الاول ثم ندهب الى السطر الثاني بالضغط على Ctrl+enter للانتقال الي سطر جديد

[@OlaBmsm]

زين اذا ماعندي خاصيه listشون اضيف عناصر!!!

[@aliqusay]

عن يا جزء من الفيديو تقصد؟ اكتب الدقيقة و الثانية حتة اشوفة وافتهم سؤالك

[@نوراحمدياسينعبداللهالغانمي]

السلام عليكم استاذ ممكن بدون زحمة حل سؤال اكتب برنامج فيجوال بيسك لقراءة سرعة سيارة بإستخدام الأداة Hscrollbar و اسنادها الى مربع نص text box ثم اختيار القيمة بإستخدام Select case 1 _ اذا كانت القيمه تساوي صفر يطبع عبارة ''استعد للانطلاق" في label 1 2 _ اذا كانت القيمه تساوي 60 يطبع عبارة "السرعة الإعتيادية" في label 1 3 _ اذا كانت السرعة اكبر من 120 يطبع عبارة "لقد تجاوزت السرعة المطلوبة" في label 1 و بخط كتابة اصفر على لون خلفية احمر

[@aliqusay]

اعتذر ما اگدر احل الواجبات مالتكم

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

السلام وعليكم استاذ ممكن سؤال بخصوص مادة الفيجول بيسك

[@aliqusay]

تفضل

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

العناصرالتي تقع تحت القطرالرئيسي يكون فيها الاختيارات رقم السطراقل من رقم العمود رقم السطراكبرمن رقم العمود رقم السطريساوي رقم العمود

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

هل يمكن استخدام جملة msg box لطباعة عناصرالمصفوفه نعم اولا هل من الممكن كتابة برنامج لنقل عناصرمصفوفه ثتائيه الي مصفوفه احاديه نعم اولا وشكرآ جزيلآ

[@aliqusay]

@@فاطمةعبدالكريمعبدالعزيزعباسالن i>j السطر اكبر من العمود

[@aliqusay]

@@فاطمةعبدالكريمعبدالعزيزعباسالن بالنسبة للسؤال الاول.. تگدر بطريقتين الاولى .. تخلي for وداخلهة تطبع عنصر بعد عنصر ب msgbox . الثانية... تجمع عناصر المصفوفة بمتغير من نوع string وتالي تطبعة. واحتمال اكو بعد طرق حسب السؤال. والسؤال الثاني.. اي نعم ممكن تتحول والخوارزميات و البرامج موجودة بكثرة بالانترنت

[@afnan7196]

سلام عليكم اذا اريد استخدم صندوق نص وادخل بي رقم هاتف واحط شرط انه اول ثلاث ارقام من رقم الهاتف تكون 077 او 078 او 075 حتى المستخدم لا يدخل رقم بكيفه شون يصير ؟ داسويها متضبط وياي ؟

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

استاذالسطرل7text 3.text همينه بس داله fun وشكرآ الله يوفقك

[@aliqusay]

اي صحيح حتة بالاستدعاء هم المفروض نفس اسم الدالة

[@akeedalhara2885]

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

[@aliqusay]

telegram.me/ali_qusay_samr facebook.com/samrn0 instagram.com/ali_qusay_samr

[@بصراوية-ز7ز]

السلام عليكم ممكن سؤال؟

[@aliqusay]

تفضل

[@بصراوية-ز7ز]

@@aliqusay لتحويل النص من string الى رقم يااداة نستخدمها 1_RND 2_Val 3_INT

[@aliqusay]

@@بصراوية-ز7ز val

[@aliqusay]

@@بصراوية-ز7ز Rnd قيم عشوائية Val تحويل الى ارقام Int تحويل الارقام اللتي تحتوي على كسور الى ارقام صحيحة

[@بصراوية-ز7ز]

اشكرك ربي يوفقك ان شاءالله

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

function fun (L,w ) FUNL=L*w end function private sub command-click () L=var (text1.text) W=var (text2.text) text3.TEXT=funl (L,W ) end subاستاذ إني هيج حليته هل الحل صح ام لا وشكرآ جزيلآ

[@aliqusay]

صحيح بس بي خطأ واحد fun=L*w هذة الصحيح

[@aliqusay]

انة حليتة الك شفت الحل لو لا؟

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

@@aliqusay نعم استاذشفته

[@فاطمةعبدالكريمعبدالعزيزعباسالن]

@@aliqusay استاذ انه كاتبه FUN=L*Wيعني بيافقرة الخطأ

[@aliqusay]

@@فاطمةعبدالكريمعبدالعزيزعباسالن بالسطر الثاني كاتبين funL=L*w والدالة اسمهة بس fun