Üst MenüForum kuralları Üst MenüGenel Haberler Üst MenüSoru Sorun Üst MenüForum Takımı Üst MenüReaL Para Üst MenüVİP Bölüm Üst MenüTurnuval Forum
OyunJet Bütün Oyunlar
Yeni Konu Gönder Yeni Yorum Gönder
 
Konuyu Oyla:
  • Toplam: 23 Oy - Ortalama: 3.09
  • 1
  • 2
  • 3
  • 4
  • 5
Basit Bir Kura Çekme Programı Yapalım
Yazar Konu
aboo67 Çevrimdışı
Acemi Üye
*
Acemi Üye

Yorum Sayısı: 91
Edilen Teşekkürler: 10
Alınan Teşekkürler:
17 mesajında 26 kere
Üyelik Tarihi: 23-06-2012

Rep Puanı: 70
ReaL Para: 184.52
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
kullanıcının tüm mesajlarını bul Teşekkür Et Alıntı ile Cevapla
Sado Çevrimdışı
Muhammet Çolak
*
Yeni Üye

Yorum Sayısı: 662
Edilen Teşekkürler: 5
Alınan Teşekkürler:
1 mesajında 2 kere
Üyelik Tarihi: 14-01-2012

Rep Puanı: 101
ReaL Para: -324.62
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
kullanıcının web sitesini ziyaret et kullanıcının tüm mesajlarını bul Teşekkür Et Alıntı ile Cevapla
Mucit Çevrimdışı
Bilim, Teknoloji ve PC
*
Kıdemli Üye
Senarist
Coder

Yorum Sayısı: 2,237
Edilen Teşekkürler: 397
Alınan Teşekkürler:
44 mesajında 53 kere
Üyelik Tarihi: 15-01-2012

Rep Puanı: 410
ReaL Para: 1474.80
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. - 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
kullanıcının web sitesini ziyaret et kullanıcının tüm mesajlarını bul Teşekkür Et Alıntı ile Cevapla
Oyuncu Çevrimdışı
Unity 3d - Ses & Dj
*
Yeni Üye

Yorum Sayısı: 2,693
Edilen Teşekkürler: 268
Alınan Teşekkürler:
112 mesajında 137 kere
Üyelik Tarihi: 29-03-2012

Rep Puanı: 811
ReaL Para: 1691.10
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
kullanıcının tüm mesajlarını bul Teşekkür Et Alıntı ile Cevapla
Yeni Konu Gönder Yeni Yorum Gönder


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

Hızlı Menü:


Şu anda bu konuyu okuyanlar: 1 Ziyaretçi


Kurucu » Yönetici » Üst Yetkili » Yetkili » Platin Üye » Gold Üye » Silver Üye » Yeni Üye » Yasaklı Üye

Dost Linkler
İletişimReaLses Yukarı GitArşivRSS Beslemesi