Wednesday, November 7, 2012

Sistem Pakar Untuk Diagnosa Penyakit Balita

Sistem Pakar Untuk Diagnosa Penyakit Balita ini saya buat sebagai syarat untuk menempuh pendidikan Strata Satu Saya. Sistem pakar ini mampu mendeteksi jenisa penyakit berdasarkan gejala yang dialami pasien serta dapat memberikan solusi pengobatan dan nasehat untuk pencegahan penyakit.

Untuk anda yang berminat ingin mencobanya, silahkan download dilink berikut

Sistem Pakar Diagnosa Penyakit Balita

Tuesday, June 26, 2012

Membuat Tombol Simpan Hapus Cari dengan Visual Basic 6.0

Cara membuat tombol Tambah, Simpan, Hapus, Edit dan Cari dengan menggunakan VB 6.0.
Untuk lebih jelasnya, silahkan download source codenya di link di bawah.
Download VB Simpan,hapus,edit,cari

Tuesday, June 12, 2012

Ada Apa Dibalik Mimpi

Bagaimana Proses Sebuah Mimpi?

Mimpi berkaitan erat dengan tidur. Terjadinya mimpi dan apa yang diimpikan kadangkala menjadi pertanyaan yang membuat penasaran, sehingga ada baiknya Anda mengetahui apa yang terjadi saat kita tidur.

Setiap tertidur, umumnya kita pasti bermimpi. Dalam jangka waktu tidur 8 jam, rata-rata seseorang mengalami mimpi selama 100 menit. Hanya saja, kebanyakan dari mimpi yang terjadi tidak diingat. Ada sekitar 95% mimpi yang tidak diingat. Mimpi terjadi pada saat tidur REM (Rapid Eye Movement) dari suatu siklus tidur. Sedangkan mimpi yang kita ingat biasanya mimpi yang terjadi beberapa saat sebelum bangun dari tidur.

Mengapa Bermimpi?
Yang menyebabkan kita mengalami mimpi adalah otak. Sebagai pusat dari aktivitas, otak selalu mendapat pesan dari panca indera dan mengatur kegiatan apa yang akan dilakukan pada waktu tidak tidur. Misalnya otak menerjemahkan warna dinding coklat, otak membantu mengenali rasa dari makanan yang dimakan, dan masih banyak lagi berbagai peran lainnya dari otak.

Pada saat tertidur, panca indera dari tubuh Anda tidak bekerja, tetapi otak tetap bekerja, bahkan otak akan lebih aktif saat kita bermimpi daripada saat kita terbangun dan beraktivitas. Oleh karena itu, otak dapat menciptakan gambaran-gambaran berupa imajinasi tanpa ada peranan panca indera. Inilah mimpi.

Uniknya, pada saat bermimpi, otot-otot dalam keadaan tidak aktif sehingga mencegah kita memerankan apa yang dialami dalam mimpi. Walaupun, mimpi tampak sangat nyata tetapi dengan tidak berfungsinya otot membantu agar kita tidak menciderai diri sendiri atau orang lain.

Mimpi Apa Semalam?
Apa yang menyebabkan saya bermimpi seperti itu? Mungkin itu pertanyaan yang ada di benak Anda saat bermimpi tentang sesuatu. Apa yang akan kita mimpikan bergantung pada beberapa hal. Kesan dan hal yang sangat membekas dalam ingatan kita ketika tidak tidur dapat menjadi salah satu faktor. Rutinitas yang kita jalani juga dapat menyebabkan hal yang akan kita mimpikan. Misalnya, pekerjaan kantor yang berat membuat kita bermimpi tentang pekerjaan.

Kadangkala, kita mendapatkan mimpi mengenai solusi dari persoalan yang dihadapi. Misalnya, kita bermimpi tentang jawaban suatu soal ujian. Hal ini merupakan bukti bahwa pada saat tidur, proses berpikir tetap dapat berlangsung.

Mimpi yang sering dianggap sebagai bunga tidur memang merupakan sesuatu yang unik yang menyertai tidur. Kegiatan tidur sendiri sangat penting untuk memerbaiki sel-sel tubuh, membuang zat-zat yang tidak berguna bagi tubuh dan memulihkan otak. Reorganisai otak berlangsung dan kegiatan memerbaiki mental saat tidur mimpi atau tidur REM. Itulah sebabnya, jika Anda kurang tidur, pikiran terasa kacau. Maka, tidur dan mimpi dapat menyegarkan pikiran Anda. Selamat tidur yang nyenyak dan menikmati mimpi indah Anda!

Sumber : http://kumpulan.info

Monday, May 28, 2012

Cara-cara Menilai Kondisi Kesehatan Orang dari Rambutnya

Rambut kepala bisa memberitahu kondisi kesehatan seseorang. Kondisi rambut mencerminkan sistem metabolisme manusia. Adanya ketidakseimbangan metabolisme bisa dianalisis dari kondisi rambut sebelum gejala penyakitnya muncul.

"Kekurangan atau kelebihan mineral selalu terlihat pertama kali pada rambut, baru kemudian pada tubuh. Hal ini disebabkan karena mineral berpindah dari jaringan atau organ lain ke rambut untuk mempertahankan kadar optimalnya di dalam darah," kata Dr Swati Majithia, pakar rambut dari pusat penelitian rambut dan kulit kepala 'Richfeel' seperti dilansir Times of India, Minggu (27/5/2012).

Sebanyak 21 jenis mineral dapat ditemukan melalui hair mineral analysis test (HTMA). Rambut mengandung protein dan mineral seperti besi, natrium, kalium dan kalsium. Dari rambut, dapat dilacak unsur-unsur seperti tembaga, mangan, seng besi, dan logam beracun seperti timbal, merkuri, kadmium, arsenik, aluminium.

Untuk mengetahui kondisi kesehatan seseorang, ada 3 kondisi rambut yang dapat diperhatikan:

1. Rambut normal namun sedikit berminyak
Rambut normal dan sedikit berminyak rentan memiliki benjolan kecil di kulit kepala. Benjolan ini umumnya terkait dengan stres dan tanda-tanda akumulasi racun dalam tubuh.

Untuk mencegah adanya benjolan yang disebabkan pembengkakan folikel, perbanyak mengkonsumsi makanan kaya antioksidan seperti teh hijau dan kacang kedelai. Lakukan aktifitas yang menenangkan seperti yoga dan meditasi.

2. Rambut kering
Rambut yang kering rentan dihiasi ketombe dan kepadatan rambutnya akan menurun dari waktu ke waktu. Kepadatan rambut menurun karena ketidakseimbangan hormon, kebiasaan makan yang buruk, kurang asupan air dan perubahan cuaca. Ketombe terjadi karena perubahan cuaca, jarang keramas atau kurang besih. Stres juga dapat menyebabkan ketombe.

Untuk mengatasinya, perbanyak asupan cairan dan makanan kaya zat besi seperti susu, bayam, dan hati. Perbanyak juga makanan kaya protein seperti daging tanpa lemak, ikan, unggas, telur, kacang, kacang, produk kedelai, kacang-kacangan dan susu.

Ketombe tidak bisa dihilangkan, tetapi dapat dikontrol. Gunakan shampo yang mengandung zat penghambat pertumbuhan sel seperti selenium sulfida atau pyrithione seng. Zat-zat ini akan mengurangi tingkat pertumbuhan sel lapisan terluar kulit kepala.

3. Rambut tipis dan berminyak
Rambut yang tipis dan berminyak umumnya berakhir dengan penipisan dan percabangan rambut serta memicu munculnya uban. Adanya uban yang terlalu dini merupakan tanda kekurangan autoimun dan bisa disebabkan oleh keturunan.

Perawatan kimia seperti rebonding, mengeriting dan mewarnai rambut juga dapat menyebabkan munculnya uban yang tidak wajar. Pemanasan berlebihan dapat membuat ujung rambut bercabang. Rambut bercabang hanya bisa diatasi dengan cara dicukur.

Penipisan rambut terjadi karena kekurangan zat besi, protein, seng dan Vitamin C. Jika rambut menipis, perbanyak makan sayuran berdaun hijau, biji rami, kacang kedelai, kenari dan Vitamin C. Jika tes darah menunjukkan ketidakseimbangan tiroid, gangguan endokrin, kekurangan gizi atau karena obat tertentu, rambut akan kembali normal setelah penyakit yang mendasari sembuh.

Penyebab paling umum kerontokan rambut pada wanita adalah androgenetic alopecia, yaitu kondisi genetik di mana rambut baru yang tumbuh semakin tipis. kebanyakan penipisan rambut terkonsentrasi pada bagian ubun-ubun. Kondisi ini dapat dimulai setiap saat setelah pubertas, tetapi seringkali makin terlihat selama dan setelah menopause.

Monday, May 21, 2012

Membuat Aplikasi Untuk Mengetahui Zodiak dengan VB 6.0

Kali ini saya akan berbagi ilmu tentang cara membuat Aplikasi untuk mengetahui zodiak seseorang dengan menggunakan Visual Basic 6.0

Langkah pertama buatlah Project dengan komponen :
1 DTPicker dan 3 TextBox
Berikan nama masing - masing komponen :
DTPicker1 = dtpLahir
Text1 = txtHari
Text2 = txtBintang
Text3 = txtShio

Lihat gambar dibawah :
Isikan kode :

Private Sub Form_Load()
    dtpLahir.Value = Now
    Call dtpLahir_Change
End Sub

Private Sub dtpLahir_Change()
    Dim a As String, b As String
    Dim c As String
    Dim d As String
   
    Dim tgl As Integer, bln As Integer, thn As Integer
    tgl = Format(dtpLahir.Value, "dd")
    bln = Format(dtpLahir.Value, "MM")
    thn = Format(dtpLahir.Value, "yyyy")
   
    'hari
    Select Case Weekday(dtpLahir.Value)
        Case 1: a = "Minggu"
        Case 2: a = "Senin"
        Case 3: a = "Selasa"
        Case 4: a = "Rabu"
        Case 5: a = "Kamis"
        Case 6: a = "Jum'at"
        Case 7: a = "Sabtu"
    End Select
   
    Select Case DateDiff("d", CDate("1/1/1900"), dtpLahir.Value) Mod 5
        Case 0: b = "Pahing"
        Case 1: b = "Pon"
        Case 2: b = "Wage"
        Case 3: b = "Kliwon"
        Case 4: b = "Legi"
    End Select
   
    'bintang
    Select Case bln
        Case 1: c = IIf(tgl <= 19, "Capricorn", "Aquarius")
        Case 2: c = IIf(tgl <= 19, "Aquarius", "Pisces")
        Case 3: c = IIf(tgl <= 20, "Pisces", "Aries")
        Case 4: c = IIf(tgl <= 20, "Aries", "Taurus")
        Case 5: c = IIf(tgl <= 21, "Taurus", "Gemini")
        Case 6: c = IIf(tgl <= 21, "Gemini", "Cancer")
        Case 7: c = IIf(tgl <= 21, "Cancer", "Leo")
        Case 8: c = IIf(tgl <= 21, "Leo", "Virgo")
        Case 9: c = IIf(tgl <= 22, "Virgo", "Libra")
        Case 10: c = IIf(tgl <= 23, "Libra", "Scorpio")
        Case 11: c = IIf(tgl <= 22, "Scorpio", "Sagitarius")
        Case 12: c = IIf(tgl <= 22, "Sagitarius", "Capricorn")
    End Select
   
    'shio
    Select Case thn - ((Int(thn / 12) * 12))
        Case 0: d = "Kera"
        Case 1: d = "Ayam"
        Case 2: d = "Anjing"
        Case 3: d = "Babi"
        Case 4: d = "Tikus"
        Case 5: d = "Lembu"
        Case 6: d = "Macan"
        Case 7: d = "Kelinci"
        Case 8: d = "Naga"
        Case 9: d = "Ular"
        Case 10: d = "Kuda"
        Case 11: d = "Domba"
    End Select
   
    txtHari.Text = a & " " & b
    txtBintang.Text = c
    txtShio.Text = d
End Sub

Jalankan program, dan hasilnya seperti gambar dibawah :
Untuk yang malas ngetik Source Codenya, silahkan download Aplikasinya di sini.