Contoh List-View Program Nilai Mahasiswa VB.NET

Gambar Form :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("11120483")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")

        Dim i As Integer
        For i = 10 To 100
            nk.Items.Add(i)
        Next i

        Dim j As Integer
        For j = 10 To 100
            nt.Items.Add(j)
        Next j

        Dim k As Integer
        For k = 10 To 100
            uts.Items.Add(k)
        Next k

        Dim l As Integer
        For l = 10 To 100
            uas.Items.Add(l)
        Next l

    End Sub


    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110485"
                nama.Text = "Dezy Wandrio"
            Case "12110020"
                nama.Text = " Invandri Lubis"
            Case "12020483"
                nama.Text = " Firda auli"
            Case "12030478"
                nama.Text = "Park cu Yoon"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        If i = "12" Then
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        ElseIf i = "10" Then
            jenjang.Text = "D1"
            jurusan.Text = "Jaringan Komunikasi"
        End If
    End Sub

    Sub BuatTabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode matakuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama matakuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai kehadiran", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai tugas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Jurusan.Text)
        lst.SubItems.Add(Kodedosen.Text)
        lst.SubItems.Add(nmdosen.Text)
        lst.SubItems.Add(kdmatakuliah.Text)
        lst.SubItems.Add(matakuliah.Text)
        lst.SubItems.Add(nk.Text)
        lst.SubItems.Add(nt.Text)
        lst.SubItems.Add(uts.Text)
        lst.SubItems.Add(uas.Text)
        lst.SubItems.Add(na.Text)
        lst.SubItems.Add(nh.Text)
        lst.SubItems.Add(Keterangan.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KKTI01"
                nmdosen.Text = "Mesran,M.Kom"
            Case "KKTI02"
                nmdosen.Text = "Ahmad Zakir,St,M.Kom"
            Case "KKTI03"
                nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
            Case "KKTI04"
                nmdosen.Text = "Maranata,ST,M.Kom"
        End Select
    End Sub

    Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
        Select Case kdmatakuliah.Text
            Case "MT01"
                matakuliah.Text = "struktur data"
            Case "MT02"
                matakuliah.Text = "Pemograman Visual"
            Case "MT03"
                matakuliah.Text = "Komunikasi Data"
            Case "MT04"
                matakuliah.Text = "Arsitektur Dan Organissi"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * uts.Text + 0.45 * uas.Text
        If na.Text >= 80 Then
            nh.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
            keterangan.Text = "Gagal"
        Else
            nh.Text = "E"
            keterangan.Text = "Gagal"

        End If


    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

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

    End Sub

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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
    End Sub
End Class

Hasil ,,,

TIPS MEMBELI LAPTOP BARU

Tips Membeli Laptop Baru

Memasuki akhir liburan dan tahun ajaran baru, tentu banyak siswa ataupun mahasiswa yang ingin membeli laptop untuk kebutuhan sekolah atau kuliah mereka.
Dengan banyak laptop baru yang berjejalan di pasar elektronik Indonesia saat ini. Tentu terkadang memilih sebuah laptop baru yang akan dibeli menjadi salah satu hal yang sulit dilakukan.
Namun ada beberapa tips bagi Anda untuk membeli sebuah perangkat laptop baru yang nantinya benar-benar sesuai dengan kebutuhan maupun isi kantong. Berikut empat tips yang bisa Anda lakukan sewaktu membeli laptop baru.

1. Pilih laptop dari merek ternama

Dengan banyaknya pilihan laptop yang beredar di pasaran, tentu memilih satu laptop dari puluhan merek laptop yang ada di pasaran bisa menjadi pilihan yang sulit.
Namun, laptop dari produsen dengan brand ternama memang memiliki dan menyajikan kualitas yang lebih baik dibandingkan dengan laptop dari merek di bawahnya. Memang laptop dari produsen ternama ini biasanya memiliki harga yang lebih mahal, akan tetapi bukankah ada ungkapan yang mengatakan harga itu menentukan kualitas.

2. Belilah laptop yang sesuai dengan kebutuhan

Jika laptop yang akan Anda beli merupakan laptop yang murni hanya digunakan untuk kegiatan sekolah atau kuliah dan mendukung aktivitas hiburan sampingan seperti mendengarkan musik dan menonton film, maka sebaiknya Anda membeli laptop dengan spesifikasi mid-end.
Kebutuhan pada kegiatan sekolah atau kuliah biasanya tidak menuntut laptop untuk bekerja keras. Sehingga Anda cukup membeli laptop dengan spesifikasi prosesor dual core, RAM 2GB, dan spesifikasi lain yang masuk dalam kategori mid-end.

3. Hati-hati laptop dengan harga murah

Biasanya, ada saja penjual yang menawarkan laptop baru dengan harga murah. Padahal laptop tersebut merupakan produksi perusahaan terkenal.
Namun, Anda harus curiga dengan penawaran menggiurkan tersebut. Bisa jadi laptop tersebut merupakan barang hasil selundupan tanpa garansi ataupun produk tiruan yang saat ini marak beredar di pasaran. Sebaiknya belilah laptop dari toko retail resmi yang sudah banyak beredar di kota-kota besar di Indonesia.

4. Perhatikanlah garansi kerusakan laptop

Garansi tentu jadi faktor penting jika Anda membeli sebuah perangkat elektronika baru seperti laptop.
Terkadang, setiap produsen laptop memberikan masa dan jenis yang berbeda-beda pada setiap produknya. Untuk itu, cermatlah dalam melihat ketentuan garansi agar nantinya jika laptop mengalami kerusakan, Anda tidak bingung untuk melakukan klaim garansinya.http://eldakhairani94.blogspot.com/

Cara Mengatasi Komedo

 

 

Cara mengatasi komedo. Cara Menghilangkan Komedo Dengan Cepat. Seputar kecantikan, setiap orang pasti ingin wajahnya bebas dari komedo atau mungkin jerawat. Bahkan tidak sedikit orang yang menghabiskan biaya demi merawat wajahnya dari gangguan komedo. Sebenarnya komedo bisa muncul karena beberapa faktor, seperti bakteri, faktor hormon, makanan dan sebagainya. Untuk itu disini saya ingin berbagi cara menghilangkan komedo dengan cepat yang di ambil dari eHow.

Cara menghilangkan komedo ini mungkin akan sangat bermanfaat untuk anda, terutama para wanita yang biasanya lebih mengutamakan penampilannya dari pada pria. Ok langsung saja disimak baik-baik.

Cara Menghilangkan Komedo Dengan Cepat

1. Bersihkan wajah 2-3 kali sehari

Khususnya, pada bagian yang berkomedo dengan menggunakan pembersih anti bakteri. Komedo akan bertambah kalau Anda membiarkan debu, riasan wajah, atau keringat menempel terus seharian. Jadi, sangat disarankan untuk membersihkan wajah dua hingga tiga kali sehari.

2. Lakukan pengelupasan di daerah yang berkomedo memakai facial scrub

Hal itu akan menghilangkan sel kulit mati dan menumbuhkan sel kulit yang baru. Sel kulit mati dapat memperburuk keadaan komedo jika tidak segera diangkat. Anda bisa scrub wajah di bagian dahi, hidung dan dagu. Ketiga daerah tersebut merupakan tempat tumbuhnya komedo.

3. Handuk Hangat

Letakkan kain yang telah direndam air panas ke atas permukaan wajah berkomedo. Panas akan membantu menghilangkan perih saat mengelupaskan komedo. Selain itu, handuk panas juga mengurangi adanya infeksi akibat pengangkatan tersebut.

4. Oleskan krim penghilang jerawat di atas kulit berkomedo

Pilih krim yang mengandung benzoil peroksida. Benzoil peroksida adalah bahan yang baik untuk membunuh bakteri, menyerap minyak, serta cepat menghilangkan komedo dan jerawat.

5. Pergi ke salon untuk facial

Rawatlah kulit Anda di tempat facial. Dengan bantuan ahli, maka komedo akan keluar dari dalam kulit dengan cara yang lembut. Jangan mencoba mengeluarkan komedo sendiri, karena kulit dapat terinfeksi.

6. Datang ke dokter kulit

Dalam beberapa kasus, dokter kulit dapat menyuntikkan cairan kortison langsung ke dalam komedo. Selain bisa mengurangi pembengkakan dan kemerahan pada wajah, suntikan ini juga dapat membuat komedo tidak terlihat. Namun, menyuntik kortison tidak boleh terlalu sering. Anda hanya boleh menggunakannya ketika menghadiri acara penting yang mengharuskan Anda tampil maksimal saat itu.

7. Buat ramuan baking soda dan air secukupnya

Oleskan ramuan ini ke atas permukaan wajah yang berkomedo, diamkan selama 20 menit, lalu bilas. Baking soda akan menyerap kelebihan minyak yang terkandung dalam kulit wajah, menghapus bakteri, serta menghilangkan komedo yang membandel.

Membuat form Mahasiswa dengan visual basic

   hari ini saya akan membuat postingan tentang cara membuat form mahasiswa dengan mengunakan visual basic.........
Hasilnya akan seperti  ini:

Langkah-langkahnya sebagai berikut:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("12110352")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")

        Dim i As Integer
        For i = 10 To 100
            nk.Items.Add(i)
        Next i

        Dim j As Integer
        For j = 10 To 100
            nt.Items.Add(j)
        Next j

        Dim k As Integer
        For k = 10 To 100
            uts.Items.Add(k)
        Next k

        Dim l As Integer
        For l = 10 To 100
            uas.Items.Add(l)
        Next l

    End Sub


    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110485"
                nama.Text = "Dezy Wandrio"
            Case "12110020"
                nama.Text = " Invandri Lubis"
            Case "12110352"
                nama.Text = "elda khairani"
            Case "12030478"
                nama.Text = "Park cu Yoon"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        If i = "12" Then
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        ElseIf i = "10" Then
            jenjang.Text = "D1"
            jurusan.Text = "Jaringan Komunikasi"
        ElseIf i = "10" Then
            jenjang.Text = "s1"
            jurusan.Text = "teknik informatika"
        End If
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KKTI01"
                nmdosen.Text = "Mesran,M.Kom"
            Case "KKTI02"
                nmdosen.Text = "Ahmad Zakir,St,M.Kom"
            Case "KKTI03"
                nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
            Case "KKTI04"
                nmdosen.Text = "Maranata,ST,M.Kom"
        End Select
    End Sub

    Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
        Select Case kdmatakuliah.Text
            Case "MT01"
                matakuliah.Text = "struktur data"
            Case "MT02"
                matakuliah.Text = "Pemograman Visual"
            Case "MT03"
                matakuliah.Text = "Komunikasi Data"
            Case "MT04"
                matakuliah.Text = "Arsitektur Dan Organissi"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * uts.Text + 0.45 * uas.Text
        If na.Text >= 80 Then
            nh.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
            keterangan.Text = "Gagal"
        Else
            nh.Text = "E"
            keterangan.Text = "Gagal"

        End If


    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

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

    End Sub
End Class

Contoh Program Sederhana Dengan VB.NET

Tugas  Belajar Bahasa Pemograman dari Sip 1203

nah disini ada beberapa cara menjalankan VB.NET
design Form :






Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13111000")
        npm.Items.Add("13111001")
        npm.Items.Add("13111011")
        Me.Text = " FORM NILAI "
        Me.BackColor = Color.Blue
     
        kdosen.Items.Add("01")
        kdosen.Items.Add("02")
        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")

        nk.Items.Add("40")
        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")

        nt.Items.Add("40")
        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")

        nu.Items.Add("40")
        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")

        nuas.Items.Add("40")
        nuas.Items.Add("50")
        nuas.Items.Add("60")
        nuas.Items.Add("70")
        nuas.Items.Add("80")
        nuas.Items.Add("90")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Andi Jost"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
                proses.BackColor = Color.Orange
                keluar.BackColor = Color.Red
                hapus.BackColor = Color.Green
                Me.BackColor = Color.Crimson
            Case "13111001"
                nama.Text = "Joko S"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
                proses.BackColor = Color.Green
                keluar.BackColor = Color.Magenta
                hapus.BackColor = Color.Blue
                Me.BackColor = Color.BlueViolet
            Case Else
                nama.Text = "Ani S"
                jenjang.Text = "D1"
                jurusan.Text = "design Grafis"
                Me.BackColor = Color.Orange
                proses.BackColor = Color.Red
                keluar.BackColor = Color.Gold
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran.net"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Taroni Zebua"
        Else
            ndosen.Text = "Aulia Ramadhan"
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

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

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "kalkulus"
            Case Else
                mkuliah.Text = "Matriks"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nuas.Text

        Dim a As Integer
        a = nakhir.Text
        Select Case a
            Case Is >= 50
                keterangan.Text = "lulus"
            Case Is <= 50
                keterangan.Text = "gagal"
        End Select

        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        ElseIf nakhir.Text <= 50 Then
            nhuruf.Text = "E"
        End If
    End Sub
End Class

selesai :) :)

Artikel Pendidikan: Sejarah Perkembangan Teknologi

Sejarah Perkembangan Teknologi menarik untuk kita simak bersama mengingat perkembagan teknologi dari masa ke masa sangat penting bagi perkembangan peradaban manusia.Perkembangan peradaban manusia diiringi dengan perkembangan cara penyampaian informasi (yang selanjutnya dikenal dengan istilah teknologi informasi), mulai dari gambar-gambar yang tak bermakna di dinding-dinding gua, peletakan tonggak sejarah dalam bentuk prasasti, sampai diperkenalkannya dunia arus informasi yang dikenal dengan nama internet.

Sejarah Perkembangan Teknologi

1. Masa Prasejarah

Pada zaman ini, teknologi informasi dan komunikasi yang dilakukan oleh manusia berfungsi sebagai sistem untuk pengenalan bentuk-bentuk yang manusia kenal. Untuk menggambarkan informasi yang diperoleh, mereka menggambarkannya pada dinding-dinding gua tentang berburu dan binatang buruannya. Pada masa ini, manusia mulai mengidentifikasi benda-benda yang ada di sekitar lingkungan tempat tinggal mereka, kemudian melukiskannya pada dinding gua tempat tinggalnya. Awal komunikasi mereka pada zaman ini hanya berkisar pada bentuk suara dengusan dan menggunakan isyarat tangan.
Pada zaman prasejarah mulai diciptakan dan digunakan alat-alat yang menghasilkan bunyi dan isyarat, seperti gendang, terompet yang terbuat dari tanduk binatang, dan isyarat asap sebagai alat pemberi peringatan terhadap bahaya.

a. 3000 SM

Untuk yang pertama kali, tulisan digunakan oleh bangsa Sumeria dengan menggunakan simbol-simbol yang dibentuk dari piktografi sebagai huruf. Simbol atau huruf-huruf ini juga mempunyai bentuk bunyi (penyebutan) yang berbeda sehingga mampu menjadi kata, kalimat, dan bahasa.

b. 2900 SM

Pada 2900 SM, bangsa Mesir Kuno menggunakan huruf hieroglif. Hieroglif merupakan bahasa simbol, dimana setiap ungkapan diwakili oleh simbol yang berbeda. Jika simbol-simbol tersebut digabungkan menjadi satu rangkaian, maka akan menghasilkan sebuah arti yang berbeda. Bentuk tulisan dan bahasa hieroglif ini lebih maju dibandingkan dengan tulisan bangsa Sumeria.



c. 500 SM

Pada 500 SM, manusia sudah mengenal cara membuat serat dari pohon papyrus yang tumbuh di sekitar sungai Nil. Serat papyrus dapat digunakan sebagai kertas. Kertas yang terbuat dari serat pohon papyrus menjadi media untuk menulis atau media untuk menyampaikan informasi yang lebih kuat dan fleksibel dibandingkan dengan lempengan tanah liat yang sebelumnya juga digunakan sebagai media informasi.

d. 105 M

Pada masa ini, bangsa Cina berhasil menemukan kertas. Kertas yang ditemukan oleh bangsa Cina pada masa ini adalah kertas yang kita kenal sekarang. Kertas ini dibuat dari serat bambu yang dihaluskan, disaring, dicuci, kemudian diratakan dan dikeringkan. Penemuan ini juga memungkinkan sistem pencetakan yang dilakukan dengan menggunakan blok kayu yang ditoreh dan dilumuri oleh tinta atau yang kita kenal sekarang dengan sistem cap.

2. Masa Modern (1400 M s.d. Sekarang)

a. Tahun 1455
Pada 1455, untuk pertama kalinya Johann Gutenberg mengembangkan mesin cetak dengan menggunakan plat huruf yang terbuat dari besi dan dapat diganti-ganti dalam bingkai yang terbuat dari kayu.

b. Tahun 1830
Augusta Lady Byron menulis program komputer yang pertama di dunia. Ia bekerja sama dengan Charles Babbage menggunakan mesin analytical yang didesain sehingga mampu memasukkan data, mengolah data, dan menghasilkan bentuk keluaran dalam sebuah kartu. Mesin ini dikenal sebagai bentuk komputer digital yang pertama, walaupun cara kerjanya lebih bersifat mekanis daripada bersifat digital.

c. Tahun 1837
Samuel Morse mengembangkan telegraf dan bahasa kode morse bersama Sir William Cook dan Sir Charles Wheatstone. Morse menggunakan kode-kode sederhana untuk mewakili pesan-pesan yang ingin dikirimkan dengan menggunakan pulsa listrik melalui kabel tunggal. Namun sinyal-sinyal yang dapat dikirim dengan baik hanya berada dalam jarak 32 km. Untuk jarak yang lebih jauh, sinyal-sinyal yang diterima menjadi terlalu lemah untuk direkam. Kemudian, Morse membangun peralatan relai yang ditempatkan di setiap 32 km dari stasiun sinyal. Relai tersebut berfungsi untuk mengulangi sinyal yang diterima dan mengirimnya kembali ke 32 km berikutnya. Relai terdiri dari sakelar yang dioperasikan secara elektromagnetik. Sistem telegraf kemudian segera digunakan untuk bisnis yang membutuhkan pengiriman pesan secara cepat untuk jarak yang jauh, seperti surat kabar dan pesan untuk perjalanan kereta api.

d. Tahun 1877
Pada 1877, Alexander Graham Bell menciptakan dan mengembangkan telepon yang dipergunakan pertama kali secara umum. Pada 1879, sistem pemanggilan telepon mulai menggunakan nomor yang menggantikan sistem pemanggilan nama. Hal ini untuk mencegah operator yang tidak mengenal semua pelanggan. Sistem penomoran telepon menggunakan huruf dan angka, dimana nomor telepon menggunakan sistem dua huruf dan lima digit angka.

e. Tahun 1889
Pada 1889, Herman Hollerith menerapkan prinsip kartu perforasi untuk melakukan penghitungan. Tugas pertamanya adalah menemukan cara yang lebih cepat untuk melakukan perhitungan bagi Biro Sensus Amerika Serikat. Sensus yang dilakukan pada 1880 membutuhkan waktu tujuh tahun untuk menyelesaikan perhitungan. Dengan berkembangnya populasi, Biro Sensus tersebut memperkirakan bahwa dibutuhkan waktu sepuluh tahun untuk menyelesaikan perhitungan sensus.
Hollerith menggunakan kartu perforasi untuk memasukkan data sensus yang kemudian diolah oleh alat tersebut secara mekanik. Sebuah kartu dapat menyimpan hingga 80 variabel. Dengan menggunakan alat tersebut, hasil sensus dapat diselesaikan dalam waktu enam minggu. Selain memiliki keuntungan dalam bidang kecepatan, kartu tersebut berfungsi sebagai media penyimpan data. Tingkat kesalahan perhitungan juga dapat ditekan secara drastis.

f. Tahun 1931
Pada 1931, Vannevar Bush membuat sebuah kalkulator untuk menyelesaikan persamaan differensial. Mesin tersebut dapat menyelesaikan persamaan differensial kompleks yang selama ini dianggap rumit oleh kalangan pelajar dan mahasiswa. Mesin tersebut sangat besar dan berat karena ratusan gerigi dan poros yang dibutuhkan untuk melakukan perhitungan.

g. Tahun 1939
Pada 1939, Dr. John V. Atanasoff dan dibantu oleh Clifford Berry berhasil menciptakan komputer elektronik digital pertama. Sejak saat ini, komputer terus mengalami perkembangan sehingga menjadi semakin canggih. Mengenai sejarah perkembangan komputer ini akan dijelaskan pada bagian berikutnya.

h. Tahun 1973 – 1990
Pada masa ini, istilah internet diperkenalkan dalam sebuah paper tentang TCP/IP. Secara harfiah, internet (interconnected networking) diartikan sebagai rangkaian komputer yang terhubung di dalam beberapa rangkaian. Rangkaian pusat yang membentuk internet diawali pada 1969 sebagai ARPANET yang dibangun oleh ARPA (United States Department of Defense Advanced Research Projects Agency). Beberapa penyelidikan awal yang disumbang oleh ARPANET di antaranya adalah kaedah rangkaian tanpa pusat (decentralised network), teori queueing, dan kaedah pertukaran paket (packet switching).
Pada 1981, National Science Foundation mengembangkan backbone yang disebut CSNET dengan kapasitas 56 Kbps untuk setiap institusi dalam pemerintahan.
Pada 1 Januari 1983, ARPANET menukar protokol rangkaian pusatnya, dari NCP ke TCP/IP. Ini merupakan awal dari Internet yang kita kenal sekarang. Kemudian pada 1986, IETF mengembangkan sebuah server yang berfungsi sebagai alat koordinasi di antara DARPA, ARPANET, DDN, dan Internet Gateway. Pada 1990-an, internet telah berkembang dan menyambungkan banyak pengguna jaringan-jaringan komputer yang ada.

i. Tahun 1991 – Sekarang
Sistem bisnis dalam bidang IT pertama kali terjadi ketika CERN memungut bayaran dari para anggotanya untuk menanggulangi biaya operasionalnya. Pada 1992, mulai terbentuk komunitas internet dan diperkenalkannya istilah World Wide Web (www) oleh CERN. Pada 1993, NSF membentuk InterNIC untuk menyediakan jasa pelayanan internet menyangkut direktori dan penyimpanan data serta database (oleh AT&T), jasa registrasi (oleh Network Solution Inc), dan jasa informasi (oleh General Atomics/CERFnet). Pada 1994, pertumbuhan internet melaju dengan sangat cepat dan mulai merambah ke dalam berbagai segi kehidupan manusia dan menjadi bagian yang tidak dapat dipisahkan dari manusia. Pada 1995, perusahaan umum mulai diperkenankan menjadi provider dengan membeli jaringan di backbone. Langkah ini memulai pengembangan teknologi informasi, khususnya internet dan penelitian-penelitian untuk mengembangkan sistem dan alat yang lebih canggih.

Artikel kesehatan: Gejala dan Penyebab Stress

Stress adalah reaksi tubuh terhadap situasi yang tampak berbahaya atau sulit. Stres membuat tubuh untuk memproduksi hormone adrenaline yang berfungsi untuk mempertahankan diri. Stres merupakan bagian dari kehidupan manusia. Stres yang ringan berguna dan dapat memacu seseorang untuk berpikir dan berusaha lebih berpikir dan berusaha lebih cepat dan keras sehingga dapat menjawab tantangan hidup seharihari. Stres ringan bisa merangsang dan memberikan rasa lebih bergairah dalam kehidupan yang biasanya membosankan dan rutin. Tetapi stress yang terlalu banyak dan berkelanjutan, bila tidak ditanggulangi, akan berbahaya bagi kesehatan.

Gejala-gejala stress :

• Menjadi mudah tersinggung dan marah terhadap teman, keluarga dan kolega. 
• Bertindak secara agresif dan defensif
• Merasa selalu lelah.
• Sukar konsentrasi atau menjadi pelupa.
• Palpitasi atau jantung berdebar-debar.
• Otot-otot tegang.
• Sakit kepala, perut dan diare.

Komplikasi stress

• Tekanan darah tinggi dan serangan jantung. 
• Sakit mental, hysteria.
• Gangguan makan seperti hilang nafsu makan atau terlalu banyak makan.
• Tidak bisa tidur (insomnia).
• Migren/kepala pusing.
• Sakit maag.
• Serangan asma yang tambah berat.
• Ruam kulit.

Penyebab stress

• Kejadian hidup sehari-hari baik gembira dan sedih seperti: 
• Menikah/mempunyai anak.
• Mulai tempat kerja baru/pindah rumah/emigrasi.
• Kehilangan orang yang dicintai baik karena meninggal atau cerai.
• Masalah hubungan pribadi.
• Pelajaran sekolah maupun pekerjaan yang membutuhkan jadwal waktu yang ketat, dan atau bekerja dengan atasan yang keras dan kurang pengertian.
• Tidak sehat.
• Lingkungan seperti terlalu ramai, terlalu banyak orang atau terlalu panas dalam rumah atau tempat kerja.
• Masalah keuangan seperti hutang dan pengeluaran di luar kemampuan.
• Kurang percaya diri, pemalu
• Terlalu ambisi dan bercita-cita terlalu tinggi.
• Perasaan negatif seperti rasa bersalah dan tidak tahu cara pemecahannya, frustasi.
• Tidak dapat bergaul, kurang dukungan kawan.
• Membuat keputusan masalah yang bisa merubah jalan hidupnya atau dipaksa untuk merubah nilai-nilai/prinsip hidup pribadi. Yang dapat anda lakukan

Bagaimana mencegah stress ?

• Lihat/ukur kemampuan sendiri. Belajar untuk menerima apa adanya dan mencintai diri sendiri.
• Temukan penyebab perasaan negatif dan belajar untuk menanggulanginya. Jangan memperberat masalah dan coba untuk sekali-kali mengalah terhadap orang lain meskipun mungkin anda di pihak yang benar.
• Rencanakan perubahan-perubahan besar dalam kehidupan anda dalam jangka lama dan beri waktu secukupnya bagi diri anda untuk menyesuaikan dari perubahan satu ke yang lainnya.
• Rencanakan waktu anda dengan baik. Buat daftar yang harus dikerjakan sesuai prioritas.
• Buat keputusan dengan hati-hati. Pertimbangkan dengan masak-masak segi baik atau buruk sebelum memutuskan sesuatu.
• Biarkan orang lain ikut memikirkan masalah anda. Ceritakan kepada pasangan hidup, teman, supervisor atau pemimpin agama. Mereka mungkin bisa membantu meletakkan masalah anda sesuai dengan proporsinya dan menawarkan cara-cara pemecahan yang berguna.
• Bangun suatu sistim pendorong yang baik dengan cara banyak berteman dan mempunyai keluarga yang bahagia. Mereka akan selalu bersama anda dalam setiap kesulitan.Jaga kesehatan, makan dengan baik, tidur cukup dan latihan olahraga secara teratur.
• Rencanakan waktu untuk rekreasi.
• Tehnik relaksasi seperti napas dalam, meditasi atau pijatan mungkin bisa

Pria Idaman

Temukanlah seseorang pria yg menggenggam erat tanganmu di dpan teman2nya,,,
yang mengenalkanmu kepada orang tuanya,,,,
Yang berani bertanggung jawab,,,,
Yang bisa berkomitmen dan menepati janji,,,
yang mengerti,memeluk dan mengusAP airmatamu ketika kamu terpuruk,,,
yang memujimu bukan berkata kotor,,,
yang bisa melindungimu ketika semua orang menghinamu,,,
yang bisa membagi waktu untukmu,,,
yang menuntunmu ke jalan yang benar,,,
maka dialah orangnya,,,,

LUX Private Concert with Marcell Invitation

KELEBIHAN DAN KEKURANGAN WINDOWS 8

Pada waktu windows 8 sedang dalam pengembangan dan berita yang bocor tentang fitur baru windows 8 seperti penambahan ribbon UI pada windows explorer, layar start baru dll, semua orang sangat antusias akan hal ini.
Kita semua berada dibawah kesan bahwa microsoft akan memberikan pilihan bagi pemakai/pengguna untuk beralih antara pilihan start menu dan start screen dan hal-hal lainnya, tapi ketika windows 8 comsumer priview (Public BETA) dirilis, kita tentunya sedikit kecewa.
Sepertinya microsoft telah memutuskan secara sepihak untuk memaksa pengguna windows 8. Microsoft dengan asumsi segala sesuatu di windows 8. Mereka menggangap bahwa pengguna akan mengetahui cara mengakses thumbnail start untuk mengakses start screen, mereka mengganggap bahwa pengguna akan tahu cara mengakses charm bar yang tersembunyi. dan banyak lagi dengan asumsi sepihak dari microsoft.
Tapi mereka lupa bahwa kita (pengguna mahir) bisa tahu tentang fitur baru ini karena kita membaca tentangnya diberbagai blog dan situs sejak beberapa bulan, tapi bagaimana dengan para pengguna/pemakai yang hanya membuka komputer dan memeriksa email saja diinternet?
Ada banyak pengguna yang tidak tahu apa itu Desktop? Apa itu Explorer? Mereka hanya tahu tentang tombol Start, Start Menu dan My Computer. Bagaimana mereka akan tahu di mana untuk meng-klik untuk membuka My Computer? Bagaimana mereka akan tahu bagaimana membuka program tanpa tombol Start?
Dulu, Windows dikenal karena kemampuan kustomisasi nya. Kita masih ingat ketika Windows XP kita bisa disesuaikan hampir setiap dan segala sesuatu di OS. Dan kemudian Microsoft meluncurkan Windows Vista dan mulai memaksakan sesuatu pada pengguna.
Pertama Microsoft menghapus kemampuan kustomisasi dari toolbar Windows Explorer (baris perintah). Anda tidak dapat menambahkan / menghapus tombol dari command bar Explorer walaupun masih mungkin dengan menggunakan Registry. Kemudian mereka menghapus start menu klasik dari Windows 7 dengan asumsi bahwa tidak berguna untuk pengguna. Bagaimana mereka menganggap itu? Setelah itu mereka menghapus keseluruhan Start Menu dari Windows 8 versi BETA dan sekarang tombol Start klasik juga hilang.
Mengapa Microsoft? Mengapa? Mengapa tidak memberikan pilihan kepada pengguna untuk mengaktifkan fitur-fitur yang mereka inginkan untuk digunakan? Mengapa menghapus fitur bukannya menyediakan pilihan meskipun fitur tersebut hanya disembunyikan dan dapat diaktifkan dengan menggunakan tweak Registry atau perangkat lunak pihak ke-3?
Janganlah membuat Windows 8 menjadi seperti Windows Me atau Windows Vista. Microsoft meluncurkan Windows 7 untuk memperbaiki semua masalah yang dihadapi oleh pengguna di Windows Vista dan tampaknya hal yang sama akan terjadi dengan Windows 8, jika Microsoft tidak memperbaiki hal-hal sebelum dirilisya versi RTM.
Pada saat ini, Windows 8 tampaknya OS yang sempurna untuk perangkat tablet tapi cerita ini berbeda untuk Desktop atau laptop. Saya sudah mulai memiliki perasaan yang kuat bahwa Microsoft mulai mengembangkan Windows 8 hanya untuk tablet mirip dengan Android, IOS, dll, tapi kemudian mereka memutuskan mengapa tidak membuatnya kompatibel dengan Desktops juga? Dengan cara ini mereka dapat membuat keuntungan lebih dari itu. Itulah mengapa mereka termasuk segala sesuatu yang terbaik bagi tablet tetapi mengabaikan segala sesuatu yang terbaik untuk Desktop, sayang memang.

Jadi Microsoft harusnya memperbaiki beberapa hal di Windows 8 dan itu tentunya akan menyenangkan bagi semua orang.

2 Versi terpisah Windows 8 untuk Tablet dan Desktops

Microsoft harus membuat 2 edisi terpisah dari Windows 8: satu untuk perangkat sentuh seperti tablet dan satu untuk Desktops dan laptop.
Setelan Windows 8 seharusnya mendeteksi perangkat keras dan kemudian menginstal edisi yang sesuai dari Windows. Tablet edisi Windows 8 harus datang dengan Layar Mulai baru tapi edisi Desktop harus datang dengan tombol Start tua dan Start Menu model lama.
Microsoft juga harus menyediakan pilihan dalam Taskbar dan Start Menu Properties untuk beralih antara layar Start dan Start Menu seperti terlihat pada gambar berikut:
Ini akan menjadi cara terbaik dan pengguna akan dapat menggunakan apa yang mereka inginkan.

Kembalikan Tombol Start

Kita bisa mengerti bahwa Microsoft telah menggantikan Start Menu dengan Layar Mulai baru tapi kita tidak bisa memahami mengapa mereka menghapus tombol Start dari Taskbar? ini benar-benar sebuah keputusan yang salah. Kita tidak melihat kebutuhan menghapus tombol Start yang tidak mengambil banyak ruang pada Taskbar. Bahkan setelah penghapusan tombol Start, ada ruang kosong besar yang tersisa pada Taskbar.
Jika Microsoft ingin memberikan lebih banyak ruang pada Taskbar untuk pengguna Windows 8, mereka bisa saja diganti dengan Start ORB yang lain dengan gambar kecil yang tidak memakan banyak tempat.
Seperti contoh dibawah ini sebuah contoh sederhana dari tombol Start yang tidak mengambil banyak ruang dan menggunakan logo baru Windows 8:

Contoh bikinan yang dibuat secara sederhana. Desainer Microsoft pasti dapat membuat tombol Start lebih cantik yang tidak mengambil banyak ruang pada Taskbar.
Percayalah Layar Mulai thumbnail tidak terlihat baik pada Taskbar dan tanpa tombol Start, Taskbar terlihat sangat jelek dan tidak lengkap.
Mengklik pada tombol Start adalah salah satu hal pertama yang dilakukan pengguna Windows setelah login.

Windows Explorer Ribbon Vs Toolbar Standar

Pelaksanaan pita (ribbon) pada Windows Explorer adalah ide yang baik karena pita menyediakan akses cepat ke pilihan yang berguna tetapi di sisi lain, pita memakan lebih banyak ruang di layar yang dibandingkan dengan toolbar lama atau bar perintah lama.
Pengguna Netbook atau Tablet pasti akan menghadapi sempitnya masalah layar saat bekerja pada Explorer Windows 8.
Meskipun kita dapat meminimalkan pita tapi itu bukan solusi terbaik. Sebaliknya Microsoft harus memberikan pilihan untuk beralih antara pita dan toolbar di Folder Options seperti terlihat pada gambar berikut ini:

Sejak command bar masih ada di Windows Explorer, apa salahnya menyediakan pilihan untuk mengaktifkannya lagi.
Dengan cara ini, pengguna akan dapat menggunakan apa yang mereka ingin digunakan dan tidak ada yang akan mengeluh tentunya.

Power Options: Restart, Shut Down, Hibernate, dll

Hal yang paling menjengkelkan di Windows 8 adalah tidak ada akses langsung ke power options yang merupakan bagian yang paling penting dari sebuah Operaing Sistem. Saat ini pengguna harus untuk mengakses opsi tersebut dari Settings charm. Apa? Mengapa pemakai berpikir bahwa power options ada di dalam Settings charm? Kata “Settings” atau “Pengaturan” berarti Anda akan mengubah pilihan, mana berarti Anda bisa mendapatkan power options di sana. Benar-benar membingungkan!
Restart dan mematikan sistem itu jauh lebih mudah dalam versi Windows sebelumnya. Pengguna bisa mengaksesnya dari Start Menu.
Jadi tempat terbaik untuk menyediakan pilihan ini pada Windows 8 adalah pada gambar Pengguna yang diberikan pada Layar Start. Ketika kita klik, kita bisa mendapatkan pilihan untuk mengunci, sign out, dll. Microsoft seharusnya menyediakan semupa Power options seperti yang ditunjukkan pada gambar berikut:

Yah dengan cara ini pemakai windows akan dapat menemukannya dengan mudah dan cepat, dan tentunya tidak ada yang mengeluh nantinya.