أوس
عدد المساهمات : 2
نقاط : 25397
تاريخ التسجيل : 26/12/2010
 |  موضوع: رد: طريقة عمل ساعة رقمية وساعة حائط بالفيجوال بيسك ☺☺ 0.6  الأحد ديسمبر 26, 2010 10:28 pm | |
| مشكوررررررررررررررر
الله يحفظك | |
|
أوس
عدد المساهمات : 2
نقاط : 25397
تاريخ التسجيل : 26/12/2010
| | موضوع: رد: طريقة عمل ساعة رقمية وساعة حائط بالفيجوال بيسك ☺☺ 0.6 الأحد ديسمبر 26, 2010 10:27 pm | |
| - الكود:
-
[center]السلام عليكم
مشكور اخي على هذا البرنامج كنت محتاجه جداً
ممكن اخي ان تشرح المتغيرات والدواره وكيف تعمل
لان الشرح ممهم عندي محتاج الشرح
الله يوفقك
ودمتم في حفظ الرحمن
والسلام عليكم ورحمه الله وبركاته[/center]
- اقتباس :
| |
|
الأمير المصرى
عدد المساهمات : 345
نقاط : 29479
تاريخ التسجيل : 06/05/2009
العمر : 31
الموقع : el3sola.yoo7.com
| | موضوع: طريقة عمل ساعة رقمية وساعة حائط بالفيجوال بيسك ☺☺ 0.6 الأربعاء أبريل 28, 2010 3:19 pm | |
|
السلام عليكم مرة تانية
هذا الكود سهل وبسيط اولا كود لعمل ساعة رقمية فى الفيجوال بيسك 0.6
اضف واحد تايمر واجعل 10= interval
واضف واحد label
واضغط مرتين على التايمر واكتب
كود PHP:
Label1.Caption = Time
واضغط f5 شغل البرنامج يعنى بتلاقى ساعة رقمية قدامك
طيب كيف نعمل ساعة بعقاربها
خليك وى ما انت فى نفس البرنامج
واضف 3 line
واجعل اللون كما تريد
واكتب فى ال GENERAL
كود PHP:
Dim CentreX As Single
Dim CentreY As Single
Dim Dist As Single
Dim Angle1 As Single
Dim Angle2 As Single
Dim Angle3 As Single
Const PI = 3.14159265358979
واكتب فى FORM LOAD
كود PHP:
Show
Do
Angle1 = (360 / 60) * Format(Time, "SS")
Angle2 = (360 / 60) * Format(Time, "NN")
If Format(Time, "HH") > 12 Then
Angle3 = (360 / 12) * (Format(Time, "HH") - 12)
Else
Angle3 = (360 / 12) * Format(Time, "HH")
End If
Line1.X2 = CentreX + Cos((Angle1 - 90) / 180 * PI) * Dist
Line1.Y2 = CentreY + Sin((Angle1 - 90) / 180 * PI) * Dist
Line2.X2 = CentreX + Cos((Angle2 - 90) / 180 * PI) * ((Dist / 3) * 2)
Line2.Y2 = CentreY + Sin((Angle2 - 90) / 180 * PI) * ((Dist / 3) * 2)
Line3.X2 = CentreX + Cos((Angle3 - 90) / 180 * PI) * (Dist / 3)
Line3.Y2 = CentreY + Sin((Angle3 - 90) / 180 * PI) * (Dist / 3)
Caption = "Clock - " & Time
DoEvents
Loop
وبداخل Form_Resize
كود PHP:
CentreX = ScaleWidth / 2: CentreY = ScaleHeight / 2
If CentreX > CentreY Then
Dist = CentreY - 20
Else
Dist = CentreX - 20
End If
Line1.X1 = CentreX: Line1.Y1 = CentreY
Line2.X1 = CentreX: Line2.Y1 = CentreY
Line3.X1 = CentreX: Line3.Y1 = CentreY
Cls
Circle (CentreX, CentreY), Dist + 15
وفى Form_Unload
اكتب
كود PHP:
END
| |
|
