Ana içeriğe atla

Trigonometrik Fonksiyonlar

Trigonometrik Fonksiyonlar
Gerekenler: Metin Kutusu ve Buton













Private Sub Komut2_Click()
'trigonometrik fonksiyonlara örnek
Dim derece, radyan, sonuc1, sonuc2, sonuc3 As Double
Dim metin As String
derece = Metin0
radyan = derece * 3.14 / 180
sonuc1 = Round(Sin(radyan), 4)
'virgülden sonra 4 basamak gösterir.Round : virgülden sonra basamak gösterir.
sonuc2 = Round(Cos(radyan), 4)
sonuc3 = Round(Tan(radyan), 4)
metin = "Sin(" & derece & ")=" & sonuc1 & Chr(13)
'Chr(13) enterlamayı sağlar. 13=Enterın ASCII kodudur.
metin = metin & "Cos(" & derece & ")=" & sonuc2 & Chr(13)
metin = metin & "Tan(" & derece & ")=" & sonuc3
MsgBox metin
End Sub
Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

SQL İŞLEMLERİ

Option Compare Database Sub secme_islemi() 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 ORDER BY MESLEK DESC" 'Tablo1deki ad alanındaki verileri YENI adındaki tabloya aktar ad yerine * olursa tüm verileri tabloya ekler 'ORDER BY..... küçükten büyüye sıralama yapar 'ORDER BY .....DESC büyükten küçüğe sıralama yapar '<bİRDEN FAZLA ALAN İÇİN ARAYA ..A...,....B... KONUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MESLEK='DOKTOR'" 'WHERE ........='string değeri' KOŞUL OLUŞTURUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE LEFT(AD,1)='U'" 'sayısal değerde kullanılabilir: 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=2000" DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=1 AND MAAŞ<=2000" 'İKİ DEĞER ARASINDAKİLERİ ALDIRMAK End Sub
Yorum Gönder
Devamı

Bir tablo içindeki verileri formdaki değerlerle sınırlandırmak

Private Sub Komut4_Click() Dim db As Database Dim rst, rs As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Set rs = db.OpenRecordset("yeni") Do Until rst.EOF If rst("yaş").Value >= CInt(Metin0) And rst("yaş").Value <= CInt(Metin2) Then rs.AddNew rs("ad").Value = rst("ad").Value rs("yaş").Value = rst("yaş").Value rs.Update End If rst.MoveNext Loop End Sub
Yorum Gönder
Devamı

Hesaplama

Sub hesapla() Dim db As Database Dim rst As Recordset Set db = CurrentDb toplam = 0 Set rst = db.OpenRecordset("giriş") Do Until rst.EOF If rst.Fields(2).Value = "teknosa" Then toplam = toplam + (rst.Fields(3).Value * rst.Fields(4).Value) End If rst.MoveNext Loop MsgBox toplam End Sub
Yorum Gönder
Devamı