سؤالين في الفيجوال بيسك

[ashrafwadi]

انا ابحث عن كود عداد تنازلي من دقيقتين حتى الصفر بالفيجوال بيسك لم أجد فأرجوا المساعده ،
والامر الثاني اريد ان اسال عن القائمة العامودية في الفورم بحيث يكون هناك مجموعه من الازرار بشكل عامودي اذا ضغطت على احد هذه الازرار يرتفع هذا الزر الى اعلى وتظهر قائمة تحته وتبقي باقي الازرار بالاسفل ، هل يمكن عمل ذلك بالفيجوال بيسك

ولكم جزيل الشكر

[Al-Raisi]

أخي العزيز "ashrafwadi" ...

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

ملاحظة: أنا مبرمج في Visual Basic 2005

[alexlr1]

أرجو وضعه في المنتدى لتعم الفائدة
مع جزيل الشكر

[Ala2 VB]

ضع على النموذج أداة Label اسمها Label1 , وأداة Timer اسمها Timer1 ,,, وضع الكود التالي :

Private Sub Form_Load()
Label1.Caption = "120"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Label1.Caption <> "0" Then
Label1.Caption = Val(Label1.Caption) - 1
Else
Timer1.Enabled = False
Exit Sub
End If
End Sub

الشرح :
1- ضبط قيمة أداة العنوان
2- ضبط قيمة التوقيت
3- التأكد من أن القيمة ليست 0 , فنشغل المؤقت
4- إذا القيمة 0
5- نوقف المؤقت
6- نخرج من الإجراء


ملاحظات :
120 هو عدد الثواني في دقيقتين
1000 هو يرمز إلى 1000 ملي ثانية = 1 ثانية
يعني كل ثانية سينقص العداد بمقدار 1