Senin, 06 Februari 2012

MANUSIA DENGAN MOUSE


Mouse tentu menjadi satu perangkat yang memudahkan para pengguna komputer saat bekerja. Dengan alat hasil temuan Douglas Engelbart pada tahun 1963 ini — dan awalnya diberi nama bug, maka orang akan lebih leluasa menjelajah setiap sudut monitor.
Namun dengan semakin dekatnya hubungan manusia dan komputer dalam berbagai aspek kehidupan, penggunaan mouse sendiri bisa menimbulkan rasa sakit, terutama pada bagian lengan. Hal ini didasarkan pada beberapa studi yang dilakukan, misalnya oleh Dr. Chris Jensen dan rekannya dari The National Institute of Occupational Health, Kopenhagen, yang menemukan bahwa mereka yang menggunakan komputer selama 3-4 jam dengan lebih dari 100 klik akan mengalami risiko paling tinggi atas sejumlah masalah di tangan atau pergelangan.
 
Meski dalam riset itu jenis mouse dalam hubungannya dengan rasa sakit tidak ikut diteliti, akan tetapi sikap, perlakuan orang pada mouse, dan posisi duduk yang baik menjadi hal yang sejak dulu dinilai dapat mencegah timbulnya rasa sakit tadi. Untuk itu, bagi yang sering berinteraksi dengan perangkat tersebut, ada beberapa hal yang patut diperhatikan.
Pertama adalah dengan menempatkan mouse di dekat dan di permukaan yang sama dengan keyboard. Hal ini dimaksudkan agar pengguna komputer bisa lebih mudah meraih dan menggunakan mouse. Perlu diperhatikan pula posisi duduk, ambil posisi duduk tegak, jangan membungkuk, loyo, atau lesu, karena akan mengakibatkan sakit punggung. Untuk mouse yang masih menggunakan bola, bersihkan perangkat tersebut secara berkala karena kotoran yang masuk dikhawatirkan akan mengganggu gerak cursor. Demikian pula untuk menggunakan mouse pad, lagi-lagi agar gerakan cursor menjadi lebih lembut. Kemudian agar pergelangan tangan tidak terlampau lelah, ada baiknya untuk menggunakan wrist rests di mana bantalan yang biasanya berisi silikon bisa memberi kenyamanan saat menggunakan mouse.

ARTIKEL IMK

Perkembangan Software

Komputer merupakan mesin yang memproses fakta atau data menjadi informasi. Komputer di gunakan orang untuk meningkatkan hasil kerja dan memecahkan berbagai masalah. Yang menjadi pemroses data atau pemecah masalah itu adalah perangkat lunak. Bentuk terkecil dari perangkat lunak adalah operasi aritmatik dan logika. Dari operasi dasar ini di susun program atau perangkat lunak.
Tingkat pemrosesan yang di kerjakan perangkat lunak pun dari machine-like, mulai berubah seperti human-like. Di dalam teori informasi, di susun hirarki informasi, mulai dari data/ fakta, kemudian setelah proses seleksi dan pengurutan menjadi sesuatu yang berguna menjadi informasi. Informasi yang di susun secara sistematis dengan suatu alur logika tertentu menjadi knowledge. Dan pada akhirnya gabungan knowledge yang di gabung dari berbagai sisi guna membangun wisdom.
Data yang di proses pun telah banyak berubah, yang semula hanya berupa data bilangan dan karakter merambah ke audio visual (bunyi, suara, gambar, film). Sejauh perkembangan hingga saat ini, seluruh proses menggunakan format data digital dengan satuan bit (binary digit).
Tulisan ini akan menyajikan perkembangan singkat perangkat lunak (software) komputer dari masa ke masa.

Minggu, 29 Januari 2012

jawaban quiz no.2 (Inda Pranidiya)

listing Program

Public Class FormINDAH

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

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
    Sub buattabel()
        LV.Columns.Add("nopeg", 80, HorizontalAlignment.Left)
        LV.Columns.Add("kode", 80, HorizontalAlignment.Left)
        LV.Columns.Add("nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("total", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopeg.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 kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        If kode.Text = "TS001" Then
            merk.Text = "TOSHIBA"
            nama.Text = "Flashdisk 4GB"
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            merk.Text = "TOSHIBA"
            nama.Text = "Fleshdisk 2GB"
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            merk.Text = "V-Gen"
            nama.Text = "Fleshdisk 4GB"
            harga.Text = 9000
        ElseIf kode.Text = "VG002" Then
            merk.Text = "V-Gen"
            nama.Text = "Fleshdisk 2GB"
            harga.Text = 60000
        Else : kode.Text = 0
            merk.Text = 0
            nama.Text = 0
            harga.Text = 0
        End If
    End Sub


    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

        isitabel()
        nopeg.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nopeg.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        nopeg.Focus()

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        LV.Items.Clear()

    End Sub

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

    End Sub
End Class

Hasil Program


Selasa, 22 November 2011

Puisi Motivasi Diri

Jangan mengeluh tentang harimu,
disetiap harimu mungkin tak semuanya baik,

namun percayalah ada sesuatu yang baik
disetiap hari-harimu yang baru
dan saat kamu menangis
bukan berarti kamu merindukanya,

tangisan itu adalah kelegaan
bahwa kamu baik-baik saja tanpa dia
dan hidup ini memberi ribuan alasan
untuk menangis

tapi hidup juga memberi puluhan ribu alasan
untuk tersenyum,
maka jalani hidup apa adanya
dan tetap semangat me” (snop snop)

Kata-kata bijak

Jika kamu takut melangkah, lihatlah bagaimana seorang bayi yang mencoba berjalan. Niscaya akan kau temukan, bahwa setiap manusia pasti akan jatuh. Hanya manusia terbaik lah yang mampu bangkit dari ke jatuhannya.

Kata-kata bijak islami

Tuhan adalah sebagaimana yang kamu pikirkan, Jika kau berpikir Tuhan itu Baik, maka Tuhan akan baik padamu. Namun jika kamu pikir Tuhan itu Buruk, maka Tuhan akan memperlakukan mu dengan Buruk.

Motivasi kata-kata yang indah

Cinta bahagia karena dia membuat dirimu ceria, tapi cinta juga  sedih karena dia membuat mu dewasa.

Janganlah sesali apa yang sudah pergi, jagan tangisi apa yang sdah tiada, Tetapi bangkitlah dan bina kembali apa yang telah hilang dan pergi.


Trekadang, bkan kenangan buruk yang membuatmu bersedih, tapi kenangan indah yang kamu tahu, tak akan terulang kembali.


Kamu tak akan pernah bisa mewujudkan impianmu jika kamu terlalu sibuk melihat apa saja yang memperhatikanmu.


Jadilah cahaya suram yang kekal abadi sinarnya dan elokkan daripada terjadi cahaya terang yang bersifat seketika cuma.


Kegaglan ialah satu-satu nya hal yang dapat diraih tanpa pengerahan tenaga sedikitpun <