Visual Basic Birleşik Verileri Yönetmek

Merhaba arkadaslar bu dersimize baslamadan önce size diger dersimizle alakalı bir ornek yapmak istiyorum hemen baslıyoruz

Çalıştırma Zamanında Bir Görüntü Kutusunu Genişletin

1.File menüsünde önce new project komutunu sonra da Ok'i tıklayıp standart yeni bir çalıştırabilir dosya yaratın..

2.Araç kutusundaki Image denetimini tıklayarak formun sol üst kosesinde yakın bir yerde kucuk bir görüntü kutusu çizin.

4.Form üzerindeki Image1 nesnesine çift tıklayın bendaha önceden bir resim bulmustum ve onu eklemiştim .

Code penceresinde Image1_Click olay yordamı açılır.

Olay yordamına asagıdaki program kodunu yazın.

Private Sub Image1_Click()
Image1.Height = Image1.Height + 200
Image1.Width = Image1.Width + 200
End Sub

Bu iki satır kullanıcının görüntü kutusunu her tıklayasında Dünya simgesinin yükseklik ve genişligini 200 twip arttırır..

Eger hayal gücünüzü biraz zorlarsanız bunun yarattıgı etkinin bir uzay gemisinden dünyaya yaklasmaya benzedigini düşünebilirsiniz..

Code penceresini kapatın ve programı calıstırmak için start dugmesini tıklayın..

Asagıda gösterildigi gibi Dünya Simgesi form üzerinde görünür :

Dünya simgesini büyütmek için birkac kez tıklayın.

10 ya da 12 tıklamadan sonra ekranınızın asagidaki gibi görünmesi gerekir..

Bu Ornegimizi Bitirdigimize Gore hemen diger dersimize gecebiliriz..

Birleşik Verileri Yönetmek

Modul Ve Yordamları Kullanmak

STANDART MODULLERLE CALISMAK

Daha uzun programlar yazdıkca aynı degisken ve yordamlara sahip birçok form ve olay yordamı kullanarak durumunda kalırsınızz.Varsayılan ayar olarak degiskenler olay yordamlarında yerel local olarak tanımlanır.Bunun anlamı , o degiskenin yalnızca yaratılmıs oldugu olay yordamında okunup degistirebilecegidir.Bunun gibi olay yordamları da yine yaratılmıs olduktan form için yereldirler Ornegin Form1'de yaratılan CmdÇık_Click adlı olay yordamını Form2'den cagıramazssınız..

Degisken ve yordamların tüm form ve olay yordamları tarafından kullanılabilmesi için onları bir veya daha fazla standart modul içinde tanımlamanız gerekir.Standart modul ya da kod modulu program içinde her yerde kullanılabilen degisken ve yordamları içeren .bas uzantılı dosyalardur.Formler gibi starndart moduller'de Project penceresinde ayrı listelenip File menüsündeki Save Modeıle 1 As komutuyla diske kaydedilirler.Ancak formlardan farklı olarak nesne ve özellik ayarı içermezler yaşnızca içindeki kodlar code penceresinde görüntülenip düzenlenebilirler.

Bir Metin kutusu alt yordamı yaratın

1.File menüsünde önce new project dügmesini sonra da Ok'i tıklayıp yeni bir standart uygulama yaratın..

Yeni bir boş form görüntüye gelir.

2.Formun ortasında yan yana iki yeni metin kutusu yaratmak için TextBox denetimin kullanın..

Bu metin kutularını iki ayrı bölüme atayacagınız personelin adlarını yazmak için kullanacaksınız..

3.Metin kutularının üstüne iki tane etiket yaratmak için label denetimini kullanın.

Bu etiketlere bölüm adları yazılacaktır.

4.Her bir metin kutusunun altına birer tane bu komut dugmelerinin altuna da bir tane olmak üzere 3 komut dugmesi yaratmak için CommandButton denetimini kullanın.

İki komut dugmesini bölümlere personel atamak için son komut dugmesini ise program cıkmak için kullanacaksınız..

5.Programda nesneler için tabloda gösterilen ayarlamaları yapın.

metin kutularının birden fazla satırı olacagından MultiLine ve ScrollBars özelliklerini True olarak ayarlayacaksınızİçindeki bilgilerin ulasıp degistirilmemesi için TabStop özelligini False Locked ozelligin ise True olarak ayarlacaksınız.Bu özellikler tipk oalrak tüm çok satırlı metin kutularında kullanılırlar..

Bitirdigimizde Formunuz asagıdaki gibi benzemelidir.

Şimdi starndart bir modul ekleyip genel amaclı Addname alt yordamını yaratacaksınız.

Code penceresini kapatın form üzerindeli ilk isim ekle dugmesini satıs metin kutusunun altındaki dugme çift tıklayın cmdSales_Click olay yordamına asagıdaki bildrileri yazım

AddName "Satış", SalesPosition$
txtSales.Text = txtSales.Text & SalesPosition$

AddName alt yordamına yapılan cagrı deger olarak gönderilen bir bagımsız degisken (''Sales'') ile basvuru olarak gönderilen bir Addname alt yordamına yapılanc agrı deger olarak gonderilen bir bagımsız degisken (''Sales'') ile basvuru olarak gönderilen bir bagımsız degiskeni ( SalesPosition $) içeriri.İkinci satır bascuru olarak gönderilen bagımsız degiskeni txtSales metin kutusuna metin eklemede kullanmaktadır.

Birleştirme işleci yeni adı metin kutusundak i metnin sonuna ekler.

Code penceresinde nesne açılır liste kutusn açıp cmdmkt nesnesine tıklayınn.cmdMkt_Click olay yordamına asagıdaki bildirileri yazın

AddName "Pazarlama", MktPosition$
txtMkt.Text = txtMkt.Text & MktPosition$

Bu olay yordamı Addname yordamına pazarlamayı gondermesi ve txtmkt metin kutusun güncellemesi dısında cmdsales_Clickin aynısıdır.Onu daha kullanıslı yapmak için geri dönen yerel local degiskenin adı degistirilmiştir.

Nesne açılır liste kutusunu açıp cmdQuiy nesnesini tıklayın

cmdQuit_Click olay yordamına End yazıp Code penceresini kapatın..

İsim ekle butonuna su kodları ekliyoruz

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdSales_Click()
AddName "Satış", SalesPosition$
txtSales.Text = txtSales.Text & SalesPosition$
End Sub

Private Sub cmdMkt_Click()
AddName "Pazarlama", MktPosition$
txtMkt.Text = txtMkt.Text & MktPosition$
End Sub

Private Sub lblQuit_Click()
End
End Sub

Private Sub lblSales_Click()

End Sub

Private Sub txtMkt_Change()

End Sub

Private Sub txtSales_Change()

End Sub

Ve Cık butonuna su kodlar



Private Sub cmdQuit_Click()
End
End Sub

VE PROGRAMIN SON HALİ