Program Rata-rata & Standar Devisiasi

Hai para sahabat pecinta Pemograman Visual Basic, aku ingin bagi program nich tentang menghitung rata-rata dan standar devisiasi. Berikut source code nya..!!

 

Option Explicit
Dim jumlah_nilai As Integer
Dim jumlahX As Single
Dim jumlahX2 As Single
Const key_kurang = 45
Const key_desimal = 46


Private Sub cmd_baru_Click()
    txt_masukan.SetFocus
    jumlah_nilai = 0
    lbl_nomor.Caption = "0"
    txt_masukan.Text = ""
    lbl_rata.Caption = ""
    lbl_dev.Caption = ""
    jumlahX = 0
    jumlahX2 = 0
End Sub

Private Sub cmd_hitung_Click()
    Dim rata As Single
    Dim StdDev As Single
  
    txt_masukan.SetFocus
  
    txt_masukan = jumlah_nilai
  
    If jumlah_nilai < 2 Then
        Beep
    Exit Sub
    End If
  
    rata = jumlahX / jumlah_nilai
    lbl_rata.Caption = Str(rata)
  
    StdDev = Sqr((jumlah_nilai * jumlahX2 - jumlahX ^ 2) / (jumlah_nilai * (jumlah_nilai - 1)))
    lbl_dev.Caption = Str(StdDev)
End Sub

Private Sub cmd_hitung_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = key_kurang Or KeyAscii = key_desimal Or KeyAscii = vbKeyBack Then
    Exit Sub
    ElseIf KeyAscii = vbKeyReturn Then
        Call cmd_terima_Click
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub cmd_keluar_Click()
    End
End Sub

Private Sub cmd_terima_Click()
    Dim benar As Single
  
    txt_masukan.SetFocus
    jumlah_nilai = jumlah_nilai + 1
    lbl_nomor.Caption = Str(jumlah_nilai)
  
    benar = Val(txt_masukan.Text)
    jumlahX = jumlahX + benar
    jumlahX2 = jumlahX2 + benar ^ 2
    txt_masukan.Text = ""
End Sub

Atau dapat didownload disini..!!