THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

Çekiliş programı yapımı #starktom

'starktom - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2017
Nereden:
Nereye
Mesajlar:
1.739
Konular:
132
Teşekkür (Etti):
470
Teşekkür (Aldı):
420
Ticaret:
(0) %
26-12-2018 21:43
#1
Çekiliş programı yapımı #starktom
Merhabalar bu konumda basit çekiliş programı yapmayı göstereceğim.

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



Daha sonra ListBox ekliyoruz.



2 adet buton ekliyoruz.



Butonları isimlendiriyoruz.



Bir adetde textbox ekliyoruz.



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


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)


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




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



Kişi ekle butonuna tıklıyoruz.



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



Birkaç kişiyi ekliyorum.



Çekiliş yap butonuna basıyorm.



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

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


















DarkHawk06, "Tranquila Teşekkür etti.
‘Nullity - ait Kullanıcı Resmi (Avatar)
Grafiker
Üyelik tarihi:
01/2016
Nereden:
D:/Adobe
Mesajlar:
1.602
Konular:
147
Teşekkür (Etti):
257
Teşekkür (Aldı):
606
Ticaret:
(0) %
26-12-2018 21:48
#2
Anlatım harika, eline sağlık.
---------------------
Taklit ediyorsan değil, taklit ediliyorsan başarmışsındır.
📣 İletişim Adreslerim 📣
Twitter | Telegram
arifefess1 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2018
Nereden:
Mars
Yaş:
20
Mesajlar:
452
Konular:
8
Teşekkür (Etti):
5
Teşekkür (Aldı):
46
Ticaret:
(0) %
26-12-2018 22:10
#3
Teşekkürler hocam yeni başlayanlar için ufak bir ısınma
--------------------- ---HİÇ BİR SİSTEM GÜVENLİ DEĞİLDİR---

---BİR SABAH GELECEK KARDAN AYDINLIK---
"Atmaca - ait Kullanıcı Resmi (Avatar)
Kulüpler Genel Sorumlusu
Üyelik tarihi:
12/2017
Nereden:
Seul
Yaş:
15
Mesajlar:
3.528
Konular:
258
Teşekkür (Etti):
535
Teşekkür (Aldı):
715
Ticaret:
(0) %
26-12-2018 22:26
#4
Ellerine sağlık.
---------------------
"Tranquila - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2017
Nereden:
Trabzon
Yaş:
2
Mesajlar:
1.998
Konular:
229
Ticaret:
(0) %
26-12-2018 22:55
#5
kargo geldide bir çatal eksik ayıp ya

Eline sağlık
DarkHawk06 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2016
Nereden:
Pandora
Mesajlar:
1.009
Konular:
60
Teşekkür (Etti):
721
Teşekkür (Aldı):
290
Ticaret:
(0) %
26-12-2018 23:27
#6
Ellerinize sağlık, anlatım güzelmiş.
: )
---------------------


Ülkemiz Türk ülkesi,
Aşık eder herkesi.
Üstümüzden eksilmesin,
Al bayrağın gölgesi!


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler