khaled7_group
04-10-2007, 22:18
بسم الله الرحمن الرحيم
اولا نصرح عن 3 متحولات من نوع الصحيح:
في قسم العام:General
Dim x, y, k as integer
في قسم الفورم:
x = Me.Height / 2
y = Me.Width / 2
k = 1800
Timer1.Interval = 100
في قسم التايمر"المؤقت"
Me.Cls
DrawWidth = 6: Me.Circle (x, y), k
DrawWidth = 5: Me.Line (x, y)-(x + 900 * Sin(Hour(Time) * 3.14 / 6), y - (900 * Cos(Hour(Time) * 3.14 / 6))), &HFF80FF
Me.Caption = Time
DrawWidth = 3: Me.Line (x, y)-(x + 1200 * Sin(Minute(Time) * 3.14 / 30), y - (1200 * Cos(Minute(Time) * 3.14 / 30))), &HFFC0C0
DrawWidth = 2: Me.Line (x, y)-(x + 1500 * Sin(Second(Time) * 3.14 / 30), y - (1500 * Cos(Second(Time) * 3.14 / 30))), &H80FF&
اخزكم:خالد الخطيب
لاتنسونا بالدعاء الصالح
والسلام عليكم ورحمة الله وبركاته
اولا نصرح عن 3 متحولات من نوع الصحيح:
في قسم العام:General
Dim x, y, k as integer
في قسم الفورم:
x = Me.Height / 2
y = Me.Width / 2
k = 1800
Timer1.Interval = 100
في قسم التايمر"المؤقت"
Me.Cls
DrawWidth = 6: Me.Circle (x, y), k
DrawWidth = 5: Me.Line (x, y)-(x + 900 * Sin(Hour(Time) * 3.14 / 6), y - (900 * Cos(Hour(Time) * 3.14 / 6))), &HFF80FF
Me.Caption = Time
DrawWidth = 3: Me.Line (x, y)-(x + 1200 * Sin(Minute(Time) * 3.14 / 30), y - (1200 * Cos(Minute(Time) * 3.14 / 30))), &HFFC0C0
DrawWidth = 2: Me.Line (x, y)-(x + 1500 * Sin(Second(Time) * 3.14 / 30), y - (1500 * Cos(Second(Time) * 3.14 / 30))), &H80FF&
اخزكم:خالد الخطيب
لاتنسونا بالدعاء الصالح
والسلام عليكم ورحمة الله وبركاته