Nasıl Yüzde Alırım??

[delibedri78]

merhabalar. üstte gördüünüz resimde üzerinde çalıştığım bir program var.

Sonuçlar kısmından yüzde almak istiyorum. Mesela

toplam 20 sonuc olsun 10'u 1/1 olsun. bunun yüzdesini daha doğrusu en çok hangisi varsa onun yzüdesini altta farklı bir listboxta yazdırmak istiyorum. nasıl yapabilirim???

Şimdiden teşekkürler

 

[Saban Sertkaya]

if veri = "1/1" then
a = a + 1
elseif veri = "0/1" then
b = b + 1
elseif veri = "0/0" then
c = c + 1
end if

e = (a / 20) * 100 'Şöyle de kullanabilirsiniz. e = int((a/20) * 100)
f = (b / 20) * 100
g = (c / 20) * 100

if e > f then
h = e
else
h = f
end if

if h > g then
i = h
else
i = g
end if

Yeni_Listbox.additem = i

 

[delibedri78]

if veri = "1/1" then
a = a + 1
elseif veri = "0/1" then
b = b + 1
elseif veri = "0/0" then
c = c + 1
end if

e = (a / 20) * 100 'Şöyle de kullanabilirsiniz. e = int((a/20) * 100)
f = (b / 20) * 100
g = (c / 20) * 100

if e > f then
h = e
else
h = f
end if

if h > g then
i = h
else
i = g
end if

Yeni_Listbox.additem = i

bu şekilde değil fakat

If Veri = "1/1" Then
a = a + 1
ElseIf Veri = "0/1" Then
b = b + 1
ElseIf Veri = "0/0" Then
c = c + 1
End If

e = (sonucbirbir / 20) * 100 'Şöyle de kullanabilirsiniz. e = int((a/20) * 100)
f = (sonucsifirbir / 20) * 100
g = (sonucikibir / 20) * 100

If e > f Then
h = e
Else
h = f
End If

If h > g Then
x = h
Else
x = g
End If

TextBox3.Text = x

bu şekilde çalıştırdım. ama burada saçma sapan bir sonuc veriyor.