Membuat Program Menggunakan Listview Dengan VB.Net

Tampilan Sebelum Program Dijalankan

  

 Listing Programnya:

Public Class Form1

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

        NPM.Items.Add("12111007")
        NPM.Items.Add("10100987")
        NPM.Items.Add("12072133")
    End Sub

    Sub BuatTabel()
        With LV
            .Columns.Add("NPM", 80, HorizontalAlignment.Center)
            .Columns.Add("Nama", 160, HorizontalAlignment.Left)
            .Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
            .Columns.Add("Jurusan", 160, HorizontalAlignment.Left)
            .Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    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(TahunMasuk.Text)
        Lst.SubItems.Add(NilaiAngka.Text)
        Lst.SubItems.Add(NilaiHuruf.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String
        TahunMasuk.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

        Select Case NPM.Text
            Case "12111007"
                Nama.Text = "Erni Hura"
            Case "10100987"
                Nama.Text = "Eko July"
            Case "12072133"
                Nama.Text = "Beny Syahputra"
            Case Else
                Nama.Text = "_"
        End Select

        Select Case x
            Case "11"
                Jenjang.Text = "Strata 1"
            Case "10"
                Jenjang.Text = "Diploma 3"
            Case "07"
                Jenjang.Text = "Diploma 1"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "1"
                Jurusan.Text = "Teknik Informatika"
            Case "0"
                Jurusan.Text = "Manajemen Informatika"
            Case "2"
                Jurusan.Text = "Akutansi"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub NilaiAngka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAngka.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            NilaiHuruf_TextChanged(sender, e)
        End If
    End Sub

    Private Sub BtnSimpanKeLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeLV.Click
        IsiTabel()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        TahunMasuk.Text = ""
        NilaiAngka.Text = ""
        NilaiHuruf.Text = ""
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        LV.Items.Clear()
    End Sub

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

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

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        TahunMasuk.Text = ""
        NilaiAngka.Text = ""
        NilaiHuruf.Text = ""
    End Sub

    Private Sub NilaiHuruf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiHuruf.TextChanged
      
    End Sub

    Private Sub NilaiAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiAngka.TextChanged
       
    End Sub
End Class

Tampilan Setelah DiJalankan:

Belajar Bahasa Pemrograman (Quis)

 

Contoh Program Sederhana Menggunakan Microsoft Visual Studio 2008 Form Nilai

Hai sobat blogger, kali ini saya akan berbagi sedikit ilmu program yang saya dapatkan untuk sobat blogger sekalian :)). Walau sangat sederhana tapi kiranya bermanfaat bagi saya dan sobat blogger.  Program sederhana ini menggunakan struktur perulanga (looping), stuktur keputusan (pencabangan if), dan struktur keputusan (pencabangan case). Nah, langsung aja kita kita mulai pembahasan kita. Pertama, buka microsoft visual studio 2008 dan desain form berikut serta keterangan namenya juga jangan lupa. Untuk mendesain form dibawah ini kita hanya menggunaka 4 tool, yaitu : A Label, TextBox, ComboBox, dan Button.

 

Setelah sobat selesai mendesain, sobat  harus tahu dulu bagaimana cara kerja Contoh Program Sederhana Menggunakan  Visual Studio 2008 Form Nilai ini baru kemudian ke listing program.

Ketentuannya sebagai berikut  :

1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM, hanya saja;

   -  pada jenjang diambil dari nilai tengah yang dimulai dari 3 karakter pertama sebanyak 2 karater

   -  jurusan diambil dari nilai tengah yang dimulai dari 5 karakter pertama sebanyak 1 karater.

2. Nama dosen ditentukan oleh Kode dosen.

3. Mata kuliah di tentukan oleh kode mata kuliah

4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 1 dan di       kelang 3 digit.

5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS

6. jika nilai akhir lebih dari atau sama dengan 80 maka nilai huruf = "A", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 70 maka nilai huruf = "B", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama dengan 60 maka nilai huruf = "C", keterangan = "LULUS"

    jika nilai akhir lebih dari atau sama 50 maka nilai huruf = "D", keterangan = "LULUS"

    jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL" 

Bila sobat telah memahami ketentuannya, berikut listing programnya ( sebaiknya sobat ketik secara manual biar lebih mengerti lagi :) ) :

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("13110781")
        NPM.Items.Add("12202406")
        NPM.Items.Add("12022020")
        NPM.Items.Add("12023040")
        NPM.Items.Add("12111311")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String

        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)

        Select Case NPM.Text
            Case "13110781"
                Nama.Text = "Erni Hura"
            Case "12202406"
                Nama.Text = "Raditya"
            Case "12022020"
                Nama.Text = "Suci  Melita"
            Case "12023040"
                Nama.Text = "Putri Hamdani"
            Case "12111311"
                Nama.Text = "Febri Riswanda"
            Case Else
                Nama.Text = "_"
        End Select

        Select Case x
            Case "11"
                Jenjang.Text = "Strata 1"
            Case "02"
                Jenjang.Text = "DIII"
            Case "20"
                Jenjang.Text = "DI"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "0"
                Jurusan.Text = "Teknik Informatika"
            Case "1"
                Jurusan.Text = "Sistem Informasi"
            Case "2"
                Jurusan.Text = "Manajemen Informatika"
            Case "3"
                Jurusan.Text = "Akutansi"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            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 = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

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

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Pemrograman visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class


Berikut hasil setelah program dijalankan :

 

Demikian contoh program kali inij yang saya postingkan, semoga teman blogger menyukainya :)
Belajar Bahasa Pemograman

Manfaat Daun Kemangi

 

Manfaat Daun Kemangi untuk Kesehatan Manfaat daun kemangi untuk kesehatan sangat beragam. Salah satunya Adalah jika Anda memiliki masalah dengan bau mulut ataupun bau badan, Anda dapat mengonsumsi lalap kemangi segar setiap hari secara rutin. Namun jika Anda kurang suka dengan rasanya, Anda dapat membuat air perasan daun kemangi yang dicampur dengan daun kunyit dan daun beluntas lalu meminumnya secara rutin setiap hari.

John Henry M. dalam bukunya berjudul ”A Dictionary of Practical Material Medical” mengatakan bahwa Manfaat daun kemangi atau sari daun kemangi yaitu dapat menyembuhkan penyakit diare, gangguan pada vagina, nyeri payudara, hingga mengatasi batu ginjal dan albuminaria.
Sedangkan berdasarkan penelitian yang dilakukan oleh Center for New Crops and Plant Products, Purdue University, AS , membuktikan bahwa daun kemangi terbukti berkhasiat ampuh mengatasi keluhan flu, diare, sakit kepala, cacingan, sembelit, hingga penyakit ginjal.
Selain itu, penelitian tersebut juga membuktikan manfaat daun kemangi untuk mengobati perut kembung, maag, badan lesu, masuk angin, hingga mengatasi kejang. Aroma dari daun kemangi juga dapat digunakan sebagai obat nyamuk.
Daun kemangi sering disuling karena mengandung minyak atsiri golongan tinggi dimana aroma kemangi akan hilang dalam waktu 24 jam setelah dioleskan ke tubuh. Minyak atsiri tersebut bisa membuat tubuh lebih segar dan meringankan rasa sakit sehingga sangat baik digunakan sebagai minyak pijat aroma. Namun, jika Anda adalah Ibu hamil jangan menggunakan minyak ini karena dapat menyebabkan resiko keguguran.
Manfaat daun kemangi selanjutnya adalah untuk mengatasi masalah pencernaan, infeksi usus, muntah, sakit kepala, demam, hingga radang lambung. Bahkan, bagi Anda yang memiliki keluhan ejakulasi, daun kemangi mengandung zat Eugenol dan Apigenin fenkhona yang dapat membantu membuat ereksi lebih mudah, dan zat arginin untuk mencegah kemandulan.

Manfaat Kunyit Untuk Kesehatan Wajah

Kunyit (turmeric) banyak digunakan oleh masyarakat Asia Tenggara sebagai bahan alami perawatan kulit dan tubuh. Kunyit digunakan dalam perawatan kulit dan wajah sebagai bahan alami pencerah kulit. Sementara, untuk perawatan tubuh kunyit (dengan campuran asam) berkhasiat untuk mengharumkan kulit dan mencegah bau badan.

Berikut ini adalah manfaat-manfaat kunyit untuk kulit dan wajah:

Kunyit adalah antioksidan alami, yang dapat memperlambat kerusakan sel kulit

Kerusakan sel kulit bisa terjadi akibat gangguan dari luar, yang sering disebut radikal bebas, bisa pula disebabkan oleh bertambahnya usia atau perubahan hormonal. Kerusakan kulit yang disebabkan pengaruh usia sering ditandai dengan timbulnya kerutan. Apabila disebabkan oleh radikal bebas, sering ditandai dengan kulit yang kusam dengan tekstur dan elastisitas kulit yang tidak merata.
Kerusakan kulit ini bisa dihambat dengan penggunaan perawatan kulit dan wajah yang mengandung antioksidan, seperti vitamin E dan C. Kunyit adalah salah satunya.

Kunyit banyak digunakan sebagai media pengelupasan kulit (skin exfoliant)

Tekstur bubuk kunyit sangat halus, karena dibuat dengan mengambil pati kunyit, yaitu endapan yang terdapat pada perasan/santan/sari kunyit. Sari pati kunyit ini dapat dimanfaatkan sebagai butiran scrub, apabila dibalurkan pada kulit sebagai lulur/masker wajah, dapat mengangkat sel kulit mati pada lapisan kulit terluar. Semakin halus butiran scrub, maka akan semakin baik, karena dapat menghindari terjadinya luka dan iritasi pada kulit.

Membantu memperbaiki kondisi kulit

Pada kasus kerusakan kulit, seperti luka, jerawat, kulit kering, psoriasis, hingga eczema, dapat diatasi dengan penggunaan kunyit sebagai bahan perawatan kulit. Penggunaan bahan alami seperti ini tentunya jauh lebih aman, meskipun hasil yang didapat tidak instan.

Membantu mencerahkan kulit dan menghambat pigmentasi

Kunyit dapat berkhasiat untuk mencerahkaan kulit. Dengan pemakaian teratur, warna kulit dapat menjadi lebih cerah. Selain itu juga dapat menghambat kerja melanin, yang bertugas membuat kulit lebih gelap.

Menyamarkan bintik hitam pada wajah

Pada jenis kulit tertentu, sering didapati bintik hitam. Bintik hitam ini terjadi karena produksi melanin yang tidak merata pada kulit. Kunyit sering dimanfaatkan untuk menyamarkan bintik hitam ini. Dan pada tingkat tertentu, dan dengan pemakaian rutin, bintik hitam dapat benar-benar hilang dari wajah dan kuli.
Demikian beberapa manfaat dari kunyit untuk kulit tubuh dan wajah. Semoga artikel ini dapat bermanfaat bagi Anda.

Bentuk Komputer Masa Depan

Seiring dengan perkembangan zaman, dan kemajuan ilmu pengetahuan dan teknologi yang begitu cepat, bukanlah hal yang mustahil bagi manusia untuk menikmati berbagai layanan yang semakin canggih dan cepat begitu juga dengan komputer. Baru-baru ini NEC Design Ltd sebuah lembaga di jepang menawarkan sebuah konsep baru tentang teknologi komputer yang sangat mengejutkan. Konsep tersebut adalah Komputer Model Pena.

Model dari komputer ini adalah model pena. Jika dilihat secaara sekilas pena ini sangat tidak mungkin disebut komputer. Dari jika sudah mengetahui fungsi dan manfaatnya kita tentu pasti terkejut.

Komputer ini disebut P-ISM.
Sebagaimana dijelaskan oleh desainer NEC sebagai “Pen-style Personal Networking Gadget Package”. Komputer model ini diperkirakan senilai $30.000 atau sekitar 300an juta rupiah. Harga tersebut untuk ukuran sebuah komputer mungkin sangat mahal, tetapi jika dilihat dari segi terkologi tentu tidak ada apa-apanya. Menurut Website NEC Design, komputer jenis P-ISM ini adalah paket komputer pena yang mencakup 5 fungsi yaitu :

• Ponsel bergaya pena dengan cara input data menggunakan tulisan tangan
• virtual keyboard
• proyektor kecil
• Camera Scanned
• Personal ID password yang berfungsi sebagai identitas pemilik

P-ISM terhubung satu sama lain dengan technology wireless yang berdekatan. model ini juga bisa tersambung dengan internet menggunakan fungsi telepon selular pada P-ISM ini.. Gadget personal ini bergaya pena minimalis yang mempunyai fitur yang Luar biasa Lengkap. Awalnya kita berpikir bahwa model teknologi laptop "Keyboard dan layar" akan bertahan lama. namun tidak bisa kita pungkiri bahwa pena dan kertas adalah alat tulis dan simbol yang secara alami kita terima, hanya tinggal masalah waktu saja sampai seseorang menemukan produk Canggih terbaru yang berkedok sebagai "Pena Pintar" ataupun "Kertas Pintar". Jadi mungkin tak lama lagi laptop(komputer jinjing) akan tidak laku lagi.

Selain NEC Design Ltd , perusahaan komputer ternama di dunia Microsoft Corporation juga tidak mau ketinggalan. Baru -baru ini Microsoft sedang mengembangkan prototype komputer masa depan dan sedang menyempurnakannya. Komputer ini dinamai Microsoft Surface. Dalam teknologi ini, seumpama kita mempunyai sebuah kamera digital dan sebuah telepon genggam/ponsel yang telah memiliki dukungan wareless, maka setelah kita memotret benda/seseorang dengan kamera tadi, kemudian kamera itu kita letakkan di atas sebuah monitor sentuh atau touchscreen yang menyerupai meja. Setelah ditaruh, kemudian akan muncul gambar benda atau wajah yang telah kita potret tadi di dalam layar tanpa kita memindahkannya. Kemudian dengan teknologi ini, gambar tersebut bisa diperbesar, diperkecil, dibolak-balik dengan menggunakan tangan. Dan yang lebih seru lagi. Letakkan sebuah ponsel tadi di atas meja itu. Geser gambar dimonitor tersebut ke arah ponsel. Dan seketika itu pula gambar sudah berpindah ke memory card ponsel kita tanpa kita memegang ponsel itu.

Dua perkembangan teknologi komputer di atas mungkin akan terrealisasi dalam jangka waktu yang cukup lama. Kita tentu harus sabar menggunya. Tetapi dalam waktu dekat kita juga akan disuguhi perkembangan teknologi komputer yang tidak kalah canggih. Dalam tahun 2010 ini akan segera dirilis Laptop jenis baru. Dilihat dari segi bentuk dan kecanggihanya, laptop yang akan dirilis tahun ini benar-benar sangat fantastis. 

TriBook dengan tiga konsep layar ultra lebar yaitu 21in lebar layar. Ia juga memiliki sebuah 8x SuperDrive, 1TB harddisk, dan MacBook Pro-calibre CPU, plus sebuah keyboard multitouch trackpad.

Generasi laptop masa depan ini dibuat oleh industri desainer Jerman Felix Schmidberger, model classy, elegan, futuristik laptop yang menggunakan OLED touchscreen.

Barangkali lebih tepat disebut Paper PC karena bentuknya yang seperti lembaran kertas berupa layar sebagai antar muka dan dilengkapi pena untuk mengoperasikannya dengan cara touch screen. Didesain oleh Avery Holleman

Laptop yang mempunyai dua layar dengan desain mirip buku,  Prototipe dari XO-2 dan One Laptop Per Child (OLPC) .

Itulah beberapa perkembangan teknologi komputer masa depan yang dapat semakin mempermudah kehidupan manusia. Karena menurut saya fungsi utama teknologi adalah diciptakan supaya dapat mempermudah kehidupan manusia.

Manfaat Lidah Buaya

Inilah manfaat dan cara meramu lidah buaya untuk kecsntiksn wajah / kulit dan kesehatan tubuh manusia dengan cara alami dan tradisional.

Manfaat dan Khasiat Lidah Buaya

1. Mendinginkan kulit yang terbakar sinar matahari, terutama bagi mereka yang kerap bekerja di luar ruangan.
2. Mengatasi masalah kulit yang disebabkan cuaca, seperti kulit kering, kemerahan, mengelupas, dan iritasi ringan atau ruam.
3. Memudarkan warna kemerahan pada memar di tubuh.
4. Mengatasi rasa tidak nyaman yang disebabkan alat cukur.
5. Mengatasi luka bakar ringan.
6. Meredakan kulit yang melepuh.
7. Dapat digunakan sebagai krim anti penuaan dini atau untuk mengatasi keriput.
8. Mengobati ruam akibat terkena getah tanaman.
9. Mengatasi rasa gatal akibat gigitan serangga.
10. Gunakan setiap hari untuk memudarkan bekas luka dan strecth mark, garis-garis putih atau merah akibat kehamilan.
11. Merawat luka kecil akibat teriris pisau atau tergores.
12. Memudarkan bintik bintik kehitaman pada kulit.
13. Dapat berguna sebagai pengganti kondisioner dan jelly untuk rambut.
14. Bisa digunakan untuk mengurangi jerawat.
15. Digunakan untuk mempercepat penyembuhan sariawan.
16. Dapat digunakan sebagai body lotion alami.
17. Untuk meredakan otot yang keram atau menegang.
18. Digunakan untuk mengurangi keluhan pada masalah gusi.
19. Mengurangi ketombe pada kepala.
20. Mengatasi kutu air.

Cara Meramu dan Kegunaan Lidah Buaya

Radang tenggorokan

• Cara Meramu: 

1 daun lidah buaya dicuci dan dikupas. Isinya dipotong-potong atau diblender. Tambahkan 1 sendok makan madu murni. Minum 3 kali sehari.
=====================

Ambeien

• Cara Meramu:

 Setengah (1/2) batang daun lidah buaya dibuang durinya, dicuci, lalu diparut. Beri setengah (1/2) gelas air panas, kemudian peras. Tambahkan 2 sendok makan madu. Dalam keadaan hangat, minum 3 kali sehari.
=====================

Sembelit

• Cara Meramu: 

Setengah (1/2) batang daun lidah buaya dicuci dan dikupas. Isinya dipotong kecil-kecil. Seduh dengan setengah (1/2) gelas air. Beri 1 sendok makan madu. Hangat-hangat dimakan 2 kali sehari.
=====================

Diabetes melitus

• Cara Meramu: 

2 batang daun lidah buaya, dicuci, dibuang durinya, dipotong-potong. Rebus dengan 3 gelas air, lalu saring. Minum 3 kali sehari sesudah makan, masing-masing setengah gelas.
=====================

Penurun kadar gula darah

• Cara Meramu: 

1 pelepah lidah buaya ukuran besar (kira-kira seukuran telapak tangan) dibersihkan dengan mengupas kulit dan durinya. Rendam sekitar 30 menit dalam air garam. Remas sebentar lalu bilas di bawah air yang mengalir (air kran). Rebus dengan 3 gelas air hingga mendidih. Dinginkan. Minum sebanyak  1/2 gelas selama 2 sampai 3 hari
=====================

Penyubur rambut

• Cara meramu: 

2 pelepah lidah buaya dicuci lalu kupas. Isinya digosokkan pada kulit kepala yang telah dikeramas pada sore hari. Bungkus dengan kain. Keesokan harinya rambut dibilas. Lakukan setiap hari selama 3 bulan.
=====================

Batuk yang membandel

• Cara Meramu: 

20 g daun lidah buaya dicuci, dikupas, dipotong-potong. Campur dengan 2 sendok makan madu murni. Minum 2 kali sehari. Ulangi selama 10 hari.


Itulah Khasiat Lidah Buaya dan Manfaat  Lidah Buaya Serta Cara Meramunya dan sudah banyak orang yang melakukan Pengobatan Tradisional sepsrti ini. Terimakasih Semoga Bermanfaat Bagi Agi anda Semua.

1O ITE TERKENAL DI DUNIA

Keahlian seorang hacker seringkali dianggap ‘merepotkan’ sejumlah korbannya. Padahal belum tentu semua hacker bisa dicap negatif, banyak diantara mereka yang menggunakan keahliannya untuk tujuan-tujuan melihat atau memperbaiki kelemahan perangkat lunak di komputer.

Tapi akibat, ulah sejumlah hacker yang menggunakan keahliannya untuk tujuan jahat seringkali hacker mendapat pandangan negatif dari masyarakat.

Perjalanan untuk menjadi seorang hacker sendiri dilalui melalui perjalanan yang panjang. Untuk menjadi seorang hacker terkenal, tak jarang harus berhadapan dengan penjara. Tengok saja perjalanan 10 hacker ternama dunia berikut seperti dilansir Telegraph, Minggu (29/11/2009).

1. Kevin Mitnick

Pria kelahiran 6 Agustus 1963 ini adalah salah satu hacker komputer yang paling kontroversial di akhir abad ke-20. Pengadilan Amerika Serikat bahkan menjulukinya sebagai buronan kriminal komputer yang paling dicari di Amerika. Kevin diketahui pernah membobol jaringan komputer milik perusahaan telekomunikasi besar seperti Nokia, Fujitsu and Motorola.

Kevin Mitnick ditangkap FBI pada Januari 1995 di apartemennya di kota Raleigh, North Carolina atas tuduhan penyerangan terhadap pemerintahan. Saat ini, ia berprofesi sebagai seorang konsultan keamanan sistem jaringan komputer.

2. Kevin Poulson

Jauh sebelum menjadi senior editor di Wired News, Pria bernama lengkap Kevin Lee Poulsen ini dikenal sebagai seorang hacker jempolan. Pria kelahiran Pasadena Amerika Serikat, 1965 ini pernah membobol jaringan telepon tetap milik stasiun radio Los Angeles KIIS-FM, sehingga ia seringkali memenangkan kuis-kuis radio. Bahkan lewat kuis telepon via radio ia bisa memenangkan sebuah hadiah utama, mobil Porsche.

3. Adrian Lamo

Nama Adrian Lamo sering dijuluki sebagai ‘the homeless hacker’ pasalnya ia sering melakukan aksi-aksinya di kedai-kedai kopi, perpustakaan atau intenetcafe. Aksinya yang paling mendapatkan perhatian adalah ketika ia membobol jaringan milik perusahaan Media, New York Times dan Microsoft, MCI WorldCom, Ameritech, Cingular. Tak hanya itu, ia juga berhasil menyusupi sistem milik AOL Time Warner, Bank of America, Citigroup, McDonald’s and Sun Microsystems. Kini pria tersebut berprofesi sebagai seorang jurnalis.

4. Stephen Wozniak

‘Woz’ begitu ia biasa disapa. Saat ini mungkin lebih dikenal sebagai seorang pendiri Apple. Tapi saat menjadi mahasiswa, Wozniak pernah menjadi seorang hacker yang cukup mumpuni. Pria berusia 59 tahun itu diketahui pernah membobol jaringan telepon yang memungkinkannya menelepon jarak jauh tanpa membayar sedikit pun dan tanpa batas waktu. Alat yang dibuat semasa menjadi mahasiswa itu dikenal dengan nama ‘blue boxes’

5. Loyd Blankenship

Pria berjuluk The Mentor ini pernah menjadi anggota grup hacker kenamaan tahun 1980 Legion Of Doom. Blakenship adalah penulis buku The Conscience of a Hacker (Hacker Manifesto). Buku yang ditulis setelah ia ditangkap dan diumumkan dalam ezine hacker bawah tanah Phrack.

6. Michael Calce

Sejak usia muda Calce memang dikenal sebagai seorang Hacker. Aksinya membobol situs-situs komersial dunia dilakukannya ketika ia berusia 15 tahun. Pria yang menggunakan nama MafiaBoy dalam setiap aksinya itu, ditangkap ketika membobol pada tahun 2000 mengacak-acak eBay, Amazon and Yahoo.

7. Robert Tappan Morris

Nama Morris dikenal sebagai seorang pembuat virus internet pada tahun 1988, atau dikenal sebagai ‘Morris Worm’ yang diketahui merusak sekira 6.000 komputer. Akibat ulahnya ia dikenai sanksi untuk bekerja sosial selama 4000 jam. Kini ia bekerja sebagai pendidik di Massachusetts Institute of Technology.

8. The Masters Of Deception

The Masters Of Deception (MoD) merupakan kelompok hacker yang berbasis di New York. Kelompok ini sering mengganggu jaringan telepon milik perusahaan telekomunikasi seperti AT&T. Sejumlah anggota kelompok ini ditangkap pada tahun 1992 dan dijebloskan ke penjara.

9. David L. Smith

Smith dikenal sebagai penemu Mellisa worm, yang pertama kali ditemukan pada 26 Maret 1999. Mellisa sering juga dikenal sebagai “Mailissa”, “Simpsons”, “Kwyjibo”, atau “Kwejeebo”. Virus ini didistribusikan lewat email. Smith sendiri akhirnya diseret ke penjara karena virusnya telah menyebabkan kerugian sekira USD80 juta

10. Sven Jaschan

Jaschan menorehkan namanya sebagai seorang penjahat dunia maya pada tahun 2004 saat membuat program jahat Netsky dan Sasser worm. Saat ini ia bekerja di sebuah perusahaan keamanan jaringan.

Sumber: http://syakur-xp.blogspot.com/2013/02/10-hacker-terkenal-di-dunia.html