Minggu, 29 Desember 2013

6 Jurus Ampuh Menumbuhkan Rasa Percaya Diri

Rasa percaya diri (anak muda biasa menyebutkan PD), adalah modal utama menuju keberhasilan. Mereka yang telah putus harapan, jangan harap menemukan jalan kesuksesan. Karena itu, tumbuhkan rasa percaya diri dibenak kita, dan yakinlah bahwa sesudah kesulitan pasti ada kemudahan. Disini ada 6 jurus ampuh cara menumbuhkan rasa percaya diri, antara lain :
1. Bangun pola pikir yang benar.
Everything is green, segalanya hijau, segar, menyenangkan. Pemikiran positif seperti itu perlu dibangun, untuk mengusir segala pikiran yang buruk, yang menyeret kepada kesengsaraan dan kedukaan. Faktor yang paling efektif untuk membahagiakan manusia adalah dalam kemampuanya berfikir dan bernalar. Dengan pikiran yang positif dan jernih kejadian sulit tak akan membuat anda takluk dan menyerah. Meskipun pahit penderitaan akan menghasilkan buah yang istimewa bagi pikiran dan jiwa.
2. Hapus segala kenangan buruk.
Didalam batin kita, bisa jadi masih tersembunyi kenangan-kenangan buruk. Baik berupa penderitaan atau peristiwa pahit yang berada dibawah alam sadar. Musuh yang tersembunyi ini tak pernah berhenti, menimbulkan kejelekan atas jiwa, pikiran dan tingkah laku kita. Jika kita periksa dengan hati-hati, kenangan buruk inilah yang menyebabkan kita mudah berperasangka buruk dan negatif. Maka dari itu, halaulah segera dengan merendahkan diri dan mengikhlaskan apa yang terjadi.
3. Berikan kepercayaan kepada orang lain.
Inti dari rasa percaya diri adalah kepercayaan pada kita sendiri. Tanpa rasa percaya diri, tak akan ada rasa optimisme. Rasa percaya diri ini bertambah apabila kita mampu memberikan kepercayaan kepada orang lain, berhubungan dengan manusia lain, didasari saling percaya kiranya akan membuka pikiran kita untuk lebih percaya.
4. Introspeksi
Carilah waktu untuk bercermin, melihat dan mempertimbangkan potensi diri. Arahkan pandangan pada sisi ekstensi yang baik, dan buang suatu yang buruk penyuram kehidupan dahulu. Mungkin selama ini fokus pandangan masih sisi negatif yang wajar dimiliki seorang manusia sehingga potensi kebaikan terabaikan. Pilihan jalan yang tepat akan memudahkan dalam melihat diri sendiri dan mengarahkan ke segi positifnya demi kemajuan bersama.
5. Bergaul dengan banyak orang.
Mengenal beragam sifat dan macam-macam manusia dari pergaulan, akan menambah wawasan kita tentang hidup. Dengan bergaul kita dapat melihat bahwa diri kita pun ada kekurangan. Juga harus dihindari prasangka yang buruk terhadap orang lain. Karena prasangka ini sangat merusak pikiran positif, dan membawa kita pada keburukan moral yang akhirnya akan membatasi kepada pergaulan.
6. Cari teman yang baik.
Salah satu metode yang efektif dalam mengembangkan percaya diri adalah dengan menjalin persahabatan dengan orang-orang yang baik. Karena berbagai pemikiran peribadi itu berkembang dibawah bayang persahabatan. Manusia mudah sekali terbentuk watak-watak orang lain melalui hubungan timbal balik diantara mereka. Menjalin persahabatan dengan teman-teman yang baik akan membantu kita membangun sifat yang baik dan citra diri yang positif.

Minggu, 08 Desember 2013

kasus pembayaran listrik

kasus pembayaran listrik
 
Listing Program

Public Class Form1

    Sub isitabel()

        Dim i As New ListViewItem
        i.Text = kode.Text
        i.SubItems.Add(nama.Text)
        i.SubItems.Add(tipe.Text)
        i.SubItems.Add(harga.Text)
        i.SubItems.Add(daerah.Text)
        i.SubItems.Add(biayabeban.Text)
        i.SubItems.Add(pemakaian.Text)
        i.SubItems.Add(totaltagihan.Text)
        i.SubItems.Add(pembayaran.Text)
        lv.Items.Add(i)

    End Sub
    Sub rancang()

        lv.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.Columns.Add("kode", 100)
        lv.Columns.Add("nama ", 140)
        lv.Columns.Add("tipe", 160)
        lv.Columns.Add("harga", 110)
        lv.Columns.Add("daerah", 100)
        lv.Columns.Add("biayabeban", 100)
        lv.Columns.Add("pemakaian", 100)
        lv.Columns.Add("totaltagihan", 100)
        lv.Columns.Add("pajak", 100)
        lv.Columns.Add("pembayaran", 100)

    End Sub
    Sub bersih()

        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        daerah.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        pajak.Text = ""

    End Sub
    Sub kodepelanggan()

        kode.Items.Add("PAB - MED - 100")
        kode.Items.Add("TOK - BEL - 101")
        kode.Items.Add("SWA - MAR - 102")
        kode.Items.Add("RUM - BIN - 103")
        kode.Items.Add("PAB - PAK - 104")
        kode.Items.Add("SWA - TEM - 105")

    End Sub
    Sub kodekonsumen()

        kode.Items.Add("MT- MJ- 010")
        kode.Items.Add("MK- MB- 011")
        kode.Items.Add("JK- MJ- 012")

    End Sub

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

        rancang()
        kodepelanggan()

    End Sub
    Private Sub jumlahpemakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (harga.Text * pemakaian.Text)
            pajak.Text = 0.15 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If
    End Sub

    Private Sub kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim h, i, j As String
        h = Strings.Right(kode.Text, 3)
        Select Case h
            Case "100" : nama.Text = "Putry"
            Case "101" : nama.Text = "Lya"
            Case "102" : nama.Text = "Vizha"
            Case "103" : nama.Text = "Citra"
            Case "104" : nama.Text = "Igaph"
            Case "105" : nama.Text = "Chanif"
        End Select

        i = Strings.Left(kode.Text, 3)
        Select Case i
            Case "TOK"
                harga.Text = 500
                biayabeban.Text = 150000
                tipe.Text = "Toko"
            Case "RUM"
                harga.Text = 200
                biayabeban.Text = 50000
                tipe.Text = "Rumah"
            Case "PAB"
                harga.Text = 10000
                biayabeban.Text = 1000000
                tipe.Text = "Pabrik"
            Case "SWA"
                harga.Text = 1500
                biayabeban.Text = 400000
                tipe.Text = "Swalayan"
        End Select

        j = Strings.Mid(kode.Text, 7, 3)
        Select Case j
            Case "MED"
                daerah.Text = "Medan"
            Case "BEL"
                daerah.Text = "Belawan"
            Case "MAR"
                daerah.Text = "Marendal"
            Case "BIN"
                daerah.Text = "Binjai"
            Case "PAK"
                daerah.Text = "Lubuk Pakam"
            Case "TEM"
                daerah.Text = "Tembung"
            Case Else
                daerah.Text = "-"

        End Select
    End Sub

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

        Me.Close()

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

        isitabel()
        bersih()

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

        lv.Items.Clear()
        bersih()

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

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class

10 TIPS MENJAGA KESEHATAN TUBUH


Selain Dari Pentingnya Menjaga Kesehatan Mata Kita Juga Harus Menjaga Kesehatan Seluruh Organ Tubuh Seperti kata Pepatah di dalam tubuh yang sehat terdapat jiwa yang kuat. berikut tips menjaga kesehatan di antaranya :
  • Rawatlah dengan baik kesehatan mulut Anda
Menggosok gigi dengan hati-hati dan menggunakan obat kumur akan mampu meningkatkan imunitas (kekebalan). Kesehatan mulut yang kurang dapat menyebabkan periodontitis (peradangan jaringan di sekitar mulut), menyebabkan diabetes dan penyakit jantung. Oleh karena itu, menyadari akan kesehatan mulut Anda adalah langkah pertama untuk memastikan kondisi kesehatan Anda.
  • Jaga kebersihan tangan Anda = Tak perlu dikatakan lagi bahwa seseorang harus menjaga tangannya tetap bersih, tetapi kebanyakan orang mengabaikannya. Selama musim flu, orang perlu lebih sering membersihkan tangan mereka dengan sabun. Jika setiap orang memperhatikan prosedur cuci tangan yang benar, satu milyar orang bisa bebas dari flu, mencegah penyebaran penyakit menular lebih lanjut.
  • Banyaklah makan apel merah = “Sebuah apel sehari membuat para dokter jauh.” Apel merah, kubis dan teh hijau semuanya mengandung anti-oksidan bernama quercetin. Hal ini dapat meningkatkan sistem kekebalan tubuh ketika orang berada di bawah tekanan. Riset menunjukkan bahwa asupan quercetin terus-menerus selama lima minggu dengan makan apel merah, mengurangi  40% risiko penyakit infeksi saluran pernapasan. dengan begitu kita dapat meraih kesehatan tubuh.
  • Perluas kegiatan sosial = Ketika orang diserang virus, beberapa faktor kepribadian dapat meningkatkan daya tahan tubuh. Dibicarakan secara relatif, orang-orang ekstrovert [orang yang terbuka dan bergaul keluar] cenderung tidak terkena flu daripada orang introvert [orang yang cenderung tertutup]. Hal ini karena kegiatan sosial dan kegiatan di luar dapat meningkatkan ketahanan seseorang. Semakin aktif seseorang, semakin kecil kemungkinan ia akan menderita penyakit jantung, dan memiliki umur yang lebih panjang.
  • Berolahraga setiap hari = Berolahraga dapat meningkatkan metabolisme darah dan meningkatkan sistem kekebalan tubuh. Bahkan ketika tubuh diserang penyakit, olahraga dapat benar-benar memadamkan faktor-faktor tersebut.
  • Cukup tidur = Ini jelas membantu sistem kekebalan tubuh seseorang jika mereka dapat tidur 8 jam yang bermanfaat setiap harinya. Tidaklah mudah untuk terkena flu bagi orang yang tidur dengan baik sepanjang malam, karena tidur nyenyak dapat meningkatkan metabolisme dan memulihkan kekebalan dengan cepat.
  • Memiliki suasana hati optimis = Mereka yang bahagia, bersemangat dan tenang, memiliki risiko yang lebih kecil untuk tertular penyakit menular. Dari sebuah survei terhadap 193 orang yang sehat, ditemukan bahwa mereka yang secara emosional optimis tidak memiliki gejala khusus flu dan memiliki ketahanan yang lebih kuat terhadap penyakit saluran pernapasan bagian atas.
  • Makanlah beragam makanan = Secara umum, tubuh manusia kekurangan vitamin. Orang-orang kekurangan vitamin D. Orang tidak bisa mengandalkan vitamin campuran dan perlu mendapatkannya dari makanan. Vitamin D biasanya ditemukan pada ikan, telur dan susu. Adalah baik bagi kesehatan seseorang jika mengkonsumsi jenis makanan ini. imunitas juga akan berkurang jika seseorang tidak memiliki cukup vitamin C. Orang-orang dapat mendapatkan vitamin C dari buah jeruk.
  • Memiliki pola pikir yang positif = Serangkaian reaksi biokimia dalam tubuh akan mengikuti pikiran yang muncul. Sikap positif akan meningkatkan kadar nitrogen monoksida, sehingga mencapai sistem saraf yang seimbang dan meningkatkan sistem kekebalan tubuh.
  • Cobalah teknik meditasi dan pernapasan = Jika orang memperhatikan dan menyesuaikan napas mereka atau belajar untuk bermeditasi, hal itu akan menenangkan sistem saraf pusat, membantu meringankan tekanan, memodulasi tidur dan memperkuat ketahanan terhadap penyakit. Orang-orang yang secara sukarela mengikuti latihan meditasi bisa memiliki antibodi lebih banyak dibanding mereka yang tidak melakukan meditasi.

Sabtu, 07 Desember 2013

ARTI PERSAHABATAN


Arti Sahabat adalah segalanya.
Sahabat adalah orang ketiga dari orang tua dan guru di sekolah.
Terkadang di saat kita butuh seorang sahabat,ia selalu ada buat kita.
Tidak semua sahabat kita itu saling ada buat sahabat-sahabatnya yang lain.
Terkadang dengan kesibukan mereka masing-masing mereka tidak selalu ada buat kita.
Jadi kita harus saling ngerti satu sama lain.
Sahabat Yang baik adalah mereka yang mengisi kekuranganmu bukan mengisi kekosonganmu(Kahlil Gibran) Seorang sahabat adalah Kado yang anda berikan kepada diri anda sendiri.
Sifat-Sifat Seorang Sahabat :

  • Jika Engkau membuat bakti kepadanya,ia akan melindungimu.
  • Jika Engkau rapatkan persahabatan dengannya,ia akan membalas baik persahabatanmu itu.
  • Jika Engkau Memerlukan Pertolongan daripadanya berupa uang dan sebagainya,ia akan membantumu.
  • Jika Engkau menhulurkan sesuatu kebaikan kepadanya,ia akan menerima dengan baik.
  • Jika ia melihat sesuatu yang tidak baik darimu,ia akan menutupnya.
  • Jika Engkau meminta suatu bantuan daripadanya ia akan mengusahakannya.
  • Jika Engkau berdiam diri(karena malu hendak meminta),ia akan menanya kesusahanmu.
  • Jika Engkau berkata kepadanya,ia akan membenarkannya.
  • Jika Engkau meraqncang sesuatu,ia akan membantumu.
  • Jika Engkau berselisih faham,Niscaya ia lebih senang mengalah untuk kepentingan persahabatan
 Menjalin persahabatan dengan lawan jenis memang sah-sah saja. Bahkan tak sedikit wanita yang lebih memilih kaum pria sebagai tempat curhat ketimbang rekan-rekan wanita yang dinilainya lebih suka "bergosip ria" atau tidak bisa dipercaya. Begitu juga sebaliknya, tak sedikit pria yang lebih memilih bersahabat dengan rekan wanita, yang salah satu alasanya mungkin untuk bisa mendapatkan pandangan lain dari sudut lawan jenis.
Namun, terlepas dari apapun alasan nya, tak jarang persahabatan seperti ini dinilai lain oleh masyarakat. Karena saking dekatanya dan kerap kali bertemu, tak jarang pasangan sahabat ini dikira pasangan yang tengah dimabuk asmara. Tapi bagaimana bila penilaian ini terlontar pada persahabatan di mana keduanya sudah mempunyai pacar atau pasangan hidup resmi, istri atau suami? Kalo hal ini terjadi salah2 bisa memacu konflik besar yang akan mengarah pada perceraian.
Tidak ada yang bisa menyangkal, terkadang persahabatan seseorang bisa membuat iri banyak orang. Bayangkan dia sepertinya punya tempat yang akan dengan setia menjga dan menampungnya. Persahabatan itu sendiri dibangun dari saling kepercayaan yang tinggi dan saling mengerti tanpa harus dibicarakan atau diutarakan terlebih dahulu. Tak hanya itu selain menjadi tempat berkeluh kesah dan adu argumentasi, sahabat adalah orang yang bisa paling jujur di dunia untuk mengomentari segala hal tentang anda meski akan menyakitkan anda sekalipun.
Namun, tampaknya persahabatan yang Anda bangun ini akan menjadi ancaman bila pacar atau pasangan resmi sahabat Anda kurang mengerti dengan bentuk persahabatan yang Anda bina. Salah2 karena Anda kerap kali meminta saran untuk segala kegiatan hidupnya, mulai karier hingga keluarganya, Anda akan dikira memasuki teritorial orang lain. Dalam arti, pasangan resmi sahabat Anda mungkin saja akan merasa menjadi orang nomor dua dalam hidup pasangannya dan tidak menerimanya.
Satu hal lagi yang akan semakun membuat keadaan parah adalah bisa2 sahabat anda cenderung mengeksekusi sesuatu hal berdasarkan gagasan Anda. "Jangan2 istriku itu berselingkuh dengan sahabatnya", pikiran tersebut mungkin saja akan terlontar pada benak pasangan resmi sahabat Anda.
Bila dilihat, persahabatan yang Anda bangun ini bukan waktu yang singkat. Anda sudah mengenalnya jauh hari sebelum sahabat Anda mengenal dan bahkan menikah dengan pria/wanita pujaannya. Namun itulah realitas hidup. Jalinan persahabatan yang "beda" pun sebenarnya sudah bisa ditangkap dengan kasat mata. Yakni jika seseorang "punya hati" terhadap sahabatnya maka bisa dibaca lewat gerak geriknya, cara memandang, pemilihan kata-kata bahkan kadang sikap salah tingkah, sedikit banyak menunjukkan bahwa dia berharap banyak dari sekedar persahabatan.
So’ gimana cara untuk menjaga persahabatan dengan lawan jenis ini agar tidak mengarah pada perselingkuhan dan tetap bisa berlansung lama? Simak yukk ..

  1. Yang pasti, sejak awal luruskan niat terlebih dahulu. Pasalnya persahabatan yang dimulai dengan niat yang tidak benar bisa saja mengarah pada perselingkuhan. Awali persahabatan dengan sungguh2 karena ada kesamaan sifat, pandangan, hobi, selera dsb. Bukan karena tujuan ingin menjadikan sebagai pacar setelah merebut simpatinya.
  2. Harus ada trust. Apapun yang diceritakan sahabat karena dia menganggap Anda bagia dari hidupnya. Mengkhianati kepercayaan nya berarti Anda sudah bosan dengan pertemanan itu dan bersiap mencari musuh.
  3. Tetap profesional bila bersahabat dengan rekan kantor. Dan persahabatan yang baik adalah persahabatan yang tidak bakal mengorek "isi perut" Anda.
  4. Menjaga privasi masing2. Jangan intervensi dlm masalah sahabat
  5. Kenali pasangan masing2 dan tekankan bahwa tidak semua hal bisa diceritakan kepada sahabat
  6. Jangan posesif.
  7. Keterusterangan itu kadang menyakitkan.
  8. Berpikir dan bertindak positif. Jika mengobrol tentang suatu hal, arahnya bukan mencela, tapi mendiskusikan, dengan begitu seseorang dapat membangkitkan rasa percaya diri sahabatnya.
  Di dunia ini, semua orang pasti butuh sahabat. Walaupun orang jahat yang paling jahat sekalipun, dia pasti juga butuh sahabat.

Dalam kisah 1001 malam,diceritakan mengenai seorang yang mempunyai 2 1/2 orang sahabat.Di sebuah negara Antah Berantah,tinggallah seorang saudagar arab yang kaya-raya bernama Zainal Abidin.Beliau tinggal bersama seorang anaknya yang di asuh dengan penuh kasih sayang.Sewaktu anak ini telah menganjak remaja,dia menjadi pemuda yang gagah dan tinggi budi pekertinya.
  Suatu hari,Zainal Abidin memanggil anaknya lalu berkata," Dalam hidup ini,selain harta benda yang kita miliki sekarang  ini,kita juga perlu mempunyai sahabat-sahabat yang setia dan selalu bersedia membantu kita apabila kita memerlukan bantuan mereka.Anaku, ambillah uang ini dan carilah sahabat-sahabat seperti yang ayah katakan,"
  Berbekalkan uang itu,anaknya pergi keluar kota dan mencari sahabat-sahabat seperti yang dikatakan oleh ayahnya. Setelah bertemu dengan beberapa orang yang dijadikan sahabat-sahabatnya dia pun pulang ke rumah.
  Sesampainya di rumah.ayahnya bertanya."Sudah sekian lama kamu meninggalkan rumah ini untuk mencari sahabat tolong katakan kepada ayah,berapa orang sahabatmu sekarang?"
" Ayah,sejak meninggalkan rumah ini aku telah bertemu dengan 50 orang yang bisa aku jadikan sahabat dan benar-benar tulus bersahabat denganku.."
"Bagus anakku,walaupun ayah telah hidup lebih dari 60 tahun,tetapi ayah hanya mempunyai 2 1/2 orang sahabat saja dan sesungguhnya kamu lebih hebat dari ayah.Bisakah kamu mengundang para sahabatmu ke rumah kita kerna ayah ingin mengadakan acara kesyukuran minggu depan."
 Setelah itu si ayah meninggalkanya untuk membuat acara kesyukuran.Pada hari yang ditentukan,Berkumllah 50 orang sahabat anaknya di rumah dan setelah selesai makan berkatalah Zainal Abidin"Wahai sahabat anakku,Aku amat berbesar hati  kerna kalian semua sudi datang ke rumah ini dan tujuanku mengundang kalian semua adalah karena aku ingin minta pendapat kalian sehubungan dengan musibah yang menimpa anakku ini.Anakku telah dituduh berselingkuh dengan puteri raja dan kalian tahu anakku tidak melakukan perbuatan terkutuk itu tetapi raja tidak mempercayainya.Besok pagi tentera raja akan datang ke rumah ini dan menangkap anakku.
  “Maaf, Pak.Kami sangat takut berurusan denagn raja dan kami tidak dapat berbuat apa-apa.Sekiranya bukan raja,kami pasti akan berpihak pada sahabat kami ini.
  Tiba-tiba salah seorang dari mereka berkata “ Aku akan menemani sahabatku ini,apapun terjadi.Sekiranya tentera raja datang menangkapnya,aku akan ikut bersama  dia menghadap raja dan meminta  belas kasihan raja agar kesalahannya diampuni.Sekiranya tidak mendapat pengampunan,aku siap mempertaruhkan nyawaku untuk menentang perintah raja!”
  Setelah para sahabat pulang ke rumah masing-masing,Zainal Abidin berkata kepada anaknya” Kamu sesungguhnya mempunyai seorang sahabat dan yang lain-lain hanyalah teman-temanmu belaka.Seorang sahabat akan sanggup bersama kita dalam saat kita senang ataupun susah.Besok aku akan memanggil 21/2 orang sahabatku dan aku akan mengenalkannya kepadamu.”
  Keesokkan harinya,Zainal Abidin pun memanggil tiga orang temannya untuk datang ke rumah.Dia menanyakan kabar da kesibukkan masing-masing.Tiba-tiba berkatalah Zainal Abidin,”Sahabat-sahabatku,sebenarnya tujuan aku memanggil kalian adalah karena aku ingin meminta pendapat kalian berkenaan musibah yang melanda anakku.Dia dituduh  berselingkuh dengan  anak raja dan esok tentera raja akan datang menangkap anakku untuk dijatuhi hukuman mati.Kalian semua tahu bahawa anakku sungguh tidak melakukan perbuatan hina tersebut dan itu cuma fitnah belaka.”
  Berkatalah seorang dari mereka” Begini saja.Sebelum tentera raja datang aku akan mengadap raja dan menawarkan seluruh hartaku untuk menggantikan nyawa anakmu”
  Seorang yang lain berkata” Aku akan meminta raja mengambil nyawaku sebagai ganti nyawa anakmu karena aku sudah tua dan puas menikmati hidup ini.Biarlah anakmu masih muda terus hidup untuk menikmati hari-hari mendatang..”
Sahabat yang ketiga angkat bicara” Saranku adalah aku akan menemui raja dan menawarkan seluruh hartaku.Sekiranya raja tidak mau,aku akan menyakinkannya agar beliau mengambil nyawaku sebagai ganti nyawa anakmu..”
  Setelah itu mereka berpelukan untuk pulang kerumah masing-masing dan meminta Zainal Abidin memberi kabar selanjutnya mengenai perkara ini.
  Kemudian Zainal Abidin berkata kepada anaknya,” Kamu lihat anakku,kenapa aku mengatakan aku hanya mempunyai 2 ½ orang sahabat kerana yang seorang hanya sanggup mengorbankan hartanya dan bagiku dia adalah ½ sahabat.Seorang lagi sanggup mengorbankan nyawanya dan yang terakhir sanggup memberikan hartanya dan nyawa sebagai tanda persahabatan kami.Ini semata-mata ketulusan dalam bersahabat.”

KHASIAT MADU

Berikut Khasiat Madu
1. Madu untuk Sumber energi
Pada masa lalu, para atlet Romawi dan Yunani kuno meminum madu sebelum dan sesudah bertanding sebagai obat untuk stamina dan pemulih energi. Selama berabad-abad madu memang dikenal sebagai bahan bakar para olahragawan ini karena madu mengandung gula yang cepat diserap oleh sistem pencernaan jadi madu adalah sumber energi instan. Hingga kini, dalam dunia olahraga madu diberikan sebelum pertandingan dan sebagai pengganti karbohidrat yang digunakan pada saat latihan.
2. Madu Seefektif glukosa
Hasil riset yang dikeluarkan sebuah jurnal kesehatan menyebutkan kadar glycemic index (GI ukuran untuk mengukur dampak negatif makanan dalam gula darah) yang rendah pada madu memperlambat penyerapan gula dalam darah sehingga lebih menyehatkan sistem pencernaan dan menjamin ketersediaan karbohidrat selama berolahraga. Sementara itu, Laboratorium Nutrisi di Universitas Mempish menyatakan bahwa madu seefektif glukosa pengganti karbohidrat selama pemanasan.
3. Madu untuk Penyembuh luka
Dalam dunia pengobatan masyarakat Yunani dan Romawi memelopori penggunaan madu untuk mengobati hidung tersumbat sementara itu bangsa mesir kuno menjadi pelopor pemanfaatan madu untuk mengobati luka. Mereka membuat salep dari madu untuk mengobati luka bakar dan luka akibat tusukan benda tajam.
4. Madu Sebagai antibiotik
Setelah ribuan tahun digunakan, khasiat madu sebagai obat luka terungkap secara ilmiah. Madu bekerja sebagai antibiotik alami yang sangggup mengalahkan bakteri mematikan. Madu sangat asam sehingga tidak cocok untuk pertumbuhan dan perkembangbiakan bakteri. Madu menghasilkan hidrogen peroksida yang merupakan anti septik luar biasa. Proses osmosis di dalam madu membasmi bakteri kekentalan madu yang sedikit mengandung air menghasilkan proses osmosis menyerap air dari bakteri pada luka dan luka bakar, tak ubahnya spons menyerap air. Madu mengeringkan bakteri sehingga bakteri sulit tumbuh.
5. Madu untuk Membunuh kuman
Kandungan gizi yang luar biasa antara lain asam amino bebas dalam madu mampu membantu penyembuhan penyakit. Madu mengandung zat antibiotik yang berguna untuk mengalahkan kuman patogen penyebab panyakit infeksi. Mengikuti bangsa mesir kuno setelah menempuh kajian untuk menemukan fakta ilmiah, salep madu untuk luka kini di produksi di Australia.
6. Madu untuk Terapi
Bangsaa Mesir dikenal paling piawai meramu obat dari bahan-bahan alami. Madu termasuk dalam 500 resep obat dari 900 resep yang diketahui. Pengobatan modern yang mengacu pada terapi kuno penggunaan madu dari Mesir puas dengan hasilnya.
7. Madu untuk Mengobati borok
RS Universitas Wisconsin Medical School and Public Health misalnya, Menerapkan terapi madu bagi borok yang diderita penderita diabetes. Uji coba terhadap seorang pasien berusia 79 tahun berhasil menyembuhkan borok pada jari kakinya. Sang pasien bahkan tidak jadi diamputasi berkat terapi madu tersebut.
8. Madu untuk Antioksidan
Di Selandia Baru, terapi madu berhasil menyembuhkan lecet pada punggung pasien yang terlalu lama terbaring di ranjang rumah sakit. Di Uni Emirat Arab, terapi madu untuk luka akibat herpes bibir dan alat kelamin mempercepat penyambuhan dan mengurangi rasa sakit. Sementara itu untuk membuktikan peran madu sebagai antioksidan peneliti di Universitas California membuktikan konsumsi madu mampu meningkatkan antioksidan dalam darah. Uji coba pada tikus untuk mengkaji kemampuan madu meningkatkan penyerapan kalsium memberikan hasil memuaskan. Riset di Universitas Purdue itu menyimpulkan, konsumsi suplemen kalsium bersama madu mampu meningkatkan penyerapan kalsium oleh tubuh.
9. Madu untuk Awet muda
Mengapa Ibu Suri Kerajaan Inggris dan Ratu Elizabeth berumur panjang? Bisa diyakini, madu berperan besar dalam menjaga kesehatan sehingga membuat keduannya berumur panjang. Bagi keluarga Kerajaan inggris, sarapan madu adalah kebiasaan setiap hari mereka mengoleskan madu berkualitas tinggi pada roti. Manis alami madu digunakan di Inggris hingga pertengahan abad ke-17. Kebiasaan tersebut sempat berubah ketika gula yang dianggap lebih berkelas mulai di produksi. Namun setelah gula semakin meluas pemakaiannya tak lagi terbatas pada kalangan atas, keluarga kerajaan kembali mengkonsumsi madu. Itulah sebabnya kesehatan mereka terjaga dengan baik.


MAMFAAT BUAH-BUAHAN

  Buah-buahan memang terbukti banyak sekali manfaatnya. Berikut beberapa jenis buah dan manfaat terkandung.

NANAS
Enzim bromealin dalam nanas melarutkan lendir yang sangat kental dalam sistem pencernaan sehingga juga dapat menghancurkan bisul bila ada. Masakan yang dibuat dengan 250 gram nanas yang diiris-iris, 60 gram cincangan daging ayam dan lada secukupnya yang kemudian digoreng dapat mengatasi penyakit darah rendah dengan gejala lemasnya kaki dan tangan.
 
TOMAT
Jus tomat segar sangat membantu pembentukan glycogen dalam liver. Menurut penelitian ditemukan bahwa jus tomat menyeimbangkan fungsi liver dengan cepat dan dengan demikian berarti menjaga stamina tubuh dan menyehatkan badan. Garam mineral yang kaya dalam tomat meningkatkan nafsu makan dan merangsang aliran air liur sehingga memungkinkan makanan dicerna dengan baik. Konsumsi tomat yang teratur membantu mengobati penyakit anoreksia (kehilangan nafsu makan).
 
SEMANGKA
Terlalu banyak mengkonsumsi daging-dagingan, manis-manisan, goreng-gorengan, kopi dan minuman ringan sering membuat darah terlalu banyak kandungan asamnya dan mengakibatkan bintik-bintik merah di kulit. Jus semangka akan merontokkan asam tersebut dan memperbaiki kandungan darah. Bagi penderita diabetes, mengkonsumsi secara teratur jus semangka dapat menjaga meningkatnya gula darah. Kelebihan kandungan asam urik dalam tubuh yang menyebabkan arthritis, encok dan keracunan urea dapat dihilangkan dengan meminum jus semangka secara teratur dua kali sehari.
 
KELENGKENG
Buah ini banyak mengandung sukrosa, glukosa, protein, lemak, asam tartaric, vitamin A dan B. sebagai salah satu sumber energi, buah yang sangat manis ini berguna untuk meningkatkan stamina sehabis sakit. Kelengkeng sangat baik untuk memenuhi kebutuhan energi bagi wanita hamil yang lemah atau setelah melahirkan. Memakan buah ini secukupnya secara teratur dapat menambah nafsu makan, mencegah anemia dan pemutihan rambut dini. Selain itu akan mempercepat kesembuhan luka luar. Awas, konsumsi secukupnya saja, kalau kelebihan, akan membuat tubuh menjadi panas akibat kelebihan energi.
 
BELIMBING
Meminum atau memakan buah belimbing dan menelannya secara perlahan dapat mencegah dan mengatasi infeksi mulut dan tenggorokan. Campuran belimbing dan madu juga dapat membantu mencegah dan mengatasi kencing batu.
 
LECI
Selain kandungan protein, lemak, vitamin C, fosfor, dan zat besi, buah leci mengandung sukrosa dan glukosa yang melimpah. Mengkonsumsi buah leci pada malam hari dapat menambah cadangan energi untuk keesokan harinya.
 
KELAPA

Air kelapa mengandung sukrosa, fruktosa, dan glukosa, sedangkan dagingnya selain tiga hal di atas juga mengandung protein, lemak, vitamin dan tentunya minyak kelapa. Meminum air kelapa muda dan memakan dagingnya dapat mengurangi kegerahan, mulut kering, demam dengan kehausan serta diabetes. Selain itu, minum air kelapa muda dipercaya membuang racun dalam darah. Perhatian, terlalu banyak minum air kelapa muda menyebabkan sedikit rasa lemas sementara. Bagi yang memiliki gangguan tulang jangan mengkonsumsi banyak air kelapa. Buah-buahan merupakan sumber makanan alami yang paling siap untuk langsung dikonsumsi manusia, sayang kadang kala dilupakan. Dengan penjelasan di atas, semoga buah-buahan tidak lagi dilupakan sebagai makanan yang wajib dikonsumsi.

MAMFAAT BUAH PEPAYA BAGI KESEHATAN

Kaya akan Antioksidan

Pepaya adalah buah yang memiliki kandungan tinggi antioksidan. Ini termasuk vitamin C, flavonoid, folat, vitamin A, asam panthotenic, mineral, magnesium, vitamin E, kalium, serat dan vitamin B. Antioksidan memerangi radikal bebas dalam tubuh dan menjaga kesehatan sistem kardiovaskular dan memberikan perlindungan terhadap kanker usus besar.
Mencegah Penyakit Jantung

Karena pepaya merupakan sumber antioksidan yang sangat baik, buah pepaya membantu mencegah oksidasi kolesterol dalam hati. kolesterol tinggi dapat menyebabkan serangan jantung dan stroke, dan ini dapat dicegah dengan mengkonsumsi buah Pepaya secara teratur. Selain itu salah buah pepaya juga sarat akan serat yang kemudian dapat membantu menurunkan kadar kolesterol dalam hati. Asam folat yang ditemukan dalam pepaya menghilangkan zat-zat berbahaya yang dapat merusak dinding pembuluh darah dan menyebabkan serangan jantung. Salah satu manfaat buah pepaya lainnya yaitu sebagai pencegahan penyakit jantung diabetes.
Memperkuat sistem kekebalan

Buah pepaya mengandung banyak sekali vitamin A dan vitamin B yang diperlukan untuk meningkatkan sistem kekebalan tubuh dan. Dengan mengkonsumsi Buah pepaya diyakini dapat memperkuat sistem kekebalan tubuh dan mencegah beberapa penyakit yang terjadi sebagai hasil menurunkan kekebalan, seperti pilek dan batuk, infeksi dan flu.
Mengurangi Peradangan

Pepaya juga mengandung enzim papain dan enzim chymopapain yang dapat mengurangu peradangan sehingga membantu tubuh dalam penyembuhan luka bakar dan luka lainnya. Beberapa penyakit tertentu menjadi lebih buruk ketika tubuh meradang. Karena itu disarankan bahwa orang-orang yang menderita kondisi ini harus mengkonsumsi buah pepaya untuk mendapatkan manfaat buah pepaya.
Mencegah kanker

Manfaat buah pepaya yang tidak kalah pentingnya adalah berperan dalam mencegah kanker usus besar. Ini tidak lepas karena banyaknya kandungan serat. Serat ini juga sangat berguna bagi mereka yang kesulitan buang air besar.
Menjaga kesehatan paru-paru

Vitamin A yang hadir dalam buah pepaya, sangat bermanfaat bagi orang-orang yang memiliki paru-paru yang lemah. Termasuk pepaya dalam makanan mereka, akan mengurangi kemungkinan mereka tertular penyakit yang muncul sebagai hasil dari paru-paru yang lemah, seperti bronkitis, kanker Ext.

Jumat, 06 Desember 2013

TRIK DAN TIPS CARA MEMILIH LAPTOP YANG BAIK




cara memilih laptop-tips memilih laptop
Cara Memilih Laptop Yang Baik - Teknologi semakin canggih, keberadaan laptop sangat mempermudah kita dalam melakukan aktivitas keperluan sehari-hari sampai berselancar di dunia maya sebagai pegangganti komputer. Karena bentuknya yang simpel dan mudah untuk dibawa kemana-mana.

Perkembangan jejaring sosial serta kebebasan orang untuk mengakses internet via wifi di ruang publik seperti mall, cafe, sekolah, kampus dan area internet lainnya mendorong orang untuk membeli laptop. Perlu diketahui banyak ragam dan jenis, tipe serta merk yang ditawarkan oleh produsen laptop dengan berbagai fitur-fitur yang menarik, oleh sebab itu kita harus cermat memilih laptop sesuai dengan kebutuhan kita mengingat laptop bukanlah barang yang murah. Berikut beberapa hal atau tips yang harus diperhatikan ketika hendak membeli sebuah laptop :

1. Pilih laptop yang bermerk, disini artinya merk laptop yang sudah terkenal, sudah teruji kualitasnya. Hal ini juga manjadi referensi karena biasanya merk identik dengan kualitas yang ditawarkan.

2. Mencari referensi harga, hal ini dapat dilakukan dengan cara browsing atau website toko yang menyediakan situs untuk layanan online dalam menentukan harga, fungsinya untuk menyesuaikan dengan dana dan kebutuhan laptop yang diinginkan. Selain itu sebagai tolak ukur saat membeli laptop.

3. Tentukan fungsinya, artinya nanti akan anda gunakan untuk apa. Apa untuk mengajar, untuk bermain game, membuat program atau mendesain, untuk keperluan kantor, atau untuk browsing dan chatting.

4. Jika laptop hanya digunakan untuk penunjang sarana mengajar seperti hanya untuk pengetikan, pengolahan data, office program yaitu word, powerpoint, presentasi dan lain-lain, maka sebaiknya laptop memiliki prosessor intel celeron dan RAM 128 MB keduanya sudah dapat memadai aktivitas tersebut.

5. Jika anda seorang programmer, desain grafis atau gamers sejati yang harus diperlukan laptop yang menitikberatkan pada kartu VGA dan memori yang handal. Gunakan laptop dengan kemampuan lebih tinggi dapat memilih dengan teknologi multi core dan berarsitektur 64 bit.

6. Laptop untuk seorang developer biasanya menggunakan aplikasi software developing oleh sebab itu membutuhkan resource yang cukup tinggi, selain disarankan untuk menggunakan teknologi multi core dan arsitektur 64 bit anda harus mempertimbangkan prosessor dan memori yang memiliki spesifikasi sangat tinggi karena aplikasi dan developing memiliki tools yang sangat banyak memakan memori.

7. Laptop hanya untuk dibawa berpergian, kegiatan mobile, melakukan aktivitas sehari-hari seperti kegiatan browsing, chatting, sebaiknya lebih memilih laptop para perangkat yang mampu bertahan lama seperti pada umur baterai, beban berat laptop, ukuran layar, dan fitur internal koneksi seperti modem, bluetooth, kabel data, WiFi serta webcam.

8. Pertimbangkan daya jual kembalinya, artinya jika laptop ingin dijual kembali yang perlu diperhatikan yaitu layanan garansi, tempat service resmi, dan kemudahan memperoleh spare part sehingga mudah mendapatkannya apabila terjadi kerusakan pada laptop kita. Dengan memilih laptop merk terkenal harga jualnya pun akan tetap tinggi

10 MAMFAAT SENYUM

Fakta Tentang Manfaat Tersenyum yang perlu Anda ketahui. Anda harus tau manfaatnya,maka dari itu setelah membaca artikel Manfaat Senyum ini Anda harus sering-sering tersenyum. Berikut 10 Tips Manfaat Tersenyum :

1. Senyum membuat kita lebih menarik
Kita akan selalu tertarik pada orang yang selalu tersenyum. Orang yang selalu tersenyum punya daya tarik tersendiri. Wajah yang berkerut, cemberut, membuat orang menjauh dari kita , tetapi sebaliknya senyum bisa membuat mereka tertarik.

2. Senyum mengubah mood kita
Ketika kita merasa jatuh atau “down” cobalah untuk tersenyum. Mungkin saja mood kita akan berubah menjadi lebih baik.

3. Senyum dapat merangsang orang lain tersenyum
Ketika seseorang tersenyum maka senyum tersebut akan membuat suasana menjadi lebih cerah, mengubah mood orang lain yang ada disekitarnya dan membuat semua orang menjadi senang. Orang yang suka tersenyum membawa kebahagiaan buat orang yang ada di sekitarnya. Seringlah tersenyum maka Kamu akan disukai oleh banyak orang.

4. Senyum dapat mengurangi stres
Jika tanda-tanda stres menyerang kamu, maka wajah Kamu sangat tidak enak untuk dipandang, sesegera mungkin untuk tersenyum karena senyum membantu mencegah kesan bahwa kita sebenarnya sedang stres, lelah atau merasa “down”. Jika Kamu sedang stres cobalah untuk tersenyum, maka stres Kamu akan berkurang dan Kamu akan merasa lebih baik untuk membuat langkah selanjutnya.

5. Senyum meningkatkan sistem imun (kekebalan) tubuh
Senyum dapat membantu kerja imun tubuh agar dapat bekerja dengan baik. Ketika Kamu tersenyum, fungsi imun meningkatkan kemungkinan Kamu menjadi lebih rileks.

6. Senyum menurunkan tekanan darah
Ketika Kamu tersenyum, maka tekanan darahmu akan menurun. Jika Kamu gak percaya, Kamu boleh mencobanya sendiri, jika Kamu memiliki alat pengukur tekanan darah di rumah.

7. Senyum mengeluarkan endorphins (pereda rasa sakit secara alami) dan serotonin
Beberapa studi telah menunjukkan bahwa senyum dapat merangsang pengeluaran endorphin, pereda rasa sakit yang alami, serta serotonin. Senyum memang obat yang alami.

8. Senyum dapat melenturkan kulit wajah dan membuat Kamu terlihat lebih muda
Otot-otot yang digunakan untuk tersenyum ikut membuat Kamu terlihat lebih muda. Jika Kamu ingin sesuatu yang beda, maka berikan senyummu sepanjang hari, maka Kamu akan terlihat lebih muda dan merasa lebih baik. Karena itu dapat Menghilangkan Jerawat juga.

9. Senyum membuat Kamu tampak sukses
Orang yang tersenyum terlihat lebih percaya diri dalam menjalani hidupnya. Cobalah tersenyum saat Kamu melakukan pertemuan dan saat ada janji. Rekan-rekan kerja, sahabat, orang-orang terdekat Kamu akan merasakan sesuatu yang berbeda dan sukses.

10. Senyum membuat Kamu tetap positif
Senyumlah! Lalu sekarang cobalah berpikir sesuatu yang negatif tanpa berhenti tersenyum. Sulitkan? Karena ketika Kamu tersenyum maka senyum tersebut akan mengirimkan sinyal ke tubuh Kamu bahwa “hidup Kamu saat ini baik-baik saja”.

Maka jauhkan diri Kamu dari depresi, stres dan rasa khawatir dengan satu kata yaitu "senyum", tentu saja dengan memberikan senyum pada tempat dan suasana yang tepat. Jika berlebihan, maka orang lain akan menganggap Kamu kurang waras.

Rabu, 04 Desember 2013

Membuat VB.Net


MEMBUAT CONTOH PROGRAM SEDERHANA
DENGAN MENGGUNAKAN 
VB.Net.

Halooo sobat bloger.....
kali ini saya akan mencoba memberikan sebuah contoh Program sederhana seperti di bawah ini



berikut ini contoh program VB.net sederhana,yang dilakukan secara manual...

Selamat mencoba ya agan.....  !!!!!!

OYA SATU LAGI...... KETINGGALAN NIH..!!
KETIK YANG WARNA HIJAU AJA YA.... AGAN..

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110048")
        NPM.Items.Add("13111057")
        NPM.Items.Add("12111009")
        NPM.Items.Add("10111077")


        KodeDosen.Items.Add("221")
        KodeDosen.Items.Add("222")
        KodeDosen.Items.Add("982")
        KodeDosen.Items.Add("973")
        KodeDosen.Items.Add("957")
        KodeDosen.Items.Add("999")


        KodeMatakuliah.Items.Add("A01")
        KodeMatakuliah.Items.Add("A02")
        KodeMatakuliah.Items.Add("A03")
        KodeMatakuliah.Items.Add("A04")
        KodeMatakuliah.Items.Add("A05")
        KodeMatakuliah.Items.Add("A06")
        KodeMatakuliah.Items.Add("A07")


        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.Left(NPM.Text, 3)
        y = Microsoft.VisualBasic.Right(NPM.Text, 3)

        Select Case NPM.Text
            Case "12110048"
                Nama.Text = "Bayu Walanda"
            Case "13111057"
                Nama.Text = "Bayu"
            Case "12111009"
                Nama.Text = "Rizky Nasti"
            Case "10111077"
                Nama.Text = "Jayen"
        End Select

        Select Case x
            Case "131"
                Jenjang.Text = "DII"
            Case "121"
                Jenjang.Text = "S1"
            Case "121"
                Jenjang.Text = "S1"
            Case "101"
                Jenjang.Text = "DIII"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "048"
                Jurusan.Text = "Teknik Informatika"
            Case "057"
                Jurusan.Text = "Managemen informatika"
            Case "009"
                Jurusan.Text = "Sistem Informasi"
            Case "077"
                Jurusan.Text = "Manajemen informatika"
            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 "221"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "222"
                NamaDosen.Text = "Sinar sinurat ST,M.kom"
            Case "982"
                NamaDosen.Text = "M.Syahrizal, M.kom"
            Case "973"
                NamaDosen.Text = "Mesran S.Kom,M.Kom"
            Case "957"
                NamaDosen.Text = "Hotman S.kom"
            Case "999"
                NamaDosen.Text = "Yusuf 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

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        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 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 "A01"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A02"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A03"
                NamaMatakuliah.Text = "Programan visual"
            Case "A04"
                NamaMatakuliah.Text = "Teknik Informatika"
            Case "A05"
                NamaMatakuliah.Text = "Managemen Sistem"
            Case "A06"
                NamaMatakuliah.Text = "Sistem Basis Data"
            Case "A07"
                NamaMatakuliah.Text = "Teknik Digital"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub

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

melengkapi:
tugas pak mesran