–Bu Derste Öğrenecekleriniz Yeni bir programın kullanıcı arabirimini yaratmak Kullnıcı arabiriminde her nesnenin özelliklerini ayarlamak Program kodunu yazmak. Programı kaydetmek ve çalıştırmak Çalıştırabilir Bir Dosya Yaratmak Ugurlu Yedil: İlk Visual Basic Programınız Olusturacagımız windows tabanlı uygulama kumar makinesine benzeyen bir oyun programı olan ugurlu yedi'dir. Ugurlu yedi'nin basit bit bir kullanıcı arabimi vardır ve visual basic kullanılarak bir kaç dakikada yaratılıp derlenebilir. Programlama Adımları Ugurlu yedi kullanıcı arabirimini iki komut düğmesi üç sans numarası penceresi bir bozuk para resmi ve ugurlu yedi etiketini içerir. Bu ogeler ugurlu yedi formunda yedi nesne yaratılıp her nesne için çeşitlik özellikler değiştirilkerek oluşturulmustur. Arabirim tasarlandıktan sonra kullanıcının dügme tıklamalarını gerçekleştirmesi ve rasgele sayılar ürtmesi için çevir ve sontıklamalarını gerçekleştirmesi ve rasgele sayılar ürütmesi için çevir ve son komut düğmeleri için gerekli program kodları eklenmişttir.. Programlama Adımı Oge Sayısı 1. Kullanıcı arabirimini yaratmak 7 nesne 2. Özelikkleri ayarlamak 10 özellik 3. Program kodunu yazmak 2 nesne Ugurlu Yedi Programı Aşagıdaki işlevleri yerine Getirmelidir Çevir ve son düğmeleri 3 adet çevirme penecersi bir tanımlayıcı etiket ve bir kazanan penceresi sagla Üç rasgele sayı al ve kullanıcı çevir düğmesine tıkladıgında göster Çevirme pencelerinden birinde 7 rakamı göründügünde bir bozuk para yıgını göster ve bib sesi çıkar Son dügmesine tıklandıgın da Programı Bitir.. Formun tamamını görmek için prohect container penceresine kaydırma çubukları kaybolana kadar büyütn ve properties, project ve form layout pencelerini taşıyın ya da kapatın Şimdi Form üzerinde bir komut düğmesi nesnesine deneyeceksiniz.. Araç Kutusundaji CommandButton denetimini tıklayın ve fare işaretçisinin formun üzerine yerleştirin.. CommandButton denetimini seçilmiştir ve fare işaretçisi formun üzerinde durdugu sürece artı biçimine dönüşür Şimdi Komut Düğmesini yaratmayı deneyin Fare işaretçesini formun sol üst kösesine yerleştirin farenin sol düğmesini basılı tutun sonra asagı ve saga sürükleyin asagıda gösterin benzer bir komut dügmesi olusturdugumuzda süreklemeyi durdurun ve farenin dügmesine tıklayın... Fareyi kullanarak komut dügmesini saga taşıyın.. İkinci Bir komut Dugmesi eklemek 1. Araç kutusndaki commandButton denetimini tıklayın. 2. Form üzerinde birincinin altına ikinci komt dügmesini çizin 3. yeterleştirdikten sonra gereiyorsa dugmeyi taşıyın ya da yeniden boyutlandırın bir hata yaparsanız komut dugmesini kolayca ssilip bastan yaratabilirsiniz... Sayı Etiketleri Ekleyin Şmdi programdaki sayıları görüntülemek için kullanılan etiketleri ekleyin program çalıştıgında metin sayı ya da simgeler görüntülemek için tasarlanmıs özel bir kullanıcı arabirimi ogesidir Ugurlu yedi programının çevir dügmesinin tıkladıgınnda etiket kutularında üç tane rasgele seçilmiş sayı görüntülenir. Sayılardan biri yed ise kullanıcı oyunu kazanır.. Araç kutusunda label denetimini tıklayın sonra fare işaretçisini formun üzerine getirin. Label denetimini seçilmiştir ve fare işaretçisini formun üzerinde artı biçimine dönüşür Asagıda gösterildigi giibi kücük bir dikdörtgen kutu yaratın.. Yarattıgınız etiket nesnesi programdaki ilk etiket anlamına gelen label1 adını alır. Şimdi form üzerinde iki tane daha etiket yaratacaksınız Label2 ve label3. şimdi label denetimini formunuza açıklayıcı bir etiket eklemek için kullanacaksınız. Bu programdaki dördüncü ve son etiket olucak 1. Araç kutusundaki label denetinimi tıklayın 2. İki komut düğmesinin altında daha büyük bir dikdörtgen yaratın Bitirdiğinizde dört etiket asagıdaki şekildeki gibi görünmelidir. Şimdi Forma kullanıcı yedi rakamını buldugunuda ve oyunu kazandıgında alacagı paraları gösteren bozuk para resmini görüntüleyen bir görüntü kutusu ekleyeceksiniz. Bir götüntü kutusu bir programda bir eşlem simge ve diğer resimleri görüntülemek için tasarlanmısıtır. Bİr görüntü kutusunun en iyi kullanımalarından biri bir visual basic kucuk resmi görüntlemesidir.. Görüntü Ekleyin 1. Araç kutusunda image denetimini tıklayın 2. İmage denetimini kullanarak üç sayı etiketinin altına büyük bir dikdörtgen kutu çizin Bitirdiğinizde görüntü kutunuz aşagıdaki gibi görünmelidir.. Bu nesne programınızda image 1 adlandırılır bu adı daha sonra program kodunda kullanacaksınız.. Şimdi bir kaç özelligi ayarlayarak arabiminizi özelleştirmeye hazırsınız.. Özellikleri Ayarlamak Komut Dugmesi özelliklerini ayarlayın 1. Form züerindeki ilk komut dugmesini (Command1) Tıklayın Komut Dugmesi seçim tutamaçlarıyla çevrelenir. 2. Properties pencereleri başlık çubugunu çift tıklayın. Şimdi Resim yükleyeyelim Yazı Tipini time net roaman yazı tipini biçimini bold'A nokta boyutunu 24e değiştirini ve ok'i tıklayın.. Kodu Yazmak Şimdi Ugurlu yedi programının kodunu yazmaya başalayabilirsiniz. Yarattıgınız cogu nesne program calıstıgında nasıl çalısıcaklarını bildikleri için kullanıcıdan veri almak ve onu otomatik olarak işlemek için hazırdır. Nesnelerin dogasından gelen işsevsellik visual basicin en büyük güclerinden biridir nesneler bir forma yerleştirildiginde ve özellikleri ayarlandıgında herhangi bir ek programla olmadan çalısmaya hazır.. CODE PENCERESİNİ KULLANIN Form üzerindeki son komut dugmesine çift tıklayın Code penceresi asagıdaki gibi görüntülenir Pencere yukarıda gösterilenden kucukse pecereyi fareyle yeniden boyutlandırın private sub command2_click End Sub Yordamın gövdesi her zaman bu satırların arasında yerleşir ve kullanıcı yordamla ilişkili arabirim ogesini etkinleşrirdiginde çalıştırılı. Bu örnekte olay bir fare tıklamasıdır ama daha sonraki derslerde de göreceginiz gibi farklı türde bir olay da olabilir. End yazın ve asagı ok tusuna basın Private Sub Command1_Click Image1. Visible = False 'paraları gizle Labe11. Caption = Int(Rnd 10) 'sayıları seç Labe12. Caption = Int(Rnd 10) Labe13. Caption = Int(Rnd 10) 'resim yazılarından biri 7 ise paraları göster be biple If (Labe11. Caption = 7) Then Image1. Visible = True Beep End If Kodları yazıyoruz hemen Kodlarıda yerleştirdik hersey hazır sadece isimleri degistirmek kaldı size ve projeyi kaydetmek bilmeyen arkadaslar da olabilir resimli anlatımını yapalım.. Ve Programın Son Hali Ugurlu yedi programını kaydedin File menüsünden save project as komutuna tıklayın Formun adını ve kaydilecegi yeri soran save file as iletişim kutusu görünür Proje dosyalarınızı adım adım microsoft visual bbasic uygulama dosyaları kurulum programın sabit diskinizde yarattıgı kalsöre kaydedeceksiniz. File name metin kutusununa benim şansım yazın ve entere basın.. KAYNAK -