PemogramanVisual1: 2012

Jumat, 01 Juni 2012

FORM TAMBAH ADMIN KARYAWAN

Rumus :

Public Class FormTambahAdmin
    Dim a, b, c As String

    Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
        a = TxtUsernameBaru.Text
        b = TxtPasswordBaru.Text
        c = TxtUlangiPassword.Text

        If b = c Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

            TxtUsernameBaru.Text = ""
            TxtPasswordBaru.Text = ""
            TxtUlangiPassword.Text = ""
            TxtUsernameBaru.Focus()

        Else
            MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
        End If
    End Sub

    Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
        Refresh()
    End Sub

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()

    End Sub
End Class

FORM LIHAT DATA KARYAWAN

Rumus :::::>>>><<<<<<

Public Class FormLihatDataKaryawan

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()
    End Sub

    Private Sub CmbParameter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbParameter.SelectedIndexChanged

    End Sub

    Private Sub FormLihatDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CmbParameter.Items.Clear()
        CmbParameter.Items.Add("NIP")
        CmbParameter.Items.Add("Nama")
        CmbParameter.Items.Add("Alamat")
        CmbParameter.Items.Add("Telepon")
        CmbParameter.Items.Add("jabatan")

        FormInputDataKaryawan.tampilkanDataKaryawan()
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CmbParameter.SelectedIndex = -1 Or TxtNilaiParameter.Text = "" Then

            MsgBox("Maaf untuk parameter pencarian harus dipilih dan nilai parameter harus diisi!", MsgBoxStyle.Exclamation, "ERROR")
            Exit Sub
        Else
            Kelasku.ds.Clear()
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            If CmbParameter.SelectedIndex = 0 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 1 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where nama like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 2 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where alamat like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 3 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where telepon like '%" & TxtNilaiParameter.Text & "%'"
            Else
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where jabatan like '%" & TxtNilaiParameter.Text & "%'"
            End If
            Kelasku.da.SelectCommand = Kelasku.perintahSQL
            Kelasku.da.Fill(Kelasku.ds, "tbKaryawan")

            DGVdataKaryawan.DataSource = Kelasku.ds
            DGVdataKaryawan.DataMember = "tbKaryawan"
            DGVdataKaryawan.ReadOnly = True
            Kelasku.tutupDATABASE()
        End If
    End Sub
End Class

FORM EDIT KARYAWAN

RUMUS :

Public Class FormEditDataKaryawan
    'Procedure untuk menonaktifkan seluruh toolbox saat loading pertama kali
    Public Sub nonAktif()
        TxtNIP.Enabled = False
        TxtNama.Enabled = False
        TxtJenisKelamin.Enabled = False
        TxtAlamat.Enabled = False
        TxtTelepon.Enabled = False
        TxtTempatLahir.Enabled = False
        TxtTanggalLahir.Enabled = False
        TxtStatus.Enabled = False
        TxtJabatan.Enabled = False
        TxtTanggalBergabung.Enabled = False
    End Sub

    'Procedure untuk merefresh form ke posisi nill/ awal
    Public Sub kosong()
        TxtNIP.Text = ""
        TxtNama.Text = ""
        TxtJenisKelamin.Text = ""
        TxtAlamat.Text = ""
        TxtTelepon.Text = ""
        TxtTempatLahir.Text = ""
        TxtTanggalLahir.Text = ""
        TxtStatus.Text = ""
        TxtJabatan.Text = ""
        TxtTanggalBergabung.Text = ""
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        'pilih tombol CARI
        'Masukan dahulu NIP karyawan pada input box
        Dim cari As String
        cari = InputBox("Masukan NIP Karyawan = ", "CARI DATA KARYAWAN")

        'Cek apakah yang diinput kosong
        If Len(Trim(cari)) = 0 Then Exit Sub

        'Ada input
        'Tampilkan data sesuai dengan input NIP karyawan nya (status masi disabled)
        Kelasku.bukaDATABASE()
        Kelasku.perintahSQL.CommandType = CommandType.Text
        Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP = '" & cari & "'"
        Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

        If Kelasku.ketemu.Read Then
            TxtNIP.Text = Kelasku.ketemu("NIP")
            TxtNama.Text = Kelasku.ketemu("nama")
            TxtJenisKelamin.Text = Kelasku.ketemu("jenisKelamin")
            TxtAlamat.Text = Kelasku.ketemu("alamat")
            TxtTelepon.Text = Kelasku.ketemu("telepon")
            TxtTempatLahir.Text = Kelasku.ketemu("tempatLahir")
            TxtTanggalLahir.Text = Kelasku.ketemu("tanggalLahir")
            TxtStatus.Text = Kelasku.ketemu("StatusKaryawan")
            TxtJabatan.Text = Kelasku.ketemu("jabatan")
            TxtTanggalBergabung.Text = Kelasku.ketemu("tanggalBergabung")
        Else
            MsgBox("Data TIDAK ditemukan, silahkan ulangi input NIP karyawan", MsgBoxStyle.Exclamation, "GAGAL")
            BtnCari.Focus()
        End If

        Kelasku.tutupDATABASE()
    End Sub

    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click
        TxtNIP.Enabled = False
        TxtNama.Enabled = True
        TxtJenisKelamin.Enabled = True
        TxtAlamat.Enabled = True
        TxtTelepon.Enabled = True
        TxtTempatLahir.Enabled = True
        TxtTanggalLahir.Enabled = True
        TxtStatus.Enabled = True
        TxtJabatan.Enabled = True
        TxtTanggalBergabung.Enabled = True
    End Sub

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        If Trim(TxtNama.Text.Length) = 0 Or Trim(TxtJenisKelamin.Text.Length) = 0 Or Trim(TxtAlamat.Text.Length) = 0 Or Trim(TxtTelepon.Text.Length) = 0 Or Trim(TxtTempatLahir.Text.Length) = 0 Or Trim(TxtTanggalLahir.Text.Length) = 0 Or Trim(TxtStatus.Text.Length) = 0 Or Trim(TxtJabatan.Text.Length) = 0 Or Trim(TxtTanggalBergabung.Text.Length) = 0 Then
            MsgBox("Data Belum Lengkap, ada data yang kosong!" & Chr(13) & "Silahkan dicek kembali.", MsgBoxStyle.Information, "GAGAL")
        Else
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "UPDATE tbKaryawan set nama = '" & TxtNama.Text & "', jenisKelamin = '" & TxtJenisKelamin.Text & "', alamat = '" & TxtAlamat.Text & "', telepon = '" & TxtTelepon.Text & "', tempatLahir = '" & TxtTempatLahir.Text & "', tanggalLahir = '" & TxtTanggalLahir.Text & "', jabatan = '" & TxtJabatan.Text & "', tanggalBergabung = '" & TxtTanggalBergabung.Text & "' where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES Diperbaiki!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()

        End If
    End Sub

    Private Sub FormEditDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nonAktif()
        kosong()
    End Sub

    Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        If MsgBox("Apakah anda yakin ingin menhapus data karyawan ini ?", MsgBoxStyle.YesNo, "Konfirmasi") = MsgBoxResult.Yes Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "DELETE tbKaryawan where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES dihapus!!!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()
            nonAktif()
        End If
    End Sub
End Class

Selasa, 22 Mei 2012

PERTEMUAN 21

RUMUS :

Public Class FormInputDataKaryawan
Dim jk As String
Dim status As String

Private Sub FormInputDataKaryawan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
TxtNIP.Enabled = False
Dim kodeKaryawan As String
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "SELECT top 1 right(NIP,3)+1 as NIP from tbKaryawan order by NIP desc"
Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader
If Kelasku.ketemu.Read Then
Select Case Kelasku.ketemu("NIP")
Case Is <= 9 : kodeKaryawan = "K00" & Kelasku.ketemu("NIP")
Case Is <= 99 : kodeKaryawan = "K0" & Kelasku.ketemu("NIP")
Case Else : kodeKaryawan = "K" & Kelasku.ketemu("NIP")
End Select
Else
kodeKaryawan = "K001"
End If
Kelasku.tutupDATABASE()
TxtNIP.Text = kodeKaryawan
End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
If RBBelumMenikah.Checked Then
status = "Belum Menikah"
Else
status = "Sudah Menikah"
End If

Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "insert into tbkaryawan values ('" & TxtNIP.Text & "','" & TxtNama.Text & "','" & jk & "','" & TxtAlamat.Text & "','" & TxtTelepon.Text & "','" & TxtTempatLahir.Text & "','" & Format(DtpTanggalLahir.Value, "MM/dd/yyyy") & "','" & status & "','" & CmbJabatan.Text & "','" & Format(DtpTanggalBergabung.Value, "MM/dd/yyyy") & "')"
Kelasku.perintahSQL.ExecuteNonQuery()
Kelasku.tutupDATABASE()

MsgBox("Data Karyawan baru sudah tersimpan!", MsgBoxStyle.Information, "SUKSES")
tampilkanDataKaryawan()
kosong()
End Sub
Public Sub kosong()
TxtNama.Text = ""
RBPria.Checked = False
RBWanita.Checked = False
TxtAlamat.Text = ""
TxtTelepon.Text = ""
TxtTempatLahir.Text = ""
RBBelumMenikah.Checked = False
RBSudahMenikah.Checked = False
End Sub

Private Sub RBPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPria.CheckedChanged
jk = "Pria"
End Sub

Private Sub RBWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBWanita.CheckedChanged
jk = "Wanita"
End Sub

Private Sub FormInputDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CmbJabatan.Items.Clear()
CmbJabatan.Items.Add("Direktur")
CmbJabatan.Items.Add("Manager")
CmbJabatan.Items.Add("Supervaisor")
CmbJabatan.Items.Add("Accounting")
CmbJabatan.Items.Add("Administrasi")
CmbJabatan.Items.Add("Sales")
CmbJabatan.Items.Add("Staff")
End Sub
Public Sub tampilkanDataKaryawan()
Kelasku.ds.Clear()
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "select * from tbKaryawan"
Kelasku.da.SelectCommand = Kelasku.perintahSQL
Kelasku.da.Fill(Kelasku.ds, "tbKaryawan")
FormlihatDataKaryawan.DGVdataKaryawan.DataSource = Kelasku.ds
FormLihatDataKaryawan.DGVdataKaryawan.DataMember = "tbKaryawan"
FormLihatDataKaryawan.DGVdataKaryawan.ReadOnly = True
Kelasku.tutupDATABASE()
End Sub

Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
FormMenuUtama.Enabled = True
Me.Close()
End Sub
End Class

PERTEMUAN 20

rumus :

Public Class FormMenuUtama

Private Sub TambahUserAdminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TambahUserAdminToolStripMenuItem.Click
Me.Enabled = False
FormTambahAdmin.Show()
End Sub

Private Sub InputDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormInputDataKaryawan.Show()
End Sub

Private Sub LihatDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LihatDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormLihatDataKaryawan.Show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub EditDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormEditDataKaryawan.Show()
End Sub

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

End Sub
End Class

Jumat, 04 Mei 2012

PERTEMUAN 18

RUMUS : CONECTION DATABASE KELASKU

Public Class Kelasku
Public Shared koneksi As New SqlClient.SqlConnection
Public Shared perintahSQL As New SqlClient.SqlCommand
Public Shared ds As New DataSet
Public Shared da As New SqlClient.SqlDataAdapter
Public Shared ketemu As SqlClient.SqlDataReader

Public Shared Sub bukaDATABASE()
Try
koneksi.ConnectionString = "Data Source=202-04;Initial Catalog=dbKaryawan;Integrated Security=True"
koneksi.Open()
perintahSQL.Connection = koneksi
Catch ex As Exception
MsgBox("GAGAL Koneksi Ke database" & Chr(13) & ex.Message, MsgBoxStyle.Exclamation, "ERROR")
End Try
End Sub
Public Shared Sub tutupDATABASE()
koneksi.Close()
koneksi.ConnectionString = Nothing
End Sub

End Class

rumus login :

Public Class FormLogin

Private Sub BtnMasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "select*from TbUser where username = '" & TxtUsername.Text & "' and pass = '" & TxtPassword.Text & "'"
Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

If Kelasku.ketemu.Read Then
MsgBox("Ligin Anda BERHASIL", MsgBoxStyle.Information, "SUKSES")
FormMenuUtama.Show()
Me.Hide()
Else
MsgBox("Login Anda GAGAL, Username dan password tidak ditemukan", MsgBoxStyle.Exclamation, "GAGAL")
TxtUsername.Text = ""
TxtPassword.Text = ""
TxtUsername.Focus()
End If
Kelasku.tutupDATABASE()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub
End Class

DATA ADMIN BARU

RUMUS :

Public Class FormTambahAdmin
Dim a, b, c As String

Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
a = TxtUsernameBaru.Text
b = TxtPasswordBaru.Text
c = TxtUlangiPassword.Text

If b = c Then
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
Kelasku.perintahSQL.ExecuteNonQuery()
Kelasku.tutupDATABASE()

MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

TxtUsernameBaru.Text = ""
TxtPasswordBaru.Text = ""
TxtUlangiPassword.Text = ""
TxtUsernameBaru.Focus()

Else
MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
End If
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Refresh()
End Sub

Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
FormMenuUtama.Enabled = True
Me.Close()

End Sub
End Class

Selasa, 24 April 2012

PERTEMUAN 16

RUMUS UNTUK CLASS PUBLIC :

rumus :

Public Class Buku

Private kodeBuku As String
Private judulBuku As String

Property m_kodeBuku()
Get
Return kodeBuku
End Get
Set(ByVal value)
kodeBuku = value
End Set
End Property

Property m_judulBuku()
Get
Return judulBuku
End Get
Set(ByVal value)
judulBuku = value
End Set
End Property

Public Function jenisBuku() As String
Dim hurufPertama As String
hurufPertama = kodeBuku.Substring(0, 1)

Select Case hurufPertama
Case "K" : Return "Komik"
Case "M" : Return "Majalah"
Case "F" : Return "Fiksi"
Case "N" : Return "Non Fiksi"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function

Public Function sumberBuku() As String
Dim hurufKedua As String
hurufKedua = kodeBuku.Substring(1, 1)

Select Case hurufKedua
Case "S" : Return "Sumbangan"
Case "P" : Return "Pembelian"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function
End Class

Rumus BTNPROSES :

Public Class Form1
Dim x As New Buku

Public Sub kosong()
TxtKodeBuku.Text = ""
TxtJudulBuku.Text = ""
TxtHargaSewa.Text = ""
TxtLamaSewa.Text = ""
LblJenis.Text = ""
LblSumber.Text = ""
LblBiayaSewa.Text = ""
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
kosong()
End Sub

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

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
x.m_kodeBuku = TxtKodeBuku.Text
x.m_judulBuku = TxtJudulBuku.Text

LblJenis.Text = x.jenisBuku()
LblSumber.Text = x.sumberBuku()
End Sub
End Class

UTS PERTEUAN 10

Public Class Form1 Dim biaya As Integer Dim biaya_asuransi As Integer Dim jenis, promo As String Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CmbPaket.Items.Clear() CmbPaket.Items.Add("Paket STOP RISK") CmbPaket.Items.Add("Paket HIGH RISK") CmbPaket.Items.Add("Paket MULTI RISK") End Sub Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click If ChkPromo.Checked = True Then biaya_asuransi = biaya - (0.05 * biaya) 'yang dalam kurung ini diskon nya, promo = "Ya" Else biaya_asuransi = biaya promo = "No" End If ListBox1.Items.Add("Nama : " & TxtNama.Text) ListBox1.Items.Add("Jenis/Usia :" & jenis & "/" & TxtUsia.Text) ListBox1.Items.Add("Masa Asuransi :" & TxtMasa.Text) ListBox1.Items.Add("Harga Kendaraan :" & TxtHarga.Text) ListBox1.Items.Add("Paket Asuransi :" & CmbPaket.Text) ListBox1.Items.Add("Promo : " & promo) ListBox1.Items.Add("Biaya Asuransi :" & biaya_asuransi) End Sub Private Sub CmbPaket_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPaket.SelectedIndexChanged Select Case CmbPaket.SelectedIndex() Case 0 : biaya = 0.1 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 1 : biaya = 0.11 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 2 : biaya = 0.12 * Val(TxtHarga.Text) * Val(TxtMasa.Text) End Select End Sub Private Sub RBLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBLaki.CheckedChanged jenis = "Laki - Laki" End Sub Private Sub RBPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPerempuan.CheckedChanged jenis = "Perempuan" End Sub Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click TxtHarga.Text = "" TxtMasa.Text = "" TxtNama.Text = "" TxtUsia.Text = "" RBLaki.Checked = False RBPerempuan.Checked = False ChkPromo.Checked = False CmbPaket.Text = "" ListBox1.Items.Clear() End Sub End Class

Selasa, 27 Maret 2012

Pertemuan8

Form1 :

Rumus Form1 :
Public Class Form1

Private Sub BtnGanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGanti.Click
'Tombol Ganti Gambar
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg")
End Sub

Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
'Tombol Kembali ke Gambar Semula
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End Sub

Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
OFDcarigambar.Title = "Silahkan Cari Gambar"
OFDcarigambar.InitialDirectory = "C:\"
OFDcarigambar.Filter = "JPEG File | *.jpg"

If OFDcarigambar.ShowDialog = Windows.Forms.DialogResult.OK Then
LblFileName.Text = OFDcarigambar.FileName
PictureBox1.Image = System.Drawing.Image.FromFile(LblFileName.Text)
Else
LblFileName.Text = Nothing
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End If
End Sub
End Class

Form 2 :

Rumus Form2 :
Public Class Form2

Dim kendaraan As String
Dim harga As Integer
Dim total, diskon, bayar As Integer

Private Sub RBMotor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBMotor.CheckedChanged
kendaraan = "Motor"
harga = 10000000
End Sub

Private Sub RBSepeda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBSepeda.CheckedChanged
kendaraan = "Sepeda"
harga = 2000000
End Sub

Private Sub RBBecak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBBecak.CheckedChanged
kendaraan = "Becak"
harga = 1750000
End Sub

Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
Dim x As ListViewItem

x = LVData.Items.Add(TxtNama.Text)

'kolom 2
x.SubItems.Add(MtxtTanggal.Text)
'kolom 3
x.SubItems.Add(kendaraan)
'kolom 4
x.SubItems.Add(TxtBanyak.Text)

total = harga * Val(TxtBanyak.Text)
'kolom 5
x.SubItems.Add(total)

If total > 7000000 Then
diskon = (0.05 * total) * Val(TxtBanyak.Text)
Else
diskon = (0.02 * total) * Val(TxtBanyak.Text)
End If
'kolom 6
x.SubItems.Add(diskon)

bayar = total - diskon
'kolom 7
x.SubItems.Add(bayar)

'jumlah data
TxtData.Text = LVData.Items.Count

kosong()
End Sub

Public Sub kosong()
TxtNama.Text = ""
MtxtTanggal.Text = ""
RBBecak.Checked = False
RBMotor.Checked = False
RBSepeda.Checked = False
TxtBanyak.Text = ""
End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
'Hapus Data
'Menghapus data yang dipilih pada listview 1
LVData.FocusedItem.Remove()

'refresh jumlah data
TxtData.Text = LVData.Items.Count
End Sub

Private Sub BtnHaPusBanyak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHaPusBanyak.Click
'Hapus SEMUA
LVData.Items.Clear()
TxtData.Text = LVData.Items.Count
End Sub

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

Private Sub BtnIsi_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click

End Sub
End Class

Pertemuan7

Form 2

Rumus :
Public Class Form1

Dim npm, nama As String
Dim tahun, jurusan, nomor As String
Dim panjang As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
npm = InputBox("Masukkan NPM Anda : ", "NPM")
nama = InputBox("Masukkan NAMA Anda : ", "NAMA")

panjang = npm.Length
If panjang = 10 Then
Form2.Lblnama.Text = nama
Form2.LblNPM.Text = npm

tahun = npm.Substring(0, 4)
jurusan = npm.Substring(4, 2)
nomor = npm.Substring(6, 4)

Form2.LblTahun.Text = tahun
Form2.LblNomor.Text = nomor

If jurusan = "25" Then
Form2.LblJurusan.Text = "Teknik Informatika"
ElseIf jurusan = "24" Then
Form2.LblJurusan.Text = "Sistem Informasi"
ElseIf jurusan = "13" Then
Form2.LblJurusan.Text = "Kompeterisasi Akuntasi"
ElseIf jurusan = "11" Then
Form2.LblJurusan.Text = "Manajemen Informatika"
ElseIf jurusan = "12" Then
Form2.LblJurusan.Text = "Teknik Informatika"
End If

Me.Hide()
Form2.Show()
Else
MsgBox("Maaf NPM Anda diluar kapasitas karakter" & Chr(13) & "Silahkan Ulangi Kembali Nanti", MsgBoxStyle.Information, "INFORMASI")
Me.Close()
End If
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
BtnExit.Show()
End Sub
End Class

Jumat, 16 Maret 2012

Pertemuan6

Rumus :

Public Class Form1
Dim KodeBarang As String
Dim SubTotal As Integer

Private Sub BtnTransaksiBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransaksiBaru.Click
TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
LBNamaBArang.Items.Clear()
LBHarga.Items.Clear()
LBJumlah.Items.Clear()
LBSubtotal.Items.Clear()
TxtTotal.Text = ""
TxtPPN.Text = ""
TxtTotalSeleruh.Text = ""
TxtBayar.Text = ""
TxtKembali.Text = ""
TxtKdBarang.Focus()
End Sub

Private Sub TxtKdBarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtKdBarang.KeyPress
KodeBarang = TxtKdBarang.Text.ToUpper

If e.KeyChar = Chr(13) Then
End If
If KodeBarang = "KD01" Then
TxtNamaBarang.Text = "HP Optical Mouse"
TxtHarga.Text = "50000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD02" Then
TxtNamaBarang.Text = "Black Mouse Pad"
TxtHarga.Text = "15000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD03" Then
TxtNamaBarang.Text = "Keyboard Protector"
TxtHarga.Text = "10000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD04" Then
TxtNamaBarang.Text = "laptop Skin"
TxtHarga.Text = "55000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD05" Then
TxtNamaBarang.Text = "Mini Speaker"
TxtHarga.Text = "110000"
TxtJumlah.Focus()
End If
End Sub

Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
If e.KeyChar = Chr(13) Then
TxtSubTotal.Text = Val(TxtHarga.Text) * Val(TxtJumlah.Text)

SubTotal = Val(TxtTotal.Text)

LBNamaBArang.Items.Add(TxtNamaBarang.Text)
LBHarga.Items.Add(TxtHarga.Text)
LBJumlah.Items.Add(TxtJumlah.Text)
LBSubtotal.Items.Add(TxtSubTotal.Text)

TxtTotal.Text = SubTotal + Val(TxtSubTotal.Text)
TxtPPN.Text = Val(TxtTotal.Text) * 0.1

TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
TxtKdBarang.Focus()
End If
End Sub

Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
TxtTotalSeleruh.Text = Val(TxtTotal.Text) + Val(TxtPPN.Text)
TxtBayar.Focus()
End Sub

Private Sub TxtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtBayar.KeyPress
If e.KeyChar = Chr(13) Then
TxtKembali.Text = Val(TxtBayar.Text) - Val(TxtTotalSeleruh.Text)
BtnTransaksiBaru.Focus()
End If
End Sub

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

End Sub

Private Sub TxtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlah.TextChanged

End Sub
End Class

Pertemuan5

Rumus :

Public Class FormGajiPegawaiPabrik

Dim byAsuransi, gajiPokok, totalGaji As Integer
Dim jenisKelamin As String

Private Sub BtnIsiDataBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsiDataBaru.Click
TxtNIP.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
LBData.Items.Clear()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
LBData.Items.Add("NIP : " & TxtNIP.Text)
LBData.Items.Add("Nama : " & TxtNama.Text)
LBData.Items.Add("Alamat : " & TxtAlamat.Text)
LBData.Items.Add("Jenis Kelamin : " & jenisKelamin)
LBData.Items.Add("------------------------")
LBData.Items.Add("Biaya Asuransi : " & byAsuransi)
LBData.Items.Add("Gaji Pokok : " & gajipokok)
LBData.Items.Add("Biaya Lembur : " & Val(TxtJam.Text) * 25000)
totalgaji = gajipokok + byAsuransi
LBData.Items.Add("Total Gaji : " & totalGaji)
End Sub

Private Sub RBPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPria.CheckedChanged
byAsuransi = 300000
jenisKelamin = "Pria"
End Sub

Private Sub RBWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBWanita.CheckedChanged
byAsuransi = 325000
jenisKelamin = "Wanita"
End Sub

Private Sub RB1A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1A.CheckedChanged
gajiPokok = 1750000
End Sub

Private Sub RB1B_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1B.CheckedChanged
gajiPokok = 2100000
End Sub

Private Sub RB2A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB2A.CheckedChanged
gajiPokok = 2300000
End Sub

Private Sub RBYa_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBYa.CheckedChanged
TxtJam.Enabled = True
End Sub

Private Sub RBTidak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTidak.CheckedChanged
TxtJam.Enabled = False
TxtJam.Text = ""
End Sub

End Class

Kamis, 08 Maret 2012

Pertemuan 4

RUMUS :
Public Class FormComboBox

Dim bpp, sks As Integer
Dim Jurusan, kuliah As String

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtNPMMahasiswa.Text = ""
TxtNamaMahasiswa.Text = ""
TxtAlamat.Text = ""
TxtJumlahSKS.Text = ""
LblBPP.Text = ""
LblSKS.Text = ""
LblTotalBiaya.Text = ""
CmbJurusan.Text = ""
LBData.Items.Clear()
End Sub

Private Sub LBData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBData.SelectedIndexChanged

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

End Sub

Private Sub FormComboBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CmbJurusan.Items.Clear()
CmbJurusan.Items.Add("TI")
CmbJurusan.Items.Add("SI")
CmbJurusan.Items.Add("MI")
CmbJurusan.Items.Add("KA")
CmbJurusan.Items.Add("TK")
End Sub

Private Sub RbPagi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbPagi.CheckedChanged
kuliah = "PAGI"
bpp = 1500000
sks = 75000
End Sub

Private Sub RbSore_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbSore.CheckedChanged
kuliah = "SORE"
bpp = 1750000
sks = 100000
End Sub

Private Sub TxtJumlahSKS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlahSKS.KeyPress
If e.KeyChar = Chr(13) Then
lblBPP.Text = bpp
LblSKS.Text = Val(TxtJumlahSKS.Text) * sks
LblTotalBiaya.Text = Val(lblBPP.Text) + Val(LblSKS.Text)
End If
End Sub

Private Sub TxtJumlahSKS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlahSKS.TextChanged

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
If MsgBox("Apa kamu mau keluar dari sini?", MsgBoxStyle.YesNo, "EXIT") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

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

End Sub

Private Sub CmbJurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbJurusan.SelectedIndexChanged
Select Case CmbJurusan.SelectedIndex
Case 0 : Jurusan = "Teknik Informatika (S-1)"
Case 1 : Jurusan = "Sistem Informatika (S-1)"
Case 2 : Jurusan = "Manajemen Informatika (D-3)"
Case 3 : Jurusan = "Komputerisasi akuntasi (D-3)"
Case 4 : Jurusan = "Teknik Komputer (D-3)"
End Select
End Sub

Private Sub LblBPP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblBPP.Click

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
LBData.Items.Add("DATA PEMBAYARAN")
LBData.Items.Add("")
LBData.Items.Add("NPM : " + TxtNPMMahasiswa.Text)
LBData.Items.Add("Nama : " + TxtNamaMahasiswa.Text)
LBData.Items.Add("Jurusan : " + CmbJurusan.Text)
LBData.Items.Add("Alamat : " + TxtAlamat.Text)
LBData.Items.Add("Waktu Kuliah : " + kuliah)
LBData.Items.Add("")
LBData.Items.Add("")
LBData.Items.Add("TOTAL YANG DIBAYAR : " + LblTotalBiaya.Text)

End Sub

Private Sub lblBPP_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblBPP.Click

End Sub
End Class

Jumat, 02 Maret 2012

pertemuan2

RUMUS :
Public Class FormPropertiesoperator

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
LblKetik.Text = TxtKetik.Text
End Sub

Private Sub Btnkiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkiri.Click
LblKetik.TextAlign = ContentAlignment.MiddleLeft
End Sub

Private Sub BtnTengah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTengah.Click
LblKetik.TextAlign = ContentAlignment.MiddleCenter
End Sub

Private Sub BtnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKanan.Click
LblKetik.TextAlign = ContentAlignment.MiddleRight
End Sub

Private Sub Btnkuning_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkuning.Click
LblKetik.ForeColor = Color.Yellow
End Sub

Private Sub BtnPink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPink.Click
LblKetik.ForeColor = Color.Pink
End Sub

Private Sub BtnMerah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMerah.Click
LblKetik.ForeColor = Color.Red
End Sub

Private Sub BtnHijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHijau.Click
LblKetik.ForeColor = Color.Green
End Sub

Private Sub BtnBiru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBiru.Click
LblKetik.ForeColor = Color.Blue
End Sub

Private Sub BtnzUngu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnzUngu.Click
LblKetik.ForeColor = Color.Purple
End Sub

Private Sub BtnAbu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbu.Click
LblKetik.ForeColor = Color.Gray
End Sub

Private Sub BtnCokelat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCokelat.Click
LblKetik.ForeColor = Color.Brown
End Sub

Private Sub BtnHitam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitam.Click
LblKetik.ForeColor = Color.Black
End Sub

Private Sub BtnBKuning_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBKuning.Click
LblKetik.BackColor = Color.Yellow
End Sub

Private Sub BtnBPink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBPink.Click
LblKetik.BackColor = Color.Pink
End Sub

Private Sub BtnBMerah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBMerah.Click
LblKetik.BackColor = Color.Red
End Sub

Private Sub BtnBHijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBHijau.Click
LblKetik.BackColor = Color.Green
End Sub

Private Sub BtnBBiru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBBiru.Click
LblKetik.BackColor = Color.Blue
End Sub

Private Sub BtnBUngu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBUngu.Click
LblKetik.BackColor = Color.Purple
End Sub

Private Sub BtnBAbu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBAbu.Click
LblKetik.BackColor = Color.Gray
End Sub

Private Sub BtnBCokelat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBCokelat.Click
LblKetik.BackColor = Color.Brown
End Sub

Private Sub BtnBHitam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBHitam.Click
LblKetik.BackColor = Color.Black
End Sub

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

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

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

Private Sub Btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click
Txtsatu.Text = ""
TxtKetik.Text = ""
Txtdua.Text = ""
LblKetik.Text = ""
Txtoperasi.Text = ""
Txtdes.Text = ""
End Sub

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
Txtoperasi.Text = Val(Txtsatu.Text) + Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " + " + Txtdua.Text + " = " + Txtoperasi.Text
End Sub

Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKurang.Click
Txtoperasi.Text = Val(Txtsatu.Text) - Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " - " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKali.Click
Txtoperasi.Text = Val(Txtsatu.Text) * Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " * " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBagi.Click
Txtoperasi.Text = Val(Txtsatu.Text) / Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " / " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnDIV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDIV.Click
Txtoperasi.Text = Val(Txtsatu.Text) \ Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " DIV " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub BtnMOD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMOD.Click
Txtoperasi.Text = Val(Txtsatu.Text) Mod Val(Txtdua.Text)
Txtdes.Text = Txtsatu.Text + " MOD " + Txtdua.Text + " = " + Txtoperasi.Text

End Sub

Private Sub TxtKetik_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKetik.TextChanged

End Sub
End Class

Selasa, 28 Februari 2012

Pertemuan 3

rumus :
Public Class FormHitungNilai
Dim a, b, c, d As Double
Dim Akhir As String
Dim Huruf As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
If MsgBox("Apa kamu mau keluar dari sini?", MsgBoxStyle.YesNo, "EXIT") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub ButtonReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonReset.Click
TxtNPM.Text = ""
TxtNama.Text = ""
TxtKuliah.Text = ""
Txttugas.Text = ""
TxtKuis.Text = ""
TxtUTS.Text = ""
TxtUAS.Text = ""
LblNilaiAkhir.Text = ""
LBData.Items.Clear() 'Untuk membersihkan ListBox

End Sub

Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click
a = Val(Txttugas.Text)
b = Val(TxtKuis.Text)
c = Val(TxtUTS.Text)
d = Val(TxtUAS.Text)

LblNilaiAkhir.Text = ((a * 0.2) + (b * 0.1) + (c * 0.3) + (d * 0.4))

If Akhir >= 80 Then
Huruf = "A"
ElseIf Akhir >= 68 Then
Huruf = "B"
ElseIf Akhir >= 56 Then
Huruf = "C"
ElseIf Akhir >= 45 Then
Huruf = "D"
Else
Huruf = "E"
End If

LBData.Items.Add("HASIL NILAI AKHIR")
LBData.Items.Add("")
LBData.Items.Add("Untuk Sdr.")
LBData.Items.Add("NPM : " + TxtNPM.Text)
LBData.Items.Add("Nama : " + TxtNama.Text)
LBData.Items.Add("Mata Kuliah : " + TxtKuliah.Text)
LBData.Items.Add("adalah " + Huruf)
End Sub

Private Sub LBData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBData.SelectedIndexChanged

End Sub

Private Sub TxtKuliah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKuliah.TextChanged

End Sub
End Class

Selasa, 21 Februari 2012

pertemuan 1

rumus SIMPAN & RESET

Public Class FormPengisianBiodata

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLJudul.Click

End Sub

Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
'Ini Untuk Tombol keluar aplikasi
End
End Sub

Private Sub BTNReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNReset.Click
'Ini untuk tombol mereset data
TxtNama.Text = " "
TxtNPM.Text = " "
TxtAlamat.Text = " "
End Sub
End Class

PemogramanVisual1