Kamis, 16 Januari 2014

Membuat kriptografi dengan VB.net

Hai teman-teman Kali ini saya akan postingkan tentang  kriptografi. ide ini berawal dari pembelajaran kami dari pemrograman VB  di kampus. baiklah langsung azah ea para blogger.
pertama buatlah 5 form. yang dimana form 1 sebagai induk dan form 2-5 sebagai anak dari program tersebut.
buatlah form 1 sesuai dengan gambar dibawah ini.


Lalu copykan code ini :
Public Class Form1
    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
        Form2.Show()
    End Sub

Selasa, 14 Januari 2014

Sistem operasi serve


Server merupakan komputer pusat yang dapat melayani semua komputer client yang terhubung dalam jaringan komputer. Sistem operasi server harus mempunyai tingkat keamanan / security yang lebih baik dari pada komputer client. berikut adalah sistem operasi untuk server dalam jaringan komputer.
1. Novell netware merupakan sistem operasi yang dikembangkan oleh Novell yang menggunakan sistem corporativ multitasking yang mampu menjalankan beberapa layanan dalam sebuah komputer.
2. Sistem Operasi Microsoft merupakan sistem operasi yang dikembangkan oleh microsoft. Berikut adalah sistem operasi server buatan microsoft:
  • Windows NT merupakan sistem operasi jaringan untuk server yang sangat mendukung penggunaan TCP/IP, IPX/SPX, IIS dan protocol yang lain.
  • Windows 2000 server merupakan sistem operasi yang dikembangkan dari windows NT dengan penambahan active directory yang digunakan untuk melakukan proses manajemen pengguna yang terhubung dalam jaringan. Windows 2000 juga lebih mudah instalasinya dibandingkan windows NT.
  • Windows Server 2003 merupakan pengembangan dari versi sebelumnya dengan menambahkan fasilitas seperti Active directory dengan framework yang mudah melakukan proses integrasi antara program yang digunakan dalam jaringan, back up file dalam jaringan, dan sistem recovery yang dapat memperbaiki sistem operasi yang terhubung jaringan secara otomatis.
3. MAC OS merupakan sistem operasi yang khusu digunakan untuk komputer product Apple yang memunyai stabilitas yang tinggi untuk komputer server. Beberapa fasilitas lyang disediakan oleh MAC OS antara lain : berbagi printer dan file, service windows, manajemen workgroup, pembaruan server dalam jarak jauh dan lain-lain.
4. Linux merupakan sistem operasi yang tidak berbayar sehingga kebanyakan orang lebih banyak menggunakan sistem operasi ini. kelebihan sistem operasi linux dapat bertahan lama tanpa harus melakukan booting dalam waktu berhari-hari dan lebih aman dari serangan virus.

program vb net untuk menampilkan output


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
        NIK.Items.Add("PM010")
        NIK.Items.Add("PS111")
        NIK.Items.Add("KU101")
        NIK.Items.Add("GD100")
        NIK.Items.Add("PM011")
        Jbtan.Items.Add("PM")
        Jbtan.Items.Add("PS")
        Jbtan.Items.Add("KU")

        stats.Items.Add("Menikah")
        stats.Items.Add("Tidak Menikah")
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "PM010"
                nma.Text = "Remington"
               
            Case "PS111"
                nma.Text = "Ferry"
               
            Case "KU101"
                nma.Text = "Irwandy"
               
            Case "GD100"
                nma.Text = "Chen Lee"
                
            Case "PM011"
                nma.Text = "Yee Yin"
               
        End Select

    End Sub

Program VB Net Untuk FORM PENGGAJIAN KARYAWAN


Berikut merupakan program Program VB Net Untuk FORM PENGGAJIAN KARYAWAN (Sistem Informasi Penggajian)

Untuk memasukkan image ke Button bisa dilihat pada artikel memasukkan image ke button pada VB Net

Untuk listing Program VB Net Untuk FORM PENGGAJIAN KARYAWAN (Sistem Informasi Penggajian)


Imports System.Data.OleDb
Public Class frmpenggajian
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Public Sub OPENDB()
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=E:\0Program Visual II\DB\SMART.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub RecordGaji()
        ADP = New OleDbDataAdapter("SELECT * FROM Penggajian", DB)
        DS = New DataSet
        ADP.Fill(DS, "Penggajian")
        DataGridView1.DataSource = DS.Tables("Penggajian")
    End Sub

    Sub TombolBaru()
        btnBaru.Enabled = True
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Sub TombolEdit()
        btnBaru.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = True
        btnHapus.Enabled = True
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub TombolSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub HapusForm()
        NoSlip.Text = ""
        NIK.Text = ""
        Tanggal.Value = Now
        Gaji.Text = "0"
        Total.Text = "0"
        Tunjangan.Text = "0"
        Jabatan.Text = ""
        Bagian.Text = ""
        Nama.Text = ""
        Call TombolBaru()
    End Sub
    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Call HapusForm()
        NoSlip.Focus()
    End Sub

    Private Sub frmpenggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call HapusForm()
        Call OPENDB()
        Call RecordGaji()

        Call TampilNIK()
    End Sub

    Sub TampilNIK()
        NIK.Items.Clear()
        SQL = "SELECT NIK FROM Karyawan"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        While DR.Read
            NIK.Items.Add(DR("NIK"))
        End While
        DR.Close()
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        CariNIK()
    End Sub

    Sub CariNIK()
        Dim xkode As String = ""
        Dim xkdBagian As String = ""
        Dim xkdJabatan As String = ""
        SQL = "SELECT a.Nama, b.NmJabatan, b.Gaji, c.NmBagian " & _
                        " FROM Karyawan a, Jabatan b, Bagian c " & _
                        " Where a.Bagian = c.KdBagian and a.Jabatan=b.Kdjabatan and NIK='" & NIK.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        DR.Read()
        If DR.HasRows = True Then
            Nama.Text = DR("Nama")
            Bagian.Text = DR("NmBagian")
            Jabatan.Text = DR("NmJabatan")
            Gaji.Text = DR("Gaji")
            Call prosesGaji()
        End If
        DR.Close()
    End Sub
    Sub prosesGaji()
        Tunjangan.Text = 0.25 * Gaji.Text
        Total.Text = CDbl(Tunjangan.Text) + CDbl(Gaji.Text)
    End Sub

    Private Sub NoSlip_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NoSlip.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xnik As String = ""
        Dim xkode As String = ""
        If tombol = 13 Then
            SQL = "SELECT * FROM Penggajian where NoSlip='" & NoSlip.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                Tanggal.Value = Format(DR("Tanggal"), "dd-MM-yyyy")
                xnik = DR("NIK")
                Gaji.Text = DR("Gaji")
                Total.Text = DR("Total")
                Tunjangan.Text = DR("Tunjangan")
                Call TombolEdit()
            Else
                xkode = NoSlip.Text
                Call HapusForm()
                NoSlip.Text = xkode
                Call TombolSimpan()
            End If
            DR.Close()
            NIK.Text = xnik
            NIK.Focus()
        End If
    End Sub

    Private Sub NoSlip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoSlip.TextChanged

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "DELETE FROM Penggajian Where NoSlip='" & NoSlip.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call RecordGaji()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call btnBaru_Click(sender, e)
    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 btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        SQL = "UPDATE Penggajian SET NIK='" & NIK.Text & "', " & _
                            " Gaji='" & Gaji.Text & "', " & _
                            " Tanggal='" & Format(Tanggal.Value, "dd-MM-yyyy") & "', " & _
                            " Total='" & Total.Text & "', " & _
                            " Tunjangan='" & Tunjangan.Text & "' " & _
                            " Where NoSlip='" & NoSlip.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call RecordGaji()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "INSERT INTO Penggajian(NoSlip, NIK, Tanggal, Gaji, Tunjangan, Total)" & _
                      "Values ('" & NoSlip.Text & "','" & _
                                    NIK.Text & "','" & _
                                    Format(Tanggal.Value, "dd-MM-yyyy") & "','" & _
                                    Gaji.Text & "','" & _
                                    Tunjangan.Text & "','" & _
                                    Total.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call RecordGaji()
    End Sub
End Class

Minggu, 12 Januari 2014

Teknik Berkebun Emas untuk Keuntungan Maksimal

Emas sering dimanfaatkan para investor sebagai alat hedging (lindung nilai) sekaligus instrumen investasi jangka panjang karena harga emas yang relatif stabil dalam jangka pendek namun bisa mengalami kenaikan signifikan dalam jangka panjang mengikuti atau melebihi tingkat inflasi. Namun dengan tren bullish harga emas beberapa tahun belakangan ini, banyak investor yang memanfaatkan momen tersebut untuk mendapatkan keuntungan dari jual beli emas jangka pendek yang biasa disebut sebagai berkebun emas.
Sistem berkebun emas memanfaatkan jasa pegadaian yang disediakan oleh bank ataupun lembaga lainnya untuk memperbesar modal dalam membeli emas di mana emas yang sudah ada di tangan digadaikan untuk mendapatkan modal membeli emas berikutnya yang kemudian digadaikan lagi. Sistem seperti ini memungkinkan investor untuk membeli emas dengan modal lebih sedikit yang kemudian dijual pada saat yang tepat untuk memperoleh keuntungan jangka pendek maupun jangka panjang. Sistem ini juga menguntungkan pihak bank karena bisa meningkatkan omset penjualan produk gadainya.
Lebih jelasnya, mari kita lihat contoh cara berkebun emas yang biasa dilakukan para pekebun emas:
Beli emas batangan 25 gram seharga Rp 10jt (per gram Rp 400rb) yang kemudian digadaikan, dapat Rp 8jt (asumsi nilai taksiran 80% dari nilai emas)
Beli emas 25 gram lagi dari uang Rp 8jt + Rp 2jt dari modal sendiri dan kemudian digadaikan lagi, dapat lagi Rp 8jt, gadaikan lagi untuk dibelikan emas. Ulangi beli gadai ini berulang-ulang.
Di sini kita asumsikan investor membeli sampai emas ke-5. Emas terakhir ini disimpan untuk modal menebus emas kembali nanti.

Kamis, 09 Januari 2014

7 Cara Alami Terbaik Menghilangkan Bekas Luka

Bagi sebagian orang, mempunyai bekas luka seperti bekas cacar, bekas jerawat, lecet atau luka karena teriris benda tajam bisa sangat memengaruhi kepercayaan diri.
Terutama jika bekas luka tersebut berada di betis, paha, lengan atau wajah. Menghilangkan bekas luka lama atau baru memang tidaklah mudah. Jika bekas luka tersebut tidak dirawat dengan benar maka luka tersebut bisa jadi tidak akan pernah hilang selamanya atau luka tersebut dapat menjadi keloid.
Tak heran jika beberapa orang khawatir akan hal tersebut bahkan rela melakukan cara apa saja. Berbagai produk lotion khusus atau salep khusus pun dibeli, bahkan ada juga yang nekat melakukan operasi plastik atau laser agar kulitnya menjadi mulus kembali tanpa peduli berapa biaya yang harus dikeluarkan!
Sebenarnya, selain pengobatan modern, ada alternatif yang tidak kalah ampuhnya untuk menghilangkan bekas luka. Alternatif tersebut dapat dilalui dengan menggunakan bahan tradisional.
Artikel ini merangkum 7 cara alami terbaik yang sudah dirasakan manfaatnya oleh banyak orang untuk menghilangkan bekas luka mereka. Penasaran dengan bahan tradisonal apa saja yang dapat dicoba? Berikut adalah uraiannya.
  • Mentimun
    Buah yang dalam bahasa latinnya mempunyai nama Cucumis sativus ini tidak hanya mengandung vitamin C dan potasium yang baik untuk menangkal radikal bebas, tetapi  juga memiliki kandungan  air yang cukup tinggi dan menyegarkan. Joel Schlessinger,MD, ahli kulit dari Omaha, Nebraska, menyimpulkan bahwa mentimun juga memiliki kandungan silika yang dapat meningkatkan produksi kolagen dan mencegah munculnya keriput.  Tidak heran, banyak produk yang menggunakan mentimun sebagai bagian penting dalam perawatan kulit baik untuk mengencangkan, melembabkan kulit, mengatasi jerawat, dan bahkan untuk menghilangkan bekas luka pada kulit. Untuk menghilangkan bekas luka, cuci bersih mentimun, kemudian potong mentimun menjadi kecil-kecil lalu haluskan dengan blender atau ditumbuk. Setelah halus, oleskan pada bekas luka dan biarkan sepanjang malam. Jika dilakukan dengan rutin maka bekas luka dapat berangsur-angsur menjadi samar dan hilang.
  • Madu
    Cairan yang menyerupai sirup, kental dan memiliki rasa manis ini juga bisa merangsang regenerasi sel, mendinginkan, mengurangi nyeri dan menghilangkan bekas luka. Agar mendapatkan manfaat dari madu, James F Balch dan Phyllis A. Balch, dalam Prescription for Nutritional Healing menganjurkan untuk menggunakan madu yang masih alami. Oleskan madu secara merata pada luka. Biarkan selama 20-30 menit. Kemudian, bilas dengan air hangat. Lakukan beberapa kali sehari dan rutin.
  • Teh Hijau
    Para ahli kesehatan menyimpulkan bahwa daun teh hijau memiliki kandungan antioksidan  bernama Epigallocatechin Gallate (EGCG). Kandungan antioksidan ini memiliki kekuatan 200 kali lebih hebat dari vitamin E dan sudah terbukti dapat mengurangi aktivitas hormon penyebab jerawat, mengurangi peradangan pada kulit, mengontrol produksi minyak serta menghilangkan bekas luka yang ditimbulkan akibat jerawat. Selain dikonsumsi sebagai minuman, daun teh hijau dapat juga dijadikan toner. Caranya, basahkan kapas atau handuk kecil dengan air daun teh hijau yang sudah diseduh. Lalu, usapkan kapas atau handuk kecil tersebut pada bagian luka yang sudah dibersihkan.
  • Daun Pare
    Pare, tanaman yang terkenal dengan buahnya yang pahit ini merupakan salah satu tanaman herbal yang sudah banyak dikenal manfaatnya untuk kesehatan. Dan ternyata, selain buahnya, daunnya pun dapat kita gunakan untuk menyamarkan bekas luka. Caranya, cuci sampai bersih segenggam daun Pare yang masih segar. Lalu, remas-remas sampai halus. Tambahkan sedikit air hangat, lalu peras. Kemudian, campurkan air perasan tersebut dengan 2 sendok makan tepung beras hingga teksturnya seperti lotion. Kemudian, aduk sampai merata. Balurkan pada bagian bekas luka. Biarkan sampai kering dan bilas sampai bersih.
  • Daun Mint
    Tanaman yang terkenal dengan nama Mentha Piperita ini adalah sebuah tanaman herbal yang banyak digunakan untuk berbagai produk seperti odol, obat kumur maupun minyak angin. Selain itu, daun mint juga memiliki manfaat yang baik untuk kesehatan kulit. Daun mint juga sering digunakan untuk membantu jerawat, luka bakar, dan bahkan juga ampuh untuk menghilangkan bekas luka. Caranya, ambillah beberapa lembar daun mint. Cuci bersih dan haluskan hingga membentuk scrub. Selanjutnya oleskan ke area luka Anda.
  • Lidah Buaya
    Tanaman ini biasa dikenal sebagai tanaman penumbuh rambut secara alami. Belakangan, lidah buaya juga digunakan untuk perawatan kulit. Tak heran, karena kandungan lignin dan asam amino yang terdapat pada tanaman ini dapat melembabkan kulit dan meregenerasi sel kulit.  Lidah buaya juga memiliki anti-radang yang dapat mengurangi radang pada kulit dan menghilangkan bekas luka. Caranya, cukup oleskan lendir lidah buaya pada bekas luka secara rutin. Berhati-hatilah agar tidak kena bagian getah dari lidah buaya tersebut karena getah tersebut dapat membuat kulit terasa gatal.
  • Noni Juice
    Noni juice mengandung senyawa scopoletin, senyawa ini sangat efektif sebagai zat anti-radang. Beberapa orang yang sudah mengetahui kandungan dari Noni juice bahkan menggunakannya untuk menghilangkan bekas luka bakar mereka. Basahkan handuk kecil dengan Noni juice. Lalu, kompres bekas luka tersebut dan biarkan hingga mengering. Kemudian, bilas dengan air hangat. Lakukan secara rutin sehari 2-3 kali sehari sampai bekas lukanya hilang.
Menggunakan bahan-bahan alami untuk menghilangkan bekas luka, membuat Anda bebas dari efek samping, biayanya juga terjangkau dan dapat dilakukan semua orang di rumah sendiri.
Sekadar informasi, seperti diuraikan di atas, Noni juice dapat membantu menghilangkan luka, ternyata selain untuk luka, Noni juice banyak sekali manfaatnya, khususnya dapat membantu penyembuhan berbagai jenis penyakit berat, seperti darah tinggi, kolesterol, asam urat, stroke, stress, sulit tidur dan banyak lagi.

Cara Membuat Blog Pada Blogspot

Langkah langkah cara membuat blog pada blogspot, menggunakan Blogspot :

1. Buat akun email di http://gmail.com
2. Setelah akun email terbuat, masuk di email tersebut kemudian buka buat tab baru di browser  dan ketikkan alamat http://blogspot.com
3. Sehingga muncul tampilan berikut ini :



4. Silahkan anda klik Get started sehingga muncul tahap 1 pembuatan blog, yaitu Sign Up.





5. Silahkan anda isi data tersebut :

Display Name :
Gender :
checklist :  I accept the terms of service

seperti berikut ini :



Selanjutnya click CONTINUE