sinanozulku
🌱Yeni Üye🌱
- Katılım
- 29 Tem 2010
- Mesajlar
- 4
- Tepkime puanı
- 0
———–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
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 
Fareyi kullanarak komut dügmesini saga taşıyın..
Sayı Etiketleri Ekleyin 
ş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
Bitirdiğinizde dört etiket asagıdaki şekildeki 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 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 
Pencere yukarıda gösterilenden kucukse pecereyi fareyle yeniden boyutlandırı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ıda yerleştirdik hersey hazır sadece isimleri degistirmek kaldı size ve projeyi kaydetmek 
Ve Programın Son Hali
* 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.
