uğur ılgın

Veritabanında yaptıklarımızı bu linkten indirebilirsiniz. http://hotfile.com/dl/137328282/7e34b24/Veri_Taban_Defteri.rar.html

Option Compare Database ' Yıllara göre gelir gider fark gibi alanlar içeren Tablo oluşturma '© All reserved uğur Sub form() Dim db As Database Dim tbl As TableDef Dim alan1 As Field Dim alan2 As Field Dim alan3 As Field Set db = CurrentDb() For x = 2001 To 2005 Set tbl = db.CreateTableDef(x) Set alan1 = tbl.CreateField("gelir", dbDouble, 20) Set alan2 = tbl.CreateField("gider", dbDouble, 20) Set alan3 = tbl.CreateField("fark", dbDouble, 20) tbl.Fields.Append alan1 tbl.Fields.Append alan2 tbl.Fields.Append alan3 db.TableDefs.Append tbl Next x End Sub

Option Compare Database Sub ugur() Dim db As Database Dim tbl As TableDef Dim alan1 As Field Dim alan2 As Field Set db = CurrentDb() Set tbl = db.CreateTableDef("Bilgi") Set alan1 = tbl.CreateField("ad", dbText, 20) Set alan2 = tbl.CreateField("soyadı", dbText, 20) tbl.Fields.Append alan1 tbl.Fields.Append alan2 db.TableDefs.Append tbl End Sub

Option Compare Database Dim frm_deneme As Form Sub form_olay() '**********************************________Form Oluşturma_______________ 'Set frm_deneme = CreateForm 'DoCmd.Close acForm, "Deneme", acSaveYes '**********************************________Form Kapatma_______________ 'DoCmd.Close acForm, "Kapatılacak Formun İsmi", acSaveYes 'DoCmd.Close 'bütün formları kapatır . Kaydetmeyi sorar '**********************************________Form Adı Değiştirme_______________ 'DoCmd.Close acForm, "Form1", acSaveYes 'DoCmd.Rename "deneme", acForm, "Form1" '**********************************________Form Açma_______________ 'DoCmd.OpenForm "deneme" '**********************************________Form Silme_______________ DoCmd.DeleteObject acForm, "deneme" '**********************************________Forma Nesne Ekleme_______________ DoCmd.OpenForm "Form1&qu

Ç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.

  BiteFight bitefight kurtadamlarla vampirlerin savaşını anlatan online bir oyundur. Diğer oyunlar gibi (Fps, Rpg vs ) gibi tarzıyla yapılmamıştır.ssayfa gibi görünen bir online oyundur. Oyun kuralları ve Ceza Sistemi KURALLAR *Bir Hesapla sadece bir kişi oynayabilir, her sunucu (server) için bir hesap kullanılır. *Bir hesabın sahibi, o hesabın üzerine kayıtlı bulunduğu (sürekli ve faal) e-posta adresinin sahibi olan kişidir. *E-posta Adresi Özel bir adres oldugundan dolayı, Çalınması durumunda, hesabınızın başına gelebilecek herhangi bir durumdan yine oyuncunun kendisi sorumludur. Bu sebeple Kayıtlı e-posta adresiniz, kimsenin bilmedigi bir adres olmasında, kendi menfaatiniz için faydası vardır. *Oyuna ilk kayıt olduğunuzda tarafınıza gönderilen aktivasyon mailini lütfen silmeyiniz. Oyun süresince yaşayabileceğiniz bazı durumlarda sizden aktivasyon maili istenebilir. Ayriyetten oyunu oynadığınız süre boyunca herhangi bir nedenle mail adresinizi değiştirmeniz gereki