بمعني ان تكون رقمية تعد الثواني والدقائق
ولكم جزيل الشكر
اريد وضع ساعة علي النموذج
مغلق
اريد خطوات العمل
واكون شاكر جدا
طبعا بالتفصيل
Private Sub Form_Timer()
Label1.Caption = Time
Dim x As Integer
x = Int(Rnd * 10)
End Sub
افتح label1
===========
اعمل التيمر 1000
(gift)(gift)
لكن الف شكر
اقصد اين اضع هذه الكلمات وكيف افتح lable1 واجعل التيمر 1000
السلام عليكم
بعد اذن اخي سمير
ضع تسميه ( Label ) على النموذج المراد إضهار الساعة عليه
سم التسميه الى ( Label1 )
في حدث عند الوقت ضع الكود التالي :
Label1.Caption = Time Dim x As Integer x = Int(Rnd * 10)
ثم اذهب الى خصائص النموذج واضبط خاصية المؤقت على 1000
تحياتي
;)
اخ فيصل يمكن الاخ احمد اول مره بيعمل اجراء
يمكن عنده برنامج محول عربي
بس يعمل لبل يظهر عنده نص0
بدو يزهب علاى نافزه الخصائص
يكتب فى اسم label1
في شغله تانيه
ازا حط اليبل على النموزج يمكن تختفي لا يراه ابدا
عند ما ينزل اليبل على النموزج بدو يكتب حيلا شيء
حتي يسبت اليبل عل النموزج عندها بيعرف شوعم بيسير
لاهل السبب انا اقصد انو ازا ما عنده معلومات برمجيه
بدو يتعلم فبل علا الازرار كيفى تعمل لا انو المشوار طويل
==========================
بعتزر على اي ملاحظه مني انتم اخبر مني بهزه المواضيع
انا بحكي هيك لا انو تعزبت كتير لا حتى وصل لا هون
سمير بعلبكي
(gift)
نعم فهمت ونفذت ولكم جزيل الشكر والعرفان
والله لا يحرمنا منكم امين
هذا الموضوع مغلق.