LABORATORIUM AKUNTANSI LANJUT A LAPORAN AKHIR BAB 8

LABORATORIUM AKUNTANSI LANJUT A
LAPORAN AKHIR

NAMA : AULIA RAHMAN
NPM : 24209963
KELAS : 2EB18
TANGGAL : SELASA, 15 MARET 2011
KP : WULAN
TUTOR : ASRI

Paraf Asisten


( )

Cara Mengerjakan Kasus Capital Budgeting Pada Microsoft Visual Basic

Microsoft Visual Basic adalah pemrograman yang berbasis GUI (Grafik User Interface). Dan kasus kali ini akan membahas laporan segmentasi. Laporan segmentasi itu sendiri bearti, laporan yang disegmen dapat disajikan untuk aktifitas pada berbagai tingkat yang berbeda pada organisasi dan dapat disajikan dalam bentuk yang berbeda.
Dan dibawah ini adalah langkah-langkah membuat form dan coding pada kasus laporan segmentasi :
Pertama-tama buka Microsoft Visual Basic pada komputer dengan cara :
Klik Start – All Program – Microsoft Visual Basic 6.0 – Ok
Setelah itu akan muncul tampilan awal Microsoft Visual Basic

 
Lalu langsung saja membuat form1 dan hasilnya akan seperti dibawah ini :
Form1

Setelah itu membuat codingnya untuk menghasilkan perhitungan berupa inputan dan akan menghasilkan outputnya juga dengan hasil sesuai dengan perhitungan manual pada kasus ini
Dan dibawah ini adalah output dan coding pada kasus laporan segmen yang sudah dimasukan codingnya dan hasil inputan yang akan keluar berupa output yang sudah disesuaikan dengan perhitungan manualnya


 
Kasus Bab VIII
Capital Budgeting



 
Dibawah ini seluruh coding pada form1 :
Private Sub Command1_Click()
End
End Sub
Private Sub MaskEdBox32_LostFocus()
On Error Resume Next
MaskEdBox34 = 1 / (1.18) ^ 0
MaskEdBox35 = MaskEdBox10
MaskEdBox36 = MaskEdBox11
MaskEdBox37 = MaskEdBox12
MaskEdBox38 = MaskEdBox13
MaskEdBox39 = MaskEdBox14
MaskEdBox40 = MaskEdBox15
MaskEdBox42 = Val(MaskEdBox26) * MaskEdBox34
MaskEdBox43 = Val(MaskEdBox27) * MaskEdBox35
MaskEdBox44 = Val(MaskEdBox28) * MaskEdBox36
MaskEdBox45 = Val(MaskEdBox29) * MaskEdBox37
MaskEdBox46 = Val(MaskEdBox30) * MaskEdBox38
MaskEdBox47 = Val(MaskEdBox31) * MaskEdBox39
MaskEdBox48 = Val(MaskEdBox32) * MaskEdBox40
MaskEdBox50 = Val(MaskEdBox42) + Val(MaskEdBox43) + Val(MaskEdBox44) + Val(MaskEdBox45) + Val(MaskEdBox46) + Val(MaskEdBox47) + Val(MaskEdBox48)
MaskEdBox51 = Val(MaskEdBox17) - Val(MaskEdBox42)
MaskEdBox52 = Val(MaskEdBox18) - Val(MaskEdBox43)
MaskEdBox53 = Val(MaskEdBox19) - Val(MaskEdBox44)
MaskEdBox54 = Val(MaskEdBox20) - Val(MaskEdBox45)
MaskEdBox55 = Val(MaskEdBox21) - Val(MaskEdBox46)
MaskEdBox56 = Val(MaskEdBox22) - Val(MaskEdBox47)
MaskEdBox57 = Val(MaskEdBox23) - Val(MaskEdBox48)
MaskEdBox58 = Val(MaskEdBox24) - Val(MaskEdBox49)
MaskEdBox59 = Val(MaskEdBox51) + Val(MaskEdBox52) + Val(MaskEdBox53) + Val(MaskEdBox54) + Val(MaskEdBox55) + Val(MaskEdBox56) + Val(MaskEdBox57) + Val(MaskEdBox58)
End Sub
Private Sub MaskEdBox8_LostFocus()
On Error Resume Next
MaskEdBox10 = 1 / (1.18) ^ 1
MaskEdBox11 = 1 / (1.18) ^ 2
MaskEdBox12 = 1 / (1.18) ^ 3
MaskEdBox13 = 1 / (1.18) ^ 4
MaskEdBox14 = 1 / (1.18) ^ 5
MaskEdBox15 = 1 / (1.18) ^ 6
MaskEdBox16 = MaskEdBox15
MaskEdBox18 = Val(MaskEdBox2) * MaskEdBox10
MaskEdBox19 = Val(MaskEdBox3) * MaskEdBox11
MaskEdBox20 = Val(MaskEdBox4) * MaskEdBox12
MaskEdBox21 = Val(MaskEdBox5) * MaskEdBox13
MaskEdBox22 = Val(MaskEdBox6) * MaskEdBox14
MaskEdBox23 = Val(MaskEdBox7) * MaskEdBox15
MaskEdBox24 = Val(MaskEdBox8) * MaskEdBox16
MaskEdBox25 = Val(MaskEdBox18) + Val(MaskEdBox19) + Val(MaskEdBox20) + Val(MaskEdBox21) + Val(MaskEdBox22) + Val(MaskEdBox23) + Val(MaskEdBox24)
End Sub