الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تكفون قبل تخلص الإجازه

بدأه الرائد1222 في 12 نوفمبر 2010 · 10 رد · 579 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

عباره عن معادله قبل الوزن مثل:NH3+O2______>NO2+H2O

وبعد الوزن:4NH3+O2______>7NO2+6H2O

وكان البرنامج مقسم الى اربع مربعات TEXT

وزر مكتوب فيه احسب المعادله

مثلا مربع TEXT1=NH3+O2

ومربع TEXT2=NO2+H2O

ومربع TEXT3=4NH3+O2

ومربع TEXT2=7NO2+6H2O

اذا كانت TEXT1=اي معادله من قاعدة البيانات قبل الوزن

فإنTEXT3=اي معادله من قاعدة البيانات بعد الوزن

رابط الصوره

http://img105.herosh.com/2010/11/11/318790266.gif

تم تعديل هذه المشاركة بواسطة الرائد1222 في 12 نوفمبر 2010 في 02:36

#2

السلام عليكم اخي الكريم

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

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#3

اخوي عبدالرحمن اولا :اشكرك على الاهتمام 

ثانياً :انسى فكره البرنامج الاول احس اني جبت العيد في الشرح :lol:

لكن هذي الصورة توضح الطريقه تفضل الرابط اخوي

http://img105.herosh.com/2010/11/13/293443041.gif

والخلفيه اللي تسويها للمشروع في هذا الرابط اخوي (قول شحاد ويتشرط) :happy:

http://img104.herosh.com/2010/11/13/969853957.jpg

#4

:lol: :lol: :lol: :lol:

غالي والطلب رخيص

ترقبني

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#5

اخوي عبدالرحمن ياعسل احرجتني بأسلوبك الراقي

تسلم ويعطيك العافيه

عالعموم ماودي اتعبك كثير لكن

انا باعطيك رابط المشروع

انا سويت كل شي

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

"الرجاء عدم ترك أي خانه فارغه"

وبرضوا في نفس زر التعديل اذا احد ادخل رقم موجود في خانة الرقم((في قاعدة البيانات)) يطلع رساله تقول

"الرقم موجود "

وابي كلمة المرور الأفتراضيه:123456 في الفورم1 لان كلمة المرور اللي بداية البرنامج اي كلمة مرور من اخيار المستخدم

وعند تغييرها

من الفورم2 من قائمة خيارات تغيير كلمة المرور

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

برضوا اخوي ابيك تعدل على زر بحث ابيك تخليه يبحث بالرقم او بجزء من اسم المعادله

او بجزء من المعادله قبل الوزن او بجزء من المعادله بعد الوزن

وسلامتك

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

تفضل رابط المشروع

http://www.mediafire...ue3uea3o9g9dte7

تم تعديل هذه المشاركة بواسطة الرائد1222 في 15 نوفمبر 2010 في 19:19

#6

السلام عليكم اخي الفاضل

بالنسبة للصورة فقد عملت لك مثال بسيط

وبه بعض من الذي طلبته في مشاركتك الاخير

وانا رح احمل المشروع واقوم لك بالتعديلات الازمة اذا استطعت

بصراحة لاني تركت هذه اللغة من زمان

و رح احاول قدر المستطاع

ابشر يا غالي :) :) :) :) :lol:

المثال بالمرفقات

vb project.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#7

السلام عليكم اخي الفاضل

اولا كل عام والجميع والمسلمين بالف خير بمناسبة عيد الاضحى

ثانيا : لقد قمت بالتعديل على مشروعك بما طلبت

إن شاء الله اني لم اقصر معك

المشروع بالمرفقات

ارجو لك كل التوفيق وكل عام وانت وامة المسلمين بالف خير

vb project.rar

تم تعديل هذه المشاركة بواسطة عبدالرحمن المرشود في 16 نوفمبر 2010 في 15:59

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#8

وأنت بألف صحه وسلامه ان شاء الله

الله يوفقك ويعطيك العافيه اخوي جلست اعدل

اشياء وضبطت معي لكن ياليت تشرح لي بالتفصيل

كود البحث عشان ماادري اش فيه ماضبط معي

انا سويت اداة combo1

واضفت لنفس الزر من list

اضفت:

الرقم و اسم المعادله و المعادله قبل الوزن والمعادله بعد الوزن

والكود في زر البحث مثل ماسويته انت

آسف على الإطاله تحملني اخوي

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

تم تعديل هذه المشاركة بواسطة الرائد1222 في 17 نوفمبر 2010 في 00:26

#9

السلام عليكم

بالنسبة لكود البحث شرحه كتالي

قمنا بعمل جملة Select وذلك لاجل الاحتمالات التي في combo1 وهي :

1 - الرقم

2 - الاسم

3 - المعادلة قبل الوزن

4 - المعادلة بعد الوزن

يعني ان لدينا 4 حالات وبكل حالة يوحد كود البحث حسب الحالة المختارة

والكود :

Select combo1.text هنا يعني ان نختار احدى الحالات التي موجودة في combo1
case0 تعني الحالة الاولى وهي الرقم ويجب البحث حسب الرقم
data1.recordestsource = ("Select * from Equ where id = ' " + text5.text + " ' ")  هذا هو كود البحث حسب الرقم
data1.refresh
case 1 وتعني الحالة الثانية وهي الاسم , نفس الكود السابق لكن البحث عن طريق الاسم
data1.recordestSource = ("Select * From Euq where Name = ' "+text5.text + " ' ")
data1.refresh
case 2 وهي الحالة الثالثة المعادلة قبل الوزن ونريد ان نبحث عن جزء منها
Data1.recordest = ("Select * From Euq where EuqBefor Like '" + text5.text + " %' ")  هنا استخدمنا جملة like وتعني التشابه
data1.refresh
case 3 وهي الحالة الاخيرة ونفس الكود السابق
data1.recordest = ("Select * From Euq where EuqAfter Like ' " + text5.text + " % ' ")
data1.refresh
end select

هذا هو كود البحث وشرحه ارجو ان تستفيد

بصراحة الاخطاء ظهرت معي لكن لا اعلم ما السبب لكن الكود صحيح

بالتوفيق

تم تعديل هذه المشاركة بواسطة عبدالرحمن المرشود في 17 نوفمبر 2010 في 14:50

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#10

اخوي عبدالرجمن الله يوفقك ويعطيك الف عافيه ان شاء الله

ويرزقك والله اني تعبتك معي لكن الله يبيض وجهك

تحيتي لك...

#11
الرائد1222 كتب:

اخوي عبدالرجمن الله يوفقك ويعطيك الف عافيه ان شاء الله

ويرزقك والله اني تعبتك معي لكن الله يبيض وجهك

تحيتي لك...

بالخدمة اخي الكريم

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…