Crysis 1 açılmama sorunu

Selamlar arkadaşlar Crysis 1 açılmıyorsa özelliklerden uyumluluk ayarını Windows Vista Service Pack 1 seçerseniz sorununuz çözülür

Onedrive Android Dosya Yükleme Sorununun Çözümü

Selamlar Onedrive uygulamasında dosya yükleme sorunu yaşayanlar, var olan onedrive uygulamasını kaldırıp linkini vereceğim apk dosyasını kurarsanız sorun çözülücektir uygulamanın güncellenmesi durumunda sorun tekrar başlar mümkünse otomatik güncelleme kapalı olsun
Apk dosyasını indirmek için tıklayın

WİKİPEDİA GİRİŞ YÖNTEMİ WİKİPEDİA AÇILMIYOR WİKİPEDİA PROXY WİKİPEDİA NASIL GİRİLİR 2017

MAALESEF ARKADAŞLAR YENİ YAPILAN GÜNCELLEME İLE DOMAİN BAZLI ENGELLEME YAPILARAK HOST DOSYASI DÜZENLEMESİ İLE YASAĞIN AŞILMASI ENGELLENMİŞTİR BU YASAĞI ARTIK https://tr.0wikipedia.org ADRESİNDEN BAĞLANARAK KALDIRABİLİRSİNİZ

Merhaba arkadaşlar Wikipedia BTK tarafından açıklanmayan bir sebeple engellendi girmek için buraya tıklayın ve dosyayı indirin, zipten dosyaları çıkartın calistir.bat dosyasına sağ tıklayarak yönetici olarak çalıştırın ardından erişimi test edin

eğer çalışmıyorsa hosts dosyasına

91.198.174.192    nn.wikipedia.org
91.198.174.192    tr.wiktionary.org
91.198.174.192    kk.wikipedia.org
91.198.174.192    vo.wikipedia.org
91.198.174.192    ca.wikipedia.org
91.198.174.192    www.wikidata.org
91.198.174.192    ro.wikipedia.org
91.198.174.192    tr.wikivoyage.org
91.198.174.192    eo.wikipedia.org
91.198.174.192    ko.wikipedia.org
91.198.174.192    pl.wikipedia.org
91.198.174.192    la.wikipedia.org
91.198.174.192    he.wikipedia.org
91.198.174.192    donate.wikimedia.org
91.198.174.192    zh.wikipedia.org
91.198.174.192    bs.wikipedia.org
91.198.174.192    el.wikipedia.org
91.198.174.192    ar.wikipedia.org
91.198.174.192    en.wikipedia.org
91.198.174.192    da.wikipedia.org
91.198.174.192    tt.wikipedia.org
91.198.174.192    fi.wikipedia.org
91.198.174.192    gag.wikipedia.org
91.198.174.192    ja.wikipedia.org
91.198.174.192    tr.wikinews.org
91.198.174.192    no.wikipedia.org
91.198.174.192    tr.wikiquote.org
91.198.174.192    fa.wikipedia.org
91.198.174.192    sv.wikipedia.org
91.198.174.192    hi.wikipedia.org
91.198.174.192    commons.wikimedia.org
91.198.174.192    cs.wikipedia.org
91.198.174.192    sr.wikipedia.org
91.198.174.192    nl.wikipedia.org
91.198.174.192    ku.wikipedia.org
91.198.174.192    shop.wikimedia.org
91.198.174.192    sk.wikipedia.org
91.198.174.192    sl.wikipedia.org
91.198.174.192    lt.wikipedia.org
91.198.174.192    ru.wikipedia.org
91.198.174.192    tr.m.wikipedia.org
91.198.174.192    mk.wikipedia.org
91.198.174.192    id.wikipedia.org
91.198.174.192    species.wikimedia.org
91.198.174.192    hu.wikipedia.org
91.198.174.192    crh.wikipedia.org
91.198.174.192    tk.wikipedia.org
91.198.174.192    tr.wikibooks.org
91.198.174.192    fr.wikipedia.org
91.198.174.192    cv.wikipedia.org
91.198.174.192    tr.wikipedia.org
91.198.174.192    sh.wikipedia.org
91.198.174.192    kaa.wikipedia.org
91.198.174.192    krc.wikipedia.org
91.198.174.192    meta.wikimedia.org
91.198.174.192    vi.wikipedia.org
91.198.174.192    de.wikipedia.org
91.198.174.192    ba.wikipedia.org
91.198.174.192    tr.wikisource.org
91.198.174.192    hr.wikipedia.org
91.198.174.192    bg.wikipedia.org
91.198.174.192    ms.wikipedia.org
91.198.174.192    simple.wikipedia.org
91.198.174.192    sq.wikipedia.org
91.198.174.192    et.wikipedia.org
104.20.150.16    creativecommons.org
91.198.174.192    az.wikipedia.org
91.198.174.192    pt.wikipedia.org
91.198.174.192    uz.wikipedia.org
91.198.174.192    ka.wikipedia.org
91.198.174.192    uk.wikipedia.org
91.198.174.192    beta.wikiversity.org
91.198.174.192    es.wikipedia.org
91.198.174.192    it.wikipedia.org
91.198.174.192    eu.wikipedia.org
91.198.174.192    ug.wikipedia.org
91.198.174.208    upload.wikimedia.org
91.198.174.192    th.wikipedia.org
91.198.174.192    www.mediawiki.org
91.198.174.192    ky.wikipedia.org
91.198.174.192    www.wikimediafoundation.org

satırlarını ekleyin ve sorunsuzca wikipedia'ya girebilirsiniz

Dosya adı dizin adı veya birim etiketi sözdizimi hatalı sorununun çözümü

Sorunun çözümü için tıklayın

Windows 10 oyun-program uyumluluk sorunlarının çözümü Windows 10 gta 4

Selamlar arkadaşlar Windows 10 birçok oyunla-programla uyumluluk sorunu çıkartabiliyor bu sorunları çözmek gayet basit
Çözüm 1: Dosyanın özelliklerine giriyoruz uyumluluk sekmesi altından bu programın çalıştırılacağı uyumluluk modu seçeneğine tik atıp alttaki seçeneklerden Windows Xp Service Pack 3'ü seçip tamam'a tıklıyoruz.
Çözüm 2:Büyük ihtimalle yukarıdaki çözüm sorununuzu giderecektir ama çalışmazsa (Örneğin Gta 4 kurulumunda çözüm 1 işe yaramıyor) bu yöntemi deneyebilirsiniz arama kutusuna regedit yazıp çalışıtırıyoruz HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows anahtarı altında CSDVersion değerini 100 yapıyoruz ve bilgisayarımızı yeniden başlatıyoruz oyunumuz-programımız sorunsuzca çalışacaktır.

Upx ve Resource Hacker ile 8 antivirüs geçmek

Kullanılan araçlar:
Upx
Resource Hacker

userscripts.­org'a giriş yapmak

Merhaba arkadaşlar userscripts.­org bildiğiniz gibi greasmonkey ve tampermonkey tarafından desteklenen açık kaynak kodlu eklentileri indirebileceğimiz bir siteydi bu site bir süredir açılmıyor ancak bu adresten giriş yapabilirsiniz: http://userscripts.org:8080/

Android'te istediğiniz ses dosyasını bildirim, zil sesi yapmak için

SD kartınıza "media" adlı klasör açın ve içerisine "audio" isimli bir klasör açın yine audio içerisine notifications ve ringtones" isimli 2 klasör açın. 1. klasör bildirim sesleri için 2. klasör ise zil sesleri için.

Avast Erişim Şifresini Değiştirme

Merhaba bildiğiniz gibi avast'ta başka kişilerin avast'a erişmemeleri için şifre koyuyoruz ancak şifreyi unutursak;

Cmd'yi Yönetici Olarak Çalıştırın 

 

Ardından Yönetici İzni Diyaloğu Açılırsa Evet'e Tıklayın 

 

Ve Şu Şekilde Bir Komut Yazın:  

“C:\Program Files\AVAST Software\Administration Console\Avast.Sbc.Service.exe” –c password -p yenisifre 

yenisifre yazan yere Yeni Şifremizi Yazıyoruz Örneğin: 

“C:\Program Files\AVAST Software\Administration Console\Avast.Sbc.Service.exe” –c password -p 123456789 

Ve enter'a basıyoruz şifremiz değişiyor 

Neden Windows XP Kullanmamalıyız?

* 11 yıl eski bir işletim sistemi, 2002 yılında çıktı
* SSD'lerdeki TRIM özelliğini desteklemediği için SSD'lerin ömrünü kısaltıyor
* Microsoft tarafından destek görmüyor
* USB 3.0 gibi güncel teknolojileri doğrudan desteklemiyor
* AHCI modunda doğrudan kurulamıyor, sistemi eski ve yavaş IDE moduna almak gerekiyor
* DirectX 11 desteği yok, bu yüzden yeni oyunları desteklemiyor
* 3.25 GB'tan fazla RAM kullanamıyor, 64 Bit sürümü çok sorunlu
* Güncel tarayıcıları desteklemiyor
* Sürücüler artık Windows 7 ve 8'e uygun yapılıyor, XP sürücülerindeki hatalar giderilmiyor
* Sürücüleri otomatik güncelleyemiyor
* 2 TB'ın üstündaki sabit disklerde sorun çıkartıyor
* Güncel UEFI BIOS teknolojisini desteklemiyor, bu yüzden yavaş boot ediyor
* Güncel Office sürümlerine destek vermiyor
* Güvenlik açısından noksan, virüslerin çoğu XP için yazılmış durumda
* Doğrudan IPv6 desteği sunmuyor, komut satırından etkinleştirmek gerekiyor
* WPA2 desteği sunmuyor, yama yüklemek gerekiyor
* Bazı işlemcilerin çoklu çekirdek özellikleri için yama kurulmasını gerektiriyor
* Tarayıcıların donanımsal hızlandırma özelliğini desteklemiyor

Windows 7 Service Pack 1 yükleme Sorununu Giderme

Merhaba bende dahil birçok kişi Windows 7'ye Service pack 1'i yüklemekte sorun yaşıyor bu sorunun sebebi yüklemenin Administrator hesabından yapılmamasıdır çözümü basit.

1. Adım Administrator hesabını açmak
Administrator hesabı windows 7'de kapalı olarak gelir açmak için cmd'yi yönetici olarak çalıştırmamız gerekiyor ardından cmd'ye net user administrator /active:yes yazalım. 

2. Adım Administrator hesabına geçmek 
Administrator hesabını 1.adımı uygulayıp açtıktan sonra oturumu kapatıp Administrator hesabına geçmek için kullanıcı menüsünde Administrator hesabını seçelim.


3. Adım Service Pack'ı yüklemek 
2. Adımı uygulayıp Administrator hesabına giriş yaptıktan sonra Windows update'i açıyoruz ve service pack 1'i yüklüyoruz ardından yeniden başlatıyoruz ve bilgisayarımız başarıyla service pack 1 yüklenmiş oluyor.

4. Adım Administrator hesabını kapatmak 
1. Adımı uygulayıp Administrator hesabını açtıktan sonra karşımıza her bilgisayar açtığımızda kullanıcı seçme menüsünü getirmemesi için Administrator hesabını kapatmamız gerekli bunun için yeniden cmd'yi yönetici olarak çalıştırıp net user administrator /active:no yazalım ve Administrator hesabını kullanıcı menüsünde çıkmasını engelleyelim  böylece işlemimiz bitti bloğumu takip etmeye devam edin..

İki Bilgisayar Arası Dosya Paylaşımı Yapma

Biri laptop biri masaüstü ise ve kablosuz bir modemin varsa çok basit:
(Veya iki masaüstü pc bir kablolu modeme bağlı ise) Ben: Bir laptop bir masaüstü bilgisayarı olanlar için anlattım.

Modemi masaüstüne bağlayın. Modemden kabloyu kasaya takın. Sonra laptop wireless ile modeme bağlanın. 2 pc aynı modeme bağlı olduğundan pc'lerde birbirine bağlı sayılcak.
Sonra masaüstünü ve laptopu denetim masasından paylaşıma aç. Aşağıdaki gibi:

Denetim Masası\Ağ ve Internet\Ağ ve Paylaşım Merkezi\Gelişmiş paylaşım ayarları/

Ayarları resimlerdeki gibi yap. (Bunu her 2 pc'yede yap)

Daha sonra dosyaların bulunduğu bilgisayarda dosyaların bulunduğu klasöre sağ tıkla /özellikler/paylaşım/Everyone/ Ekle.. Ekledikten sonra everyone'nin sağ tarafında "okuma"yazar. Onu, Okuma/Yazma olarak değiştir ve paylaş de. (Resimdeki gibi)

Modemine girdikten sonra 2 bilgisayarında ismi yazar. Hangi bilgisayardan dosyaları kopyalamak istiyorsan ona gir ve dosyaları onun içinde göreceksin. Dosyalara sağ tıkla kopyala de ve nereye kopyalamak istiyorsan kopyala. Resimdeki gibi. 

Uzak Masaüstü Bağlantısı Yapma

Arkadaşlar çoğu kişinin sıkıntı yaşadığı uzak masaüstü için bütün cevapları vereceğim.

ÖNEMLİ: Windows XP' nin uzak masaüstü programını kullanmak istiyorsak mutlaka bilgisayarımızdaki kullanıcıda şifre olmak zorundadır. Bunun için Başlat>Ayarlar>Denetim Masası>Kullanıcı hesapları yolunu izleyerek kullanmış olduğunuz user' a parola verebilirsiniz. Bilgisayarımızı yeniden başlattıktan sonra aşağıdaki işlemleri yapmaya başlayabiliriz. Bu işlemleri bağlanmak istediğiniz bilgisayar üzerinde yapacaksınız.

1. Resimde de gördüğünüz gibi Bilgisayarım>sağ tuş>özellikler' e tıklayıp Kullanıcıların bu bilgisayara bağlanmasına izin ver seçeneği işaretleyip tamam' a tıklayarak çıkın.

 

2. Bundan sonraki en karışık durum ise ADSL modemden port yönlendirmesi yapmak. Bunu ADSL modeminizin IP' si aracılığı ile web arayüzüne girip genelde NAT' ın altındadır. Resimdeki gördüğünüz ayarları yapın ve modemin hafızasına almasını sağlayın. 

3. Modem ayarlarımızı da bitirdikten sonra bağlanmak istediğimizin bilgisayarın İP sini öğreniyoruz. www.ipsorgulama.com' dan öğrenebilirsiniz. Daha sonra Başlat>programlar>donatılar>iletişim>uzak masaüstü bağlantısına tıklıyoruz.

 

Bağlantınız hayırlı olsun. Başarıyla uzak masaüstü bağlantımızı gerçekleştirmiş bulunuyoruz. Kolay gelsin.

Sayısal Loto Hesaplayıcı Yapımı

Böyle Bir Form Oluşturalım:

Public Class Form1
Private Sub Belirle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Belirle.Click
Dim sayilar(5) As Integer 'sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 6 'sayac 6 dan küçük olduğu zaman
rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
If (Array.IndexOf(sayilar, rsayi) = -1) Then 'dizinin içinde aynı sayı yoksa
sayilar(sayac) = rsayi 'üretilen rastgele sayiyi dizinin sayac kaç ise o elemanına ata
sayac = sayac + 1 ' sayacı bir artır
End If
End While

Array.Sort(sayilar)
Label1.Text = sayilar(0) 'label1 e sayilar dizisinin 1.elemanını yaz
Label2.Text = sayilar(1) 'label2 e sayilar dizisinin 2.elemanını yaz
Label3.Text = sayilar(2) 'label3 e sayilar dizisinin 3.elemanını yaz
Label4.Text = sayilar(3) 'label4 e sayilar dizisinin 4.elemanını yaz
Label5.Text = sayilar(4) 'label5 e sayilar dizisinin 5.elemanını yaz
Label6.Text = sayilar(5) 'label6 e sayilar dizisinin 6.elemanını yaz
End Sub
End Class

Visual Basic Resimli Ders

VISUAL BASIC 6.0 Visual Basic karmaşık mantıklara ve biçimlere sahip, Windows uyumlu uygulamaların tasarımlarını kolaylaştırıcı bir görsel dildir. Bu dilde program geliştirmenin ilk adımı, kullanıcının ekranda görmek istediklerini saptamak ve ekran tasarımını gerçekleştirmektir. Bu programda her şey nesne olarak tanımlanmıştır (form, yazı kutusu, komut düğmesi v.b.). Nesneler, kendilerine iliştirilmiş olan olayları (farenin tıklanması, farenin çift tıklanması gibi) tanıyabilir ve yazılmış olan komutlara göre tepki verebilir. Olaylar gerçekleştiğinde işlemler yerine getirilir, ve pencereler güncelleştirilir. Sistem daha sonra yeni olayları bekler. TEMEL KAVRAMLAR Form: Windows pencerelerinin Visual Basic'deki karşılığıdır. Uygulama çalıştırıldığında formlar pencerelere dönüşür. Her uygulama en az bir form içermek zorundadır. Prosedür: Komut cümlelerinden oluşan program parçalarıdır. Modül: Tek bir dosyada toplanan ve programın herhangi bir yerinden çağırılabilen prosedürler ve tanımlamalar topluluğu. Özellik (Property): Nesne karakteristiklerini (boyut, renk, konum, …) ve nesne davranışlarını tanımlayan nitelikler. Olay (Event): Nesnelerin algılayabildiği eylemlerin adıdır. ARAÇ ÇUBUĞU VE KISAYOL TUŞLARI Şekil-1'de araç çubuğu ve üzerindeki kısayol tuşları görüntülenmektedir.

 

Araç çubuğu üzerindeki kısayol tuşlarının işlevleri soldan sağa aşağıdaki gibidir:

·        Standart EXE Proje Ekleme - File/Add Project (File Menüsünden Add Project seçeneği tıklanır)

·        Form Ekleme - File/New Form

·        Menü Tasarımı - Window/Menu Design - Ctrl+M

·        Proje Aç - File/Open Project

·        Proje Kaydet - File/Save Project

·        Kes - Edit/Cut - Ctrl+X

·        Kopyala - Edit/Copy - Ctrl+C

·        Yapıştır - Edit/Paste - Ctrl+V

·        Bul - Edit/Find - Ctrl+F

·        Geri Al - Edit/Undo - Ctrl+Z

·        Tekrar - Edit/Redo

·        Başlat - Run/Start - F5

·        Ara Ver - Run/Break - Ctrl+Break

·        Sona Erdir - Run/End

·        Proje Gezgini - View/Project Explorer

·        Özellikler Penceresi - View/Properties Window - F4

·        Form Görüntü Penceresi - View/Form Layout Window

·        Nesne Gezgini (tüm nesneleri gösterir) - View/Object Browser

·        Araç Kutusu (kontrol nesnelerini içerir) - View/Toolbox

·        Veri tabanı Bağlantıları - View/Dataview Window

Proje ve Form Pencereleri

Tüm Visual Basic bileşenleri bir proje içerisinde bulunur. Proje yaratıldıktan sonra, proje penceresinde, o uygulamada yer alan formlar, modüller ve özel denetçiler listelenir. Listeden istenilen form seçildikten sonra View/Form ile formun kendisi ya da View/Code ile o forma ait kod görüntülenebilir. Formun üzerinde yer alan noktalara grid denir. Bu noktalar form üzerineyerleştirilecek nesnelerin hizalanmasını sağlar.

ÖZELLİKLER PENCERESİ

Bir formun konumunu değiştirmek onun özelliğini değiştirmek anlamına gelir. Özellikler penceresi açıldığında Şekil-2'deki gibi görüntülenir. Başlık çubuğu altındaki nesne kutusunda (Object Box) yer alan açıklama nesnenin adını ve ne tip bir nesne olduğunu belirtir. Örneğin Şekil-2'deki "Form1 Form" açıklaması seçili nesnenin bir form olduğunu ve adının Form1 olduğunu göstermektedir. Nesne kutusunu altındaki ayarlar kutusunda (Settings Box) ise pencerede o anda seçilmiş olan ayarın değeri görüntülenir ve değiştirilebilir. Seçeneklerin çoğunluğu kullanıcıya düşen liste olarak sunulur. Bu liste renkler için paleti görüntülerken, pencerenin görünür olma özelliği için ise doğru/yanlış (True/False) olarak sunulur.

  

Bazı Form Özellik Tanımları

Şekil-2. "Properties" Özellikler Penceresi

  

(Name):  İsim

Appearance: Formun düz ya da 3-boyutlu görünmesini sağlar.

BackColor: Artalan rengi

BorderStyle: Kenar çizgisi biçimi

Caption: Form Başlığı

ControlBox: Pencere kontrollarının olup olmayacağını belirler.

Font: Yazı tipini belirler.

Height: Formun yüksekliğini belirtir.

Left: Formun sol koordinatını belirler.

Top: Formun üst koordinatını belirler

Visible: Formu gizlemek ya da gizli formu görüntülemek için kullanılır.

Width: Formun genişliğini belirtir. 

Programı Başlatma

Visual Basic programını başlattığınızda ekrana Şekil-3'deki Yeni Proje Penceresi gelir. Eğer Visual basic daha önceden çalışıyor ise aynı pencereyi File/New project seçeneği ile de açabilirsiniz. Bu pencere seçenekleri ile proje tipini belirleyebilirsiniz. Normal proje için Standard.EXE, Internet ile ilgili projeler için Activex.EXE kullanınız. 

  

Şekil-3. Yeni Proje Diyalog Penceresi 

 

Şekil-4. Proje Tasarım Penceresi

Proje açıldıktan sonra proje tasarım penceresi Şekil-4'deki gibi ekrana gelir. Bu pencerenin başlığı Project1: Microsoft Visual Basic (Design) olarak görüntülenir. Daha sonra bu program çalıştırıldığında Design-Run olarak değişecektir.

Bu yeni proje bir form ile başlar. Genelde bu form programınızın başlangıç sayfası olur. Form penceresi dışında Tasarım Penceresi üzerinde projede yer alan formları gösteren "Project1" adlı proje penceresi, formun ekran üzerindeki boyutunu gösteren "Form Layout" penceresi ile nesne özelliklerini gösteren "Properties" penceresi yer alır. Tasarım penceresinin sol tarafında ise nesne yaratımı için gerekli bir araç çubuğu bulunur.

Projeyi Saklama

Projenin saklanması için öncelikle projenin bileşenleri (form, kod modülü, vs.) ayrı ayrı ait oldukları dosyalara saklanmalı, daha sonra projenin kendisi proje dosyası olarak saklanmalıdır. 

 

Projeyi saklamak için File/Save Project menü seçeneği ya da araç çubuğu üzerindeki Save Project düğmesi tıklanır. Her proje bileşeni için ardı ardına Şekil-5'deki Yeni Adla Proje Saklama Diyalog kutusu ekrana gelecektir. Bu kutu üzerinde her dosyanın adını ve yerini belirlemeniz gerekmektedir.

Şekil-5. Yeni Adla Proje Saklama Penceresi

  

Formları Programlama 

 

Formlar 20'den fazla olaya tepki verebilirler. Bu tepkinin ne olacağını kodlama ile belirtebilirsiniz. Örneğin, kullanıcı form üzerindeki herhangi bir bölgeyi tıkladığında bir mesaj görüntüleyebilirsiniz. Kodlamayı yapabilmek için formu çift tıklamak ya da View/Code komutu kullanmak yeterlidir. Bu komut çalıştırıldığında Şekil-6'daki pencere ekrana gelir. Bu pencerenin üst sağındaki "Object" kısmında formda yer alan tüm nesnelerin listesi, soldaki "Proc" kısmında ise nesnenin tanıyacağı olaylar bulunur.

Şekil-6. Form Kod Penceresi

Form tıklandığında "Fareyi tıkladınız" mesajını vermek için gerekli kod aşağıdadır:

Sub Form_Click

                        Print "Fareyi tikladiniz."

End Sub

Örnek Form Olayları
Activate	Formun etkin pencere olması
Click	Form üzerinde farenin tıklanması
DblClick	Form üzerinde farenin çift tıklanması
Deactivate	Formun edilgen olması
GotFocus	Form denetçilerinin edilgen, formun etkin olması
KeyDown	Odak form üzerinde iken klavye tuşuna basılması
KeyPress	Odak form üzerinde iken klavye tuşuna basılıp bırakılması
KeyUp	Odak form üzerinde iken herhangi bir tuşa basılması yada bırakılması
Load	Form penceresinin açılması
LostFocus	Odağın formdan başka bir nesneye kayması
MouseDown	Farenin bir tuşuna basılması
MouseMove	Farenin hareket ettirilmesi
MouseUp	Farenin basılan tuşunun bırakılması
Unload	Formun kapatılması

Örnek Form Yöntemleri
Circle	Form üzerine daire, elips ya da yay çizer
Cls	Form üzerindeki tüm yazı ve resimleri siler
Hide	Formu gizler fakat kapatmaz
Line	Form üzerinde çizgi ya da dikdörtgen çizer
Move	Formu hareket ettirir
Print	O andaki renk ve yazı boyunu kullanarak form üzerine yazı yazar
PrintForm	Formu ekranda göründüğü gibi yazıcıya yollar
Refresh	Formun kendini yeniden çizmesini sağlar
Scale	Formun koordinat sistemlerini tanımlar
SetFocus	Odağın forma kaymasını sağlar
Show	Formun görüntülenmesini sağlar
TextHeight	Yazı boyunu belirler
TextWidth	Yazı uzunluğunu belirler

Kullanıcı Etkileşimi

Kullanıcıdan bilgi almak için kontrol nesneleri kullanılır. Bu kontrol nesneleri Şekil-7'de görüntülenmektedir. 

Gösterici (Pointer)

Resim Çerçevesi (PictureBox)

Etiket (Label)

Yazı Kutusu (TextBox)

Çerçeve (Frame)

Komut Düğmesi (CommandButton)

İşaret Kutusu (CheckBox)

Seçenek Düğmesi (OptionButton)

Çekme Liste (ComboBox)

Liste (ListBox)

Yatay Kaydırma Çubuğu (HScrollBar)

Düşey Kaydırma Çubuğu (VScrollBar)

Zamanlayıcı (Timer)

Sürücü Listesi (DriverListBox)

Dizin Listesi (DirListBox)

Dosya Listesi (FileListBox)

Şekil (Shape)

Çizgi (Line)

Resim (Image)

Veri Denetçisi (Data)

OLE Denetçisi (OLE) 

Şekil-7. Kontrol Nesnelerinin Yer Aldığı Araç Çubuğu

Bir Nesnenin Taşınması ve Boyutlandırılması

Bir nesnenin taşınma ve boyut değiştirme işlemleri grafik nesnelerinki ile aynıdır. İstenirse birden fazla nesne Ctrl tuşu basılı tutularak seçilir ve grup halinde taşıma ya da boyut değiştirme işlemi gerçekleştirilebilir.

Etiket

Kullanıcıya bilgileri ve yazıları görüntülemek için kullanılır, burada bilginin kullanıcı tarafından değiştirilmesi olası değildir.

Etiket Ekleme

Yazı kutularının işlevini belirlemek için her yazı kutusu ile birlikte bir adet etiket kutusuna gereksinim vardır.

·        Araç çubuğu üzerinde etiket kutusu düğmesini tıklayınız.

·        Farenin imlecini form üzerine, kutuyu koyacağınız yerin bir köşesine götürünüz.

·        Fareyi tıklayarak parmağınızı bırakmadan kutunun karşı köşesi olacak yere kadar sürükleyiniz, ve fare düğmesini bırakınız.

Etiket kutusunun özellikleri "Properties" penceresinde görüntülenir. Nesnenin adı "Name" ile belirlenir, etiketin ekranda gözükecek yazısı ise "Caption" bölümüne yazılır.

Yazı Kutusu

Kullanıcıdan yazılı olarak bilgi almak ve yine bilgileri kullanıcıya göstermek için kullanılır. Yazı kutusunun özellikleri yine "Properties" penceresinden değiştirilir. Yazı kutusuna girilen bilgi sayısal bilgi de olsa karakter dizini olarak kabul edilir. Aritmetik işlem yapılacağı takdirde sayıya çevrilmelidir (Val komutu ile). Yazı kutularının ismi vardır ancak başlık - "Caption" özelliği bulunmaz.

Yazı Kutusu Ekleme

·        Araç çubuğu üzerinde yazı kutusu düğmesini tıklayınız.

·        Farenin imlecini form üzerine, kutuyu koyacağınız yerin bir köşesine götürünüz.

·        Fareyi tıklayarak parmağınızı bırakmadan kutunun karşı köşesi olacak yere kadar sürükleyiniz, ve fare düğmesini bırakınız.

Komut Düğmesi

Kullanıcının tıklaması ile çeşitli işlevlerin çalıştırmasını sağlayan düğmelerdir. Komut düğmelerinin üzerine komutun işlevini belirten yazılar başlık-Caption özelliği ile iliştirilir. Başlık yazısı düğmenin ortasına yazılır. Başlık düğmenin standart boyundan geniş ise boyutlandırma otomatik olarak yapılmaz. Bunu sizin yapmanız gerekir. Başlık üzerinde bir karakterin altını çizmek için o karakterin önüne & işareti konur, ve o karakter altı çizili olarak yazılır. Böylece komut Alt tuşu ile altı çizili karakterin klavyeden basılması ile de çalıştırılır.

&Son -- Son -- Alt+S ile Son komutu gerçekleşir ve program sona erer

Komut Düğmesi Ekleme

·        Araç çubuğu üzerinde komut düğmesi düğmesini tıklayınız.

·        Farenin imlecini form üzerine, düğmeyi koyacağınız yerin bir köşesine götürünüz.

·        Fareyi tıklayarak parmağınızı bırakmadan düğmenin karşı köşesi olacak yere kadar sürükleyiniz, ve fare düğmesini bırakınız.

PROGRAMLAMA TEMELLERİ

Cümleler

Bir cümleyi yazıp Enter tuşuna bastığınızda o komut cümlesi değerlendirilir ve yazım yanlışları saptanır. Büyük küçük harf ayrımı yapılmaz. Komutun ilk harfi otomatikman büyültülür. Komut olmayan açıklama satırları için tek tırnak, Rem ya da Remark kullanılır.

            Rem     Yardım Düğmesi

' Bu düğme tıklanınca çalışır.

            Print "Yardım yok"  'satır arasına da açıklama koyabilirsiniz

Değişkenler

Kullanıcıdan alınan bilgiler ve hesaplama sonuçları değişken denilen geçici bölgelerde tutulur. Değişken adları en fazla 255 karakter olabilir. Değişken adı bir alfabe karakteri ile başlamalıdır. Değişkenin özellikleri ise aşağıda verilen listedeki gibi belirlenir:

s -String              :        Karakter dizisi

n - Integer           :        Tamsayı (-32768 +32767)

l - Long               :        Uzun Tamsayı   (yaklaşık +/- 2 milyar)

f - Single              :        Tek Duyarlı Ondalıklı Sayı (floating)(1E-45, 3E38)

d - Double           :        Çift Duyarlı Ondalıklı Sayı (floating)(5E-324 )1.8E308

c - Currency        :        Para değeri ($) (xxxxxxxxxxxxxxx.xxxx)

b - Boolean         :        Doğru/Yanlış (true-false 0/-1)

v- Variant            :        Değişken

d - Date              :        Gün ve saat bilgisi  (1/1/100 den 12/31/9999 a kadar)

Değişken Tanımları

Bir formda tanımlanan değişken o formda yaratılacak tüm prosedürlerde kullanılabilir. Bir prosedürde Dim ya da Private ile yerel olarak tanımlanan değişken ise sadece o prosedür için tanımlı kalır. Genel tanımların kısıtlanması kod hatalarının ayıklanması açısından kolaylık getirir. Bu nedenle yalnızca prosedür içinde kullanılacak değişkenler yerel olarak tanımlanmalıdır. Heryerde (formlar arası) kullanılabilecek değişken tanımlaması ise Public ile tanımlanmalıdır.

Dim      değişkenadı  [As değişkentipi] [, değişkenadı2 [As değişkentipi2]]

Private değişkenadı  [As değişkentipi] [, değişkenadı2 [As değişkentipi2]]

Public   değişkenadı  [As değişkentipi] [, değişkenadı2 [As değişkentipi2]]

           

Buna göre dolar olarak gösterilecek para değişkeni tanımı şu olabilir:

            Dim  cPara  As  Currency

Atama ve Özellik Belirleme

Değişkenlere değer ataması için "=" ya da "Let" deyimi kullanılır. Değişkenin adı eşitliğin sağ tarafında, değeri ise sol tarafında olmalıdır.

            Faiz = .6

            Let Faiz = .6

            Yardım.Caption = "&Yardım"   'Yardım düğmesinin başlığını belirler

            Yardım.Left = Yardım.Left-200            ' Yardım düğmesini 200 piksel sola alır

            Yardım.Visible = False             ' Yardım düğmesini gizler

Yardım.TabStop = False                      ' Tab ile bu düğmeye geçilmez

' Alttaki komut yardım düğmesi gizli ise görüntüler, değilse gizler

Yardım.Visible = Not(Yardım.Visible

Sayılar ve İşlemler

Tamsayı (Integer) değişkenlere reel sayı atandığında tamsayıya yuvarlanarak atanır. Değişken tipine uymayan bir atama yapılır ise sistem uyarı verir.

            Dim Sayi As Integer

            Dim Yil As String

            Sayi = 50000               ' Yanlış, en fazla 32768.

            Sayi = 32.2                  ' 32 olarak atanır

            Sayi=Val("1994")         ' 1994 değeri atanır

            Yil = Str$(1994)           ' "1994" değeri atanır

Aritmetik işlemlerde parantezlerin önceliği vardır. Parantez yok ise yukarıda belirtilen öncelik sıraları uygulanır. Aynı öncelik sırasına sahip olan işlemler soldan sağa doğru gerçekleştirilir.

Aritmetik Operatörler ve Öncelik Sırası
1	^	Üs alma
2	-	Negatif sayıları gösterme
3	*	Çarpma
3	/	Bölme
4	\	Tamsayı bölme
5	Mod	Kalanı bulma (5 Mod 2 = 1) (Tamsayı)
6	+	Toplama
6	-	Çıkartma

Farklı tipte iki sayıya işlem yapıldığında sonuç sayılardan daha duyarlı olan tipte olur. Duyarlılık sırası Integer, Long, Single, Double ve Currency'dir.

Komut İşlemleri Kodlama

Visual Basic'de nesnelere hangi durumlarda hangi işlemleri yapacağı kodlama ile belirtilir. Bunlar nesnenin üzerine farenin gelmesi, nesnenin tıklanması ya da nesnenin çift tıklanması gibi durumlar olabilir.

Bir komut düğmesini kodlamak için:

·        Düğmeyi çift tıklayınız.

·        Kod penceresine gerekli kodu giriniz. İlk olarak ekrana gelen prosedür tıklama için olacaktır. Değişik olaylar için sağdaki prosedür düşen listesini tıklayarak diğer durumları seçip değişik kodlar yazabilirsiniz.

·        İlk satırdaki Private Sub xxxx_Click() komutu bu prosedürün xxxx komut düğmesi tıklandığında çalışacak prosedür olduğunu belirtir. En alt satırdaki End Sub komutu ise prosedürün bittiğini göstermektedir.

Bir diğer komut düğmesine kod yazmak için kod penceresini kapattıktan sonra, o düğmeyi çift tıklayarak, ya da açık olan kod penceresinin sağdaki nesne düşen listesini tıklayarak ve istenilen nesneyi seçerek de prosedürü yazabiliriz.

Diyalog Pencereleri

Yazı kutusu dışında kullanıcıdan bilgi almak için diyalog pencereleri kullanılabilir. Bunun için kullanılan fonksiyon InputBox (kullanıcının girdiği biçimde atanır) ya da InputBox$ (karakter olarak atanır) dır.

InputBox$ (Açıklama$[,[Başlık$][,[İlkDeğer$][,x%,y%]]])

Sub Form_Load

            'Form görüntülendiğinde adınızı soran diyalog penceresi ekrana gelir.     

Ad = InputBox$("Lütfen adınızı giriniz:", "Ad", "Damla Buket")

End Sub

Prosedür Kodu

Bu kısımda program için gerekli hesaplamalar yazılacaktır. Programın içine yazılacak olan açıklamalar için satırın en soluna tek tırnak işareti koymak yeterlidir. Yazı kutusundan gelen değerlerin sayı değerine çevrilmesi için gerekli komut Val komutudur.

"txtSure" yazı kutusunun değerini bir değişkene atamak için aşağıdaki komut kullanılabilir:

            ' Sure değerini değişkene atar   

nSure = Val(txtSure.Text)

Programın Çalıştırılması

Bir program 3 şekilde çalıştırılabilir:

1.      Visual Basic araç çubuğu üzerindeki "Start" düğmesine basınız.

2.      Run/Start menü seçeneğini tıklayınız.

3.      Klavyede F5 tuşuna basınız.

Hata olduğu takdirde bunlar bir pencerede görüntülenecektir.

KREDİ GERİ ÖDEME PLANI PROJESİ

Bu projenin amacı Şekil-8'deki gibi bir form oluşturmak, kullanıcıdan anapara, yıllık faiz oranı, ve faiz süresi (yıl bazında) bilgilerini alarak, aylık ödemeleri hesaplamaktır. Bu projede kullanıcıdan anapara bilgileri "Anapara", Yıllık faiz oranı bilgileri "Yillik Fazi Orani", ve yıl bazında faiz süresi bilgisi "Faiz Suresi (Yil)" yazı kutuları ile alınacaktır. Hesaplama işlemi "Hesaplama" komut düğmesi ile başlatılacaktır. Sonuç yine "Aylik Odeme Miktari" yazı kutusu ile görüntülenecektir. Programdan çıkış için "Cikis" komut düğmesi kullanılacaktır. 

 

Şekil-8. Kredi Geri Ödeme Planı Projesi

Projeyi Kaydetme

"Kredi Geri Ödeme Planı" projesinin saklanması için gerekli düğmeye basıldığında öncelikle form daha sonra da proje için diyalog kutuları ekrana gelecektir. Bu işlemde form için dosya adı olarak "krediana" (uzantısı .frm olacaktır) kullanınız ve dosyayı "My Documents" altında "krediproje" adlı bir klasör yaratarak, bu klasöre saklayınız. Daha sonra ekrana gelen proje diyalog kutusunda ise dosya adı için "krediproje" (uzantısı .vbp olacaktır) yazınız ve Save tuşuna basınız (dosya aynı klasöre saklanacaktır).

Yazı Kutusu Ekleme

Proje için gerekli olan 4 yazı kutusunu formun solunda etiketlere yer bırakacak şekilde yarattıktan sonra bu kutulara anapara için "txtAnapara", yıllık faiz oranı için "txtFaiz",  faiz süresi için "txtSure", ve ödemeler için "txtOdeme" isimlerini "Name" seçeneği ile veriniz. "Text" seçeneğinde yer alan "text" yazısını siliniz. Bu alan kutunun bir yazı ile dolu olarak gelmesi istenirse kullanılır.

Etiket Ekleme

Proje için gerekli olan 4 etiket kutusunu formun sağına ve yazı kutularının soluna gelecek şekilde yarattıktan sonra bu kutulara anapara için "lblAnapara", yıllık faiz oranı için "lblFaiz",  faiz süresi için "lblSure", ve ödemeler için "lblOdeme" isimlerini veriniz. Ekran görüntüsü için ise "Caption" özelliklerine anapara için "Anapara", yıllık faiz oranı için "Yıllık Faiz Oranı (%)",  faiz süresi için "Faiz Süresi (Yıl)", ve ödemeler için "Aylık Ödeme Miktarı" değerlerini giriniz.

Komut Düğmesi Ekleme

Hesaplama ve programdan çıkış için gerekli 2 komut düğmesi yaratınız. Hesaplama düğmesinin "Name" özelliğine "cmdHesap", "Caption" özelliğine ise "Hesaplama" giriniz. Çıkış düğmesinin "Name" özelliğine "cmdCik", "Caption" özelliğine ise "Çıkış" giriniz.

Komut İşlemleri Kodlama

Projenin "Çıkış" düğmesini çift tıklayınız. Private Sub cmdCik_Click() komutu ile End Sub komutu arasına programdan çıkış için gerekli "end" komutunu yazınız.

Proje için gerekli değişken tanımlarını aşağıdaki gibi yapınız:

            Dim  cAnapara  As  Currency

            Dim  fFaiz  As  Single

            Dim  nSure  As  Integer

            Dim  cOdeme  As  Currency

Prosedür Kodu

Projede cAnapara değeri txtAnapara yazı kutusundan alınacaktır.

            ' Anapara değerini değişkene yükle

            cAnapara = Val(txtAnapara.Text)

Diğer hesaplama kodları ise aşağıdaki gibidir:

            'Yüzde faiz oranını ondalık değere çevir

            fFaiz = Val(txtFaiz.Text) / 100

            'Yıllık faiz oranını aylığa çevir

            fFaiz = fFaiz / 12

            'Toplam yıl süresini aya çevir

            nSure = Val(txtSure.Text) * 12

            'Aylık odemeleri hesapla

            cOdeme = cAnapara * (fFaiz / (1- (1+fFaiz) ^ -nSure))

            txtOdeme.Text = Format(cOdeme,"Fixed")

Programın Çalıştırılması

Start" düğmesini tıklayarak projeyi çalıştırınız. Anapara için 128000, faiz oranı için 9.75, süre için ise 30 değerlerini giriniz. Aylık ödemeler 1099.72 olmalıdır.

FORMAT:

Format (1234, “$#,###.00”)

Biçime 0 konduğunda rakam olmasa bile 0 mutlaka görüntülenir.

            $1,234.00

Format (1234, “$#,###.##”)

Biçime # konduğunda rakam olmazsa görüntülenmez.

            $1,234

Format (234, “$#,###.00”)

            $234.00

Format (1234567, “$#,###.00”)

            $1,234,567.00

Format(1234, “Currency”)

            $1,234.00        veya     1.234,00 TL (Türkçe)

FormatNumber (1234)

            1,234.00          veya     1.234,00 (Türkçe)

FormatDateTime(“20:10”, vbLongTime)

            20:10:00

FORM ÖZELLİĞİ DEĞİŞTİRME PROJESİ

(Program Çalışırken)

Bu örnekte formun genişliği ile ilgili bilgi kullanıcıdan alınıp, buna göre form özelliğini değiştiren program yazılacaktır. Form ilk açıldığında ekranın sol üst köşesinde ve boyutları değişmez olarak görüntülenecektir.

Form (Ornek1) üzerinde bir yazı kutusu (txtGenis-Name), bir etiket (Istenilen Genislik-Caption, lblGenis-Name) ve bir komut düğmesi (Formu Genislet-Caption, cmdGenis-Name) olacaktır.

Form Prosedürü

Sub Ornek1_Load

            Ornek1.Top = 0

            Ornek1.Left = 0

            Ornek1.BorderStyle = 0

            Ornek1.ControlBox = 0

End Sub

Komut Düğmesi Prosedürü

Sub cmdGenis_Click

            ' Formun genişliğinin 500'den fazla olmaması için denetleme

            If  Val(txtGenis.Text) > 500 Then Ornek1.Width =500

            Else      Ornek1.Width = Val(txtGenis.Text)

            End If

End Sub

SEVİMLİ BİR UYGULAMA

1.                  Yeni bir proje yaratınız.

2.                  Form üzerine bir zamanlayıcı ve bir resim denetleyicisi koyunuz.

3.                  Resmin "Picture" özelliğinin yanındaki düğmeyi tıklayınız.

4.                  "Load Picture" diyalog pencerei ekrana geldiğinde VisualBasic\Graphics\Icons\Misc dizininden face03.ico resmini seçiniz.

5.                  Aşağıda verilen kodları gerekli yerlere yazınız.

Dim xChange As Integer

Dim yChange As Integer

Private Sub Form_Load

            xChange=100

            yChange=100

End Sub

Private Sub Timer1_Timer()

            Image1.Left = Image1.Left + xChange

            Image1.Top = Image1.Top + yChange

            If Image1.Left > Me.ScaleWidth Then xChange=xChange * -1

            If Image1.Left < 0 Then xChange=xChange * -1

            If Image1.Top > Me.ScaleHeight Then yChange=yChange * -1

            If Image1.Top < 0 yChange=yChange * -1

End Sub

6.                  "Timer Control" özellikler penceresinde "Interval" özelliğini "True" yapınız.

Programı çalıştırdığınızda, resim ekran üzerinde hareket edecek ve formun bir kenarına çarptığında yön değiştirecektir.

ACCESS'DEN VERİ AKTARIMI ÖRNEĞİ

Veri tabanından bilgi aktarımı için kullanacağımız komutlar OpenDatabase, ve OpenRecordset'dir. Veri tabanı (Db) ve kayıt kümesi (Rs) genel tanımları yapıldıktan sonra, bu tanımlardan veritabanı için OpenDatabase tanımı, kayıt kümesi için de Open Recordset tanımı yapılmalıdır. OpenRecordset tanımında kullanılan "snapshot" dosya açıldığında aktif olan kaydın bir kopyasını alır. Bu örnekte tek kayıtlık bir veritabanı kullanılacak ve o bilgi görüntülenecektir.

Tüm kayıtların görüntülenmesi işlemi bir döngü ile aktif kayıt ilerletilerek yapılmalıdır.

Visual Basic Programı'na Access veritabanından veri aktarımı gerçekleştirmek için öncelikle bir veri tabanı hazırlamamız gereklidir.

Access Veri tabanı hazırlama işlemleri:

1.      Access'de "c:\MyDocuments" dizini altına "ornek.mdb" dosyası açınız.

2.      Tables/New/Design seçenekleri ile tablo tasarımı penceresini aktif hale getiriniz.

3.      "Field Name" kolonuna "Yazi" yazınız.

4.      "Data Type" kolonunda "Text" seçiniz.

5.      Tabloyu kapatınız ve saklama penceresi geldiğinde tabloyu "tblornek" adı ile saklayınız.

6.      Ana anahtar seçimi için "No" yanıtlayınız.

7.      Tablonuzu "Open" ile açınız. İlk satıra "Veri Aktarım Denemesi" yazınız.

8.      Access'den çıkınız.

Visual Basic'de ise aşağıdaki işlemleri gerçekleştiriniz:

1.                  Yeni bir proje açınız. Projeyi "ornek" olarak yine "c:\MyDocuments" dizinine saklayınız.

2.                  Form_Load Prosedürü'ne eklenecek kod:

            Dim Db as Database

            Dim Rs as Recordset

3.                  Formun üzerine bir etiket ve 2 komut düğmesi yerleştiriniz.

4.                  Etiket özellikleri:

Caption =         (Boş olacak)

Name = Label1 (Aynı kalacak)

BorderStyle = 1

Appearance = 0

5.                  Birinci komut düğmesi özellikleri:

Caption = Veri Al

Name = Command1 (Aynı kalabilir)

6.                  İkinci komut düğmesi özellikleri:

Caption = Cikis

Name = Command2 (Aynı kalabilir)

7.                  Birinci komut düğmesi  Click_Prosedürü

Set Db = OpenDatabase("c:\MyDocuments\ornek.mdb")

Set Rs = Db.OpenRecordset("tblornek",dbopensnapshot)

Label1.Caption = Rs!Yazi

8.                  İkinci komut düğmesi Click_Prosedürü:

End

9.                  Project/References menü seçeneğinden sonra liste üzerinde "Microsoft DAO 3.51 Object Library" seçeneğini işaretleyiniz.

10.              Programı saklayınız. 

 

Programı çalıştırdıktan sonra "Veri Al" düğmesine bastığınızda Şekil-9'daki görüntü oluşacaktır.

Şekil-9 Veri Tabanından Veri Aktarım Örneği

VERİ TABANINDA ARAMA YAPMA ÖRNEĞİ

Bir kayıt bilgisinin veri tabanında olup olmadığını belirlemek için arama işlemi yapmanız gerekmektedir. Bu işlem için öncelikle aranacak bilginin bir yazı kutusu ile kullanıcıdan alınması daha sonra da veri tabanında arama yapılması gerekmektedir. Bilginin bulunup bulunmadığı bilgisi yine yazı kutusu ile kullanıcıya verilebilir.

Arama için yapacağınız işlemler aşağıdaki gibidir:

1.                  "ornek.mdb" veritabanına "deneme" ve "veri aktarim" olmak üzere iki adet kayıt daha giriniz.

2.                  "ornek.frm" üzerine bir yazı kutusu ekleyiniz, "Text" özelliği boş olsun.

3.                  "ornek.frm" üzerine bir komut düğmesi ekleyiniz, "Caption" özelliği ara olsun. Bu komuta aşağıdak prosedürü ekleyiniz.

Private Sub Command3_Click()

Set Db = OpenDatabase("c:\bg\telif\vb\ornek.mdb")

Set Rs = Db.OpenRecordset("tblornek", dbOpenSnapshot)

Do While Not Rs.EOF

If Text1.Text = Rs!Yazi Then

Text1.Text = "Bulundu"

Else:

Rs.MoveNext

End If

Loop

If Text1.Text <> "Bulundu" Then Text1.Text = "Bulunamadi"

End Sub

4.                  Programı çalıştırdıktan sonra yazı kutusuna "Deneme" girip "Ara" düğmesini tıklarsanız yazı kutusu üzerine "Bulundu" yazısı görüntülenecektir. Eğer "Ornek" girip yine "Ara" düğmesini tıklarsanız bu kez de "Bulunamadı" yazısı görüntülenecektir.

VERİ RAPORU YARATMA

Veri raporu yaratma işlemi için öncelikle veri alanı tanımlamaları yapılmalıdır.

Veri Bağlantısı Tanımlamaları

1.      Project/Add Data Environment (Project/Components/Designers/Data Environment ya da Project/More Activex Designers/Data Environment) tıklanır.

2.      Açılan "Data Environment" penceresindeki "Connection1" üzerinde farenin sağ tuşu tıklanarak "Properties" seçilir.

3.      "Data Link Properties" diyalog kutusu üzerinde "Microsoft Jet 3.51 OLE DB Provider" tıklanır.

4.      "Next" düğmesi tıklanarak "Connection" kısmına geçilir.

5.      "Use data source name" yazı kutusu yanındaki (…) düğmesi tıklanarak Access veri tabanı seçildikten sonra kullanacağınız veri tabanı seçilir.

6.      "Test connection" tıklanarak veri tabanına erişim yapılıp yapılamadığı denetlenir.

Veri Tabanı Tanımlamaları

1.      "Connection1" üzerinde farenin sağ tuşu tıklanarak "Add Command" seçilir.

2.      Eklenen "Command1" üzerinde sağ tuş tıklanarak "Properties" seçilir. Açılan pencerenin "General" kısmında "Command Name" ile bir isim atanır, "Connection" ile istenilen bağlantı seçilir (birden fazla bağlantı olduğu durumlarda kullanılmalıdır), "Database Object" ile verinin tablo olduğu belirtilir, "Object Name" üzerinden tablo ismi seçilir. (Hastane veri tabanı üzerinde kimlik tablosu gibi)

3.      Eğer bu veri tabanına ilişkili bir veri tabanı var ise bu "Add Child Command" ile gerçekleştirilir. Diğeri gibi isim ve tablo ismi tanımlamaları yapıldıktan sonra "Relation" ile ilişki tanımı yapılır. (Hastane veri tabanı üzerinde vizite tablosu, kimlik-hastakod ile vizite-hastakod ilişkisi gibi)

Veri Raporu Yaratma

1.      Project/Add Data Report seçilir. Ekrana "Access" benzeri bir rapor ortamı gelir.

2.      "Properties" penceresi üzerinde "Data source" için önceden tanımlanan "Data Environment", "Data Member" için ise tanımlanan veri tabanı girilir. İstenirse raporun ismi değiştirilebilir.

3.      "Data Report" penceresi üzerinde farenin sağ tuşu tıklanarak "Retrieve Structure" seçilir. Bu işlem otomatik olarak veri alanlarını tanımlar.

4.      Daha sonra "Data Environment" penceresi üzerinden alanlar "Data Report" üzerine tıklanıp sürüklenerek eklenir ve istenilen biçimde yerleştirilir.

Yaratılan veri raporları bir komut düğmesine eklenecek rapor_ismi.show ile çağırılabilir. Gösterilen rapor üzerinde yazdırma düğmesi bulunduğu için ayrıca yazdırma komutu eklemeye gerek yoktur.

HASTANE VERİ TABANI UYGULAMASI

HASTANE VERİ TABANI

Veri tabanı üzerinde Data1 (hastane-kimlik) ve Data2 (hastane-vizite) nesneleri "visible.false" olarak bulunmaktadır. 

 

(General Declaration)

Public son1 As Integer

Dim son2 As Integer

Public sayi As Integer

Sub ilkform()

cmdileri.Visible = True

cmdgeri.Visible = True

cmdbas.Visible = True

cmdson.Visible = True

cmdekle.Visible = True

cmdrapor.Visible = True

cmdguncelle.Visible = True

cmdbul.Visible = True

cmdcikis.Visible = True

cmdiptal.Visible = False

End Sub

Public Sub goster()

txtad.Text = Data1.Recordset("ad")

txtsoyad.Text = Data1.Recordset("soyad")

txthastakod.Text = Data1.Recordset("hastakod")

Data2.Recordset.MoveFirst

liste(0).Clear

liste(1).Clear

liste(2).Clear

endx = 0

Do While endx = 0

    Do While Not Data2.Recordset.EOF

    If Data1.Recordset("hastakod") <> Data2.Recordset("hastakod") Then

        Data2.Recordset.MoveNext

    Else

        endx = 1

        varx = Data2.Recordset("hastakod")

        vary = Data2.Recordset("hastakod")

            Do While varx <> 0

            Do While vary = varx

            liste(0).AddItem (Data2.Recordset("protokolno"))

            liste(1).AddItem (Data2.Recordset("tarih"))

            liste(2).AddItem (Data2.Recordset("tani"))

            Data2.Recordset.MoveNext

            If Data2.Recordset.EOF = True Then

                varx = 0

                vary = 1

            Else

                vary = Data2.Recordset("hastakod")

            End If

            Loop

            varx = 0

            Loop

    End If

    Loop

Loop

End Sub

Sub ekledugkaldir()

cmdileri.Visible = False

cmdgeri.Visible = False

cmdbas.Visible = False

cmdson.Visible = False

cmdekle.Visible = False

cmdrapor.Visible = False

cmdguncelle.Visible = False

cmdbul.Visible = False

cmdcikis.Visible = False

cmdiptal.Visible = True

End Sub

Private Sub bul_Click()

Data1.Recordset.MoveFirst

sayi = 1

endx = 0

Do While endx = 0

    If Data1.Recordset("hastakod") <> bul.Text Then

        Data1.Recordset.MoveNext

        sayi = sayi + 1

    Else

        endx = 1

        goster

    End If

Loop

End Sub

Private Sub cmdbas_Click()

Data1.Recordset.MoveFirst

goster

sayi = 1

End Sub

Private Sub cmdbul_Click()

soyadx = txtsoyad.Text

bulx = 0

bul.Clear

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

        If Data1.Recordset("soyad") = soyadx Then

            bul.AddItem (Data1.Recordset("hastakod"))

            Data1.Recordset.MoveNext

            bulx = 1

        Else

        Data1.Recordset.MoveNext

        End If

Loop

If bulx = 0 Then

MsgBox ("bulamadim.")

Else

   bul.Text = bul.List(0)

   bul.Visible = True

   txtbul.Visible = True

   txtbul.Text = "soyad =" + soyadx

End If

End Sub

Private Sub cmdcikis_Click()

End

End Sub

Private Sub cmddegtamam_Click()

Data1.Recordset.Edit

Data1.Recordset("Ad") = txtad.Text

Data1.Recordset("Soyad") = txtsoyad.Text

Data1.Recordset.Update

Data1.Refresh

cmddegtamam.Visible = False

Data1.Recordset.Move (sayi - 1)

ilkform

goster

End Sub

Public Sub cmdekle_Click()

Ekle.Show

Hastane.Hide

son1 = son1

End Sub

Private Sub cmdgeri_Click()

If sayi <> 1 Then

    Data1.Recordset.MovePrevious

    goster

    sayi = sayi - 1

Else

    MsgBox ("Kayit basina gelindi!")

End If

End Sub

Private Sub cmdguncelle_Click()

ekledugkaldir

cmddegtamam.Visible = True

End Sub

Private Sub cmdileri_Click()

If sayi <> son1 Then

    Data1.Recordset.MoveNext

    goster

    sayi = sayi + 1

Else

    MsgBox ("Kayit sonuna gelindi!")

End If

End Sub

Private Sub cmdiptal_Click()

goster

cmdekletamam.Visible = False

cmddegtamam.Visible = False

ilkform

goster

End Sub

Private Sub cmdrapor_Click()

DataReport1.Show

End Sub

Private Sub cmdson_Click()

Data1.Recordset.MoveLast

goster

sayi = son1

End Sub

Private Sub Form_Load()

Data1.Refresh

Data2.Refresh

Data1.Recordset.MoveLast

son1 = Data1.Recordset.RecordCount

Data2.Recordset.MoveLast

son2 = Data1.Recordset.RecordCount

Data1.Recordset.MoveFirst

sayi = 1

goster

End Sub

EKLE FORMU 

 Public Sub cmdekletamam_Click()

Hastane.Data1.Recordset.AddNew

Hastane.Data1.Recordset("Ad") = txtad.Text

Hastane.Data1.Recordset("Soyad") = txtsoyad.Text

Hastane.son1 = Hastane.son1 + 1

Hastane.Data1.Recordset("Hastakod") = Hastane.son1

Hastane.Data2.Recordset.AddNew

Hastane.Data2.Recordset("Hastakod") = Hastane.son1

Hastane.Data2.Recordset("protokolno") = txtprot.Text

Hastane.Data2.Recordset("tarih") = txttarih.Text

Hastane.Data2.Recordset("tani") = txttani.Text

Hastane.Data1.Recordset.Update

Hastane.Data2.Recordset.Update

Hastane.Data1.Refresh

Hastane.Data2.Refresh

Hastane.goster

Hastane.sayi = 1

Hastane.Show

Ekle.Hide

End Sub

Private Sub cmdiptal_Click()

Hastane.Show

Ekle.Hide

End Sub

Private Sub Form_Load()

txtad.Text = ""

txtsoyad.Text = ""

txtprot.Text = ""

txttani.Text = ""

txttarih.Text = ""

End Sub 

Şimdilik Dersimiz Bitti Daha Sonra Anlatımlarım Devam Edecek...