Menerima Pesanan

Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.

Promo Terkini

Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain. .

Promo Terbaru

Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.

Promo Saat Ini

Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.

Promo lagi

Menerima Pesanan Desain Banner, Undangan, Spanduk, Brosur, Dan Lain Lain.

tutorial combobox pada visual basic 6.

By  9:42 AM  
Read More

PROGRAM HITUNG GAJI DAN TUNJANGAN KARYAWAN DENGAN VISUAL BASIC 6.0

By  9:52 AM  
 Assalamualaikum
Kali ini saya mau berbagi tentang pembuatan program hitung gaji dan tunjangan karyawan
langsung saja ya......

Gambar Program :
Jangan Lupa Ubah Terlebih dahulu Pada Name dan Propertiesnya seperti pada program agar tidak terjadi errot..........
Dengan Ketentuan Sebagai berikut :

NIK
KK-001,KS-002, AS-001,AS-002, SK-001, dan SS-001

NAMA tingal di liat aja dalam coding, Saya rasa itu mudah dalam pengisian nama jadi tidak saya cantumkan disini

BAGIAN :
jika Kode pada NIK "K" = Kabag dan JIka Kode"S"=Staf

JABATAN:
jika Kode pada NIK "K"= Keuangan, "S"= Scurity, dan "A"=Administrasi

GAJI Adalah :
Jika jabatan KABAG dan bagian  KEUANGAN maka gaji 4000000
Jika jabatan  STAF dan bagian  KEUANGANmaka gaji 2000000
Jika jabatan KABAG dan bagian  SCURITYmaka gaji 3000000
Jika jabatan KABAG dan bagian  ADMINISTRASImaka gaji 2500000
Jika jabatan STAF dan bagian  SCURITYmaka gaji 1700000


STATUS 
terdapat dua kemungkinan MENIKAH atau BELUM MENIKAH

JUMLAHN ANAK
terdapat 5 kemungkinan: 1 S/d 5

 TUNJANGAN ANAK dengan ketentuan jika karyawan menikah dan mempunyai anak maka tunjangan 0.02% jika tidak maka Tunjangan  0

TUNJANGAN ISTRI dengan ketentuan jika karyawan menikah maka tunjangan 0.15 % jika tidak maka Tunjangan  0

TOTAL GAJI
Yaitu GAJI + TUNJANGAN ANAK + TUNJANGAN ISTRI

NIH Codingnya Yang Pasti di tunggu - tunggu ...


Form Codingnya, untuk mengisi Combo Box pada NIK, STATUS dan JUMLAH ANAK dan untuk menghilangkan tulisan pada label ketika program berjalan

Private Sub Form_Load()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    
End Sub

Coding pada comboNIK  dan pada prosedure CLICK masukkan :

Private Sub CboNIK_Click()

A = Mid(CboNIK, 2, 1)
If A = "S" Then
    Lbjabatan.Caption = "STAF"
Else
    Lbjabatan.Caption = "KABAG"
End If
If CboNIK = "KK-001" Then
lbNAMA.Caption = "PAIJO"
ElseIf CboNIK = "KS-002" Then
lbNAMA.Caption = "MARWOTO"
    ElseIf CboNIK = "AS-001" Then
    lbNAMA.Caption = "MISWANTO"
        ElseIf CboNIK = "AS-002" Then
        lbNAMA.Caption = "KARJIO"
            ElseIf CboNIK = "SK-001" Then
            lbNAMA.Caption = "DARTO "
                Else
                lbNAMA.Caption = "SUGENG"
    End If

b = Left(CboNIK, 1)
If b = "K" Then
lbBagian.Caption = "KEUANGAN"
    ElseIf b = "S" Then
    lbBagian.Caption = "SCURITY"
        Else
        lbBagian.Caption = "ADMINISTRASI"
End If

If Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 4000000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 2000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 3000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "ADMINISTRASI" Then
lbGaji.Caption = 2500000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 1700000
Else
lbGaji.Caption = 1900000
End If

End Sub

Penjelasan:
coding ini merupakan coding untuk mengisi label nama, jabatan, bagian dan gaji,
ketika combo NIK di isi maka akan secara otomatis Nama, Jabatan, Bagian dan Gaji akan terisi.

Pada Tombol Proses Masukan Coding

Private Sub CmdProses_Click()

If CboStatus.Text = "Menikah" Then
LbTunjIstri = 0.15 * lbGaji
Else
LbTunjIstri = 0
End If

If CboJmlAnak >= 3 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.5
ElseIf CboJmlAnak >= 1 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.02 * lbGaji
Else
lbTunjAnak = 0
End If

lbTotalGaji = Val(lbGaji.Caption) + Val(lbTunjAnak.Caption) + Val(LbTunjIstri.Caption)

End Sub

Keterangan:
Coding untuk mengisi tunjangan anak, istri dan total gaji.

pada Tombol Hapus masukkan coding


Private Sub CmdHapus_Click()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    CboNIK.SetFocus

Pada Tombol Keluar Masukkan Coding

Private Sub CmdKeluar_Click()
End
End Sub

Hasilnya 


Nah Bagaimana Mudah Bukan, Sekian Postingan kali ini semoga bermanfaat.. aamiin..
Untuk Coding Secara keseluruhan saya berikan disini

Private Sub CboNIK_Click()

A = Mid(CboNIK, 2, 1)
If A = "S" Then
    Lbjabatan.Caption = "STAF"
Else
    Lbjabatan.Caption = "KABAG"
End If
If CboNIK = "KK-001" Then
lbNAMA.Caption = "PAIJO"
ElseIf CboNIK = "KS-002" Then
lbNAMA.Caption = "MARWOTO"
    ElseIf CboNIK = "AS-001" Then
    lbNAMA.Caption = "MISWANTO"
        ElseIf CboNIK = "AS-002" Then
        lbNAMA.Caption = "KARJIO"
            ElseIf CboNIK = "SK-001" Then
            lbNAMA.Caption = "DARTO "
                Else
                lbNAMA.Caption = "SUGENG"
    End If

b = Left(CboNIK, 1)
If b = "K" Then
lbBagian.Caption = "KEUANGAN"
    ElseIf b = "S" Then
    lbBagian.Caption = "SCURITY"
        Else
        lbBagian.Caption = "ADMINISTRASI"
End If

If Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 4000000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "KEUANGAN" Then
lbGaji.Caption = 2000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 3000000
ElseIf Lbjabatan.Caption = "KABAG" And lbBagian.Caption = "ADMINISTRASI" Then
lbGaji.Caption = 2500000
ElseIf Lbjabatan.Caption = "STAF" And lbBagian.Caption = "SCURITY" Then
lbGaji.Caption = 1700000
Else
lbGaji.Caption = 1900000
End If

End Sub


Private Sub CmdHapus_Click()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    CboNIK.SetFocus
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdProses_Click()

If CboStatus.Text = "Menikah" Then
LbTunjIstri = 0.15 * lbGaji
Else
LbTunjIstri = 0
End If

If CboJmlAnak >= 3 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0
ElseIf CboJmlAnak >= 1 And CboStatus = "Menikah" Then
lbTunjAnak.Caption = 0.02 * lbGaji
Else
lbTunjAnak = 0
End If

lbTotalGaji = Val(lbGaji.Caption) + Val(lbTunjAnak.Caption) + Val(LbTunjIstri.Caption)

End Sub

Private Sub Form_Load()
With CboNIK
    .Clear
    .AddItem "KK-001"
    .AddItem "KS-002"
    .AddItem "AS-001"
    .AddItem "AS-002"
    .AddItem "SK-001"
    .AddItem "SS-001"
End With

    lbNAMA.Caption = ""
    lbBagian.Caption = ""
    Lbjabatan.Caption = ""
    lbGaji.Caption = ""
    
    With CboStatus
        .Clear
        .AddItem "Menikah"
        .AddItem "Belum Menikah"
    End With
    
        With CboJmlAnak
            .Clear
            .AddItem "0"
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
    
    lbTunjAnak.Caption = ""
    LbTunjIstri.Caption = ""
    lbTotalGaji.Caption = ""
    
End Sub




Bagi yang mau Melihat File Contohnya dan ingin merubahnya sesuai dengan yang di mau,
boleh DONLOAD SAJA ini melalui Google Drive:




Read More

PROGRAM HITUNG PENJUALAN DALAM VISUAL BASIC

By  10:29 AM  
Selamat Malam, kali ini saya mau berbagi mengenai cara membuat program hitung Penjualan sederhana.

Gambar Design Programnya :




 Tombol yang kita gunakan adalah :
Label = 12 buah
Combobox = 1 buah
texbox = 1 buah
command button = 3 buah

Sebelum memasukkan coding, Ubah terlebih dahulu pada caption dan name nya, caranya ada pada postingan sebelumnya.


Dan ini Codingnya:
Private Sub cbobarang_Click()
x = cbobarang
If x = "MN" Then
Lbnamabarang.Caption = "Monitor"
ElseIf x = "KY" Then
Lbnamabarang.Caption = "Kyboard"
ElseIf x = "MS" Then
Lbnamabarang.Caption = "Mouse"
Else
Lbnamabarang.Caption = "Cooling"
End If

 a = cbobarang
If a = "MN" Then
lbhargasatuan.Caption = 800000
ElseIf a = "KY" Then
lbhargasatuan.Caption = 45000
ElseIf a = "MS" Then
lbhargasatuan.Caption = 40000
Else
lbhargasatuan.Caption = 35000
End If
End Sub

 Private Sub Command1_Click()
lbtotalharga.Caption = txtjmlbeli.Text * lbhargasatuan

 If Lbnamabarang.Caption = "Monitor" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 2 / 100
ElseIf Lbnamabarang.Caption = "Kyboard" And txtjmlbeli.Text >= 10 Then
lbpotonganharga.Caption = lbtotalharga.Caption * 1 / 100
Else
lbpotonganharga.Caption = lbtotalharga.Caption * 0
End If

 lbtotalbayar.Caption = lbtotalharga.Caption - lbpotonganharga.Caption
End Sub

 Private Sub Command2_Click()
With cbobarang
    .Clear
    .AddItem "MN"
    .AddItem "KY"
    .AddItem "MS"
    .AddItem "CL"
End With

 txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""
cbobarang.SetFocus
End Sub

 Private Sub Command3_Click()
End
End Sub

 Private Sub Form_Load()
With cbobarang
    .Clear
    .AddItem "MN"
    .AddItem "KY"
    .AddItem "MS"
    .AddItem "CL"
End With

 txtjmlbeli.Text = ""
lbhargasatuan.Caption = ""
Lbnamabarang.Caption = ""
lbpotonganharga.Caption = ""
lbtotalbayar.Caption = ""
lbtotalharga.Caption = ""

 End Sub



Semoga Bermanfaat.
Read More

Visual Basic 6.0

By  9:08 PM  
Gambar tampilam program hitung Na dan Nm


Cara membuat program Hitung Nilai Akhir dan Nilai Mutu 
dengan ketentuan sbb:

Nilai akhir = absen+tugas+quis+UTS+UAS
Absen    = 10 %
Tugas     = 20 %
Quis       = 15 %
UTS       = 25 %
UAS       = 35%

Nilai Mutu :

A = 80 -100
B = 70 - 79,99
C = 60 - 69,99
D = 50 - 59,99
E =  <= 49,99

Buat label pada gambar dengan tombol panah merah sebanyak 11 Label
Label
Propertis -> Caption*
Propertis ->Name(bebas)**
Label 1
Program hitung NA dst..

Label 2
NPM

Label 3
Kehadiran

Label 4
Kuis

Label 5
Tugas

Label 6
UTS

Label 7
UAS

Label 8
Nilai Akhir

Label 9
Nilai Mutu

Label 10

LblNA
Label 11

LblNM
Pada label 10 dan 11 ubah di propertis cari borderstyle  ubah menjadi 1-fixed single
Buat TexBox pada gambar dengan tombol panah Hijau sebanyak  6 TexBox
TexBox
Propertis ->Name (bebas)**
Text1
txNPM
Text2
txhadir
Text3
txKuis
Text4
txTugas
Text5
txUTS
Text6
txUAS

Buat ComboBox pada gambar dengan tombol panah Biru  3 ComboBox
ComboBox
Propertis -> Caption*
Propertis ->Name (bebas)**
ComboBox1
Proses
cmdProses
ComboBox2
Ulang
cmdUlang
ComboBox3
Keluar
cmdKeluar

Codingnya
Private Sub CmdKeluar_Click()
End
   
End Sub

Private Sub CmdProsses_Click()
Dim hadir, NA As Double

    hadir = TXHadir / 16 * 100
    NA = (hadir * 10 / 100) + (Txkuis.Text * 15 / 100) + (TxTugas.Text * 20 / 100) + (TxUas.Text * 30 / 100) + (Txuts.Text * 25 / 100)
    LbNA.Caption = NA
       
    A = LbNA.Caption
    If A >= 80 Then
    LbNM.Caption = "A"
        ElseIf A >= 70 Then
        LbNM.Caption = "B"
            ElseIf A >= 60 Then
            LbNM.Caption = "C"
                ElseIf A >= 50 Then
                LbNM.Caption = "D"
                    Else
                    LbNM.Caption = "E"
    End If
   
   
End Sub

Private Sub CmdUlang_Click()
    TXHadir.Text = ""
    Txkuis.Text = ""
    TxNPM.Text = ""
    TxTugas.Text = ""
    TxUas.Text = ""
    Txuts.Text = ""
    LbNA.Caption = ""
    LbNM.Caption = ""
    TxNPM.SetFocus
   
End Sub

Private Sub Form_Load()
TXHadir.Text = ""
Txkuis.Text = ""
TxNPM.Text = ""
TxTugas.Text = ""
TxUas.Text = ""
Txuts.Text = ""
LbNA.Caption = ""
LbNM.Caption = ""
End Sub

 hasilnya :




Note:
*  ada pada bagian propertis kemudian ubah pada bagian Caption terserah yang anda inginkan
** ada pada bagian propertis kemudian ubah pada bagian Name terserah yang anda inginkan

 Buat temen temen yang mau program udah jadi bisa di ambil di  sini  link unduh melalui google drive ...

 buat temen temen yang belum punya program Visual Basic 6.0 donload di Visual Basic 6.0
mohon maaf link donload vb nya sudah di hapus.
Read More

MATERRI UAS DFD

By  7:44 PM  
ASSALAMU'ALAIKUM.WR.WB.

Materi untuk UAS Semester II DFD

DONLOAD file format zip.

trimakasih

WASSALAMU'ALAIKUM WR. WB.
Read More

MATERI

By  10:43 PM  
assalamualaikum Wr. Wb.

link materi Bapak Yodhi :

DONLOAH  format ZIP

atau donload satu persatu materi :

Materi 1 DONLOAD
Materi 2 DONLOAD
Materi 3 DONLOAD
Materi 4 DONLOAD
Materi 5 DONLOAD matematika bisnis

trimakasih


Read More

Cara Membuat Query Wizard

By  8:20 PM  

Assalamualaikum....

 Selamat Pagi Temen - temen karna kita sedang bingung mu buat tugas dari dosen ada sedikit trik dari saya mengenai Query Wizard disini saya cantukman link donload file query wizard.silahkan di Donload. ada di bagian bawah.

 Trik Query Wizard
Cara  membuat  Query  dengan  Query  Wizard  akan  lebih  mudah  karena  kita  akan  dibantu  oleh  Ms.  Access.
Berikut ini adalah langkah‐langkah membuat Query dengan Query Wizard : 
  1. Buka File database yang kita miliki kemudian pilih toolbar Create kemudian klik Query Wizard.
  2. Kemudian akan muncul kotak New Query. Lalu kita pilih Simple Query Wizard. Klik OK
  3. Kemudian kita pilih tabel yang kita perlukan pada pilihan Tabel/Queries.
  4. Klik > untuk memilih field yang kita perlukan dalam query.
  5. Klik < untuk membatalkan. 
  6. Klik >> jika kita memerlukan semua field yang ada.
  7. Pilih field NPM, dan NAMA    
  8. Klik Detail(show every fields of every record) atau Summary. 
  9. Kemudian klik Next akan muncul jendela baru kemudian beri nama pada query yang telah dibuat dan pilih Open the query to view Information.
  10. Klik FINISH.

Jika Anda masih Kesulitan Bisa  lihat di bawah ini: 
1. Buka Data Base

2.  pilih toolbar Create kemudian klik Query Wizard.

  
3. Kemudian akan muncul kotak New Query. Lalu kita pilih Simple Query Wizard. Klik OK
4. Kemudian kita pilih tabel yang kita perlukan pada pilihan Tabel/Queries. Klik > untuk memilih field yang kita perlukan dalam query. Klik < untuk membatalkan. Klik >> jika kita memerlukan semua field yang ada. Pilih field NPM, dan NAMA.
   
 5. Klik Detail(show every fields of every record) atau Summary.  
 6. Kemudian klik Next akan muncul jendela baru kemudian beri nama pada query yang telah dibuat   dan pilih Open the query to view Information.

7.  Klik FINISH.

link donload file Query Wizard Klik disini dan Klik disini untuk file Query Wizard format RAR.

 Sekian Postingan Saya Semoga Bermanfaat.
Wassalamu'alaikum.
Read More