Yuk...belajar sedikit mengenai KRIPTOGRAFI

 Desaign from berikut:

Buatlah Programnya sebabagai berikut:

Public Class Form1

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

        Plaint.Text = ""

        Chip.Text = ""

    End Sub

    Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

        Dim jumlah As Double = Len(Plaint.Text)

        Dim x As String

        Dim xkalimat As String = "Dim bil as integer"

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(Plaint.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        Chip.Text = xkalimat

    End Sub

End Class

Dan hasil programnya kira seperti di bawah ini

Semoga bermanfaat... 

Read More

TENTANG MESRAN.NET

Mesran.net

Belajar program yuk... masuk ke Mesran.net karena di Mesran.net banyak kita temukan hal-hal baru mengenai program dan bukan hanya itu saja yang kita dapatkan bisa berbagi sama teman-teman dengan belajar kelompok untuk membahas yang kurang kita mengerti, itupun di Mesran.net ini sangat mendukung kita untuk belajar karena di Mesran.net ini ingin berbagi ilmu kebaikan untuk mendapatkan kebaikan.

Di Mesran.net juga banyak kita temukan sesuatu yang mengajak kita untuk untuk melakukannya yang pasti dalam membuat program, programnya bermacam-macam mulai VB.NET, Prog. Java, Visual Basic, Prog. Pascal dan masih banyak lagi. Dengan hati yang sungguh-sungguh untuk belajar pasti bisa...! semangat terus anak Budidarma...........!

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://mesran.net/quiz.html

1.Penggajian di PT.telkom

Public Class Form1

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

        Gol.Items.Add("IIIA")

        Gol.Items.Add("IIIB")

        Gol.Items.Add("IIIC")

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged

        Select Case Gol.Text

            Case "IIIA" : Gaji.Text = 1500000

            Case "IIIB" : Gaji.Text = 2500000

            Case "IIIC" : Gaji.Text = 3500000

        End Select

        Pajak.Text = 0.15 * Gaji.Text

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Gajiber.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Gajiber.Text)

    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 BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class

Demikian Postingan saya
Nama : Fiktor Farma laia
NPM : 1111277

Read More