Blog Maijor Josua Tampubolon: 2014

Menghitung Nilai Persegi Panjang

Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Luas.Text = Panjang.Text * Lebar.Text

    End Sub

   Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Panjang.Text = ""
        Lebar.Text = ""
        Luas.Text = ""
    End Sub
End Class

Perulangan (Looping)

Public Class Form1

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

Dim i As Integer

For i = 1 To 1000

ComboBox1.Items.Add(i)

Next i

i = 1000

Do While i >= 1

ComboBox2.Items.Add("STMIK" & i)

i = i - 1

Loop

For i = 1000 To 1 Step -1

ListBox1.Items.Add(i)

Next (i)

End Sub

End Class

Program Nilai Semester

   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) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

Jika anda perhatikan listing program menjadi seperti ini :

Public Class frmHitung

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class

Struktur Keputusan Case

Public Class Form1

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

End Sub

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")

End Sub

Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

End Sub

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

Select Case Kode.Text

Case "TS001"

Merk.Text = "TS"

Nama.Text = "Flashdisk 4G"

Case "TS002"

Merk.Text = "TS"

Nama.Text = "Flashdisk 2G"

Case "VG001"

Merk.Text = "VG"

Nama.Text = "Flashdisk 4G"

Case "VG002"

Merk.Text = "VG"

Nama.Text = "Flashdisk 2G"

End Select

End Sub

End Class

Struktur Keputusan (Pencabangan Case)

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

Matakuliah.Text = ""

Dosen.Text = ""

Nmid.Text = ""

Nsem.Text = ""

NA.Text = ""

End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

NA.Text = 0.3 * Nmid.Text + 0.45 * Nsem.Text + 0.1 * Nhadir.Text + 0.15 * Ntugas.Text

End Sub

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

End

End Sub

Private Sub Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Matakuliah.SelectedIndexChanged

End Sub

Private Sub Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dosen.SelectedIndexChanged

End Sub

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

Matakuliah.Items.Add("Pemograman")

Matakuliah.Items.Add("PTI")

Matakuliah.Items.Add("Struktur Data")

Matakuliah.Items.Add("Komunikasi Data")

Dosen.Items.Add("Tonni Limbong,Skom,Mkom")

Dosen.Items.Add("Sinar Sinurat,ST,Mkom")

Dosen.Items.Add("Yasir Hasan,Skom")

Dosen.Items.Add("Guidio,Skom,Mkom")

Dim i As Integer

For i = 1 To 100

Nhadir.Items.Add(i)

Ntugas.Items.Add(i)

Nmid.Items.Add(i)

Nsem.Items.Add(i)

Next i

End Sub

Friend WithEvents na As System.Windows.Forms.TextBox

End Class

Pembuatan Piramida

PublicClass Form3

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim y, q, z AsByte

y = 1

q = Val(Nilai.Text)

Hasil.Clear()

DoWhile y <= q

z = 1

DoWhile z <= y

Hasil.Text = Hasil.Text &" "& z

z += 1

Loop

Hasil.Text = Hasil.Text & vbCrLf

y += 1

Loop

EndSub

Gaji Pegawai Telkom

Public Class Form1

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

NamaPeg.Items.Add("maijor Josua")

NamaPeg.Items.Add("Andy Pratama")

NamaPeg.Items.Add("Maulana")

GolPeg.Items.Add("A")

GolPeg.Items.Add("B")

GolPeg.Items.Add("c")

StaPeg.Items.Add("Menikah")

StaPeg.Items.Add("Tidak Menikah")

End Sub

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

Pajak.Text = 0.1 * GaPo.Text

TG.Text = GaPo.Text - Pajak.Text + TK.Text

End Sub

Private Sub GolPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GolPeg.SelectedIndexChanged

Select Case GolPeg.Text

Case "A"

GaPo.Text = "1500000"

Case "B"

GaPo.Text = "2500000"

Case "C"

GaPo.Text = "3500000"

End Select

End Sub

Private Sub StaPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StaPeg.SelectedIndexChanged

Select Case StaPeg.Text

Case "Menikah"

TK.Text = 0.05 * GaPo.Text

Case "Tidak Menikah"

TK.Text = GaPo.Text

End Select

End Sub

End Class

Program Pemakain Listrik

Public Class Form1

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

buattabel()

End Sub

Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

Dim x As String

No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)

x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)

If x = "MED" Then

Daerah.Text = "MEDAN"

pjk.Text = 0.015

ElseIf x = "BEL" Then

Daerah.Text = "BELAWAN"

pjk.Text = 0.015

ElseIf x = "TEM" Then

Daerah.Text = "AKSARA"

pjk.Text = 0.015

ElseIf x = "MAR" Then

Daerah.Text = "MARENDAL"

pjk.Text = 0.015

ElseIf x = "BIN" Then

Daerah.Text = "BINJAI"

pjk.Text = 0.015

ElseIf x = "PAK" Then

Daerah.Text = "LUBUK PAKAM"

pjk.Text = 0.015

End If

x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)

If x = "TOK" Then

Tipe.Text = "TOKO"

harga.Text = "500"

biaya.Text = "150000"

ElseIf x = "RUM" Then

Tipe.Text = "RUMAH"

harga.Text = "200"

biaya.Text = "50000"

ElseIf x = "SWA" Then

Tipe.Text = "SWALAYAN"

harga.Text = "1500"

biaya.Text = "400000"

ElseIf x = "PAB" Then

Tipe.Text = "PABRIK"

biaya.Text = "1000000"

harga.Text = "10000"

End If

End Sub

Sub buattabel()

Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

Lv.View = View.Details

Lv.GridLines = True

Lv.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = tgl.Text

lst.SubItems.Add(No.Text)

lst.SubItems.Add(kode.Text)

lst.SubItems.Add(Daerah.Text)

lst.SubItems.Add(Tipe.Text)

lst.SubItems.Add(biaya.Text)

lst.SubItems.Add(meterlalu.Text)

lst.SubItems.Add(metersekarang.Text)

lst.SubItems.Add(harga.Text)

lst.SubItems.Add(besar.Text)

lst.SubItems.Add(Pajak.Text)

lst.SubItems.Add(tagihan.Text)

lst.SubItems.Add(total.Text)

Lv.Items.Add(lst)

End Sub

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

isitabel()

kode.Text = ""

Daerah.Text = ""

biaya.Text = ""

Tipe.Text = ""

meterlalu.Text = ""

harga.Text = ""

total.Text = ""

metersekarang.Text = ""

No.Text = ""

tagihan.Text = ""

besar.Text = ""

pjk.Text = ""

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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

kode.Text = ""

Daerah.Text = ""

biaya.Text = ""

Tipe.Text = ""

meterlalu.Text = ""

harga.Text = ""

total.Text = ""

metersekarang.Text = ""

No.Text = ""

tagihan.Text = ""

besar.Text = ""

pjk.Text = ""

End Sub

Private Sub No_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles No.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

Proses_Click(sender, e)

End If

End Sub

Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

besar.Text = metersekarang.Text - meterlalu.Text

tagihan.Text = biaya.Text + (harga.Text * besar.Text)

total.Text = tagihan.Text * 0.015

End Sub

End Class

Listview Latihan 2

Public Class Form1

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

BuatTabel()

Kode.Items.Add("TS001")

Kode.Items.Add("TS002")

Kode.Items.Add("VG001")

Kode.Items.Add("VG002")

End Sub

Sub BuatTabel()

LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)

LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)

LV.Columns.Add("Merk", 85, HorizontalAlignment.Left)

LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)

LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Left)

LV.Columns.Add("Total", 80, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub IsiTabel()

Dim Lst As New ListViewItem

Lst.Text = Kode.Text

Lst.SubItems.Add(Nama.Text)

Lst.SubItems.Add(Merk.Text)

Lst.SubItems.Add(Harga.Text)

Lst.SubItems.Add(Jumlah.Text)

Lst.SubItems.Add(Total.Text)

LV.Items.Add(Lst)

End Sub

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

Dim X As String

Dim A As String

Dim H As String

X = Microsoft.VisualBasic.Left(Kode.Text, 2)

A = Microsoft.VisualBasic.Right(Kode.Text, 3)

H = Microsoft.VisualBasic.Right(Kode.Text, 5)

Select Case X

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

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

End Select

Select Case A

Case "001" : Nama.Text = "Flashdisk 4Gb"

Case "002" : Nama.Text = "Flashdisk 2Gb"

End Select

Select Case H

Case "TS001" : Harga.Text = "105000"

Case "TS002" : Harga.Text = "75000"

Case "VG001" : Harga.Text = "90000"

Case "VG002" : Harga.Text = "60000"

End Select

End Sub

Private Sub Btn_HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusPilih.Click

LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub Btn_HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusSemua.Click

LV.Items.Clear()

End Sub

Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

Me.Close()

End Sub

Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click

IsiTabel()

End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

Dim Tombol As Integer = Asc(e.KeyChar)

If Tombol = 13 Then

Jumlah_TextChanged(sender, e)

Total.Text = Jumlah.Text * Harga.Text

End If

End Sub

Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

End Sub

End Class

Mesran.Net
Mesran.blogspot.com

Pengolahan Citra

Public Class Form1

Dim gambar2 As Bitmap

Private Sub btngray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngray.Click

Dim pb, pc As Integer

Dim rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For pb = 0 To PictureBox2.height - 1

For pc = 0 To PictureBox2.width - 1

vM = gambar2.GetPixel(pc, pb).R

vH = gambar2.GetPixel(pc, pb).G

vB = gambar2.GetPixel(pc, pb).B

rt = (vM + vH + vB) / 3

gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

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

PictureBox2.Image = PictureBox1.Image

End Sub

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

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R - 10

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

If vM <= 0 Then vM = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R + 10

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

If vM >= 255 Then vM = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R + 5

vH = gambar2.GetPixel(Pc, Pb).G + 5

vB = gambar2.GetPixel(Pc, Pb).B + 5

If vM >= 255 Then vM = 255

If vB >= 255 Then vB = 255

If vH >= 255 Then vH = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

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

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R - 5

vH = gambar2.GetPixel(Pc, Pb).R - 5

vB = gambar2.GetPixel(Pc, Pb).R - 5

If vM <= 0 Then vM = 0

If vB <= 0 Then vB = 0

If vH <= 0 Then vH = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

Private Sub btnRotate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRotate.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

Dim gambar3 As Bitmap = New Bitmap(PictureBox1.Image)

For Pb = gambar2.Height - 1 To 0 Step -1

For Pc = gambar2.Width - 1 To 0 Step -1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G

vB = gambar2.GetPixel(Pc, Pb).B

gambar3.SetPixel(gambar2.Width - 1 - Pc, gambar2.Height - 1 - Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar3

PictureBox2.Refresh()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G + 10

vB = gambar2.GetPixel(Pc, Pb).B

If vH >= 255 Then vH = 255

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For Pb = 0 To gambar2.Height - 1

For Pc = 0 To gambar2.Width - 1

vM = gambar2.GetPixel(Pc, Pb).R

vH = gambar2.GetPixel(Pc, Pb).G - 10

vB = gambar2.GetPixel(Pc, Pb).B

If vH <= 0 Then vH = 0

gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

Private Sub btnNegatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNegatif.Click

Dim pb, pc As Integer

Dim Rt, vM, vH, vB As Double

gambar2 = New Bitmap(PictureBox2.Image)

For pb = 0 To gambar2.Height - 1

For pc = 0 To gambar2.Width - 1

vM = 255 - gambar2.GetPixel(pc, pb).R

vH = 255 - gambar2.GetPixel(pc, pb).G

vB = 255 - gambar2.GetPixel(pc, pb).B

If vM <= 0 Then vM = 0

gambar2.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))

PictureBox2.Image = gambar2

PictureBox2.Refresh()

End Sub

End Class

Blog Maijor Josua Tampubolon

Jumat, 17 Januari 2014

Kumpulan 10 Latihan Semester 3

Perulangan (Looping)

Program Nilai Semester

Struktur Keputusan Case

Struktur Keputusan (Pencabangan Case)

Pembuatan Piramida

Gaji Pegawai Telkom

Program Pemakain Listrik

Listview Latihan 2

Pengolahan Citra