uğur ılgın

Çalıştığı Gün Kadar Maaş Hesaplanması

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)

İkinci Dereceden Denklem Çözümü Gerekenler: 3 Metin Kutusu 1 Buton

Trigonometrik Fonksiyonlar Gerekenler: Metin Kutusu ve Buton

İki Sayının Karelerinin Toplamını Alma Gerekenler: 3 Metin Kutusu 1 Button 1.Yöntem Option Compare Database Private Sub Komut4_Click() Dim s1, s2 As Integer Metin0.SetFocus s1 = Val(Metin0.Text) Metin2.SetFocus s2 = Val(Metin2.Text) Metin5.SetFocus Metin5.Text = (s1 * s1) + (s2 * s2) End Sub

Access'de butona olay atama (isim ve soyismi birleştirme)

Sub hesapla() For k = 1 To 10 Cells(k, 2) = Cells(k, 1) * 0.18 'A Sütunundaki verilerin %18 Aldı If Cells(k, 2) > 300 Then '300 den büyükse Cells(k, 2).Select Selection.Interior.Color = vbYellow 'O alanı seçip arkaplan rengini değiştirecek ' rgb,18880,vbrenk olabilir. End If Next k End Sub