This awesome blogger theme comes under a Creative Commons license. They are free of charge to use as a theme for your blog and you can make changes to the templates to suit your needs.
RSS

PENYAKIT


KANKER  is
Kanker bukanlah suatu penyakit yang ringan. Langkah awal dalam pengobatan penyakit kanker adalah deteksi dengan benar bahwa gejala yang muncul pada tubuh pasien adalah benar-benar sel kanker ganas. Deteksi ini bisa dilakukan dengan pemeriksaan biopsy, sehingga langkah pengobatan bisa dilakukan secara cepat dan tepat. Langkah berikutnya adalah terapi pengobatan dengan cara konvensional. Namun pada kenyataannya pengobatan dengan cara ini sering kali kanker belum bisa diatasi secara total. Disinilah peran tanaman obat/herbal.
0 komentar

Wajib dibaca,, Dongeng daerah ku Dumai. SERU..!!


Putri Tujuh, dongeng asal Dumai
   
Dumai adalah sebuah desa nelayan yag terletak di daerah pesisir timur Provinsi Riau terakhir, Indonesia. Namun, setelah menemukan sumber daya alam, sekarang Dumai menjadi daerah minyak dikunjungi oleh banyak trader. Sejak tahun 1999, Dumai telah menjadi pelabuhan yang sibuk untuk tanker minyak yang banyak dan pembuluh jangkar setiap hari. Jamur minyak pabrik membuat Dumai sebagai daerah yang tak pernah tidur. Selain kekayaan sumber daya alam, Dumai adalah daerah kaya dengan berbagai tradisi. Ada dua tradisi utama yang dikembangkan di tengah masyarakat
0 komentar

MY HERO


Ayah
Jika ditanya siapa orang paling tampan?
aku jawab yaa Ayahku
Jika ditanya siapa orang yang bisa membuatmu menangis?
Aku  jawab yaa Ayahku
Jika ditanya siapa orang paling hebat ?
Yang jelas bukan spiderman maupun superman, Ya Ayahku
Ayah selalu bisa menjaga perasaanku
Ayah selalu bisa memberikan semua yang ku mau
Ayah yang selalu memberiku uang jajan lebih
Ayah, aku tau kau slalu berpikir bagaimana cara untuk makan esok
              selalu berpikir bagaimana untuk pendidikan kami 
              aku tau aku belum bisa membagiakanmu
Maafkan aku yang belum bisa memberimu apa-apa
Tuhan, jaga ayahku...!!
Beri selalu kesehatan, kebahagiaan untuk ayah
Beri juga dia rezeki melimpah darimu
Jaga dia dari segala ancaman diluar sana
karena ayah segalaya untukku, kakak, dan 2 abangku
Because he's my idol, because he was breathing, because he's half my life,
and he who makes my spirit
.

                                                                                    Heni Juwita Dewi Sitorus
                                                                                                des’11
0 komentar

DIAM


Secret Admirer
Apakah kau pernah merasakan ini ?
Menjadi pengagum rahasia seseorang?
Menyukai tanpa suara, menatap dari kejauhan
Mencoba untuk memperhatikan dia dari setiap sudut
Selalu berusaha tenang, agar degub jantung tak terdengar ?
Diam – diam
Sesekali tatapanmu tertangkap olehnya
Seolah-olah dia menyadarai kalau dia sedang diperhatikan
Apa pernah kau merasakan ini?
Seolah-olah dia memiliki rasa yang sama seperti rasa sukamu kepadanya
Ingin rasanya dia mengetahui yang sebenarnya aku rasakan
Ingin rasanya aku benar-benar memilikinya, menatapnya, meyukainya dengan suara
Tapi semua hanya sebuah keinginan
Tak tau apa ini namanya ?
I’m an admirer of the SECRET


Heni  Juwita Dewi , 15 desember 2011
23.23

0 komentar

Tammasino


Kucing Terkaya di Dunia..


Banyak orang yang sudah menganggap hewan peliharaan itu termasuk dalam keluarga inti, tidak disakiti sama sekali tapi disayangi sama seperti layaknya hewan tersebut adalah manusia. Hewan-hewan yang sering mendapat perlakuan khusus dari pemiliharanya seperti anjing, kucing, ular dan lain lain.  jangankan sebagai anggota keluarga yang dianggap anak, ada juga yang menikah dengan hewan peliharaannya sendiri dengan alasan mereka terlalu cinta pada hewan tersebut dibanding manusia disekitar mereka, TERDENGAR  FREAKY..
0 komentar

PUNISHMENT

About Komodo Indonesia
       Komodo Varanus komodoensis bears the Latin name is the largest lizard in the world, with an average length of 2 to 3 meters. The locals call it by name Ora, also known as komodo dragons (komodo dragon) and Komodo dragons (komodo monitor). About Indonesia Komodo dragons have a long tongue, yellow and forked. Komodo dragons males larger than females. In the wild, adult Komodo dragon usually has a mass of about 70 kilograms.
0 komentar

LANDAK

HEWAN BERDURI YANG LUCU
Landak adalah hewan pengerat (Rodentia) yang memiliki rambut yang tebal dan berbentuk duri tajam. Hewan ini ditemukan di Asia, Afrika, maupun Amerika, dan cenderung menyebar di kawasan tropika. Landak merupakan hewan pengerat terbesar ketiga dari segi ukuran tubuh, setelah kapibara dan berang-berang. Hewan ini agak "membulat" serta tidak terlalu lincah apabila dibandingkan dengan tikus. Karena rambut durinya, hewan lain yang mirip namun bukan pengerat, seperti hedgehog dan landak semut (Echidna), juga dikenali sebagai "landak".
Landak secara umum adalah herbivora, dan menyukai daun, batang, khususnya bagian kulit kayu. Karena hal inilah banyak landak dianggap sebagai hama tanaman pertanian. Meskipun demikian, orang juga menjadikan landak sebagai salah satu bahan pangan[1]. Sate landak merupakan salah satu menu khas dari Kabupaten Karanganyar.
Landak yang biasa dikenal orang adalah Hystrix, namun secara umum landak juga dipakai untuk menyebut anggota dari suku/familiErethizontidae (landak Dunia Baru, marga:  Cendou,  Sphiggurus, Erethizon, Echinoprocta,dan Chaetomys)dan Hystricidae  (landak  Dunia Lama,  marga:  Atherurus, Hystrix, dan Trichys).

Pengenalan Singkat Landak Mini
Apa itu landak mini atau Hedgehog?
Landak mini secara umum dikenal sebagai mamalia kecil dengan lapisan kaku, yaitu duri runcing menutupi punggung mereka. Mereka memiliki hidung runcing, dan mata yang agak menonjol terletak di sisi wajah. Telinga mereka biasanya bulat, meskipun dalam beberapa spesies, bisa jadi memanjang, dan terletak tinggi di sisi kepala. Mereka memiliki ekor yang kecil dan pendek, dan secara fungsional sangat sedikit digunakan. Mereka dapat menggulung seperti bola duri ketika terancam.

Apakah landak bersifat liar?
Meskipun benar bahwa landak mini adalah spesies yang baru-baru ini dipelihara, tapi landak mini sebagai pet, yang kita miliki bukan binatang liar. Landak mini adalah campuran dari dua jenis landak, dan bukan merupakan varietas alami
Termasuk jenis apakah landak?
Berlawanan dengan beberapa keyakinan, landak bukan hewan pengerat. Mereka adalah kelompok hewan insectivora, sama dengan hewan seperti tikus mondok, shrews, dan Vole. Mereka sama sekali tidak berkaitan dengan landak, meskipun penampilan yang agak serupa menyebabkan banyak orang salah mengartikan landak mini (hedgehog) sebagai bayi porcupine.
Di mana landak tinggal di alam liar?
Pada dasarnya, di seberang di Eropa, Asia, Afrika, dan Australia. Tidak ada landak spesies yang asli di Amerika Utara atau Amerika Selatan. Yang landak yang paling sering disimpan sebagai hewan peliharaan biasanya dari Afrika. Landak ini biasanya tinggal di daerah dataran, di daerah-daerah yang sering panas dan kering.
Apa yang landak makan?
Landak dianggap insectivores, yang berarti bahwa diet utama mereka adalah serangga dari berbagai jenis. Selain itu, tampaknya landak agak oportunis, dan bersedia untuk makan tikus kecil, reptil, burung bersarang tanah telur dan fledglings, dan kadang-kadang potongan-potongan bahan-bahan tanaman seperti sayuran dan buah-buahan.
Bagaimana landak hidup liar?
Landak liar biasanya adalah hewan soliter, selain ibu-ibu dengan anak, dan pasangan selama perkawinan. Mereka sering memiliki rumah wilayah di mana mereka basis pengembaraan mereka di sekitar. Perempuan akan sering berbagi wilayah, meskipun tetap dalam kebiasaan terpisah mereka sendiri dan perilaku. Laki-laki mungkin lebih teritorial, dan kurang toleran terhadap laki-laki lain mengintai wilayah yang sama. Tampaknya mereka menikmati mengambil keuntungan dari pra-menggali lubang yang dibuat oleh hewan lain seperti kelinci, kelinci, musang, dan hewanpenggali lainnya. Mereka sering menutup liang ini dengan rumput dan dedaunan, menciptakan sebuah ruang nyaman di mana mereka dapat  tidur di siang hari. Landak merupakan hewan nokturnal, mereka berburu dan mengembara antara senja dan fajar. Gerakan lambat khas mereka, dan kecenderungan untuk menggulung menjadi bola adalah penyebab utama mereka ditakuti “predator”

Landak, Satu Nama Untuk Empat Spesies

 


Landak atau dalam bahasa Inggris disebutPorcupine adalah nama untuk sejenis mamalia yang unik dengan bulu-bulu keras (biasa disebut duri) yang menutupi tubuh bagian atas mereka. Bulu Landak ini berfungsi sebagai alat pertahanan diri.
Terdapat puluhan jenis Landak di seluruh dunia. Indonesia saja, yang saya ketahui, memiliki sedikitnya 4 jenis landak. Dalam bahasa Indonesia ketiganya hanya dikenal dengan satu nama yaitu “Landak”. Padahal secara taksonomi merupakan spesies yang berbeda. Bahkan dalam bahasa Inggrispun disebut dengan nama yang berbeda. Keempat jenis landak tersebut adalah Malayan Porcupine (Hystrix brachyura), Sunda Porcupine (Hystrix javanica), Sumatran Porcupine (Hystrix sumatrae), dan Bornean Porcupine (Thecurus crassispinis).
Malayan Porcupine (Hystrix brachyura) adalah salah satu jenis Landak yang selain di Indonesia (Sumatera dan Kalimantan), dapat ditemui juga di Malaysia, Brunei Darussalam, Thailand, Vietnam, Myanmar, Laos, China, Nepal, India, dan Banglades. Sedangkan ketiga jenis lainnya merupakan endemik. Sunda Porcupine (Hystrix javanica) endemik Jawa, Sumatran Porcupine (Hystrix sumatrae) endemik Sumatera, dan Bornean Porcupine(Thecurus crassispinis) endemik Kalimantan.
Pada umumnya seekor landak mampu berlalri kencang untuk menghindari pemangsa. Namun jika terdesak, Landak akan berhenti dan mendirikan bulu-bulunya yang menyerupai duri yang terdapat di klit bagian atas.
Landak membuat sarang dengan membuat lubang di dalam tanah dengan kedalaman sekitar 5 meter. Lubang ini terdiri beberapa cabang di dalam tanah yang mempunyai beberapa pintu keluar. Satu lubang (berukuran lebih besar) menjadi pintu masuk utama dan beberapa lubang (berukuran lebih kecil) sebagai pintu keluar.
Keempat spesies Landak ini, oleh IUCN Redlist dimasukkan dalam kategori LC (Least Concent atau Resiko Rendah) yang artinya spesies landak ini belum terancam kepunahan. Namun status Least Concent bisa juga diberikan kepada spesies-spesies yang belum dievaluasi kembali sejak tahun 2001.

Yang membuat saya bingung, Bahasa Indonesia hanya mengenal satu nama yaitu “Landak” untuk menyebutkan keempat spesies Landak ini (atau mungkin saya yang kurang menguasai bahasa Indonesia?). Malaysia saja menyebut Hystrix brachyurasebagai “Landak Raya” untuk membedakan dengan dua spesies landak lainnya yang mereka punyai yaitu “Landak Padi” untuk menyebut Trichys fasciculata dan “Landak Nibung” (Atherurus macrourus).
Tambah bingung lagi ketika melihat PP No. 7 Tahun 1999 yang hanya memasukkan spesies Hystrix brachyura sebagai satwa yang dilindungi. Sedangkan ketiga jenis lainnya Sunda Porcupine (Hystrix javanica), Sumatran Porcupine (Hystrix sumatrae), dan Bornean Porcupine(Thecurus crassispinis) tidak masuk sebagai spesies yang dilindungi. Padahal ketiganya merupakan satwa endemik yang mempunyai resiko kepunahan lebih tinggi.
Logika saya, semoga keliru, memberikan nama saja tidak bisa bagaimana memberikan perlindungan?. Bahkan satu nama memiriskan yang saya kenal; Sate Landak, salah satu kuliner di Tawangwangu!
Klasifikasi Ilmiah: Kerajaan: Animalia. Filum: Chordata. Kelas: Mammalia. Ordo:Rodentia. Famili: Hystricidae. Genus: Hystrix (untuk Bornean Porcupine; Thecurus). Spesies: Hystrix brachyura, Hystrix javanica, Hystrix sumatrae, Thecurus crassispinis.


Referensi: zipcodezoo.com; iucnredlist.org; gambar: www.animalpicturesarchive.com



0 komentar

Membuat program sederhana menggunakan VB 2008

Membuat program sederhana menggunakan VB 2008

Bagi anda yang sudah expert di dunia pemrograman, pasti sudah sangat mengenal Visual Basic 2008, pemrograman berbasis object ini, adalah salah satu bahasa pemrograman yang paling diminati oleh programmer expert, atau programmer newbie seperti saya. Visual Basic adalah bahasa pemrograman keluaran Microsoft Corp , relative mudah dipelajari untuk mereka yang baru mengenal bahasa pemrograman .
Kali ini saya akan berbagi ilmu mengenai VB 2008, yaitu bagaiman membuat program perhitungan biaya hotel J

1.       Yang pertama kali anda lakukan adalah klik shortcut VB 2008.
2.       Lalu setelah muncul, program VB 2008, pilih “New Project”
3.        


Pilih windows forms application, dan klik OK
4.       Anda akan dibawa menuju form, dimana anda bisa mendesain user interface dari program anda



Atur desain form anda sesuai dengan gambar diatas, disini saya menggunakan
·         2 buah groupbox
·         6 buah label
·         5 buah textbox
·         2 buah button
·         Dan 1 buah timer
6.       Lalu rubah properties dari object diatas,
·         groupbox1; text = Hotel ,
·         groupbox2; text = Command,
·         label1; text = Lama Menginap
·         label2; text =  Harga Sewa Perhari
·         label3; text = Biaya Sewa Kamar
·         label4; text = Jumlah Bayar
·         label5; text = kembali
·         label6; name = lblCreated, text = Created By : (isi terserah anda) , Font : Monotype Corsiva, 16pt, style=Italic
·         textbox1 ; name = txtLama
·         textbox2; name = txtHarga
·         textbox3; name = txtBiaya
·         textbox4; name = txtBayar
·         textbox5; name = txtKembali
·         button1; text = New, name = btnNew
·         button2; text = Close, name = btnClose

7.       Tampilan dari form tadi akan berubah menjadi seperti gambar dibawah ini

                
8.       Klik pada form, dan ketikkan koding berikut
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HotelDataSet.Hotel' table. You can move, or remove it, as needed.
        Me.HotelTableAdapter.Fill(Me.HotelDataSet.Hotel)
        Me.Text = "Menghitung Biaya Sewa Kamar Sebuah Hotel"
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.txtBiaya.Enabled = False
        Me.txtKembali.Enabled = False
    End Sub
9.       Lalu, klik pada txtHarga, dan ketikkan koding berikut
Private Sub Harga_sewa_perhariTextBox_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged
        Dim lama, harga, biaya, bayar, kembali As New Long
        lama = Val(Me.txtLama.Text)
        harga = Val(Me.txtHarga.Text)
        biaya = Val(Me.txtBiaya.Text)
        bayar = Val(Me.txtBayar.Text)
        kembali = Val(Me.txtKembali.Text)
        biaya = lama * harga
        kembali = bayar - biaya
        Me.txtBiaya.Text = Format(biaya, "RP###,###")
        Me.txtKembali.Text = Format(kembali, "RP###,###")
    End Sub
10.   Setelah itu klik dua kali pada txtBayar, dan masukkan koding berikut
               Private Sub txtBayar_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles txtBayar.TextChanged
        Dim lama, harga, biaya, bayar, kembali As New Long
        lama = Val(Me.txtLama.Text)
        harga = Val(Me.txtHarga.Text)
        biaya = Val(Me.txtBiaya.Text)
        bayar = Val(Me.txtBayar.Text)
        kembali = Val(Me.txtKembali.Text)
        biaya = lama * harga
        kembali = bayar - biaya
        Me.txtBiaya.Text = Format(biaya, "RP###,###")
        Me.txtKembali.Text = Format(kembali, "RP###,###")
    End Sub
11.   Lalu, pada btnNew masukkan koding berikut
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnNew.Click

Dim answer = MsgBox("Apakah anda ingin memasukkan input baru, dan menghapus data yang baru di input ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

        Me.txtBayar.Clear()
        Me.txtBiaya.Clear()
        Me.txtHarga.Clear()
        Me.txtKembali.Clear()
        Me.txtLama.Clear()
End if
    End Sub
End Class
12.   Pada btnClose masukkan koding berikut
Dim answer = MsgBox("Apakah anda ingin keluar ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

            End
        End If
13.   Dan terakhir pada timer1, masukkan koding berikut
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick
        If Me.lblCreated.Visible = True Then
            Me.lblCreated.Visible = False
        Else
            Me.lblCreated.Visible = True
        End If
    End Sub
Save dan, coba anda run. Selamat anda sudah berhasil membuat program penghitungan biaya sewa kamar !!! :D


Sumber
1 komentar