بسم الله الرحمن الرحيم 

كيفية انشاء ساعة عقارب على مايكروسوفت اكسس 

تحية طيبة ,,,,,,

السلام وعليكم ورحمته الله وبركاته , واسعد الله اوقاتكم بكل خير "حماكم الله ؛ وحمى صحتكم ؛ وأحباءكم ؛ وحفظ الوطن وقيادته ؛ والانسانية جمعاء من شر هذا الوباء نحن في خدمتكم ونجاحنا بالاشتراك بالقناة ومشاركتها على اصدقاءكم وزيادة عدد المشهادات على القناة والمدونة".

ابدأ بأن تشترك في قناتي على اليوتيوب وتفعيل جرس ليصلك كل جديد : قناتي اليوتيوب 

كيفية انشاء ساعة عقارب على مايكروسوفت اكسس

لانشاء نموذج ساعة على شكل ساعة الحائط هي عملية سهلة جداً 

اولاً نقوم بأنشاء نموذج فارغ ونقوم بعدها بعمل تسمية بعدد ساعات الحائط ونقوم بترتيبهم مثل ساعة الحائط 

بعدها نذهب على تصميم ونقوم باختيار خط ونعمل على تسميتهم وضوروي ان نميهم كما يلي : 

اولاً : عقرب ثانية (الاسم / LINS)

ثانياً : عقرب دقائق (الاسم / LINS)

ثالثاُ : عقرب ساعة (الاسم / LINH)

وبعدها انشاء تسمية عدد ثلاث وكل منها اسم مخصص كما يلي : 

اولاً : تسمية ساعة / lblDigTime

ثانياُ : تسمية تاريخ / lblDate

ثالثاً : تسمية اليوم / lblDay

ومن ضروري ان تذهب على ورقة الخصائص على عداد الوقت نضع رقم 1000

وبعدها تنسيق نموذج كما تريد 

ونضع الكود كما مبين ادناه :

Option Compare Database

Const PI As Double = 3.14159265358979

Const conTwips As Long = 567

Dim arrCP(0 To 60, 0 To 13)

Dim intS As Integer

Dim intM As Integer

Dim intH As Integer

Dim dteTimeDiff As Date

Sub sAnalogeClockArrays()

On Error Resume Next

Dim intCP As Integer

Dim dblLeft As Double

Dim dblTop As Double

Dim dblLenS As Double

Dim dblLenM As Double

Dim dblLenH As Double

dblLeft = 1

dblTop = 1

dblLenS = 6

dblLenM = 0.6 * dblLenS

dblLenH = 0.45 * dblLenS

'Populate Array

For intCP = 0 To 15

    arrCP(intCP, 0) = intCP

    arrCP(intCP, 1) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 2) = (Round(1 - Cos((PI / 180) * (intCP * 6)), 3) * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 3) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 4) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 5) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 6) = (Round(1 - Cos((PI / 180) * (intCP * 6)), 3) * conTwips * dblLenM) + (conTwips * (dblTop + dblLenS - dblLenM))

    arrCP(intCP, 7) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 8) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 9) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 10) = (Round(1 - Cos((PI / 180) * (intCP * 6)), 3) * conTwips * dblLenH) + (conTwips * (dblTop + dblLenS - dblLenH))

    arrCP(intCP, 11) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 12) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 13) = True

Next

For intCP = 16 To 30

    arrCP(intCP, 0) = intCP

    arrCP(intCP, 1) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 2) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 3) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 4) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 5) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 6) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 7) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 8) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 9) = (dblLeft * conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 10) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 11) = Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 12) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 13) = False

Next

For intCP = 31 To 45

    arrCP(intCP, 0) = intCP

    arrCP(intCP, 1) = (1 + Round(Sin((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 2) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 3) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 4) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 5) = (1 + Round(Sin((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenM) + (conTwips * (dblLeft + dblLenS - dblLenM))

    arrCP(intCP, 6) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 7) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 8) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 9) = (1 + Round(Sin((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenH) + (conTwips * (dblLeft + dblLenS - dblLenH))

    arrCP(intCP, 10) = (dblTop * conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 11) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 12) = -Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 13) = True

Next

For intCP = 46 To 60

    arrCP(intCP, 0) = intCP

    arrCP(intCP, 1) = (Round(Sin((PI / 180) * (intCP * 6)), 3) + 1) * conTwips * (dblLenS) + (conTwips * dblLeft)

    arrCP(intCP, 2) = (1 - Round(Cos((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenS) + (conTwips * dblTop)

    arrCP(intCP, 3) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 4) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenS)

    arrCP(intCP, 5) = (Round(Sin((PI / 180) * (intCP * 6)), 3) + 1) * (conTwips * dblLenM) + (conTwips * (dblLeft + dblLenS - dblLenM))

    arrCP(intCP, 6) = (1 - Round(Cos((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenM) + (conTwips * (dblTop + dblLenS - dblLenM))

    arrCP(intCP, 7) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 8) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenM)

    arrCP(intCP, 9) = (Round(Sin((PI / 180) * (intCP * 6)), 3) + 1) * (conTwips * dblLenH) + (conTwips * (dblLeft + dblLenS - dblLenH))

    arrCP(intCP, 10) = (1 - Round(Cos((PI / 180) * (intCP * 6)), 3)) * (conTwips * dblLenH) + (conTwips * (dblTop + dblLenS - dblLenH))

    arrCP(intCP, 11) = -Round(Sin((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 12) = Round(Cos((PI / 180) * (intCP * 6)), 3) * (conTwips * dblLenH)

    arrCP(intCP, 13) = False

Next

End Sub

Private Sub Form_Open(Cancel As Integer)

    On Error Resume Next

    If IsNull(Me.OpenArgs) Then

    dteTimeDiff = #12:00:00 AM#

    Else

    dteTimeDiff = Me.OpenArgs

    End If

    

    Call sAnalogeClockArrays

End Sub

Private Sub Form_Timer()

On Error Resume Next

intS = CInt(Second(Time()))

intM = CInt(Minute(Time()))

intH = CInt(Hour(Time()))

Select Case intH

Case Is >= 12

    intH = intH - 12

Case Else

    intH = intH

End Select

DoEvents

'Second hand

Me.linS.Left = LinearSearch(arrCP, 0, 1, intS)

Me.linS.Top = LinearSearch(arrCP, 0, 2, intS)

Me.linS.Width = LinearSearch(arrCP, 0, 3, intS)

Me.linS.Height = LinearSearch(arrCP, 0, 4, intS)

Me.linS.LineSlant = LinearSearch(arrCP, 0, 13, intS)

'Minute hand

Me.linM.Left = LinearSearch(arrCP, 0, 5, intM)

Me.linM.Top = LinearSearch(arrCP, 0, 6, intM)

Me.linM.Width = LinearSearch(arrCP, 0, 7, intM)

Me.linM.Height = LinearSearch(arrCP, 0, 8, intM)

Me.linM.LineSlant = LinearSearch(arrCP, 0, 13, intM)

'Hour hand

Me.linH.Left = LinearSearch(arrCP, 0, 9, CInt(intH * 5 + (intM / 60) * 5))

Me.linH.Top = LinearSearch(arrCP, 0, 10, CInt(intH * 5 + (intM / 60) * 5))

Me.linH.Width = LinearSearch(arrCP, 0, 11, CInt(intH * 5 + (intM / 60) * 5))

Me.linH.Height = LinearSearch(arrCP, 0, 12, CInt(intH * 5 + (intM / 60) * 5))

Me.linH.LineSlant = LinearSearch(arrCP, 0, 13, CInt(intH * 5 + (intM / 60) * 5))

        

Me.Repaint

Me.lblDate.Caption = Format(Now(), "mmm dd")

Me.lblDay.Caption = Format(Now(), "dddd")

Me.lblDigTime.Caption = Time()

End Sub

Function LinearSearch(varItems, intCol, intColReturn, varSought)

  

    On Error Resume Next

    Dim intPos

    Dim fFound

    

    fFound = False

    For intPos = LBound(varItems) To UBound(varItems)

        If varSought = varItems(intPos, intCol) Then

            fFound = True

            Exit For

        End If

    Next

    If fFound Then

        LinearSearch = varItems(intPos, intColReturn)

    Else

        LinearSearch = -1

    End If

End Function

لتحميل الملف : انقر هنا 

لتحويل عن طريق البنك الاتحاد 

الاسم : AHMAD IBRAHIM AHMAD ALAZBAT

ﺭﻗﻢ ﺍﻟﺤﺴﺎﺏ:  0010138473915101

JO41UBSI1010000010138473915101: IBAN

ﺍﻟﻌﻤﻠﺔ:  JOD 

المكان : الاردن - اربد 

لتحويل عن طريق WESTERN UNION 

الاسم : AHMAD IBRAHIM AHMAD ALAZBAT

رقم الهاتف : 00962797156069 

المكان : الاردن - اربد 

بعد التحوبل برجاء ارسال صورة من التحويل واضحة يظهر بها ( رقم التحويل - اسم المرسل - اسم الراسل - المبلغ - الدولة ) حتى اتمكن من طباعتها وتقديمها في البنك لاستلام المبلغ .

التحويل عن طريق الباي بال - PAYPAL 

https://www.paypal.me/AHMADALAZBAT

* لا تنسى ارسال صورة التحويل على رقم الواتس اب كما مبين ادناه من التوجه الى الجهة المختصة واستلام المبلغ 
00962797156069 

Ahmad Alazbat

تحميل برامج مايكروسوفت اكسس مجانية ومدفوعة

فيسبوك

تويتر

انستغرام

شارك هذا المنشور

اشترك في بريدنا الالكتروني لتتوصل باشعار فور نشر موضوع جديد

مواضيع ذات صلة