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.
Ö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.
