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ı

Tarih Fonksiyonları

Tarih Fonksiyonları Metin1 = Date -------> Sistem tarihini verir. Metin1 = Time ------->Sistem saatini verir Metin1 = Now ------->Hem tarih hem zaman verileri elde edilir. Metin1 = Day(Date )------->Gündeğerini verir.date yerini sabit bir değer verilebilir-metin1=day("13.01.2011") Metin1 = Month(Date) ------->  Ayın değerini verir Metin1 = Year(date)  ------->Yılın değerini verir Metin1 = Weekday(Date) -------> Haftanın kaçıncı günü oldğunu verir. Metin1 = WeekdayName(Weekday(Date), False, vbSunday)  ------->Sistem tarihindeki günün adını verir. Metin1 = WeekdayName(Weekday("21.12.2012"), False, vbSunday)
Yorum Gönder
Devamı