Toggle Width

EndFRM
 
Konuyu Oyla:
  • Toplam: 24 Oy - Ortalama: 3
  • 1
  • 2
  • 3
  • 4
  • 5
Basit Bir Kura Çekme Programı Yapalım
aboo67 Çevrimdışı Acemi Üye
*
Acemi Üye
Üye No: 415
Konu Sayısı:
Yorum Sayısı: 91
70
Yorum: #1
Basit Bir Kura Çekme Programı Yapalım
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

' M.Y Project
' https://twitter.com/#!/myprojectz

Private Sub ekle_Click()
'amaç : Text'e girilen ismi listeye gecirmek ve aynı anda listedekiler adlı labeldeki sayıyı 1 attırmak
'böylelikle listeye kac isim girilmiş biliyoruz
If isim.Text = ("") Then ' isim girilcek olan text kutumuz boş ise ;
MsgBox "İsim Giriniz ", vbCritical, "aboo67" ' hata mesajı acılıp isim girilmesini istiyelim
Else ' eger textimizde yazı yazıyorsa
'textdeki yazıyı listeye ekle
liste.AddItem isim.Text
isim.Text = ("") 'sonra eklencek olan isim için kolaylık sağlamış olduk öncekini silip yazmasına gerek yok
'labeldeki sayıyı 1  arttır yani bu sayede listeye girilen isim sayısını biliyoruz
'listeye her isim girildiginde sayıyı 1 arttırcaktır
listedekiler.Caption = listedekiler.Caption + 1
End If
End Sub
Private Sub kura_Click()
'amac : listeye girilen isim sayısından kücük rasgele bir sayı üretip bu sayı dorultusunda listeden index seçmek
Dim aboo67 As String
If listedekiler.Caption = ("0") Then ' Eger liste boş iken kura cekilirse hata mesajımız gözüksün
MsgBox "Hata Liste Boş", vbCritical, "aboo67"
Else '  listede isim ekli iken ;
aboo67 = listedekiler.Caption 'aboo67 degerine listede kac isim oldugunu tanımlıyalım
'listboxda index basit olarak listedeki isim sırası olarak tanımlayabiliriz
'ilk satırdaki isimin indexsi 0 dır
'sonra peşine gelen satırlar 1-2-3-4-5-6 diye gidicektir
liste.ListIndex = Int(Rnd * aboo67) 'listeye girilen isim sayısından kücük bir sayı üretip indexsimizi seciyoruz
'yani listeye 4 isim girildiyse 4 ve 4den kücük rasgele bir sayı oluşturup listenin indexsi seciliyor
'örnegin listenin indexsi 4 olarak secilirse 5ci sıradaki ismi seciyor
MsgBox liste, vbDefaultButton1, "aboo67"  ' isimi sectikten sonra Msgbox olarak bize bildiriyor
End If
End Sub
Private Sub Command1_Click() ' burdaki amac girilen isimleri ve listeyi temizlemek
listedekiler.Caption = ("0")
liste.Clear
End Sub

[B]Proje İndir

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

01-07-2012 0:15
Bul Alıntı
Sado Çevrimdışı Muhammet Çolak
*
Yeni Üye
Üye No: 1
Konu Sayısı:
Yorum Sayısı: 662
101
Yorum: #2
RE: Basit Bir Kura Çekme Programı Yapalım
eline gözüne sağlık kardeşim Göz kırpma

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
___________________________________

[Resim: 9gmju.gif]
01-07-2012 11:29
Bul Alıntı
Mucit Çevrimdışı Bilim, Teknoloji ve PC
*
Emekli Üye
Coder
Senarist
Üye No: 11
Konu Sayısı:
Yorum Sayısı: 2,251
410
Yorum: #3
RE: Basit Bir Kura Çekme Programı Yapalım
güzel olmuş emeğine sağlık

Think different. Steve JOBS

İyi sanatçılar kopyalar, büyük sanatçılar çalar. Pablo PİCASSO

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Kendi Çalışmalarım:
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

William Shakespeare in Kral Lear adlı kitabı olan bana ulaşsın!
Ben Türk55 im.
01-07-2012 11:32
Bul Alıntı
Oyuncu Çevrimdışı Unity 3d - Ses & Dj
*
Yeni Üye
Üye No: 129
Konu Sayısı:
Yorum Sayısı: 2,693
811
Yorum: #4
RE: Basit Bir Kura Çekme Programı Yapalım
Hehe Açık Ağızlı Gülümseme Güzel olmuş. Mantığını anladım.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
02-07-2012 14:49
Bul Alıntı


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Hesap Makinesi Yapalım CpLusYazılım 6 2,268 27-12-2014 18:08
Son Yorum: hacker_35"
Öneri - Fikir [DERS] Hadi Basit TV Programı Yazalım :) Katil Kuzucuk 8 3,098 15-03-2014 17:15
Son Yorum: Katil Kuzucuk
  [DERS] Visual Basic Hesaplarını Kaydetme Programı Yapımı (Çok Kolay) yeni99 3 2,400 27-10-2013 17:16
Son Yorum: kolikman
  [DERS] Basit Dersler [Toplu] kolikman 0 992 27-10-2013 16:51
Son Yorum: kolikman
  Stok Takip Programı LosTeam 10 3,110 02-07-2012 15:29
Son Yorum: Mucit

Hızlı Menü:


Şu anda bu konuyu okuyanlar: 1 Ziyaretçi