Şampiyonluk Anketi (progressBar ile) VB.NET

Public Class Form1
Dim fener, galata, besik, trabzon, bursa, diger, toplam As Integer 'Oylar için değişkenler tanımlanıyor
Dim fenery, galatay, besiky, trabzony, bursay, digery As Double 'Yüzdeler için değişkenler tanımlanıyor
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
groupBox2.Visible = False 'group2'nin gözükmemesini sağlıyoruz
Me.AcceptButton = button1 'Entere bastığımızda buton1'in aktif olmasını sağlıyoruz
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If radioButton1.Checked = True Then 'radio1 seçili ise
fener = fener + 1 'fener değişkenini bir artır
fenery = fenery + 1 '/fenery değişkenini bir artır
toplam = toplam + 1 'toplam değişkenini bir artır
End If
If radioButton2.Checked = True Then 'radio2 seçili ise
galata = galata + 1 'yukarıdaki açıklamlarla aynı
galatay = galatay + 1
toplam = toplam + 1
End If
If radioButton3.Checked = True Then

besik = besik + 1
besiky = besiky + 1
toplam = toplam + 1
End If
If radioButton4.Checked = True Then

trabzon = trabzon + 1
trabzony = trabzony + 1
toplam = toplam + 1
End If
If radioButton5.Checked = True Then

bursa = bursa + 1
bursay = bursay + 1
toplam = toplam + 1
End If
If radioButton6.Checked = True Then

diger = diger + 1
digery = digery + 1
toplam = toplam + 1
End If
label13.Text = fener.ToString() + " Oy" ' label 13'e fener değişkeninin değerini yaz
label14.Text = galata.ToString() + " Oy" 'diğerleri yukarıdaki ile aynı
label15.Text = besik.ToString() + " Oy"
label16.Text = trabzon.ToString() + " Oy"
label17.Text = bursa.ToString() + " Oy"
label18.Text = diger.ToString() + " Oy"
label7.Text = "% " & Math.Round(((100 * fenery) / toplam), 1) 'Yüzde sonucunu bir virgül gösterecek şekilde yuvarlıyoruz
label8.Text = "% " & Math.Round(((100 * galatay) / toplam), 1) 'diğerleri yukarıdaki açıklama ile aynı
label9.Text = "% " & Math.Round(((100 * besiky) / toplam), 1)
label10.Text = "% " & Math.Round(((100 * trabzony) / toplam), 1)
label11.Text = "% " & Math.Round(((100 * bursay) / toplam), 1)
label12.Text = "% " & Math.Round(((100 * digery) / toplam), 1)
progressBar1.Value = ((100 * fener) / toplam) 'Yüzde olarak oy sayısına göre barların eninin değerlerini atıyorum
progressBar2.Value = ((100 * galata) / toplam) 'diğerleri yukarıdaki ile aynı
progressBar3.Value = ((100 * besik) / toplam)
progressBar4.Value = ((100 * trabzon) / toplam)
progressBar5.Value = ((100 * bursa) / toplam)
progressBar6.Value = ((100 * diger) / toplam)
End Sub
Private Sub linkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkLabel1.LinkClicked
groupBox1.Visible = True 'group1'nin gözükmesini sağlıyoruz
groupBox2.Visible = False 'group2'nin gözükmemesini sağlıyoruz
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
groupBox2.Visible = True 'group2'nin gözükmesini sağlıyoruz
groupBox1.Visible = False 'group1'nin gözükmemesini sağlıyoruz
End Sub
End Class

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.