Input Progam FOto Copy

1.pertama tama  desain from nya dan atur propertisnya seperti gambar di bawah ini:

2.Lalu di from load nya ketikan listingnya seperti di bawah ini:
Public Class Form1
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If jumlah_lembar.Text >= 200 Then
            hpl.Text = 90
        Else
            hpl.Text = 100
        End If
        total_harga.Text = hpl.Text * jumlah_lembar.Text
        If total_harga.Text >= 500000 Then
            discount.Text = 0.15 * total_harga.Text
        Else
            discount.Text = 0
        End If
        pembayaran.Text = total_harga.Text - discount.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        jumlah_lembar.Text = ""
        hpl.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

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

    End Sub
End Class

3.Lalu jalan kan progam nya dengan menekan F5,Dan hasilnya seperti gambar dibawah ini:

tugas quiz satu

Listing Program :

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
kode_barang.Items.Add(“TS001″)
kode_barang.Items.Add(“TS002″)
kode_barang.Items.Add(“VG001″)
kode_barang.Items.Add(“VG002″)
End Sub

Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
Dim xmerk As String
Dim xnama As String
xmerk = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
xnama = Microsoft.VisualBasic.Right(kode_barang.Text, 3)
If xmerk = “TS” And xnama = “001″ Then
merk.Text = “Toshiba”
nama_barang.Text = “Flashdisk 4GB”
harga.Text = 105000
ElseIf xmerk = “TS” And xnama = “002″ Then
merk.Text = “Toshiba”
nama_barang.Text = “Flashdisk 2GB”
harga.Text = 75000
ElseIf xmerk = “VG” And xnama = “001″ Then
merk.Text = “V-Gen”
nama_barang.Text = “Flashdisk 4GB”
harga.Text = 90000
ElseIf xmerk = “VG” And xnama = “002″ Then
merk.Text = “V-Gen”
nama_barang.Text = “Flashdisk 2GB”
harga.Text = 60000
End If
End Sub

Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
If e.KeyChar = Chr(13) Then
total_harga.Text = harga.Text * jumlah_beli.Text
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“No. Pembelian”, 100, HorizontalAlignment.Left)
.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 isitabel()
Dim lst As New ListViewItem
With lst
.Text = no_pembelian.Text
.SubItems.Add(kode_barang.Text)
.SubItems.Add(nama_barang.Text)
.SubItems.Add(merk.Text)
.SubItems.Add(harga.Text)
.SubItems.Add(jumlah_beli.Text)
.SubItems.Add(total_harga.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
no_pembelian.Text = “”
kode_barang.Text = “”
nama_barang.Text = “”
merk.Text = “”
harga.Text = “”
jumlah_beli.Text = “”
total_harga.Text = “”
End Sub

Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub

Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
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_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub

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

Mari kita belajar VB/Data nilai

 Tugas VB

Data Nilai Mahasiswa
1.Pertama-tama desain dan atur propertisnya seperti pada gambar di bawah ini:


2. Kemudian ketiklah listing program seperti dibawah ini :


Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110075")
        npm.Items.Add("12110092")
        npm.Items.Add("12110559")

        kode_dosen.Items.Add("MS")
        kode_dosen.Items.Add("YH")
        kode_dosen.Items.Add("sS")

        kode_matakuliah.Items.Add("KBTI4306")
        kode_matakuliah.Items.Add("KKTI4303")
        kode_matakuliah.Items.Add("KBTI4305")

        Dim N As Integer
        For N = 1 To 100
            nilai_kehadiran.Items.Add(N)
            nilai_tugas.Items.Add(N)
            nilai_uts.Items.Add(N)
            nilai_uas.Items.Add(N)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "12110075" Then
            nama.Text = "Ayu anggraini"
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf npm.Text = "12110092" Then
            nama.Text = "elvara"
            jenjang.Text = "DIII"
            jurusan.Text = "manajemen informasi"
        Else
            nama.Text = "adelina"
            jenjang.Text = "DI"
            jurusan.Text = "Desain Grafis"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        If kode_dosen.Text = "MS" Then
            nama_dosen.Text = "Mesran M.Kom"
        ElseIf kode_dosen.Text = "YH" Then
            nama_dosen.Text = "Yasir Hasan,S.Kom"
        Else
            nama_dosen.Text = "Sinar Sinurat,ST,M.Kom"
        End If

    End Sub

    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        If kode_matakuliah.Text = "KBTI4306" Then
            mata_kuliah.Text = "Pemograman Visual"
        ElseIf kode_matakuliah.Text = "KKTI4303" Then
            mata_kuliah.Text = "Sistem Operasi"
        Else
            mata_kuliah.Text = "Struktur data"
        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If nilai_akhir.Text = "" Then
            nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
            nilai_akhir.Focus()
        End If
        If nilai_akhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
        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

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_kehadiran.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If

    End Sub
End Class

3.Lalu jalan kan progamnya atau tekan F5,Dan hasilnya seperti pada gambar di bawah ini.