Translate

Rabu, 27 Maret 2013

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

0 komentar:

Posting Komentar