teddy90.blogspot.com

Friday 17 January 2014

Kriptografi

Form Menu

Public Class Menu

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click
        End
    End Sub

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Kriptografi_Caesar.Show()
    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        Kriptografi_Vernam_Chiper.Show()
    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
        Kriptografi_Gronsfeld.Show()
    End Sub

    Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click
        Kriptografi_Viginere.Show()
    End Sub
End Class

Form Kriptografi Caesar

Public Class Kriptografi_Caesar

    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(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

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

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

    End Sub
End Class

Form Kriptografi Vernam

Public Class Kriptografi_Vernam_Chiper

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

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As Integer
        j = 0
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub
End Class

Form Kriptografi Gronsfeld

Public Class Kriptografi_Gronsfeld

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As Integer
        j = 0
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 48

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class

Form Kriptografi Viginere

Public Class Kriptografi_Viginere

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)
    End Sub

    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String
        Dim nEnc As Integer
        j = 0
        jum = Len(Teks)
        sPlain = ""
        sKey = Kunci
        sKata = Teks
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))
        Next i
        Enkripsi = sPlain
    End Function

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

    End Sub
End Class

Hasil Program

Laporan Menggunakan Crystal Report Pada Visual Basic 2010

A.Crsytal Report

Crsytal Report adalah sebuahkomponen control pada toolboxyang digunakan untuk membuatlaporan dari berbagai sumber data. Sumber datadisinibisa dikatakan database

dengan menggunakan Crystal Report kita dapat membuat laporan yang

datanya diperoleh dari Database apapun, misalnya SQLServer, Ms. Access, Mysql, dll.

Crystal report pada

visual basic 2010 tidak langsung disertakan pada saat kita menginstal visual studio, jadi

mau tidak mau kita harus menginstal crystal report secarah terpisah.

Untuk mendapatkan

Crystal Report anda bisa mendapatkanya melalui search engine google dengan kata

kunci SAP Crystal Report for

Visual Basic 2010

B.Menginstal Crystal report

1.Klik 2 kali setup

2.Klik ok

3.Klik next

http://ilmukomputer.org/wp-content/uploads/2013/04/Budi-Laporan-Menggunakan-Crystal-Report-Pada-Visual-Basic-2010.pdf

Sunday 15 December 2013

Program Perhitungan Penjualan Barang

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add("TS001")
Kode.Items.Add("TS002")
Kode.Items.Add("VG001")
Kode.Items.Add("VG002")
rancangan_table()
End Sub

Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
If x = "TS" Then
Merk.Text = "Toshiba"
x = Microsoft.VisualBasic.Right(Kode.Text, 3)
If x = "001" Then
Nama.Text = "Flashdisk 4GB"
Harga.Text = 105000
ElseIf x = "002" Then
Nama.Text = "Flashdisk 2GB"
Harga.Text = 750000
End If
ElseIf x = "VG" Then
Merk.Text = "V-Gen"
x = Microsoft.VisualBasic.Right(Kode.Text, 3)
If x = "001" Then
Nama.Text = "Flashdisk 4GB"
Harga.Text = 900000
ElseIf x = "002" Then
Nama.Text = "Flashdisk 2GB"
Harga.Text = 60000

End If
End If
End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
If Asc(e.KeyChar) = 13 Then
Total.Text = Harga.Text * Jumlah.Text
End If
End Sub
Sub rancangan_table()
With lv
.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
.Columns.Add("Kode barang", 100, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add("harga", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total harga", 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True

End With
End Sub
Sub isi_table()
Dim lst As New ListViewItem
With lst
.Text = No.Text
.SubItems.Add(Kode.Text)
.SubItems.Add(Nama.Text)
.SubItems.Add(Merk.Text)
.SubItems.Add(Harga.Text)
.SubItems.Add(Jumlah.Text)
.SubItems.Add(Total.Text)
lv.Items.Add(lst)
End With
End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
No.Text = ""
Kode.Text = ""
Nama.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah.Text = ""
Total.Text = ""
End Sub

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

Sunday 17 November 2013

Program Form Nilai Mahasiswa Menggunakan VB.NET 2008

                                            "Berikut listing program yang akan di input"

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110985")
        NPM.Items.Add("12100033")
        NPM.Items.Add("12090003")
        NPM.Items.Add("12080011")
        Kode_dosen.Items.Add("K10")
        Kode_dosen.Items.Add("K11")
        Kode_dosen.Items.Add("K12")
        Kode_dosen.Items.Add("K13")
        Kode_Matakuliah.Items.Add("M01")
        Kode_Matakuliah.Items.Add("M02")
        Kode_Matakuliah.Items.Add("M03")
        Kode_Matakuliah.Items.Add("M04")
        Dim i As Integer
        Nilai_Hadir.Items.Clear()
        For i = 1 To 100
            Nilai_Hadir.Items.Add(i)
        Next
        Nilai_Tugas.Items.Clear()
        For i = 1 To 100
            Nilai_Tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110985"
                Nama.Text = "Teddy mizwar"
            Case "12100033"
                Nama.Text = "Tuppak Sitanggang"
            Case "12090003"
                Nama.Text = "Ranto Simarmata"
            Case "12080011"
                Nama.Text = "Gabriel Batistuta Koto"
        End Select
        Dim X As String
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf X = "10" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf X = "09" Then
            Jurusan.Text = "Sistem Informasi"
        ElseIf X = "08" Then
            Jurusan.Text = "Teknik Komputer"
        End If
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jenjang.Text = "SI"
        ElseIf X = "10" Then
            Jenjang.Text = "DIII"
        ElseIf X = "09" Then
            Jenjang.Text = "DII"
        ElseIf X = "08" Then
            Jenjang.Text = "DI"
        End If
    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_dosen.SelectedIndexChanged
        Select Case Kode_dosen.Text
            Case "K10"
                Nama_Dosen.Text = "Mesran,M.Kom"
            Case "K11"
                Nama_Dosen.Text = "Tonni Limbong,M.Kom"
            Case "K12"
                Nama_Dosen.Text = "Kennedy Tampubolon,S.Si"
            Case "K13"
                Nama_Dosen.Text = "Sinar Sinurat,ST,M.Kom"
        End Select
    End Sub
    Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Matakuliah.SelectedIndexChanged
        Select Case Kode_Matakuliah.Text
            Case "M01"
                Nama_Matakuliah.Text = "Pemograman Visual"
            Case "M02"
                Nama_Matakuliah.Text = "Sistem Basis Data"
            Case "M03"
                Nama_Matakuliah.Text = "Matriks"
            Case "M04"
                Nama_Matakuliah.Text = "Struktur Data"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Nilai_Akhir.Text = 0.1 * Nilai_Hadir.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= "50" Then
            Keterangan.Text = "lULUS"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Nama.Text = ""
        NPM.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_Hadir.Text = ""
        Nilai_Akhir.Text = ""
        Kode_dosen.Text = ""
        Kode_Matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_Dosen.Text = ""
        Nama_Matakuliah.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
    End Sub
End Class
   "Jalankan Program dengan Menekan Tombol F5"

Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

http://teddymizwar.blogspot.com/

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpu

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

Thursday 20 June 2013

Tugas Tabel Pembayaran

#include"stdio.h"

#include"conio.h"

void main(){

int i,kode[15],jumlah[15],jumdata=5;

char*produk;

float harga,total,disc,pembayaran;

printf(" STMIK BUDIDARMA MEDAN");

printf("\n");

printf("\n NAMA:TEDDY MIZWAR");

printf("\n KELAS:TI-M1222");

printf("\n NPM:12110985");

printf("\n");

printf("\n input data penjualan");

for(i=0 ; i

printf("\n kode produk :");scanf("%d",&kode[i]);

printf("jumlah produk :");scanf("%d",&jumlah[i]);

}

clrscr();

printf("\n informasi penjualan produk");

printf("\n==============================================================================");

printf("\n no kode produk harga jumlah total disc pembayaran");

printf("\n==============================================================================");

for(i=0 ; i

if(kode[i]==1){

produk="tv"; harga=2000000;

}else if(kode[i]==2){

produk="dvd";harga=650000;

}else if(kode[i]==3){

produk="vcd";harga=450000;

}

total=harga*jumlah[i];

if(total>800000);

disc=0.1*total;

pembayaran=total-disc;

gotoxy(1,6+i);printf("%i %d %s",i+1,kode[i],produk);

gotoxy(30,6+i);printf("%10.0f %i %10.0f %10.0f %10.0f",harga,jumlah[i],total,disc,pembayaran);

}

printf("\n------------------------------------------------------------------------------");

}