19/01/2010, 11:48
sin,cos,tan,cot
1 2
19/01/2010, 12:35
Bilgisayarcı
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ı
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ı
19/01/2010, 12:47
nihatkr
(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 sevmezdimYaw nekadar zor soruyorsun Kalem kağıtla hesaplamak zor iş. En azından Excel olmazsa
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
22/01/2010, 16:27
accessman
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
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
22/01/2010, 17:46
arzuu
Dış çizgisi mavi ,küçük bir daire.
Kod:
Me.Circle (200, 200), 200, vbBlue 23/01/2010, 03:29
accessman
teşekkürler arzuu hanım
1 2