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

Sub hesapla() For k = 1 To 50 Sheets.Add ' yukarıdaki 50 sayısı kadar sayfa ekler MsgBox Sheets.Count ‘Sayfa Sayısını Gösterir. Next k End Sub

Sub hesapla() For x = 1 To 10000 Cells(x, 1) = x Next x End Sub ‘1den 10000e kadar saydırıp A Sütununa yazdırır.

04.10.2011 2.ÖRNEK Sub hesapla() For x = 1 To 10 ' burada D sütunun içine A sütunun ilk harfi ve nokta sonra B sütunun birleşmiş halidir. Cells(x, 4) = Left(Cells(x, 1), 1) & "." & " " & Cells(x, 2) ' burada E sütunun içine A sütunuyla B sütunun birleştirmiştir. Cells(x, 5) = Cells(x, 1) & "  " & Cells(x, 2) Next x End Sub

04.10.2011 1.ÖRNEK Sub mesaj() 'Aşağıdaki döngüde excelldeki A1-A100 hücresine kadar Atl 11A yazma işine yarıyor For x = 1 To 100 'x birden yüze kadar olan sayıları kapsıyor. Cells(x, 1) = "Atl 11A" 'cells(x) satırları belirtiyor 'cells(1) sütunu belirtiyor Next x End Sub

Fonksiyonlar ve Kullanımı boş form seçeneği ile yeni bir form oluşturulur.Oluşan form tasarım görünümüyle açılır. iki ayrı metin kutusu eklenir özellik Sayfası seçilir. Özellik Sayfasından tümü/Denetim Kaynağının yanındaki ... tıklanır.İfade oluşturucudan fonksiyon seçilir.