Keren Sekali

Saterdag 29 Junie 2013

Kriptografi

Public Class Form1

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub VigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub GransfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GransfeldChiperToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        Form6.MdiParent = Me
        Form6.Show()
    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
        Form7.MdiParent = Me
        Form7.Show()
    End Sub

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

CAESAR CHIPER

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plain.Text = ""
        chiper.Text = ""
    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim jumlah As Double = Len(plain.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plain.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        chiper.Text = xkalimat
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Close()
    End Sub
End Class

Kriptografi

Woensdag 05 Junie 2013

Program Menghitung Biaya Fotocopy

Listing Program

Public Class input_harga_potokopi

Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

If Jumlah_Lembar.Text >= 200 Then

Harga_perlembar.Text = 99

Else

Harga_perlembar.Text = 999

End If

Total_Harga.Text = Jumlah_Lembar.Text * Harga_perlembar.Text

If Total_Harga.Text >= 500000 Then

Discount.Text = Total_Harga.Text * 0.15

Else

Discount.Text = 0

End If

Pembayaran.Text = Total_Harga.Text - Discount.Text

End Sub

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

Jumlah_Lembar.Text = ""

Harga_perlembar.Text = ""

Total_Harga.Text = ""

Discount.Text = ""

Pembayaran.Text = ""

End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

End

End Sub

End Class

Yuk Kita Belajar Visual Basic Dot Net Di Mesran.net

Public Class Form1

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

buattabel()

kodebarang.Items.Add("TS001")

kodebarang.Items.Add("TS002")

kodebarang.Items.Add("VG001")

kodebarang.Items.Add("VG002")

End Sub

Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

Dim x As String

x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)

Select Case x

Case "TS" : merk.Text = "Toshiba"

Case "VG" : merk.Text = "V-Gen"

End Select

Dim y As String

y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

Select Case y

Case "001" : namabarang.Text = "Flashdisk 4GB"

Case "002" : namabarang.Text = "Flashdisk 2GB"

End Select

If x = "TS" And y = "001" Then

harga.Text = 105000

ElseIf x = "TS" And y = "002" Then

harga.Text = 75000

ElseIf x = "VG" And y = "001" Then

harga.Text = 90000

ElseIf x = "VG" And y = "002" Then

harga.Text = 60000

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

nopembelian.Text = ""

kodebarang.Text = ""

namabarang.Text = ""

merk.Text = ""

harga.Text = ""

jumlahbeli.Text = ""

totalharga.Text = ""

End Sub

Sub buattabel()

ListView1.Columns.Add("nopembelian", 50, HorizontalAlignment.Left)

ListView1.Columns.Add("kodebarang", 80, HorizontalAlignment.Left)

ListView1.Columns.Add("namabarang", 120, HorizontalAlignment.Left)

ListView1.Columns.Add("merk", 120, HorizontalAlignment.Left)

ListView1.Columns.Add("harga", 120, HorizontalAlignment.Left)

ListView1.Columns.Add("jumlahbeli", 90, HorizontalAlignment.Left)

ListView1.Columns.Add("totalharga", 90, HorizontalAlignment.Left)

ListView1.View = View.Details

ListView1.GridLines = True

ListView1.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = nopembelian.Text

lst.SubItems.Add(kodebarang.Text)

lst.SubItems.Add(namabarang.Text)

lst.SubItems.Add(merk.Text)

lst.SubItems.Add(harga.Text)

lst.SubItems.Add(jumlahbeli.Text)

lst.SubItems.Add(totalharga.Text)

ListView1.Items.Add(lst)

End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

isitabel()

End Sub

Private Sub Hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapusdipilih.Click

ListView1.Items.Remove(ListView1.SelectedItems(0))

End Sub

Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click

ListView1.Items.Clear()

End Sub

Private Sub nopembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nopembelian.TextChanged

Select Case nopembelian.Text

Case "001" : namabarang.Text = "Flashdisk 4GB"

harga.Text = 105000

Case "002" : namabarang.Text = "Flashdisk 2GB"

harga.Text = 75000

Case "003" : namabarang.Text = "Flashdisk 4GB"

harga.Text = 90000

Case "004" : namabarang.Text = "Flashdisk 2GB"

harga.Text = 60000

End Select

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 jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

totalharga.Text = Val(jumlahbeli.Text) * Val(harga.Text)

End Sub

Private Sub totalharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalharga.TextChanged

End Sub

Private Sub namabarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namabarang.TextChanged

Select Case namabarang.Text

Case "Flashdisk 4GB" : harga.Text = 105000

Case "Flashdisk 2GB" : harga.Text = 75000

Case "Flashdisk 4GB" : harga.Text = 90000

Case "Flashdisk 2GB" : harga.Text = 60000

End Select

End Sub

End Class