Menghitung Upah Buruh Algo 2B

UNIVERSITAS GUNADARMA

MEMBUAT APLIKASI MENGHITUNG UPAH BURUH

VISUAL BASIC 6.0

Kelompok 4 : Kelas 1KA21

Nama Anggota :

      Mochammad.Arif.Fachrizal (14112652) 

Cara Membuat Aplikasi Upah Buruh

Langkah-langkah :

1.       Buka Aplikasi Visual Basic 6.0 dengan cara : Start – All Program – Microsoft Visual Basic 6.0 – Microsoft Visual Basic 6.0

2.       Pilih Standart EXE .

3.       Lalu Desain Form Seperti Berikut :

LABEL                                 TEXT                                                       LABEL7

                                                              CommandButton

Dengan Ketentuan :

Label1                                                           text1

        Caption = “NIB”                                                    name : nib

Label2                                                                           maxlength : 4

        Caption = “Nama”                                 text 2

Label 3                                                                          name : nmtxt

        Caption =”Jumlah Unit”                                          maxlength : 15

Label4                                                           text3

        Caption = “Jumlah Anak”                                       name : unittxt

Label 5                                                                          Maxlength: 4

        Caption = “Total Upah”                        Text4

Label6                                                                           Name : anktxt

        Caption = “Potongan”                                            Maxlength : 2

Label7                                                           Text5

        Caption=[kosong]                                                 Name : tu

                                                                     Text6

                                                                                    Name : p

Frame1

        Caption = “Menghitung Upah Buruh”

Form1

        Caption = “Menghitung Upah Buruh”

        Minbutton = false

        Maxbutton = false

        Toolbox = false

Moveable = false

                CommandButtuon1

                                Name = ok

                                Caption = “&Ok”

                CommandButton2

                                Name = clear

                                Caption = “&Clear”

                CommandButton3

                                Name = exit

                                Caption =”&Exit”

KODING PROGRAM :

Dim bonus, hrg_unit, tunj_anak, As Currency

                ‘Penjelasan :

Koding diatas merupakan untuk pendeklarasian suatu variable, bukan Cuma variable yang dapat diklarasi namun type data nya juga kita dapat tentukan sendiri. Contoh : variable bonus,hrg_unit, tunj_anak yang bertipe data Currency.

Private Sub clear_Click()

bersih

End Sub

                ‘Penjelasan :

Koding diatas memanggil function bersih sehingga dapat di tulis nama functionnya saja tidak perlu ditulis lagi kodingnya. Dan koding ini untuk button  .

Private Sub exit_Click()

If MsgBox("Anda Ingin Keluar ?", vbQuestion + vbYesNo, "Pemberitahuan") = vbYes Then Unload Me

End Sub

                ‘Penjelasan

Koding diatas menampilkan kotakpesan, tetapi kotakpesan ini mempunyai kondisi. Dimana hasil outputnya seperti  dimana jika kita click YES maka program akan berakhir, dan jika diclick NO maka akan kembali ke program. Koding Ini untuk Button  .

Private Sub ok_Click()

If unittxt.Text > 30 Then

    bonus = (Val(unittxt.Text) - 30) * 3000

    hrg_unit = 600000

Else

    hrg_unit = Val(unittxt.Text) * 20000

End If

                ‘Penjelasan :

Koding diatas untuk menyaring suatu kondisi, dimana jika unittxt berisi lebih dari 30 maka, variable bonus akan memperoleh nilai dari isi unittxt dikurangi 30 dan hasilnya dikali 3000. Untuk hrg_unit sudah bersifat konstanta(tidak dapat berubah). Jika unittxt tidak berisi lebih dari 30 maka kondisi yang akan dijalankan hrg_unit = val(unit.tkt)* 20000.

If anktxt.Text > 2 Then

    tunj_anak = 60000

Else

    tunj_anak = Val(anktxt.Text) * 30000

End If

                ‘Penjelasan :

Koding diatas untuk menyaring suatu kondisi, dimana jika anaktxt berisi lebih dari 2 maka tunj_anak = 60000 dan nilai ini konstanta. Jika anak txt tidak berisi lebih dari 2 maka yang akan dijalankan koding yang tunj_anak=val(anktxt.text)*30000.

tu.Text = hrg_unit + bonus + tunj_anak

p.SetFocus

Label7.Caption = "Upah Bersih  =Rp. " & Val(tu.Text) - Val(p.Text)

End Sub

                ‘penjelasan

                                Koding diatas menentukan nilai dari tu.text yang berasal dari nilai hrg_unit +nilai bonus+ tunj_anak. Koding selanjutnya untuk menaruh kursor pada text p. koding berikutnya menentukan nilai label7, label7 berisi data string “Upah Bersih =Rp. “ dan dilanjutkan dari proses tu.text – p.text . koding ini untuk button  .

Private Sub bersih()

nibtxt.Text = ""

nmtxt.Text = ""

unittxt.Text = ""

anktxt.Text = ""

tu.Text = ""

p.Text = ""

Label7.Caption = ""

MsgBox "Data sudah di hapus !"

nibtxt.SetFocus

If MsgBox("Anda Ingin Input Lagi ?", vbQuestion + vbYesNo, "Pemberitahuan") = vbNo Then Unload Me

End Sub

                ‘Penjelasan :

                                Koding diatas merupakan function berih yang berisi koding untuk membersihkan isi form. Setip yang koding berakhiran “” itu berarti untuk menghapus bagian tersebut setelah semua terhapus muncul kotakpesan  .  dan kursor ditaruh pada bagian nib.txt, koding diatas juga terdapat kotakpesan yang mempunyai kondisi.  dimana jika kita click tombol yes maka program akan berakhir. Dan jika kita click tombol No maka kembali ke program.

Output Pada Saat Program diRunning :

Output Ketika sudah berisi dan Button  diclick . dan text potongan sudah terisi.

Output Ketika Button  di click. Akan muncul  dan  .

Output Ketika tombol  maka akan muncul kotakpesan seperti berikut : 

NB: 

   - Mohon maaf jika tidak ada image nya 

   - article ini hanya membantu tidak untuk di copy paste !!!

   - jika masih ada yang belum paham silahkan  comentar dibawah ini .

@Fachriarif .

SI_UG2012

Posted in: