iyi günler ekteki örnekte 14x14 cm büyüklüğünde bir analog saat var
yelkovan ekrep vs bu ölçülere göre ayarlanmış
bu saati 3x3 cm ölçülerine düşürmeye çalıştım ama bir kaç denemeden sonra
trigonometrinin bana göre olmadığını anladım
nasıl yapmak lazım neresini değiştireceğiz
Küçültme işleminde trigonometri hesaplamasına müdahale etmiyorsunuz.
Const pi = 3.142857
Const nCentreLeft = (840), nCentreUp = (840)
' This code copyright Ray Corbin 2006
' Blue Bridge Pty Ltd, Sydney Australia ra*@aic.net.au
' Use wherever provided you include this accreditation.
Dim nWidth As Single, nHeight As Single
On Error GoTo CH_Err
Select Case parHand
Case "Second"
nWidth = 650 * Sin(84 * pi * x)
nHeight = 650 * Cos(84 * pi * x)
Case "Minute"
nWidth = 550 * Sin(84 * pi * x)
nHeight = 550 * Cos(84 * pi * x)
Case "Hour"
nWidth = 350 * Sin(412 * pi * x)
nHeight = 350 * Cos(412 * pi * x)
End Select
Me("scrLine" & parHand).LineSlant = (Abs(nWidth * nHeight) = (nWidth * nHeight))
Me("scrLine" & parHand).Width = Abs(nWidth)
Me("scrLine" & parHand).Height = Abs(nHeight)
If nWidth > 0 Then
Me("scrLine" & parHand).Left = nCentreLeft
Else
Me("scrLine" & parHand).Left = nCentreLeft + nWidth
End If
If nHeight > 0 Then
Me("scrLine" & parHand).Top = nCentreUp - nHeight
Else
Me("scrLine" & parHand).Top = nCentreUp
End If
CH_Exit:
Exit Sub
CH_Err:
MsgBox Err.Description
Resume CH_Exit
Genişlik ve yükseklik için belirlenen katsayıyı küçültmeniz yeterli.
çok teşekkürler 840 rakamını nasıl buluyoruz mesela 4 cm çap için nasıl bulacağız
Koddaki 840 twips ölçü birimidir. 1 cm, yaklaşık 567 twips eder. Saat resminin yarıçapı 2 olacağı için 840 yerine 1134 yazacaksın. Hiç bilmiyorsan 840 yerine 1000 yaz, solda kaldıysa 1200 yaz, sağa kaydıysa 1150 yaz.
ben de o mantıkla 7*567 değerini
6*567 yaptığımda hata verdi