Şampiyonluk Anketi (PictureBox 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
pictureBox7.Width = 0
pictureBox8.Width = 0
pictureBox9.Width = 0
‘Başlangıçta resimlerin enlerini sfırlıyoruz
pictureBox10.Width = 0
pictureBox11.Width = 0
pictureBox12.Width = 0
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)
pictureBox7.Width = (((100 * fener) / toplam)) ‘Yüzde olarak oy sayısına göre barların eninin değerlerini atıyorum
pictureBox8.Width = (((100 * galata) / toplam)) ‘diğerleri yukarıdaki ile aynı
pictureBox9.Width = (((100 * besik) / toplam))
pictureBox10.Width = (((100 * trabzon) / toplam))
pictureBox11.Width = (((100 * bursa) / toplam))
pictureBox12.Width = (((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    [/Code]