منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] محتاج كود ينفذ امر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] محتاج كود ينفذ امر (/showthread.php?tid=30441)

محتاج كود ينفذ امر - bakriano30@yahoo.com - 22-07-19

اريد كود العد التنازلي بمعني كود عند بدا الفورم يحول label1  للعدد 10 ومن ثم عند الضغط علي بوتن 1 يتحول الي 9 وعند الضغط ثاني يتحول الي 8 حتي 
ان يصل الي 0 ولا يقبل اقل من ذلك يعني لايكون -1

RE: محتاج كود ينفذ امر - سعود - 22-07-19

كود زيادة الرقم
PHP كود :
       lbl.Text = Val(lbl.Text) + 1 

النقص
PHP كود :
       lbl.Text = Val(lbl.Text) - 1 
وضمن حدث lbl_TextChanged
PHP كود :
       If Val(lbl.Text) = 0 Then btnminus.Enabled = False : Beep() Else btnminus.Enabled = True 

على فكرة المثال به شغلات مالها علاقة بالسؤالSmileSmile
وهو تحريك الفورم اعلى - يمين - اعلى

RE: محتاج كود ينفذ امر - ابراهيم ايبو - 22-07-19

السلام عليكم اخي الكريم
تفضل المثال لما تريد ولكن الرقم ينقص بمقدار 10% في كل مرة من الرقم الاصلي
وان اردت غير ذلك يمكنك تعديل النسبة


RE: محتاج كود ينفذ امر - bakriano30@yahoo.com - 22-07-19

(22-07-19, 06:27 AM)سعود كتب : كود زيادة الرقم
PHP كود :
       lbl.Text = Val(lbl.Text) + 1 

النقص
PHP كود :
       lbl.Text = Val(lbl.Text) - 1 
وضمن حدث lbl_TextChanged
PHP كود :
       If Val(lbl.Text) = 0 Then btnminus.Enabled = False : Beep() Else btnminus.Enabled = True 

على فكرة المثال به شغلات مالها علاقة بالسؤالSmileSmile
وهو تحريك الفورم اعلى - يمين - اعلى
شكرا لك اخ سعود بارك الله فيك
(22-07-19, 06:27 AM)سعود كتب : كود زيادة الرقم
PHP كود :
       lbl.Text = Val(lbl.Text) + 1 

النقص
PHP كود :
       lbl.Text = Val(lbl.Text) - 1 
وضمن حدث lbl_TextChanged
PHP كود :
       If Val(lbl.Text) = 0 Then btnminus.Enabled = False : Beep() Else btnminus.Enabled = True 

على فكرة المثال به شغلات مالها علاقة بالسؤالSmileSmile
وهو تحريك الفورم اعلى - يمين - اعلى
شكرا لك اخ سعود بارك الله فيك
(22-07-19, 11:37 AM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل المثال لما تريد ولكن الرقم ينقص بمقدار 10% في كل مرة من الرقم الاصلي
وان اردت غير ذلك يمكنك تعديل النسبة

هذا هو المطلوب اخ ابراهيم ولكن انا اريد عند الوصول الي 0 واضافه رقم جديد يعيد العمله من جديد كيف ذلك

RE: محتاج كود ينفذ امر - ابراهيم ايبو - 22-07-19

السلام عليكم اخي الكريم
تفضل المثال بعد التعديل