Çekiliş programı yapımı #starktom

'starktom

'starktom

Uzman üye
9 Ara 2017
1,733
0
Nereye
Merhabalar bu konumda basit çekiliş programı yapmayı göstereceğim.

İlk olarak yeni bir form oluşturuyoruz ve adını düzenliyoruz.

m04Wyd.png


Daha sonra ListBox ekliyoruz.

LJVMd8.png


2 adet buton ekliyoruz.

2h9DNm.png


Butonları isimlendiriyoruz.

6vvApe.png


Bir adetde textbox ekliyoruz.

voJ8Nn.png


Buton1e çift tıklıyoruz ve şu kodları yazıyoruz.

Kod: 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click





        If TextBox1.Text = "" Then

            MsgBox("Birisini giriniz.")

        Else

            ListBox1.Items.Add(TextBox1.Text)

            TextBox1.Text = ""



        End If
DVxJQj.png


Buton2ye ise şu kodları yazıyoruz.

Kod: 
        Dim cekilis As New Random

        Dim Cekilissayi As Integer = cekilis.Next(0, ListBox1.Items.Count - 1)

        ListBox1.SelectedIndex = Cekilissayi

        MsgBox("Kazanan Kişi : " & ListBox1.Text)
7HZEm6.png


Tasarım ve kod kısmı bittiğinde ise programı çalıştırıyoruz.

yADleT.png



Çekilişe katılan kişileri ekliyoruz.

PBUbp6.png


Kişi ekle butonuna tıklıyoruz.

6tdC9r.png


ListBoxa yazdığımız değerler aktarılıyor.

B7M0nB.png


Birkaç kişiyi ekliyorum.

7DAVoo.png


Çekiliş yap butonuna basıyorm.

1KyV0j.png


Ve kazanan kişi Ernoylmz :trl (tebrik ederim çatal bıçak seti kazandın).

Konum burada son buluyor okuduğunuz için teşekkür ederim.


















​
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.