Program penggajian karyawan pada visual basic

Membuat Program Penggajian Karyawan pada visual Basic

  *Listing Program*  :

     Dim total, lembur, gaji, pajak, tunjangan As Double

    Private Sub Command1_Click()
Text7.Text = 0.025 * Text3.Text
gaji = Text3.Text
tunjangan = Text5.Text
lembur = Text6.Text
pajak = Text7.Text
total = gaji + tunjangan + lembur - pajak
Text9.Text = total
End Sub

  Private Sub Command3_Click()
End
End Sub

  Private Sub Option1_Click()
Text3.Text = 2000000
gaji = Text3.Text
End Sub

  Private Sub Option2_Click()
Text3.Text = 1750000
gaji = Text3.Text
End Sub

  Private Sub Option3_Click()
Text3.Text = 1500000
gaji = Text3.Text
End Sub

  Private Sub Option4_Click()
Text5.Text = 200000
tunjangan = Text5.Text
End Sub

  Private Sub Option5_Click()
Text5.Text = 150000
tunjangan = Text5.Text
End Sub

  Private Sub Option6_Click()
Text5.Text = 100000
tunjangan = Text5.Text
End Sub

  Private Sub Text8_Change()
Dim jl As Double
jl = Text8.Text
gaji = Text3.Text
lembur = jl * 1 / 173 * gaji
Text6.Text = lembur
End Sub

TUTORIAL MEMBUAT APLIKASI KASIR DENGAN VB

Tutorial membuat aplikasi kasir dengan vb 6.0

1.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Saya akan membuka program Visual Basic dengan cara klik pada menu -> all programs -> MicrosoftVisual Basic 6.0, lalu buka aplikasi Visual Basic.Akan menampilkan gambar seperti diatas, lalu pilih Standard EXE, lalu pilih Open.

2.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Di atas adalah tampilan awal dari Visual Basic.Untuk membuat aplikasi kasir buat lah seperti gambar diatas dengan menggunakan komponen Label,ListBox, TextBox dan CommandButton. Lalu ubahlah seperti gambar dibawah ini.

3.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Untuk mengubahnya seperti gambar diatas dengan cara Pengaturan property setiap object-nya adalahsebagai berikut :Object Properties ValueForm1 CaptionStartUpPositionAgen Penjualan2 – CenterScreenLabel1 CaptionBackColorPilih Barang:HighlightLabel2 CaptionBackColorJumlah:HighlightList1 - -Text1 Text <kosong>Command1 Caption OKCommand2 Caption ExitLabel3 CaptionBackColorName<kosong>Highlight TextlblBarangLabel4 CaptionBackColorName<kosong>Highlight TextlblHargaLabel5 CaptionBackColorName<kosong>Highlight TextlblJumlahLabel6 CaptionBackColorName<kosong>Highlight TextlblDiskon

4.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Label7 CaptionBackColorName<kosong>Highlight TextlblTotalSetelah diubah akan menampilkan seperti gambar dibawah iniBuka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :Private Sub Command1_Click()Dim harga As Currency, total As CurrencyDim jumlah As IntegerDim diskon As SingleDim satuan As StringIf List1.Text = "" ThenMsgBox "Anda belum memilih barang !!"List1.ListIndex = 0Exit SubEnd IfIf Text1.Text = "" ThenMsgBox "Anda belum mengisi jumlah barang !!"Text1.SetFocusExit SubEnd IfSelect Case List1.TextCase "Pensil"harga = 12000

5.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0satuan = "Pak"Case "Buku"harga = 20000satuan = "Lusin"Case "Kertas"harga = 25000satuan = "Rim"Case "Pulpen"harga = 11000satuan = "Pak"Case "Penghapus"harga = 10000satuan = "Pak"Case "Serutan Pensil"harga = 9000satuan = "Pak"End SelectlblBarang.Caption = "Barang : " & List1.TextlblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuanlblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuanjumlah = Text1.TextSelect Case jumlahCase Is < 10diskon = 0Case 10 To 20diskon = 0.15Case Elsediskon = 0.2End Selecttotal = jumlah * (harga * (1 - diskon))lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")End SubPrivate Sub Command2_Click()answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Ditanyakan")If answer = vbYes ThenEndElseMsgBox "action canceled", vbInformation, "confirm"End IfEnd SubPrivate Sub Form_Load()List1.AddItem "Pensil"List1.AddItem "Buku"

6.     Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0List1.AddItem "Kertas"List1.AddItem "Pulpen"List1.AddItem "Penghapus"List1.AddItem "Serutan Pensil"End SubAtau seperti pada gambar dibawah ini

7.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Setelah itu saya akan mencoba jalankan apliksi tersebut dengan mengklik star yang ada pada ToolsbarStandar Visual BasicProgramnya akan tampil seperti gambar diatas

8.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basis 6.0Saya akan mencoba jalankan aplikasi agen penjualannya, saya memilih barang: buku dengan jumlah: 20lalu klik OK akan menampilkan hasil dan pernyataan yang benar seperti gambar diatas.Selesailah program aplikasi kasir yang saya buatTerima kasih..

BIODATA

BIODATA

NAMA        : MARTUA PANGGABEAN

NPM           : 14110534

KELAS       : TI-P1405

TTL             : P. SIANTAR, 25 MEI 1996

JK                : LAKI-LAKI

AGAMA     : KRISTEN PROTESTAN

STATUS      : MAHASISWA

HOBBY      : FUTSAL

ALAMAT    : JL. JAMIN GINTING, PB. GG. KARYA