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

إلي كل من له خبره في الفيجوال

مغلق
بدأه niceguy في 15 مايو 2002 · 1 رد · 496 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ياشباب انا مبتدئ في البرمجه

واريد منكم شرح كود والله تعبني جداً

وهو كود البحث

بس ياشباب الشرح يكون لواحد مبتدئ من الصفر

اعطيكم مثال

if text1.text="niceguy" then <========== اذا توفر الشرط إذاً

msgbox"welcom to home"<========== أظهر هذه الرسالة

form2.show<======== افتح النموذج الثاني

else<========== وألا

"msgbox"sorry"<======= أظهر هذه الرسالة

end <======== انهي البرنامج

end if <======= نهاية الشرط

ياشباب اعذروني والله انا مبتدئ وهذا الاسلوب

اللي استوعبه اكثر

والله يعطيكم العافية

وشكراً

#2

طبعا حياك الله عزيزي

if text1.text="niceguy" then

اذا كان محتوى التكست =nicegury أفعل هذا او (أدن)

اي انت وضعت التكست فى حالة من الشرط اذا تساوي هذا الشرط

طبق المطلوب

من هنا تبدء التطبيقات في حالة التساوي

msgbox"welcom to home"

اعرض هذه الرساله بارك الله فيك

form2.show

عرض الشاشة

else

وهذا فى حالة عدم التطابق

msgbox"sorry"

اعرض هذا المسج

end if

نهاية الشرط ويمكنكا تكرارها في حالة وجود اكثر من شرط

END sub()

وفي ححالة استخدام END سوف تخرج من البرنامج

على العموم اي شيء ترا شباب المنتدى حاضرين للمساعدة

;)

هذا الموضوع مغلق.

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