Cara Perhitungan Sistem Penungjang kinerja karyawan Visual Basic part1

Sudah lama ndak posting disini admin akan berbagi tentang Cara Perhitungan Sistem Penungjang kinerja karyawan, secara simple saja.... langsung saja

Tampilan From yang kita buat :

Source code :

Ketikan coding di bawah ini di luar form  yang kita buat , Coding tersebut berguna untuk menghapus isi dalam TextBox

   Public Sub hapusisi()

        tbbersedialembur.Text = ""

        tbmenjagakerapiantempatkerja.Text = ""

        tbkesediaankerjasama.Text = ""

        tbmembuatrencana.Text = ""

        tbmenjagaasetperusahaan.Text = ""

        tbkritiksaran.Text = ""

        tbttlskor.Text = ""

        tbhasilkeputusan.Text = ""

    End Sub

Ganti format form yang tadinya  Form1_Load menjadi Form1_MouseClick (agar mengiklik form maka akan langsung terhapus)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub  

      Menjadi

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

        Call hapusisi()

      End Sub

Setelah itu kita membuat deklarasi perhitunganya seperti itu dan selanjutnya seperti itu tergantung pada berapa persennya saja :

Private Sub tbbersedialembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbersedialembur.TextChanged

        Dim angka1, hasilx1 As New Double

        angka1 = Val(tbbersedialembur.Text)

        hasilx1 = (angka1 * 15 / 100)

        lblX1.Text = hasilx1

    End Sub

Selanjutnya adalah mengisikan data agar TextBox tidak bisa di isikan huruf pertama ganti tbbersedialembur_TextChanged menjadi tbbersedialembur_KeyPress

Private Sub tbbersedialembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbbersedialembur.TextChanged

        Dim angka1, hasilx1 As New Double

        angka1 = Val(tbbersedialembur.Text)

        hasilx1 = (angka1 * 15 / 100)

        lblX1.Text = hasilx1

    End Sub

Lalu isikan coiding tersebut :

Private Sub tbbersedialembur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbbersedialembur.KeyPress

        Dim cek As Double = Asc(e.KeyChar)

        If Not ((cek >= 48 And (cek <= 57)) Or (cek = 8) Or (cek = 44) Or (cek = 46)) Then

            e.Handled = True

            MsgBox("Masukan Angka Saja", MsgBoxStyle.Information)

        End If

        tbbersedialembur.MaxLength = 2

    End Sub

Selnjutnya jumlahkan kita akan mendapatkan hasil serta keputusan dengan coding dibawah ini :

Private Sub tbkritiksaran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbkritiksaran.TextChanged

        Dim angka1, hasilx6 As New Double

        Dim hx1, hx2, hx3, hx4, hx5, hx6, totalskor As New Double

        Dim Hasil_keputusan As String

        angka1 = Val(tbkritiksaran.Text)

        hx1 = Val(lblX1.Text)

        hx2 = Val(lblx2.Text)

        hx3 = Val(lblx3.Text)

        hx4 = Val(lblx4.Text)

        hx5 = Val(lblx5.Text)

        hx6 = Val(lblx6.Text)

        hasilx6 = (angka1 * 20 / 100)

        lblx6.Text = hasilx6

        totalskor = (hx1 + hx2 + hx3 + hx4 + hx5 + hx6)

        tbttlskor.Text = totalskor

        Select Case totalskor

            Case Is >= 0 And totalskor <= 49

                Hasil_keputusan = "E | Kr Rendah Mutu"

            Case Is >= 50 And totalskor <= 59

                Hasil_keputusan = "D | Kr Bermasalah"

            Case Is >= 60 And totalskor <= 69

                Hasil_keputusan = "C | Kr Bimbingan"

            Case Is >= 70 And totalskor <= 79

                Hasil_keputusan = "B | Kr Baik"

            Case Is >= 80 And totalskor <= 100

                Hasil_keputusan = "A | Kr Teladan"

        End Select

        tbhasilkeputusan.Text = Hasil_keputusan

    End Sub

Terima kasih atas perhatiannya sekian dari saya , silakan kunjungi artikel lain dari blog ini terimakasih.