|
|
|
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
