Kisah Sewaktu SLTA

Seorang anak yang polos,baik dan pintar

di Suatu pagi di sekolahnya,dia melihat

Seorang Gadis...

Yang Sangat Manis...

Tertawa Lepas...

Dan bernampilan Sederhana...

                Suatu pagi hari, Gadis itu menuju kelas

                Sambil menyapa kawan-kawannya...

                Si Anak ini,sedang berdiri di depan kelas,

                Dan dia melihat gadis itu, sedang berjalan dengan senyuman yang manis.

                                           Kelas 3 SMP rasanya itulah dia mulai  mengenal

                                           Yang namanya Cinta..... hehehehehe..........

Pada suatu masa, tidak ada perkiraan, ternyata Anak dan Gadis ini satu sekolahan SLTA....

         Disekolah nie,ada sebuah test yang namanya kelas favorit...

         Anak ini  dapat sepuluh besar didalam kelasnya,diapun langsung dipilih masuk dalam kelas Favorit.

         Ternyata, Anak ini lagi dipertemukan dalam satu ruangan kelas yang sama dengan gadis itu.

Tetapi dia sudah melupakan semua kenangannya itu,

karena dia tidak merasa pantas dengan Gadis ini.

Tetapi juga,tidak bisa melupakan yang namanya

sebuah Cinta Pertama....   hahahahahhaahhahh.........

Diapun mencoba mendekati dan merayunya lagi sekali-kali....

               Tepat disuatu hari,Anak ini memutuskan untuk mengatakan 

               isi Hatinya kepada gadis itu.Karena dia takut mengatakannya secara langsung.

              Akhirnya, dia pun memutuskan dengan menggunakan bantuan SMS.Diapun  langsung mengirimkannya kepada gadis itu.

              Tapi sangat disayangkan

              Ia mendapat balasan SMS juga, yang berisikan

Gadis ini belum siap.Siap apa, tidak jelasss........hahahahahahaaa......

    Mungkin : "Aku belum siap, Punya pacar, mungkin Coba cari dulu yang lain".

Hatinya hancur berkeping, bagaikan keping-kepingan kaca.

Kau tau, kepingan kaca kan..!!!!!

Seperti itulah Dia.....!!!!!!!! hakakakakaahah............,,,

          Itu adalah kisah sewaktu SLTA......

Seiring berjalannya Waktu

Ditempat lain,

Dia sudah Dewasa, melanjutkan sekolah ,

Diapun mendapatkan Cintanya....

                    

         

Kriptografi Metode Sembarang Menggunakan VB Net

          

Berikut program kriptografi sembarang methode

Public Class Form1

    Function RubahChar(ByVal xchar As String) As String
        Dim xtxt As String = ""
        Select Case xchar
            Case "A" : xtxt = "!"
            Case "B" : xtxt = "@"
            Case "C" : xtxt = "#"
            Case "D" : xtxt = "$"
            Case "E" : xtxt = "%"
            Case "F" : xtxt = "^"
            Case "G" : xtxt = "*"
            Case "H" : xtxt = "("
            Case "I" : xtxt = ")"
            Case "J" : xtxt = "-"
            Case "K" : xtxt = "="
            Case "L" : xtxt = "_"
            Case "M" : xtxt = "+"
            Case "N" : xtxt = "{"
            Case "O" : xtxt = "}"
            Case "P" : xtxt = ":"
            Case "Q" : xtxt = "'"
            Case "R" : xtxt = ","
            Case "S" : xtxt = "."
            Case "T" : xtxt = "<"
            Case "U" : xtxt = ">"
            Case "V" : xtxt = "?"
            Case "W" : xtxt = "/"
            Case "X" : xtxt = "|"
            Case "Y" : xtxt = "\"
            Case "Z" : xtxt = "`"
        End Select
        RubahChar = xtxt
    End Function

    Private Sub btnEnkrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkrip.Click
        Dim kalimat As String = ""
        Dim x As String = ""
        For I = 1 To Len(Plain.Text)
            x = Microsoft.VisualBasic.Mid(Plain.Text, I, 1)
            x = RubahChar(x)
            kalimat = kalimat + x
        Next
        Chiper.Text = kalimat
    End Sub
End Class

Mamfaat Madu

              Aktifitas mengumpulkan madu konon sudah berlangsung sejak 10.000 tahun yang lalu. Bukti yang mengandung pendapat ini adalah temuan gambar pada dinding di sebuah gua di Valensia, Spanyol. Gambar tersebut memperlihatkan dua laki-laki menggunakan tangga yang terbuat dari sejenis rumput liar sedang meraih sarang lebah berisi madu. Pada awalnya, manusia lebih memanfaatkan madu sebagai makanan. Kemudian, pemakaian madu tidak lagi terbatas hanya dikonsumsi sebagai pemanis.

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.

Manfaat Air Kelapa Muda

  Manfaat Air Kelapa Muda Bagi Kesehatan Tubuh

Berapa banyakkah manfaat air kelapa muda untuk kesehatan dan tubuh? Air kelapa muda juga dikenal sebagai air kehidupan karena banyaknya manfaat air kelapa muda akan kesehatan yang diberikan. Air kelapa muda ini sangat berguna bagi kesehatan tubuh manusia karena merupakan minuman lengkap.

Cairan bening yang berasal dari kelapa muda dikenal dengan air kelapa muda. Air kelapa mudaadalah salah satu minuman khas yang digemari oleh orang-orang di negara-negara tropis. Rasa air kelapa muda dapat berubah sesuai dengan daerah di mana tanaman kelapa tersebut tumbuh. Air kelapa yang berasal dari Brasil mungkin terasa hambar, sedangkan kelapa dari India terasa manis. Karena kadar kalium yang tinggi dalam air kelapa, maka cocok sebagai minuman saat olahraga. Konsumsi air kelapa muda memiliki banyak manfaat dan beberapa di antaranya disebutkan di bawah ini.

MANFAAT AIR KELAPA MUDA

Ada banyak manfaat air kelapa muda untuk kesehatan. Minuman ini membantu dalam menghilangkan masalah yang berkaitan dengan saluran kemih, usus dan ginjal. Air kelapa muda membantu menyembuhkan masalah kencing seperti polyutra dan strangury. Hal ini juga membantu meningkatkan pencernaan dan menghancurkan cacing. Air kelapa muda meringankan usus dari racun berbahaya. Dokter menyarankan pasien yang menderita batu ginjal untuk minum air kelapa muda selain obat batu ginjal. Air kelapa muda membantu dalam melarutkan batu ginjal. Monolaurin, zat kimia dalam air kelapa memiliki sifat antibakteri dan antivirus. Oleh karena itu, dapat digunakan untuk membunuh patogen seperti sitomegalovirus dan virus Herpes. Hal ini juga digunakan dalam transfusi darah, karena memiliki sifat yang mirip dengan plasma darah. Air kelapa juga digunakan sebagai pengganti cairan untuk hidrasi intravena. Cairan yang kaya nutrisi dapat membantu meningkatkan metabolisme dengan meningkatkan suplai oksigen ke sel-sel tubuh.

Sistem Operasi

      Sistem Informasi ( S1)

              Sistem Informasi (SI) [1] adalah kombinasi dari teknologi informasi dan aktivitas orang yang menggunakan teknologi itu untuk mendukung operasi dan manajemen.[2] Dalam arti yang sangat luas, istilah sistem informasi yang sering digunakan merujuk kepada interaksi antara orang, proses algoritmik, data, dan teknologi. Dalam pengertian ini, istilah ini digunakan untuk merujuk tidak hanya pada penggunaan organisasi teknologi informasi dan komunikasi (TIK), tetapi juga untuk cara di mana orang berinteraksi dengan teknologi ini dalam mendukung proses bisnis.[3]
Ada yang membuat perbedaan yang jelas antara sistem informasi, dan komputer sistem TIK, dan proses bisnis. Sistem informasi yang berbeda dari teknologi informasi dalam sistem informasi biasanya terlihat seperti memiliki komponen TIK. Hal ini terutama berkaitan dengan tujuan pemanfaatan teknologi informasi. Sistem informasi juga berbeda dari proses bisnis. Sistem informasi membantu untuk mengontrol kinerja proses bisnis.[4]
Alter berpendapat untuk sistem informasi sebagai tipe khusus dari sistem kerja. Sistem kerja adalah suatu sistem di mana manusia dan/atau mesin melakukan pekerjaan dengan menggunakan sumber daya untuk memproduksi produk tertentu dan/atau jasa bagi pelanggan. Sistem informasi adalah suatu sistem kerja yang kegiatannya ditujukan untuk pengolahan (menangkap, transmisi, menyimpan, mengambil, memanipulasi dan menampilkan) informasi.[5]
Dengan demikian, sistem informasi antar-berhubungan dengan sistem data di satu sisi dan sistem aktivitas di sisi lain. Sistem informasi adalah suatu bentuk komunikasi sistem di mana data yang mewakili dan diproses sebagai bentuk dari memori sosial. Sistem informasi juga dapat dianggap sebagai bahasa semi formal yang mendukung manusia dalam pengambilan keputusan dan tindakan.
Sistem informasi merupakan fokus utama dari studi untuk disiplin sistem informasi dan organisasi informatika.[6]
Sistem informasi adalah gabungan yang terorganisasi dari manusia, perangkat lunak, perangkat keras, jaringan komunikasi dan sumber data dalam mengumpulkan, mengubah, dan menyebarkan informasi dalam organisasi.[7]
Sistem informasi adalah suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian, mendukung operasi, bersifat manajerial dan kegiatan strategi dari suatu organisasi dan menyediakan pihak luar tertentu dengan laporan-laporan yang diperlukan. [8]

PROGRAM VB NET MENCARI TOTAL PEMBAYARAN TV

Berikut Listing Program VB Net Pembayaran TV

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nbrg.Items.Add("LG")
        nbrg.Items.Add("SAMSUNG")
        nbrg.Items.Add("SONY")
    End Sub
    Private Sub nb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbrg.SelectedIndexChanged
        If nbrg.Text = "LG" Then
            hrg.Text = "1500000"
        ElseIf nbrg.Text = "SAMSUNG" Then
            hrg.Text = "2000000"
        ElseIf nbrg.Text = "SONY" Then
            hrg.Text = "1000000"
        End If
    End Sub

    Private Sub jlhjual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhjual.KeyPress
        If e.KeyChar = Chr(13) Then
            tohar.Text = Val(hrg.Text * jlhjual.Text)
        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tohar.Text = hrg.Text * jlhjual.Text
        If tohar.Text > 2500000 Then
            disk.Text = 0.1 * tohar.Text
        Else
            disk.Text = 0


        End If
        topem.Text = tohar.Text - disk.Text

    End Sub
End Class

Quis PDAM

Public Class Form1

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

        kp.Items.Add("PAB-MED-100")

        kp.Items.Add("TOK-BEL-101")

        kp.Items.Add("SWA-MED-102")

    End Sub

    Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress

        If Asc(e.KeyChar) = 13 Then

            T_tagihan.Text = Val(B_beban.Text) + (hargam3.Text * jp.Text)

            pajak.Text = 0.01 * T_tagihan.Text

            pembayaran.Text = Val(T_tagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(kp.Text, 3)

        Select Case x

            Case "100" : nama.Text = "ucok"

            Case "101" : nama.Text = "jhan F"

            Case "102" : nama.Text = "Erin"

        End Select

        x = Microsoft.VisualBasic.Left(kp.Text, 3)

        Select Case x

            Case "TOK"

                hargam3.Text = 250

                B_beban.Text = 15000

                tipe.Text = "TOKO"

            Case "ROM"

                hargam3.Text = 150

                B_beban.Text = 10000

                tipe.Text = "RUMAH"

            Case "PAB"

                hargam3.Text = 25000

                B_beban.Text = 250000

                tipe.Text = "PABRIK"

            Case "SWA"

                hargam3.Text = 20000

                B_beban.Text = 60000

                tipe.Text = "SWALAYAN"

        End Select

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)

        Select Case x

            Case "MED" : daerah.Text = "MEDAN"

            Case "BEL" : daerah.Text = "BELAWAN"

            Case Else : daerah.Text = "-"

        End Select

    End Sub

    Private Sub ButtonKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKELUAR.Click

        Me.Close()

    End Sub

    Private Sub ButtonHPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHPUS.Click

        kp.Text = ""

        nama.Text = ""

        tipe.Text = ""

        daerah.Text = ""

        hargam3.Text = ""

        B_beban.Text = ""

        jp.Text = ""

        T_tagihan.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub

End Class

Terimakasih anda telah berkunjung kembali di website saya.............
nah, kali ini kita akan membahas tentang pembuatan gaji karyawan dengan menggunakan VB 2008
Desainlah sedemikian rupa, contohnya seperti ini;

dan kodingnya atau listing programmya seperti dibawah ini;

Public Class Form1

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

    End Sub

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

        nik.Items.Add("1")

        nik.Items.Add("2")

        nik.Items.Add("3")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        jabatan.Items.Add("Manager")

        jabatan.Items.Add("Supervisor")

        jabatan.Items.Add("Jenderal Manager")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "1"

                nama.Text = "Zainal Suroh Siregar"

            Case "2"

                nama.Text = "Jonni Panggabean"

            Case "3"

                nama.Text = "Monduon Simorangkir"

        End Select

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Manager"

                gaji.Text = "4000000"

                pajak.Text = 0.1 * gaji.Text

            Case "Supervisor"

                gaji.Text = "2500000"

                pajak.Text = 0.1 * gaji.Text

            Case "Jendral Manager"

                gaji.Text = "7000000"

                pajak.Text = 0.1 * gaji.Text

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah"

                tunjangan.Text = 0.05 * gaji.Text

            Case "Tidak Menikah"

                tunjangan.Text = 0.05 * 0

        End Select

    End Sub

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

        Total.Text = gaji.Text - pajak.Text + tunjangan.Text

    End Sub

End Class