belajar visual basic part II

 Public Class Form1

    Private Sub Npm_SelecteedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "11120544"

                Nama.Text = "taufik"

            Case "16120545"

                Nama.Text = "arifin fitri yasa "

            Case "10120546"

                Nama.Text = "arofan fitri yana"

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If i = "11" Then

            Jurusan.Text = "Sistem Informasi"

            Jenjang.Text = "SI"

        ElseIf i = "16" Then

            Jurusan.Text = "Teknik Informatika"

            Jenjang.Text = "D3"

        ElseIf i = "10" Then

            Jurusan.Text = "Komputer Akuntansi"

            Jenjang.Text = "D1"

        End If

    End Sub

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

        Npm.Items.Add("12110128")

        Npm.Items.Add("12110346")

        Npm.Items.Add("12110347")

        KoDO.Items.Add("11122")

        KoDO.Items.Add("11123")

        KoDO.Items.Add("11124")

        Dim i As Integer

        For i = 40 To 100

            Nk.Items.Add(i)

            NUS.Items.Add(i)

            Nt.Items.Add(i)

            Nu.Items.Add(i)

        Next i

    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDO.SelectedIndexChanged

        Select Case KoDO.Text

            Case ("11122")

                NaDo.Text = ("Mesran,SKom")

            Case ("11123")

                NaDo.Text = ("Sinar Sinurat")

            Case ("11124")

                NaDo.Text = ("Kristian Siregar")

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Right(KoDO.Text, 3)

        If i = "122" Then

            Koma.Text = "001"

            Matakuliah.Text = "Pemograman"

        ElseIf i = "123" Then

            Koma.Text = "002"

            Matakuliah.Text = "stuktur data"

        ElseIf i = "123" Then

            Koma.Text = "003"

            Matakuliah.Text = "HTML"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Npm.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KoDO.Text = ""

        NaDo.Text = ""

        Koma.Text = ""

        Matakuliah.Text = ""

        Nk.Text = ""

        Nt.Text = ""

        NUS.Text = ""

        Nu.Text = ""

        Ket.Text = ""

        NH.Text = ""

        NA.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NA.Text = 0.01 * Nk.Text + 0.15 * Nt.Text + 0.3 * Nu.Text + 0.45 * NUS.Text

        If NA.Text <= 50 Then

            Ket.Text = "GagaL"

            NH.Text = "E"

        ElseIf NA.Text <= 60 Then

            Ket.Text = "Gagal"

            NH.Text = "D"

        ElseIf NA.Text <= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B"

        ElseIf NA.Text >= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B+"

        ElseIf NA.Text >= 80 Then

            Ket.Text = "Lulus"

            NH.Text = "A"

        End If

    End Sub

End Class

belajar pemograman visual basic

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jumlaha.Items.Add("0")
        jumlaha.Items.Add("1")
        jumlaha.Items.Add("2")

        Call buattabel()
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM010"
                nama.Text = "arifin fitri yasa"
            Case "PS111"
                nama.Text = "doni arman"
            Case "KU101"
                nama.Text = "saya sendiri"
            Case "GD100"
                nama.Text = "ftannn"
            Case Else
                nama.Text = "grolll"
        End Select

        Dim a As String
        a = Microsoft.VisualBasic.Left(nik.Text, 2)
        If a = "PM" Then
            bagian.Text = "pemasaran"
        ElseIf a = "PS" Then
            bagian.Text = "personalia"
        ElseIf a = "KU" Then
            bagian.Text = "keuangan"
        ElseIf a = "GD" Then
            bagian.Text = "gudang"
        ElseIf a = "PM" Then
            bagian.Text = "pemotongan"
        End If
    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = (nik.Text)
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(bagian.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(gajip.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(tunjangank.Text)
        isi.SubItems.Add(jumlaha.Text)
        isi.SubItems.Add(tunjangana.Text)
        isi.SubItems.Add(totalg.Text)
        ListView1.Items.Add(isi)


    End Sub

    Sub buattabel()
        ListView1.Columns.Add("NIK", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Bagian", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jabatan", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Gaji Pokok", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Status", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Keluarga", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Anak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Anak", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Gaji", 75, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gajip.Text = "2500000"
            Case "STAFF"
                gajip.Text = "1500000"
            Case Else
                gajip.Text = "1000000"
        End Select
        pajak.Text = gajip.Text * 0.1

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangank.Text = gajip.Text * 0.15
            Case "Tidak Menikah"
                jumlaha.Text = ""
                tunjangank.Text = 0
        End Select

    End Sub

    Private Sub jumlaha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlaha.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Select Case jumlaha.Text
                Case "0"
                    tunjangana.Text = 0
                Case "1"
                    tunjangana.Text = gajip.Text * 0.05
                Case "2"
                    tunjangana.Text = gajip.Text * 0.1
                Case Else
                    tunjangana.Text = gajip.Text * 0.5
            End Select
        End If
        totalg.Text = Val(gajip.Text) + Val(tunjangana.Text) + Val(tunjangank.Text) - Val(pajak.Text)
        totalg.Enabled = False
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangana.Text = ""
        tunjangank.Text = ""
        pajak.Text = ""
        status.Text = ""
        gajip.Text = ""
        totalg.Text = ""
        jumlaha.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

   
    Private Sub listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listview.Click
        Call isitabel()
    End Sub
End Class

Anemia (dalam bahasa Yunani: ἀναιμία anaimia, artinya kekurangan darah, from ἀν- an-, "tidak ada" + αἷμα haima, "darah" ) adalah keadaan saat jumlah sel darah merah atau jumlahhemoglobin (protein pembawa oksigen) dalam sel darah merah berada di bawah normal. Sel darah merah mengandung hemoglobin yang memungkinkan mereka mengangkut oksigen dari paru-paru, dan mengantarkannya ke seluruh bagian tubuh.

anemia adalah penyakit darah yang sering ditemukan. beberapa anemia memiliki penyakit dasarnya. anemia bisa diklasifikasikan berdasarkan bentuk atau morfologi sel darah merah, etiologiyang mendasari, dan penampakan klinis. penyebab anemia yang paling sering adalah perdarahan yang berlebihan, rusaknya sel darah merah secara berlebihan hemolisis atau kekurangan pembentukan sel darah merah ( hematopoiesis yang tidak efektif).

Seorang pasien dikatakan anemia bila konsentrasi hemoglobin (Hb) nya kurang dari 13,5 g/dL atau hematokrit (Hct) kurang dari 41% pada laki-laki, dan konsentrasi Hb kurang dari 11,5 g/dL atau Hct kurang dari 36% pada perempuan.

pendidikan

  suka atau tidak, pendidikan merupakan salah satu bekal dalam hidup, meskipun banyak yang berkata bahwa sekolah itu membosankan, tapi tak dapat dipungkiri, bahwa ilmu yang diperoleh selama sekolah membuka pandangan kita tentang dunia.