Yapacağımız programda şarkılara birbirine orantılı oylar vereceğiz…

ismi görülen şarkıların altındaki butonlara bastığımızda yan tarafta % olarak oyları değişecek ve altta bulunana Şarkı Değiştir butonuna bastığımızda  üç oylama şarkısıda bilgisayar tarafından otomatik olarak değişecek..

Önce değişkenlerimizi yazıyor ;

Dim a, b, c, d, x, f, g, sayac As Integer
Dim sarkı(26) As String

Daha sonra Button1 Yazıcak Kodlar;

a = a + 1
g = g + 1
Label4.Text = a
Label7.Text = 100 * a / g
Label8.Text = 100 * b / g
Label9.Text = 100 * c / g

Button 2 Yazılacak Kodlar ;

b = b + 1
Label5.Text = b

g = g + 1
Label8.Text = 100 * b / g
Label7.Text = 100 * a / g
Label9.Text = 100 * c / g

Button3 Yazılacak kodlar;

c = c + 1
Label6.Text = c
g = g + 1

Label9.Text = 100 * c / g
Label8.Text = 100 * b / g
Label7.Text = 100 * a / g

Button  4 İçin Önce değişkenleri tanımlayacağız Random seçeneği için

Form1_Load Yazılacak Kodlar;

a = 0
b = 0
c = 0
g = 0
Randomize()
sarkı(0) = "FERDİ TAYFUR-FRANGALAR"
sarkı(1) = "EBRU POLAT-İNANAMIYORUM"
sarkı(2) = "TARKAN-DUDU"
sarkı(3) = "MEYRA-BURAK KUT-KARAR BİZE AİT"
sarkı(4) = "ÖZGÜN-MÜHÜR"
sarkı(5) = "GÖKSEL-SENDEN BAŞKA"
sarkı(6) = "EBRU GÜNDEŞ-KIZIL MAVİ"
sarkı(7) = "DUMAN-YANIBAŞIMDAN"
sarkı(8) = "MUSTAFA CECELİ-LİMON ÇİÇEKLERİ"
sarkı(9) = "FUNDA ARAR-YAK GEL"
sarkı(10) = "AJDAR-ÇİKİTA MUZ"
sarkı(11) = "DEMET AKALIN-TOZPEMBE"
sarkı(12) = "AYLİN ASLIM-AHH"
sarkı(13) = "SONER KABADAYI-BUZ"
sarkı(14) = "SHAKIRA-HİPS DON'T LİE"
sarkı(15) = "LİNKİN PARK-PLACE OF A HEAD"
sarkı(16) = "ARASH-PURE LOVE"
sarkı(17) = "INNA-HOT"
sarkı(18) = "MED-ALAYINA KS,KRALINA VS"
sarkı(19) = "HANDE YENER-HAYROLA"
sarkı(20) = "SILA-SEVİŞMEDEN UYUMAYALIM"
sarkı(21) = "SILA-İNŞALLAH"
sarkı(22) = "GÜLBEN ERGEN-ÇİLEKLİ SAKIZ"
sarkı(23) = "SİBEL CAN-ÇANTADA KEKLİK"
sarkı(24) = "HELENA-MY NUMBER ONE"
sarkı(25) = "İNNA-DEJAVU"
sarkı(26) = "METALLICA-WHEREVER MAY I ROOM"

Button4 Yazılacak Kodlar;

Dim ts As Integer
ts = Int(Rnd() * 26)
'sayac = sayac + 1
Label1.Text = sarkı(ts)
ts = Int(Rnd() * 26)
Label2.Text = sarkı(ts)
ts = Int(Rnd() * 26)
Label3.Text = sarkı(ts)

Programı Kodlarıyla beraber incelemek için aşağıdaki Projeyi indire tıklayın

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.