Postingan 2

Jawaban Soal 3 (Nining Elpika)

Public Class Form_Login


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If User.Text = "vika" And Pass.Text = "admin" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf User Name dan Password Salah !")
            User.Text = ""
            Pass.Text = ""
            User.Focus()
        End If
    End Sub


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


    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        User.Text = ""
        Pass.Text = ""
    End Sub
End Class

Imports System.Windows.Forms


Public Class Menu_Utama


    Private Sub Pegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pegawai.Click
        Form_Data_Pegawai.Show()


    End Sub


    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class

Public Class Form_Data_Pegawai


    Private Sub Form_Data_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        status.Items.Add("Menikah")
        status.Items.Add("Tidak_Menikah")


        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Kepala Bagian")


        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub


    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nip.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(tunjangan_Keluarga.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        Lst.SubItems.Add(tunjangan_anak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Gaji_lembur.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(total_gaji.Text)
        lv.Items.Add(Lst)
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        'Call status_karyawan()
        Call TunjangaanIstri()
    End Sub
    Sub hitung_TA()
        If jumlah_anak.Text = 1 Then
            tunjangan_anak.Text = 0.03 * Val(gaji.Text)
        ElseIf jumlah_anak.Text = 2 Then
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        Else
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        End If


    End Sub
    Sub HitungLembur()
        If jabatan.Text = "Staff" Then
            Gaji_lembur.Text = Val(Jam.Text) * 5000
        ElseIf jabatan.Text = "Mandor" Then
            Gaji_lembur.Text = Val(Jam.Text) * 7500
        Else
            Gaji_lembur.Text = Val(Jam.Text) * 10000
        End If
    End Sub
    Sub TunjangaanIstri()
        If status.Text = "Menikah" Then
            tunjangan_Keluarga.Text = 0.09 * Val(gaji.Text)
        Else
            tunjangan_Keluarga.Text = "0"
        End If
    End Sub
    Sub hitung_gaji()
        total_gaji.Text = Val(gaji.Text) + Val(tunjangan_Keluarga.Text) + Val(tunjangan_anak.Text) + Val(Gaji_lembur.Text) - Val(pajak.Text)
    End Sub
    Sub hitung_pajak()
        pajak.Text = 0.015 * Val(gaji.Text)
    End Sub
    Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If e.KeyChar = Chr(13) Then
            Call hitung_TA()
        End If
    End Sub
    Private Sub Proses_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses_Simpan.Click
        Call IsiTabel()


        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.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 bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub


    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Clear()
    End Sub


    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub


    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = "2500000"
        Else
            gaji.Text = "1250000"
        End If
    End Sub


    Private Sub Jam_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jam.KeyPress
        If e.KeyChar = Chr(13) Then
            Call HitungLembur()
            Call hitung_pajak()
            Call hitung_gaji()
        End If
    End Sub


End Class

Postingan 1

Jawaban Soal 2 (Nining Elpika)

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

        Dim i As Integer
        For i = 1 To 20
            no.Items.Add(i)
        Next
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        y = Microsoft.VisualBasic.Right(kode.Text, 3)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
                Select Case y
                    Case "001" : Me.nama.Text = "Flashdisk 4GB" : Me.harga.Text = 105000
                    Case "002" : Me.nama.Text = "Flashdisk 2GB" : Me.harga.Text = 72000
                End Select
            Case "VG" : merk.Text = "V-Gen"
                Select Case y
                    Case "001" : Me.nama.Text = "Flashdisk 4GB" : Me.harga.Text = 90000
                    Case "002" : Me.nama.Text = "Flashdisk 2GB" : Me.harga.Text = 60000
                End Select
        End Select
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total.Text = harga.Text * jumlah.Text

        End If
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = no.Text
        Lst.SubItems.Add(kode.Text)
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(total.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call IsiTabel()
        Call berish(Me)
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As MsgBoxResult
        i = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")
        If i = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        Call berish(Me)
    End Sub
    Sub berish(ByVal F As Form)
        Dim X As Object
        For Each X In F.Controls
            If TypeOf X Is TextBox Then X.Text = ""
            If TypeOf X Is ComboBox Then X.Text = ""
        Next
    End Sub

    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Clear()
    End Sub

 
End Class

Sub Bidang IMK

Ada tiga sub-bidang studi yang berhubungan dengan interaksi dengan komputer.

1. Ergonomi dimana interaksi manusia-komputer berkaitan dengan bentuk fisik dari mesin.
2. Faktor manusia berkaitan dengan masalah- masalah psikologis.
3. Interaksi manusia dan komputer mengkaji bagaimana hubungan-hubungan yang terjadi antar ilmu komputer desain terkait dengan manusia dengan komputer.

bagi para perancangnya alat fisik interaksi antarmuka komputer sering diuji, sehingga memungkinkan pertukaran informasi.
Beberapa aspek yang menjadi fokus dalam perancangan sebuah antarmuka adalah :

1. Metodologi dan proses yang digunakan dalam perancangan sebuah antarmuka.
2. Metode implementasi antarmuka.
3. Metode evaluasi dan perbandingan antarmuka.
4. Pengembangan antarmuka baru.
5. Mengembangkan sebuah deskripsi dan prediksi atau teori dari sebuah antarmuka baru.

Pengertian IMK

         Interaksi manusia dan komputer (bahasa Inggris: human–computer interaction, HCI) adalah disiplin ilmu yang mempelajari hubungan antara manusia dan komputer yang meliputi perancangan, evaluasi, dan implementasi antarmuka pengguna komputer agar mudah digunakan oleh manusia. Ilmu ini berusaha menemukan cara yang paling efisien untuk merancang pesan elektronik.  Sedangkan interaksi manusia dan komputer sendiri adalah serangkaian proses, dialog dan kegiatan yang dilakukan oleh manusia untuk berinteraksi dengan komputer yang keduanya saling memberikan masukan dan umpan balik melalui sebuah antarmuka untuk memperoleh hasil akhir yang diharapkan.

        

• Tujuan utama disusunnya berbagai cara interaksi manusia & komputer :

untuk mempermudah manusia dalam mengoperasikan komputer dan mendapatkan berbagai umpan balik yang ia perlukan selama ia bekerja pada sebuah sistem komputer. Para perancang antarmuka manusia dan komputer berharap agar sistem komputer yang dirancangnya dapat bersifat akrab dan ramah dengan penggunanya (user friendly).

• Sebagai contoh, misalnya sebuah komputer lengkap dipasang pada sebuah tempat yang tidak nyaman bagi seorang pengguna yang menggunakan.  Atau keyboard yang digunakan pada komputer tersebut tombol-tombolnya keras sehingga susah untuk mengetik sesuatu. 

Contoh-contoh diatas merupakan beberapa hal mengapa kita membutuhkan mempelajari Interaksi Manusia dan Komputer.
Kita butuh Interaksi manusia komputer adalah agar kita lebih cepat dalam menyelesaikan suatu pekerjaan. serta dapat membuat waktu pengerjaannya lebih cepat dan tidak membutuhkan banyak biaya dalam membuat suatu pekerjaan.