VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
Uygulama No: 26 – Aritmetik Ortalama ve Standart Sapma
Açıklama : Liste kutusuna aktarılan sayıların aritmetik ortalama ve standart sapmaları
hesaplanıyor.
Ekran Görüntüsü
Açıklamalı Kodlar
Public Class Form1
Dim toplam1, toplam2 As Integer
Dim ort, StdSapma As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEkle.Click
LstSayilar.Items.Add(TxtSayi.Text)
TxtSayi.Clear()
TxtSayi.Focus()
End Sub
Private Sub BtnCikis_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnCikis.Click
End
End Sub
Private Sub BtnOrtalama_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnOrtalama.Click
toplam1 = 0
For k = 0 To LstSayilar.Items.Count - 1
toplam1 = toplam1 + LstSayilar.Items.Item(k) 'liste kutusundaki
sayılar toplanıyor.
Next
ort = toplam1 / LstSayilar.Items.Count 'Toplamın say adetine oranı.
MsgBox(ort)
End Sub
Private Sub BtnStdSapma_Click(ByVal sender As System.Object, ByVal e As
Tolga GÜYER Sayfa 40