+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: sin,cos,tan,cot (/konu-sin-cos-tan-cot.html)
Sayfalar:
1
2
Cvp: sin,cos,tan,cot - accessman - 19/01/2010
örneğe gerek olmaz diye düşünmüştüm ama
örnekte form1 de hata veriyor nasıl düzeltebiliriz
teşekkürler
Cvp: sin,cos,tan,cot - Bilgisayarcı - 19/01/2010
Daha önce yaptığım bir örnekti. Ama forumdan silinmiş sanırım.
Sin ve cos hesabı için açının radyana döndürülmesi gerekiyor.
Radyana döndürmek için de aşağıdaki işlemleri yapmak gerekiyor.
cizilecekaci = cizilecekaci * ((22 / 7) / 180)
22/7 = pi sayısı
Cvp: sin,cos,tan,cot - nihatkr - 19/01/2010
(19/01/2010, 11:26)ayhan2122 yazdı:(18/01/2010, 19:21)nihatkr yazdı: 0,866025403 sayısı Cos(30)'un radyan kullanılarak elde edilen karşılığıdır.
Yani Cos(Radyan(30))=0,866025403
Terside =DERECE(ACOS(0.866025403))
Tamam, bilgisayarda, excelde yapınca böyle. Sormak istediğim elimizde sadece kağıt kalem varsa nasıl hesaplanıyor.
Cos, Sin, Tan.... okuldayken de sevmezdim
Yaw nekadar zor soruyorsun
Kalem kağıtla hesaplamak zor iş. En azından Excel olmazsa
bende de o kafa yok.Ama altta bir örnek var. (Alıntıdır.)
2 kenarının ve arasındaki açının verildiği üçgenlerde hayat kurtarıcı gibidir zaman zaman.
verilmeyen kenar=x
verilen kenarlar=a,b
aradaki açının kosinüsü=cosy
olursa;
x^2=a^2 + b^2 - 2.(a.b.cosy)
olacaktır.
b
|.|
|..|
|...|
|....|
|.....|
|_.....|
|_|___|
a..........c
örneğin şekildeki abc dik üçgeninde kosinüs teoremi uygulayalım.(3-4-5 dik üçgeni)
a² = b² + c² - 2bc.cosß
5² = 3² + 4² - 2.3.4.cos90
25 = 9 + 16 - 0
25 = 25
Cvp: sin,cos,tan,cot - accessman - 22/01/2010
iyi günler arkadaşlar
bilgisayarcı nın örneğinde
pb.DrawCircle 10, 10, 400, vbWhite
ile daire çizilince dairenin içi beyaz dış çizgisi kırmızı oluyor
acaba kırmızı olmasını nasıl belirtiyoruz
mesela dairenin dış çizgisinin mavi olması için ne yapmalıyız
birde
sadece çember yapmak için ne yazmalıyız
forumdaki bir örnekten aldığım bir uygulama
raporayrıntısına daire (veya çember)çiziyor
fakat ben bu kodların nasıl çalıştığını anlayamadım
mesala
çemberin yarıçapını nereden değiştireceğiz
dilimlenen kısmın oranını nasıl değiştireceğiz
renkleri nereden değiştireceğiz
--------
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Const conPI = 3.14159265359
Dim sngHCtr As Single, sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single, sngEnd As Single
sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = Me.ScaleHeight / 2 ' Vertical center.
sngRadius = Me.ScaleHeight / 3 ' Circle radius.
' Draw circle.
Me.Circle (sngHCtr, sngVCtr), sngRadius
sngStart = -0.00000001 ' Start of pie slice.
sngEnd = -2 * conPI / 3 ' End of pie slice.
Me.FillColor = RGB(255, 0, 0) ' Color pie slice red.
Me.FillStyle = 0 ' Fill pie slice.
' Draw pie slice within circle.
Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd
End Sub
------------
acaba herbir satır ne iş yapıyor
yardımcı olacak arkadaşlara teşekkürler
Cvp: sin,cos,tan,cot - arzuu - 22/01/2010
Dış çizgisi mavi ,küçük bir daire.
Kod:
Me.Circle (200, 200), 200, vbBlueCvp: sin,cos,tan,cot - accessman - 23/01/2010
teşekkürler arzuu hanım