Yüzdeli Oylama VB.Net

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

[code language=”vb”]“ deger1 = 0
deger2 = 0
deger3 = 0”[/code]

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 ;

[code language=”VBNet”]“   deger1 = deger1 + 1

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

Label1.Text = deger1 * b
Label2.Text = deger2 * b
Label3.Text = deger3 * b “[/code]

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

[code language=”vb”]“ 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.[/code]

Projeyi İndir: Yüzdeli Oylama VB.Net