Materi Visual Basic 6.0 database

Materi Visual Basic 6.0 Membuat DataBase dengan Visual Manager




Coding Untuk Form Load dan Tombol Simpan



Untuk Donload Aplikasi sederhana Yang Sudah Jadi Klik tombol download di bawah ini :

Aplikasinya belum selesai cuma sekedar contoh


Karna ini menggunakan Boun Grid dan Sebagian Komputer atau Leptop biasanya tidak ada componen BounGrid maka saya lampirkan File Boungrid

cara instlnya :

1. Donload File BounGridnya

2. Klik Kanan dan extract File.. 

3. Buka hasil Extract ada 2 file, dan Klik 2 kali pada dbgrid.reg 

4. Ok dan Ok dst...

5. Copy Hasil extract tadi yang ada 2 file ke dalam file System32

6. selesai 

7. buka aplikasi Visual Basic 6.0 > project > components > Browse > dan ketikkan DBGRID32.OCX dan > Ok > Aplly.

Sekian Tutorial Saya ..........

Read More

tutorial combobox pada visual basic 6.

Read More

PROGRAM HITUNG GAJI DAN TUNJANGAN KARYAWAN DENGAN VISUAL BASIC 6.0

 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:

<<DI SINI>>

Read More

PROGRAM HITUNG PENJUALAN DALAM VISUAL BASIC

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

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