Skip to main content

AccessTr.neT


Analog Saat Ve Trigonometri

Analog Saat Ve Trigonometri

Çözüldü #1
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
.rar Database7.rar (Dosya Boyutu: 246,78 KB | İndirme Sayısı: 6)
@benbendedeilem
Cevapla
#2
Küçültme işleminde trigonometri hesaplamasına müdahale etmiyorsunuz. 

Visual Basic Code
    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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
çok teşekkürler 840 rakamını nasıl buluyoruz mesela 4 cm çap için nasıl bulacağız
@benbendedeilem
Cevapla
#4
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
ben de o mantıkla 7*567 değerini
6*567 yaptığımda hata verdi
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da