نحوه ساخت ساعت آنالوگ ( ثانیه شمار ) با استفاده از کنترل Line

کل مطالب زیر استخراج شده است .

Line Control In Access : 

The line control displays a horizontal, vertical, or diagonal line on a form or report.

کنترل Line ، یک خط افقی ، عمودی یا مورب را در فرم یا گزارش نشان می دهد.

You can use Border Width to change the line width. You can use Border Color to change the color of the border or make it transparent. You can change the line style (dots, dashes, and so on) of the border by using the BorderStyle property

می توان Border Width را برای تغییر عرض خط استفاده نمود. می توان Border Color را برای تغییر رنگ Border یا ایجاد شفافیت استفاده نمود.می توان با استفاده از ویژگی BorderStyle حالت مشاهده خط را تغییر داد مثل نقطه چین 

Seconds :

دایره 360 درجه است و هر دقیقه 60 ثانیه پس زاویه بین آنها 6 درجه می شود.

360÷60=6 Degree

در لینک زیر ویژگیهای شئ بیان شده مثل Height ، Top و Width .

در دایره چهار ربع وجود دارد . ربع اول x و y مثبت است و ربع دوم x منفی است.

عرض : وتر در سینوس آلفا

Width in 6 =1×sin(6×6)=0.587785

طول : وتر در کسینوس آلفا

Hieght in 6 =1×cos(6×6)=0.809016

در بالا عرض و ارتفاع در ثانیه 6 بدست آمد ( طول خط یک در نظر گرفته شد و هر ثانیه 6 درجه است )

Function pi() As Double
    pi = 3.14159265358979
End Function

برای 0 تا 15 درجه ربع اول می توان آرایه ای انتخاب کرد که محاسبات در آن قرار گیرد.

Dim Length As Long

Dim Seconds(0 To 15,1 To 3)

Length=ControlName.Height

For t=0 To15

Seconds(t,1)=6×t ' Angle

Seconds(t,2)=Length × sin(6×t×Pi/180)  ' width

Seconds(t,3)=Length × cos(6×t×Pi/180)' height

Next

عرض که مشخص شد ، زمان تغییر ابعاد Top و Height نیز تغییر می کنند.

For i=1 To 15

with ControlName

.Width = Second(t, 2)

.Top =.Top+(Second(t - 1, 3)-Second(t, 3))

.Height =.Height-(Second(t - 1, 3)-Second(t, 3))

End With

Next

در چرخیدن کنترل Line در ربع اول ، به پراپرتی Top اضافه می شود و از پراپرتی Height کم میشود و پراپرتی Width هم حاصلضرب طول خط در سینوس زاویه است.

مقدار Top در بالای سکشن صفر است و هر چقدر به پائین تر بروید اضافه خواهد شد.

Line Control Property Value (Example)

Top=1.0417"

Height=0.7083"

Convert -inches-to-twips

1.0417"×1,440=1500 show textbox or label

Top :

Top=Top+Diff

1,500+(1,500×cos(6×0)−1,500×cos(6×1))=1508

1,500+(1,500×cos(6×1)−1,500×cos(6×2))=1524

1,500+(1,500×cos(6×2)−1,500×cos(6×3))=1540

1,500+(1,500×cos(6×14)−1,500×cos(6×15))=1656

Width :

Width Sec1 : 1,500×sin(6×1)=156 ' عرض در ثانیه یک

Width Sec10 : 1,500×sin(6×10)=1299 ' عرض در ثانیه ده

Width Sec15 : 1,500×sin(6×15)=1500 ' عرض در ثانیه پانزده

Height : 0.7083×1,440=1020

Height=Height-Diff

Height Sec 1 : 

Diff Sec1 :1,500×cos(6×0)−1,500×cos(6×1)=8

Diff Sec10 :1,500×cos(6×9)−1,500×cos(6×10)=131

Diff Sec15 :1,500×cos(6×14)−1,500×cos(6×15)=156

Height Sec 1   : 1020-8=1012

Height Sec10 : 1020-131=889

Height Sec 15 : 1020-156=864

fabricatorguide.com

اختلاف بین Top نقطه قبلی و نقطه فعلی می شود چیزی که باید در ربع اول به Top اضافه و از Height کسر کرد.

Diff=length × Cos0-length × Cos 1

.Top=.Top+Diff

.Height=.Hekght-Diff

البته برای بدست آوردن سینوس یا کسینوس زاویه  همانطور که در بالاتر قید شد استفاده بنمائید.

موقعیت یک کنترل ، فاصله ی بوردر چپ یا بالا به لبه ی چپ یا بالای سکشن حاوی کنترل است.تنظیم ویژگی Top به صفر ،  لبه کنترل را در بالاترین جای سکشن قرار می دهد  ( سکشن Detail یا Form header و ... ) . برای استفاده از واحد اندازه گیری متفاوت ، در دیالوگ باکس Regional Options در کنترل پنل ، واحد را مشخص کنید مانند cm یا in ( برای مثال 3cm یا 2in ).

مثال زیر بررسی تنظیم ویژگی Top برای گaزارش درجریان . اگر این مقدار کمتر از حداقل حاشیه شد ویژگیهای NextRecord و PrintSection به False تنظیم می شوند . سکشن به رکورد بعدی پیشروی نمی کند و سکشن بعدی نیز در صفحه مشاهده نمیشود.

The following example checks the Top property setting for the current report. If the value is less than the minimum margin setting, the NextRecord and PrintSection properties are set to False. The section doesn't advance to the next record, and the next section isn't printed.

Sub Detail1_Format(Cancel As Integer,FormatCount As Integer)
Const conTopMargin = 1880
' Don't advance to next record or print next section
' if Top property setting is less than 1880 twips.
    If Me.Top < conTopMargin Then
        Me.NextRecord = False
        Me.PrintSection = False
    End If
End Sub

لطفا در نظرسنجی شرکت فرمائید.

جدیدا کسانیکه واکسن زده اند دچار بیماریهای نادر و خطرناک نقص ایمنی می شوند پس مراقب باشید.

بیماری واسکولیت - وگنر :

 ( فردریک ونگنر)

کسانیکه ترشحات خونی یا چرک و خون دارند سریعا به پزشک روماتولوژی مراجعه نمایند ( بیماری نقص در خونرسانی و کاهش اکسیژن خون )

تست های خونی متداول افزایش مارکرهای غیر اختصاصی التهاب (ESR,CRP) رانشان می دهند. در گروه عمده ای از بیماران می توان نوعی پادتن بنام ANCA (Anti-Neutrophil Cytoplasmic Antibody را مشاهده نمود.

تصویر برداری از قفسه سینه , سی تی اسکن یا ام آر آی رگ های خونی و اندام های تحت تاثیر را بهتر نشان می دهد

بیوپسی , پزشک از طریق جراحی نمونه کوچکی از بافت آسیب دیده را برداشته و مورد بررسی قرار می دهد.

بیماری بسیار خطرناک وگنر

فائزه هاشمی رفسنجانی در واکنش به اظهارات ائمه جمعه و طرح های مجلس برای اجباری شدن معالجه زنان توسط پزشکان زن گفت: این از یک بُعدش درست است و از یک بّعدش اگر بخواهند در این سیاست بروند، غلط است،

رویداد ۲۴ نوشت : فائزه هاشمی گفت:این دقیقا آدم را یاد سیاست‌های همین الان طالبان می‌اندازد؛ مدام زن‌ها را محدود می‌کنند و زن‌ها را برای یک جاهای خاص گذاشته‌اند و سیستمشان را دارند مردانه می‌کنند.