Minggu, 29 Januari 2012

Penyimpanan Informasi pada Manusia

THE MULTI STORE MODEL OF MEMORY (HUMAN)
Penyimpanan informasi pada manusia

Sensory Memory StoreMenyimpan suatu informasi dalam waktu yang sangat singkat (a few tenths

of a second)
· Iconic – visual
· Echoic – sound/voice
· Haptic – touch

Short-Term (working) Memory store

· Menahan informasi secara terbatas untuk suatu periode waktu/pendek (a
few second).
· Pengambilan informasi secara sementara
· Contoh untuk perhitungan-perhitungan yang ringan
35 * 6
5*6 + 30 * 6 (35*2)*3
Rata-rata seseorang dapat mengingat 7+-2, dibawah ini ada contoh urutan
angka:
2653976208
212348278493202
0121 414 2626
12
cobalah diingat dan tulis kembali ke sebuah kertas, apa dapat diingat semua
angka tersebut dengan mudah?,. sekarang coba dengan memisahkan beberapa
angka menjadi seperti dibawah ini;
071 242 6378
angka diatas akan lebih mudah diingat, karena angka-angka tersebut di group.

Long-Term Memory

Permanent, Menyimpan informasi dalam jangka waktu yang tidak terbatas
contoh yang terdapat pada memori jenis ini adalah;
*Experience knowledge
*Procedure rules
*From behaviour

INFORMASI

Informasi adalah suatu proses dan diterapkan dari:
· Reasonning : suatu proses dimana kita menggunakan pengetahuan yang kita punyai untuk
mengambil suatu keputusan
· Problem solving : menyelesaikan masalah
Reasoning adalah suatu proses dimana kita gunakan knowledge yang kita punyai untuk
mengambil suatu kesimpulan.
* Deducative reasoning
Secara logica: Jika sekarang hari senin dia kuliah IMK, Sekarang Senin,
Maka dia kuliah IMK.
Terkadang sering terjadi suatu kesalahan
contoh:
Beberapa masyarakat adalah balita, beberapa balita menangis,
Maka kesimpulannya adalah Semua masyarakat menangis? , tentunya ini
tidaklah relevan
-Inductive reasoning
- Mengacu pada informasi sebuah kasus yang belum pernah ditemui.
- Sebagai contoh jika setiap gajah yang pernah kita temui mempunyai
gading, maka kita mengacu bahwa semua gajah mempunyai gading.
- Penggunaan/melihat dari sisi positif daripada sisi negatif
- Abductive reasoning
- Dari fakta sampai ke aksi
- Tahapan yang membuat terjadinya fakta dan aksi tersebut
Problem Solving adalah Menyelesaikan suatu masalah
*Gestalt theory
Kebiasaan (behavior), dengan jalan trial and error
-Problem Space teory (Newell and simon ):
“Dengan pengalaman untuk menyelesaikan suatu masalah akan lebih
mudah”.
Contoh:
Menyelesaikan masalah programming, kita perlu pengetahuan dari
bahasa (language) dan dimana program tersebut akan dioperasikan
- Analogy in problem solving
Is done by mapping knowledge relating to similar known domain to the new
problem -> analogical mapping
Thinking: Reasoning and problem solving
Thinking:
- Kemampuan menggunakan informasi untuk mengambil kesimpulan dan
menyelesaikan masalah.
Thinking di pengaruhi dari pengalaman yang didapat dari pengetahuan
(knowledge).
Untuk perhitungan pengurangan tidak dibutuhkan pengalaman/
pengetahuan yang cukup, namun untuk mengerti head-line suatu surat kabar
haruslah/dan menuntut pengetahuan misalnya; seperti tentang politik, sosial,
figur masyarakat.

Pengertian Interaksi Manusia danKomputer

Pengertian Interaksi
Komunikasi 2 arah antara manusia (user) dan sistem komputer.
Interaksi menjadi maksimal apabila kedua belah pihak mampu memberikan stimulan dan respon (aksi & reaksi) yang saling mendukung, jika salah satu tidak bisa, maka interaksi akan mengalami hambatan atau bahkan menuju pembiasan tujuan.

Definisi interaksi manusia dan komputer
Interaksi manusia dan komputer adalah sebuah hubungan antara manusia dan komputer yang mempunyai karakteristik tertentu untuk mencapai suatu tujuan tertentu dengan menjalankan sebuah sistem yang bertopengkan sebuah antarmuka (interface).

Prinsip kerja komputer = input proses output
Kepada komputer diberikan data yang umumnya berupa deretan angka dan huruf. Kemudian diolah didalam komputer yang menjadi keluaran sesuai dengan kebutuhan dan keinginan manusia.

Tanpa disadari kita (manusia/user) telah berinteraksi atau berdialog dengan sebuah benda (layar monitor), yaitu dalam bentuk menekan tombol berupa tombol angka dan huruf yang ada pada keyboard atau melakukan satu sentuhan kecil pada mouse.
Yang kemudian hasil inputan ini akan berubah bentuk menjadi informasi atau data yang seperti diharapkan manusia dengan tertampilnya informasi baru tersebut pada layar monitor atau bahkan mesin pencetak (printer).

Untuk membuat antarmuka yang baik dibutuhkan pemahaman beberapa bidang ilmu, antara lain yaitu:

1. Teknik elektronika & ilmu komputer
memberikan kerangka kerja untuk dapat merancang sistem HCI

2. Psikologi
memahami sifat & kebiasaan, persepsi & pengolahan kognitif, ketrampilan motorik pengguna

3. Perancangan grafis dan tipografi
sebuah gambar dapat bermakna sama dengan seribu kata. Gambar dapat digunakan sebagai sarana dialog cukup efektif antara manusia & komputer

4. Ergonomik
berhubungan dengan aspek fisik untuk mendapatkan lingkungan kerja yang nyaman, misal : bentuk meja & kursi kerja, layar tampilan, bentuk keyboard, posisi duduk, pengaturan lampu, kebersihan tempat kerja

5. Antropologi
ilmu pengetahuan tentang manusia, memberi suatu pandangan tentang cara kerja berkelompok yang masing – masing anggotanya dapat memberikan konstribusi sesuai dengan bidangnya

6. Linguistik
merupakan cabang ilmu yang mempelajari tentang bahasa. Untuk melakukan dialog diperlukan sarana komunikasi yang memadai berupa suatu bahasa khusus, misal bahasa grafis, bahasa alami, bahasa menu, bahasa perintah

7. Sosiologi
studi tentang pengaruh sistem manusia-komputer dalam struktur sosial, misal adanya PHK karena adanya otomasi kantor.

CPU vs Keyboard

Manusia pada umumnya tidak pernah tahu apa yang terjadi pada saat data dimasukkan ke dalam kotak cpu melalui keyboard. Manusia (user) selalu terfokus pada monitor/printer sebagai keluaran.

Manusia jarang sekali menyadari proses interaksi dengan komputer. Manusia baru menyadari proses interaksi tersebut saat menemukan masalah dan tidak menemukan solusi pemecahannya. Biasanya manusia menyalahkan antarmuka yang kurang inovatif, kurang menarik, kurang komunikatif.

Interaksi bisa dikatakan dialog antara user dengan komputer.
Model atau jenis interaksi, antara lain :

1. Command line interface (perintah baris tunggal)
contoh : unix, linux, dos

2. Menu (menu datar dan menu tarik)
contoh : hampir semua software menggunakan menu

3. Natural language (bahasa alami)
contoh : bahasa pemrograman terstruktur (belum objek)

4. Question/answer and query dialogue
contoh : mysql, dbase interaktif, dll

5. Form-fills and spreadsheets
contoh : excel, lotus, dll

6. WIMP
- Windows Icon Menu Pointer
- Windows Icon Mouse Pulldown Menu
yang termasuk komponen WIMP : button, dialogue boxes, pallettes, dll.

Bidang ilmu interaksi manusia dan komputer adalah ilmu yang mempelajari tentang bagaimana mendesain, mengevaluasi, dan mengimplementasikan sistem komputer yang interaktif sehingga dapat digunakan oleh manusia dengan mudah.

Postingan 2

Jawaban Soal 3 (Khairunisyah Sadly)

Kasus: Penggajian karyawan

Listing Program:

Public Class Form_Login

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If User.Text = "nisya" And Pass.Text = "cinta" 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

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
Call status_karyawan()
Call jabataaan()
Call hapus_layar()
End Sub
Sub jabataaan()
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Staff")
jabatan.Items.Add("Kepala Bagian")
End Sub
Sub hapus_layar()
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
Sub status_karyawan()
status.Items.Add("Menikah")
status.Items.Add("Tidak_Menikah")
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 StatusKaryawan()
If status.Text = "Menikah" Then
tunjangan_Keluarga.Text = gaji.Text * 0.1
Else
tunjangan_Keluarga.Text = "Tidak Ada"
jumlah_anak.Text = "Tidak Ada"
tunjangan_anak.Text = "Tidak Ada"
End If
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()
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
Call hapus_layar()
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

Hasil Program:

Tampilan Form_Login

Tampilan Menu_Utama

Tampilan Form_Data_Pegawai

Postingan 1

Jawaban Soal 2 (Khairunisyah Sadly)
kasus : latihan pada halaman 33 di modul

Listing Program:

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

Hasil Program:

Rabu, 05 Oktober 2011

Kata - Kata Mutiara..

*Setiap Perbuatan..
Pasti ada Balasan..

          * Setiap apa yang kita tanamkan..
           Itu pulalah yang kita petik..

                  *Dan setiap Kesalahan..
                    Pasti selalu ada Hikmah yang bisa kita ambil..

                       *Maka daripada itu jadikanlah ..
                                   Diri kita Lebih Baik..
                                   dan Terbaik dari Orang yang kita Sayang..

Waktu Adalah Uang...

Bagaimana Cara Memaksimalkannya

Tak banyak yang dibahas oleh Adam Khoo di bab ini. Ia hanya ingin pembaca bukunya menyadari bahwa pendapatan = nilai x waktu. Selain meningkatkan pendapatan melalui peningkatan nilai, kita juga harus menambah waktu kerja untuk mengerjakan pekerjaan yang menghasilkan nilai besar.

Ada pekerjaan yang menghasilkan nilai tinggi dan ada pekerjaan yang menghasilkan nilai rendah. Pekerjaan yang menghasilkan nilai tinggi misalnya pengembangan bisnis, penjualan, menemukan arus pendapatan baru, membuat strategi pasar, menindaklanjuti prospek, mengelola proyek, menerima umpan balik dari clien, dan hal-hal lainnya yang menghasilkan keuntungan. Sedangkan pekerjaan yang menghasilkan nilai rendah seperti mengecek email, menunggu, mengobrol, mengeluh dan lain-lain. Penting untuk diperhatikan bahwa tiap profesi memiliki nilai pekerjaan yang berbeda. Bagi profesi yang satu, sebuah pekerjaan bisa saja bernilai rendah. Namun bagi profesi yang lain pekerjaan tersebut bernilai tinggi.

Kita harus mengetahui apa saja pekerjaan yang memberi nilai tinggi dan apa saja pekerjaan yang memberi nilai rendah. Caranya ialah dengan mencatat selama jam kerja apa saja yang kita lakukan, berapa besar nilai dari pekerjaan tersebut. Langkah selanjutnya adalah fokus pada pekerjaan yang memberikan nilai besar dan mendelegasikan pekerjaan dengan nilai rendah ke orang lain. Dengan cara seperti ini kita dapat melipatgandakan penghasilan.

Sebuah tips utuk para pegawai yang terikat waktu kerja. Pada umumnya waktu kerja seorang pegawai ditentukan oleh atasan/perusahaan. Sehingga kita tidak dapat menambah waktu kerja. Cara yang terbaik adalah dengan mengerjakan hal-hal yang bernilai tinggi di jam kerja dan mengerjakan hal-hal yang bernilai rendah di luar jam kerja. Bila semuanya telah berjalan optimal, yang harus kita lakukan selanjutnya adalah mendelegasikan pekerjaan-pekerjaan yang bernilai rendah kepada asisten. Langkah terakhir adalah minta kenaikan gaji dan pangkat. Perusahaan pasti bersedia melakukannya karena nilai yang kita berikan kepada perusahaan naik berkali-kali lipat sebagai akibat dari peningkatan nilai yang kita berikan kepada perusahaan.

Salam Miliuner