Kriptografi Caesar

 

Listing Program

Public Class Form1

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain.Text)
            x = Mid(Plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiper.Text = xkalimat
    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper.Text)
            x = Mid(Chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Plain.Text = xkalimat
    End Sub

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

    End Sub
End Class

Selamat mencoba ya teman-teman..,,

semoga berhasil :)

Resep Membuat Ice Cream Goreng

Bahan  :
- 1 loyang persegi 12 cm sponge cake cokelat, tebal 1 cm
- 1 scoop strawberry ice cream
- 50 gr tepung terigu protein sedang
- 50 gr tepung roti
- 1 btr telur ayam, kocok lepas
- strawberry sauce, sebagai pelengkap Cara Membuat :1. Isi sponge cake cokelat dengan ice cream, bentuk menjadi bulat seperti bola.2. Siapkan bahan untuk panir: ayak tepung terigu, taruh dalam mangkuk. Kocok lepas telur dalam mangkuk lain.3. Gulingkan sponge berisi es krim di dalam tepung terigu. Angkat, lalu celupkan ke dalam telur, terakhir gulingkan di atas tepung roti hingga rata. Simpan dalam freezer hingga membeku.4. Goreng dengan minyak panas hingga berwarna kuning keemasan.5. Belah es krim goreng menjadi dua bagian, hidangkan dengan strawberry sauce atau saus lain sesuai selera.

Quis online

Quis Online

Quis online Public Class Form1

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")

    End Sub

    Sub buattabel()
        With ListView1
            .Columns.Add("KP", 80, HorizontalAlignment.Center)
            .Columns.Add("nama", 80, HorizontalAlignment.Center)
            .Columns.Add("tipe", 80, HorizontalAlignment.Center)
            .Columns.Add("hargaM3", 80, HorizontalAlignment.Center)
            .Columns.Add("BBeban", 80, HorizontalAlignment.Center)
            .Columns.Add("pemakaian", 80, HorizontalAlignment.Center)
            .Columns.Add("TTagihan", 80, HorizontalAlignment.Center)
            .Columns.Add("pajak", 80, HorizontalAlignment.Center)
            .Columns.Add("pembayaran", 60, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = KP.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(hargaM3.Text)
        lst.SubItems.Add(BBeban.Text)
        lst.SubItems.Add(pemakaian.Text)
        lst.SubItems.Add(TTagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        ListView1.View = View.Details
        ListView1.Items.Add(lst)
    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)

        If x = "100" Then
            Nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            Nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            Nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            Nama.Text = "Aldyan"
        End If


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

        If x = "PAB" Then
            HargaM3.Text = 500
            BBeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            BBeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            BBeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            BBeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        TTagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        BBeban.Text = ""
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        isitabel()
    End Sub

    Private Sub TTagihan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TTagihan.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TTagihan.Text = hargaM3.Text * pemakaian.Text + Val(BBeban.Text)

            pajak.Text = 0.01 * TTagihan.Text

            pembayaran.Text = Val(TTagihan.Text) + Val(pajak.Text)
        End If
    End Sub

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

tentang mesran dot net

     Di mesran.net  banyak website mengenai bahasa pemrograman .

dan banyak juga artikel artikel yang dipostingkan di mesran.net

dan beberapa bahasa pemrograman . Contohnya  visual basic dot net

menurut pendapat saya  website ini  merupakan tempat belajar yang sangat seru dan juga menarik
 kita dapat mempelajarinya di blog tersebut 
dan juga menemukan banyak artikel disana

kita juga dapat melihat informasi jadwal perkuliahan , melihat IP dan lain lain setelah melakukan login member di mesran.net

jadi jika anda tertarik dan ingin belajar kunjungilah blog mesran.net
 

Perbedaan Dual Core dengan Core 2 Duo

kadang beberapa orang masih bingung dengan dua istilah prosessor keluaran intel ini,saya pun sudah terlalu sering menerima pertanyaan-pertanyaan semacam itu,berikut artikel nya :Dual Core berarti sebuah prosesor yang memiliki dua buah inti atau inti ganda. Contohnya adalah seperti Pentium D dan Core Duo atau Core 2 Duo dari Intel dan Athlon 64 X 2 dari AMD. Sedangkan Core itu penamaan terbaru prosesor Intel menggantikan brand “Pentium” yang sudah nggak dipake lagi. Jadi, setelah mereka meluncurkan prosesor Core, terus generasi keduanya setelah Core itu ya Core 2, seperti layaknya dulu ada Pentium dan Pentium II, dan seterusnya.Dua itu menandakan bahwa prosesor tersebut menggunakan dua buah Core / inti (Dual Core). Kalau yang cuma menggunakan satu buah Core / inti, namanya jadi Core 2 solo, sedangkan yang menggunakan 4 buah Core / inti, namanya adalah Core 2 Quad.Core 2 Quad jelas lebih cepat ,logikanya : cepat mana makan 10 piring dengan 2 orang atau 4 orang ? ( diasumsikan semua orang berkemampuan sama ) sudah jelas 4 kan ?Prosesor Dual Core Intel sendiri sudah dimulai pada akhir era Pentium yaitu prosesor yang disebut dengan Pentium D ( Pentium Dual ). Bila pentium D menggabungkan dua buah pentium, maka Core 2 Quad menggabungkan dua buah core 2 Duo. Adapun core 2 Duo sendiri sudah merupakan prosesor dual core.Berikut gambar processor core 2 quadSecara teknis, kalau dari klaimnya Intel, Core 2 Duo itu lebih hemat daya sampai 40 persen dibandingkan dengan prosesor Dual Core pendahulunya dan juga memiliki kinerja yang 40 persen lebih cepat. Selain itu, cache L2 yang lebih besar juga sudah dilengkapi dengan teknologi terbaru, kalau nggak salah disebut smart cache, yang membuat kinerjanya jadi lebih baik lagi

Perkembangan OS Android

Sejarah Perkembangan OS Android
 Android berasal dari bahasa Yunani, yaitu "andr" yang artinya "laki-laki", dan "eides" yang artinya "dari spesies; menyerupai". Dan dalam perkembangannya, Android menjadi nama sistem operasi ponsel yang di pilih oleh Google.

Pada tahun 2005 yang merupakan masa emas di mana Google berlimpah kekayaan. Agar tidak mubazir, Google kemudian membelanjakan uangnya dengan membeli perusahaan-perusahaan yang sedang berkembang. Salah satunya adalah dengan membeli sebuah perusahaan kecil yang bernama Android Inc, yang didirikan oleh Andy Rubin (yang sekarang menjabat sebagai direktur Google Mobile Platform). Perusahaan ini bergerak di bidang Aplikasi ponsel. Google menyadari, Andy Rubin yang berkutat di Android adalah orang yang paling mengerti tentang Android, olehnya itu ia dipercaya untuk tetap memimpin perusahan tersebut. Saat itu digelar meeting, untuk mendengarkan visi dan misi dari Android yang dibawakan oleh Andy Rubin. Dalam meeting tersebut hadir VP Engineering Google, Vic Gundotra. Ketika meeting baru mulai dan Andy siap memaparkan apa itu Android, Vic langsung menyela dengan pertanyaan :
"Andy, apa dunia ini benar masih butuh Mobile Operating System yang lain?"
Usaha Google adalah di mesin pencari dan iklan, dan mesin pencari Google sudah ada disetiap Smartphone. Saat ini di dunia sudah ada banyak Operating System, ada Windows Mobile, Blackberry, Symbian, dan ada rajanya Smartphone, Apple dengan iPhone or iOS-nya, belum lagi Operating System kecil lainnya. Andy menjelaskan demikian, ada 2 point utama kenapa Android harus dibuat.
Point Pertama
Saat ini kita sedang kritis, dan butuh sebuah Operating System yang free dan terbuka (open source) supaya setiap developer bisa dengan bebas berinovasi di setiap level di dalamnya. Dengan cara ini para pembuat handset atau vendor bisa membuat handset sesuai keinginannya, boleh layar 2", 3" atau 4". Boleh pakai keyboard, boleh tidak, boleh ada kamera depan atau tidak. Dan nanti semua operator bisa ikut bergabung bersama sesuai kemampuan mereka, boleh 2G, 3G, 4G, LTE, Wimax, boleh CDMA boleh GSM dan lain sebagainya. Akhirnya nanti adalah konsumen yang diuntungkan, mereka bisa menentukan sendiri handset Smartphone Android mana yang terbaik menurut mereka, sesuai kebutuhan, kemampuan dan operator yang menjadi pilihan mereka.
Point Kedua
Karena kini Google adalah raksasa IT, Google punya kemampuan. Kalau Google diam saja, maka dunia akan menghadapi Draconian Future (Draconian Future mengacu kepada jaman Yunani ketika seorang bernama Draco menjadi pengatur hukum di sana, dimana pelanggaran kecil saja mendapat hukuman yang berat) masa depan yang "sulit" dimana nanti di depan hanya akan ada : 1 Orang 1 Perusahaan 1 Operating System dan 1 Operator saja yang bisa jadi pilihan konsumen.

Rumor bahwa Google akan membuat ponsel pun kemudian berkembang hingga ke pabrik-pabrik ponsel. Isu ini bahkan diangkat oleh BBC dan The Wall Street Journal. Mereka percaya bahwa Google sedang mempersiapkan sebuah ponsel dimana terintegrasi oleh layanan-layanan Google, seperti Google Map dan Gmail di dalamnya.Perkembangan OS Android

Cara Menginstal Visual Basic

ungkin di antara kita masih banyak yang belum tau apa sih visual basic itu??? dan belum tau gimana cara Cara Menginstal Visual Basic 6.0. nah kali ini saya akan coba ngebahas Cara Menginstal Visual Basic 6.0 . Adapun Langkah- langkah untuk menginstal Visual Basic 6.0 adalah :

1. Masukan CD-ROM installer , buka isinya kemudian klik ganda pada setup.exe sehingga akan muncul kotak dialog yang pertama kemudian klik next.
2. Kotak dialog yang kedua akan muncul, baca agreement jika setuju klik I accept the agreement dan klik next.
3. Kotak dialog yang ketiga akan muncul, isikan nomor produk yang tertera pada VB6 klik next.
4. Kotak dialog yang keempat akan muncul, klik instalasi Visual Basic 6 klik next, program InstallShield akan bekerja dan muncul kotak dialog kelima yang isinya tentang aturan hukum pembajakan ada aturan main yang harus disepakati bersama yaitu EULA(End User Lisence Agreement) perjanjian antara Microsoft dengan user, klik continue.
5. Kotak dialog yang keenam akan muncul, secara default VB6 akan
akan membuat folder yang terletak C:\Program files \DevStudio\VB. klik ok.
6. Kotak dialog yang ketujuh akan muncul, menyediakan pilihan setup Typical atau Custom lalu klik ok, nama program VB6 secara default adalah Microsoft Visual Basic 6 lalu klik continue proses penyalinan hardisk dimuali pada langkah ini .
7. Setelah proses mencapai 100% akan muncul tampilan yang memberi tahu bahwa proses instalasi akan komplet. Klik ok, VB6 akan meminta untuk merestart windows agar hasil proses instalasi sesuai dengan rencana.
8. Klik tombol restart windows, lengkaplah proses instalasi VB 6.0. Untuk melihat hasilnya, dari menu Start arahkan pointer ke Microsoft Visual Basic 6.o, maka akan tampil kelompok dari program Visual Basic 6.0 Kebutuhan Perangkat Komputer Sistem Operasi 32 bit seperti Windows 95 dst, Windows NT 4.0 atau 3.51 IBM PC atau yang kompatibel dengan prosesor 486 keatas RAM 16 MB keatas VGA dengan resolusi yang cukup tinggi Ruangan hardisk yang memadai untuk menyuimpan program VB6 Microsoft Visual Basic tersedia dalam 3 ( tiga ) edisi, yaitu :

1. Learning edition, merupakan edisi khusus yang perlengkapannya sangat minimal tapi sudah cukup bagi para pemula yang hanya menciptakan program-program sederhana.
2. Profesional edition, telah melengkapi semua peralatannya untuk membuat program.
3. Enterprise edition, merupakan edisi terlengkap, termasuk didalamnya untuk pembuatan aplikasi-aplikasi client server dalam jaringan dan MS-Source Safe.

Menjalankan VISUAL BASIC 6
Untuk menjalankan VB6 ada beberapa cara yang dapat digunakan, yaitu :
1. Dari Menu Start pilih program – Microsoft Visual Studio 6 – lalu klik icon Visual basic 6
2. Klik ganda icon Visual Basic 6 pada Dekstop
3. Klik ganda ekstensi .MAK pada Window Eksplorer
4. Klik ganda file VB6.EXE pada Windows Eksplorer. File ini secara default terletak pada folder C:\Program files \Microsoft VisuCara Menginstal Visual Basic