Yüzdeli Oylama

Yüzdeli Oylama.

Programımızın amacı oylama sistemi türünde oyları yüzde olarak göstermesidir.
Öncelikle formumuza 3 tane button , 6 tane label ekleyelim.

Daha sonra kodlarımızı yazmaya başlayalım; öncelikle şu şekilde değişkenler

tanımlayalım “    Dim deger1, deger2, deger3, a, b As Integer “

Daha sonra formumuzun loadına

“ deger1 = 0
deger2 = 0
deger3 = 0”

bu kodları yazmamızdaki amacımız deger1 , deger2 ve deger3 değişkenlerini matematiksel

işleme tabi tutacağımız için “0” değerine eşitledik.

Ve her butonumuzun click’ine ayrı ayrı bu kodu yazalım ;

“   deger1 = deger1 + 1

a = (deger1 + deger2 + deger3)
b = 100 / a

Label1.Text = deger1 * b
Label2.Text = deger2 * b
Label3.Text = deger3 * b “

Bu koddaki amaç ; butonlarımıza deger1 , deger2  ve deger3 değişkenlerimizin de

yardımıyla öncelikle bir sayaç ekliyoruz.Daha sonra bütün sayaç eklediğimiz değişkenlerimizi

toplayıp a değişkenimize atıyoruz.ve b değişkenimizi kullanarak 100 sayısını a değişkenimize

bölüyoruz.Daha  sonra label larımıza yazdır cağımız için deger1 değişkeni için

“ Label1.Text = deger1 * b “ yapıyoruz. Deger2 değişkeni için
“ Label2.Text = deger2 * b “ yapıyoruz. Deger3 değişkeni için
“ Label3.Text = deger3 * b “ yapıyoruz.