VB 2008 : Coding Form Aplikasi Penggajian

From Penggajian

Public Class FormPenggajian
    Dim jenis As String

    Private Sub rdLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdLaki.CheckedChanged
        jenis = "Laki-Laki"
    End Sub

    Private Sub rdPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdPerempuan.CheckedChanged
        jenis = "Perempuan"
    End Sub

    Private Sub FormDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbJabatan.Items.Clear()
        cmbJabatan.Items.Add("Manager")
        cmbJabatan.Items.Add("Supervisor")
        cmbJabatan.Items.Add("Staff Karyawan")
    End Sub

    Public Sub nol()
        txtNik.Text = ""
        txtNama.Text = ""
        RDlaki.Checked = False
        RDPerempuan.Checked = False
        txtalamat.Text = ""
        txttelepon.Text = ""
        DTtanggal.Text = Today
        txtjamkerja.Text = ""
        txtJamLembur.Text = ""
        txtgajiPokok.Text = ""
        txtUmkn.Text = ""
        txtUlembur.Text = ""
        txtUtransport.Text = ""
        lblTotalGaji.Text = "--"
        lblHslGajiPokok.Text = "--"
        Label5.Text = "--"
        txtgajiPokok.Focus()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        GajiKaryawan.BukaDatabase()
        'insert into tblKaryawan values ('NIP','Nama','JenisKelamin','alamat','telepon','tempatlahir','statuskaryawan','jabatan','tanggalmasuk')

        GajiKaryawan.perintahSQL.CommandText = "insert into tblGajikaryawan values ('" & txtNik.Text & "','" & txtNama.Text & "','" & jenis & "','" & txtAlamat.Text & "','" & txtTelepon.Text & "','" & cmbJabatan.Text & "','" & Format(DTtanggal.Value, "MM/dd/yyyy") & "','" & lblTotalGaji.Text & "')"
        GajiKaryawan.perintahSQL.ExecuteNonQuery()
        GajiKaryawan.tutupdatabase()
        MsgBox("Data Telah Disimpan!!!", MsgBoxStyle.Information, "INFO")
        nol()
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Dim f = MsgBox("Apakah anda yakin ingin keluar?", vbYesNo, "KONFIRMASI")
        If f = vbYes Then
            MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.DefaultButton1, "KONFIRMASI")
            Me.Close()
        ElseIf f = vbNo Then
            Exit Sub
        End If
    End Sub

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        txtUtransport.Text = txtgajiPokok.Text * 0.075
        lblTotalGaji.Text = (Val(txtgajiPokok.Text) + Val(txtUmkn.Text) + Val(txtUlembur.Text) + Val(txtUtransport.Text))
    End Sub

    Private Sub txtjamkerja_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjamkerja.TextChanged
        If txtjamkerja.Text <> "" Then
            Select Case txtjamkerja.Text
                Case Is >= 192
                    txtJamLembur.Text = txtjamkerja.Text - 192
                    txtUlembur.Text = txtJamLembur.Text * 10000
                Case Else
                    txtJamLembur.Text = txtjamkerja.Text * 0
                    txtUlembur.Text = txtJamLembur.Text * 0
            End Select
        End If
    End Sub

    Private Sub rdGol1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol1.CheckedChanged
        lblHslGajiPokok.Text = 950000
        txtgajiPokok.Text = 950000
        txtUtransport.Text = 120000
    End Sub

    Private Sub rdGol2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol2.CheckedChanged
        lblHslGajiPokok.Text = 1300000
        txtgajiPokok.Text = 1300000
        txtUtransport.Text = 160000
    End Sub

    Private Sub rdGol3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol3.CheckedChanged
        lblHslGajiPokok.Text = 1600000
        txtgajiPokok.Text = 1600000
        txtUtransport.Text = 200000
    End Sub

    Private Sub rdManager_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdManager.CheckedChanged
        lblHslGajiPokok.Text = 0.1 * Val(txtgajiPokok.Text)
        txtUmkn.Text = 0.3 * Val(txtgajiPokok.Text)
    End Sub

    Private Sub rdSpvisor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdSpvisor.CheckedChanged
        lblHslGajiPokok.Text = 0.05 * Val(txtgajiPokok.Text)
        txtUmkn.Text = 0.2 * Val(txtgajiPokok.Text)
    End Sub

    Private Sub rdStaff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdStaff.CheckedChanged
        lblHslGajiPokok.Text = 0.025 * Val(txtgajiPokok.Text)
        txtUmkn.Text = 0.1 * Val(txtgajiPokok.Text)
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        txtNik.Text = ""
        txtNama.Text = ""
        rdLaki.Checked = False
        rdPerempuan.Checked = False
        txtAlamat.Text = ""
        txtTelepon.Text = ""
        DTtanggal.Text = Today
        txtjamkerja.Text = ""
        txtJamLembur.Text = ""
        txtgajiPokok.Text = ""
        txtUmkn.Text = ""
        txtUlembur.Text = ""
        txtUtransport.Text = ""
        lblTotalGaji.Text = "--"
        lblHslGajiPokok.Text = "--"
        Label5.Text = "--"
        txtgajiPokok.Focus()
    End Sub
End Class









Form Lihat Data

Public Class FormLihatData

    Public Sub tampildata()
        GajiKaryawan.ds.Clear()
        GajiKaryawan.BukaDatabase()
        GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan"
        GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
        GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")

        DGVdatagaji.DataSource = GajiKaryawan.ds
        DGVdatagaji.DataMember = "TblGajiKaryawan"
        DGVdatagaji.ReadOnly = True
        GajiKaryawan.tutupdatabase()
    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("harus dipilih", MsgBoxStyle.Information, "INFO")
        Else
            GajiKaryawan.ds.Clear()
            GajiKaryawan.BukaDatabase()
            GajiKaryawan.perintahSQL.CommandType = CommandType.Text

            'combo box yang ke -0:NIP
            If cmbparameter.SelectedIndex = 0 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where NIK like'%" & txtnilaiparameter.Text & "%'"
                'combo box yang ke -1:nama
            ElseIf cmbparameter.SelectedIndex = 1 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where nama like'%" & txtnilaiparameter.Text & "%'"
                'combo box yang ke - 2:alamat
            ElseIf cmbparameter.SelectedIndex = 2 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where alamat like'%" & txtnilaiparameter.Text & "%'"
                'combo box yang ke -3:telepon
            ElseIf cmbparameter.SelectedIndex = 3 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where telepon like'%" & txtnilaiparameter.Text & "%'"
                'combo box yang ke -4:jabatan
            ElseIf cmbparameter.SelectedIndex = 4 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where jabatan like'%" & txtnilaiparameter.Text & "%'"
            ElseIf cmbparameter.SelectedIndex = 5 Then
                GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan where TotalGaji like'%" & txtnilaiparameter.Text & "%'"
            End If




            GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
            GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")

            DGVdatagaji.DataSource = GajiKaryawan.ds
            DGVdatagaji.DataMember = "TblGajiKaryawan"
            DGVdatagaji.ReadOnly = True
            GajiKaryawan.tutupdatabase()
        End If
    End Sub

    Private Sub FormLihatData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tampildata()
    End Sub
End Class


Class GajiKaryawan.vb

Public Class GajiKaryawan
    'membuat file koneksi
    Public Shared koneksi As New SqlClient.SqlConnection
    Public Shared perintahSQL As New SqlClient.SqlCommand

    'data adapter : untunk mengambil data dari database dan menampungnya pada dataset
    Public Shared da As New SqlClient.SqlDataAdapter

    'data set : untuk menampilkan tabel yang pada database
    Public Shared ds As New DataSet

    'data reader : untuk membaca dan menampilkan data lebih cepat dan efisien
    Public Shared ketemu As SqlClient.SqlDataReader

    Public Shared Sub BukaDatabase()
        Try
            koneksi.ConnectionString = "Data Source=DOSEN\SQLEXPRESS;Initial Catalog=dbGaji;Integrated Security=True"
            koneksi.Open()
            perintahSQL.Connection = koneksi
        Catch ex As Exception
            MsgBox("koneksi database gagal!!!", MsgBoxStyle.Information, "error")
        End Try
    End Sub

    Public Shared Sub tutupdatabase()
        koneksi.Close()
        koneksi.ConnectionString = Nothing
    End Sub
End Class

bagian yang di warnai dengan warna kuning, ganti dengan database Sql masing"...
bagi sobat yang belum mengerti cara mengganti database-nya...comment di posting ini..

bagi sobat seewebsters yang gak mau repot buat Form nya, sobat seewebsters bisa download DISINI

bagi sobat seewebsters yang Copas posting ini jangan lupa menyertakan sumbernya seewebsters.blogspot.com
bagi sobat seewebsters yang telah membaca postingan ini hendaknya meninggalkan commend pada blog ini.

Saya Yakin, Anda Adalah Golongan Pembaca Yang Baik.
Yang Selalu Meninggalkan Komentar Di Artikel Ini.

Tukar Link

Tukar Link

Berikut aturan yang berlaku untuk bertukar link :

1.Silahkan Tautkan atau Pasang Link url SEEWEBSTERS terlebih dahulu di blog anda :
Title Blog : SeeWebsters : visual basic
Url : http://seewebsters.blogspot.com/ (Untuk Meminimalisir kesalahan dalam penulisan  lebih baik di Copas URLnya) 
 2.Selanjutnya Silahkan kirim pemberitahuan dengan memberikan komentar di postingan ini 
    Setelah pemberitauan diterima saya akan melakukan pengecekan ke blog anda. 
 3.setelah dipastikan Link seewebsters telah terpasang di blog anda, secepatnya Link blog anda akan saya add.
    Aturan yang berlaku apa bila link SEEWEBSTERS Tidak Terpasang atau hilang dari blog
   anda maka link anda juga akan hilang di Blog saya

banyak para blogger yang curang, mereka yang meminta untuk bertukaran link, kemudian setelah ditanggapi dan link mereka dipasang kemudian selang beberpa hari Link SEEWEBSTERS tidak tampil lagi di blog mereka sehingga dengan terpaksa saya juga harus menghapus Link mereka dari blog saya karena mereka yang hanya ingin menjadi parasit tidak seharusnya di kasih hati.

Salam, 
admin seewebsters

STRUKTUR PERULANGAN DAN ARRAY

kali ini saya akan berbagi form dan coding vb 2008 struktur Perulangan dan Array.
bagi temen-teman yang udah cari coding-nya di mbah google  tapi gak ketemu-ketemu,
temen-temen bisa download Coding Struktur Perulangan dan array-nya DISINI

VB 2008 : Form Login dan Form Progressbar

Salam sejahtera buat penggunjung blog seewebsters.blogspot.com yang senantiasa selalu membaca isi blog ini, pada hari ini saya akan menjelaskan bagaimana proses pembuatan Form login dan Form Progressbar pada VB2008.

langkah 1: Pilih Project > Add windows Form > Form Login
langkah 2: buat 2 textbox dan 2 button
langkah 3: Copy Paste Source Coding berikut ini di button login

Public Class LoginForm1
    Dim counter As Integer

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If UCase(UsernameTextBox.Text) = "SI" And UCase(PasswordTextBox.Text) = "41" Then
            Form1.Show()
            Form1.Timer1.Enabled = True
            Form1.Show()
            Me.Hide()
            Exit Sub
        Else
            counter = counter + 1
            If counter = 3 Then
                MessageBox.Show("anda sudah 3 kali salah")
                End
            End If
            MessageBox.Show("login salah" + Chr(13) + "anda mempunyai " & 3 - counter & " kali untuk mencoba" + Chr(13) + "login ulang", "perhatian", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        Me.Close()
    End Sub

langkah 4: buat Form baru dengan cara yang sama, Pilih Project > Add windows Form > windows Form

langkah 5: buat 2 button [progressbar dan start], 1 progressbar dan timer

langkah 6: dobble klik pada button progressbar dan masukan coding berikut ini:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True 'aktifkan timer
        Button2.Text = "sedang proses"
        Timer1.Interval = 100 'set interval menjadi 100
        ProgressBar1.Value = 0 'kembalikan nilai progressbar menjadi 0
     
        End Sub

langkah 7: dobble klik pada timer dan masukan coding berikut ini:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static tiktok As Integer
        tiktok = tiktok + 1
        ProgressBar1.Value = tiktok
        Button1.Text = tiktok & " % "
        Button2.Text = "sedang proses"
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False 'non aktifkan timer1 saat nilai statis=nilai max progressbar1
            tiktok = 0 'kembalikan nilai status menjadi 0
            Button2.Text = "terima kasih"
            Me.Hide()
        End If
    End Sub



Pembuatan Login dan Progressbar telah selesai, tinggal coba untuk di jalankan dengan menekan tombol F5 pada keyboard.

untuk lebih jelas silakan download aplikasi-nya DISINI

Visual Basic 2008 : Coding Exit [Messages Box]

If MsgBox("do you want to quit?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "exit") = MsgBoxResult.Yes Then
   MsgBox("thank you!!", MsgBoxStyle.Information, "end")
      End
ElseIf MsgBoxResult.No Then
       MsgBox("try again", MsgBoxStyle.Critical, "retry")
      End If
            End Sub