Laporan Akhir LABALA (bab2)

LABORATORIUM AKUNTANSI LANJUT A
LAPORAN AKHIR

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

Paraf Asisten


( )

Cara Mengerjakan Kasus Pada Visual Basic Dan Perhitungan Dengan Menggunakan Coding

Microsoft Visual Basic adalah pemrograman yang berbasis GUI (Grafik User Interface). Dana dibawah ini adalah langkah-langkahnya cara membuat form akuntansi manajemen pada visual basic dan perhitungan dengan menggunakan coding :
 Pertama-tama buka Microsoft Visual Basic pada komputer dengan cara :
Klik Start – All Program - Microsoft Visual Basic 6.0 – Ok
 Setelah itu akan muncul halaman Microsoft Visual Basic
 
 Lalu klik open pada tampilan New Project dan setelah itu menampilkan icon maskedbox pada kolom general dengan langkah-langkah :
 Klik kanan pada icon ole pada kolom general yang ada pada sebelah kiri halaman Microsoft Visual Basic
 Klik components

 Pada components terlihat beberapa pilihan pada menu controls lalu klik atau pilih Microsoft Masked Edit Control 6.0 lalu ok dan akan muncul icon dua tanda pagar dengan garis vertikal pada menu general
 Sebelum mengerjakan kasus bab 2 buat dulu form yang sesuai pada kasus ini

 

 Setelah membuat form 1 dan form 2 lalu membuat codingnya dan menginput data-data nya dan berikut kasusnya

Kasus Bab 2
Penentuan HPP Dengan Metode Activity Based Costing

Form1 :



Coding :
Private Sub Command1_Click()
Form2.Show
Form1.Hide

End Sub

Private Sub MaskEdBox22_LostFocus()
MaskEdBox29 = Val(MaskEdBox1) + Val(MaskEdBox8) + Val(MaskEdBox15) + Val(MaskEdBox22)

End Sub

Private Sub MaskEdBox23_LostFocus()
MaskEdBox30 = Val(MaskEdBox2) + Val(MaskEdBox9) + Val(MaskEdBox16) + Val(MaskEdBox23)

End Sub

Private Sub MaskEdBox24_LostFocus()
MaskEdBox31 = Val(MaskEdBox3) + Val(MaskEdBox10) + Val(MaskEdBox17) + Val(MaskEdBox24)

End Sub

Private Sub MaskEdBox25_LostFocus()
MaskEdBox32 = Val(MaskEdBox4) + Val(MaskEdBox11) + Val(MaskEdBox18) + Val(MaskEdBox25)

End Sub

Private Sub MaskEdBox26_LostFocus()
MaskEdBox33 = Val(MaskEdBox5) + Val(MaskEdBox12) + Val(MaskEdBox19) + Val(MaskEdBox26)

End Sub

Private Sub MaskEdBox27_LostFocus()
MaskEdBox34 = Val(MaskEdBox6) + Val(MaskEdBox13) + Val(MaskEdBox20) + Val(MaskEdBox27)

End Sub

Private Sub MaskEdBox28_LostFocus()
MaskEdBox35 = Val(MaskEdBox7) + Val(MaskEdBox14) + Val(MaskEdBox21) + Val(MaskEdBox28)
End Sub
 
Form2 :



Coding :
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub MaskEdBox1_LostFocus()
On Error Resume Next
MaskEdBox1 = Form1.MaskEdBox2
MaskEdBox2 = 600 * Val(Form1.MaskEdBox7)
MaskEdBox3 = Val(MaskEdBox1) + Val(MaskEdBox2)
MaskEdBox4 = 175.91 * Val(Form1.MaskEdBox5)
MaskEdBox5 = Val(MaskEdBox3) + Val(MaskEdBox4)
MaskEdBox6 = Form1.MaskEdBox1
MaskEdBox7 = Val(MaskEdBox5) / Val(MaskEdBox6)
End Sub

Private Sub MaskEdBox15_LostFocus()
On Error Resume Next
MaskEdBox15 = Form1.MaskEdBox16
MaskEdBox16 = 600 * Val(Form1.MaskEdBox21)
MaskEdBox17 = Val(MaskEdBox15) + Val(MaskEdBox16)
MaskEdBox18 = 175.91 * Val(Form1.MaskEdBox19)
MaskEdBox19 = Val(MaskEdBox17) + Val(MaskEdBox18)
MaskEdBox20 = Form1.MaskEdBox15
MaskEdBox21 = Val(MaskEdBox19) / Val(MaskEdBox20)

End Sub

Private Sub MaskEdBox22_LostFocus()
On Error Resume Next
MaskEdBox22 = Form1.MaskEdBox23
MaskEdBox23 = 600 * Val(Form1.MaskEdBox28)
MaskEdBox24 = Val(MaskEdBox22) + Val(MaskEdBox23)
MaskEdBox25 = 175.91 * Val(Form1.MaskEdBox26)
MaskEdBox26 = Val(MaskEdBox24) + Val(MaskEdBox25)
MaskEdBox27 = Form1.MaskEdBox22
MaskEdBox28 = Val(MaskEdBox26) / Val(MaskEdBox27)
End Sub

Private Sub MaskEdBox29_LostFocus()
On Error Resume Next
MaskEdBox29 = MaskEdBox3
MaskEdBox30 = 150 * Val(Form1.MaskEdBox3)
MaskEdBox31 = 15 * Val(Form1.MaskEdBox4)
MaskEdBox32 = 30 * Val(Form1.MaskEdBox5)
MaskEdBox33 = 700 * Val(Form1.MaskEdBox6)
MaskEdBox34 = Val(MaskEdBox29) + Val(MaskEdBox30) + Val(MaskEdBox31) + Val(MaskEdBox32) + Val(MaskEdBox33)
MaskEdBox35 = MaskEdBox6
MaskEdBox36 = Val(MaskEdBox34) / Val(MaskEdBox35)
End Sub

Private Sub MaskEdBox37_LostFocus()
On Error Resume Next
MaskEdBox37 = MaskEdBox10
MaskEdBox38 = 150 * Val(Form1.MaskEdBox10)
MaskEdBox39 = 15 * Val(Form1.MaskEdBox11)
MaskEdBox40 = 30 * Val(Form1.MaskEdBox12)
MaskEdBox41 = 700 * Val(Form1.MaskEdBox13)
MaskEdBox42 = Val(MaskEdBox37) + Val(MaskEdBox38) + Val(MaskEdBox39) + Val(MaskEdBox40) + Val(MaskEdBox41)
MaskEdBox43 = MaskEdBox13
MaskEdBox44 = Val(MaskEdBox42) / Val(MaskEdBox43)

End Sub

Private Sub MaskEdBox45_LostFocus()
On Error Resume Next
MaskEdBox45 = MaskEdBox17
MaskEdBox46 = 150 * Val(Form1.MaskEdBox17)
MaskEdBox47 = 15 * Val(Form1.MaskEdBox18)
MaskEdBox48 = 30 * Val(Form1.MaskEdBox19)
MaskEdBox49 = 700 * Val(Form1.MaskEdBox20)
MaskEdBox50 = Val(MaskEdBox45) + Val(MaskEdBox46) + Val(MaskEdBox47) + Val(MaskEdBox48) + Val(MaskEdBox49)
MaskEdBox51 = MaskEdBox20
MaskEdBox52 = Val(MaskEdBox50) / Val(MaskEdBox51)

End Sub

Private Sub MaskEdBox53_LostFocus()
On Error Resume Next
MaskEdBox53 = MaskEdBox24
MaskEdBox54 = 150 * Val(Form1.MaskEdBox24)
MaskEdBox55 = 15 * Val(Form1.MaskEdBox25)
MaskEdBox56 = 30 * Val(Form1.MaskEdBox26)
MaskEdBox57 = 700 * Val(Form1.MaskEdBox27)
MaskEdBox58 = Val(MaskEdBox53) + Val(MaskEdBox54) + Val(MaskEdBox55) + Val(MaskEdBox56) + Val(MaskEdBox57)
MaskEdBox59 = MaskEdBox27
MaskEdBox60 = Val(MaskEdBox58) / Val(MaskEdBox59)

End Sub

Private Sub MaskEdBox61_LostFocus()
On Error Resume Next
MaskEdBox61 = MaskEdBox7
MaskEdBox62 = MaskEdBox36
MaskEdBox63 = Val(MaskEdBox36) - Val(MaskEdBox7) / Val(MaskEdBox36) * 100
End Sub

Private Sub MaskEdBox64_LostFocus()
On Error Resume Next
MaskEdBox64 = MaskEdBox14
MaskEdBox65 = MaskEdBox44
MaskEdBox66 = Val(MaskEdBox44) - Val(MaskEdBox14) / Val(MaskEdBox44) * 100

End Sub

Private Sub MaskEdBox67_LostFocus()
On Error Resume Next
MaskEdBox67 = MaskEdBox21
MaskEdBox68 = MaskEdBox52
MaskEdBox69 = Val(MaskEdBox52) - Val(MaskEdBox21) / Val(MaskEdBox52) * 100

End Sub

Private Sub MaskEdBox70_LostFocus()
On Error Resume Next
MaskEdBox70 = MaskEdBox28
MaskEdBox71 = MaskEdBox60
MaskEdBox72 = Val(MaskEdBox60) - Val(MaskEdBox28) / Val(MaskEdBox60) * 100

End Sub

Private Sub MaskEdBox8_LostFocus()
On Error Resume Next
MaskEdBox8 = Form1.MaskEdBox9
MaskEdBox9 = 600 * Val(Form1.MaskEdBox14)
MaskEdBox10 = Val(MaskEdBox8) + Val(MaskEdBox9)
MaskEdBox11 = 175.91 * Val(Form1.MaskEdBox12)
MaskEdBox12 = Val(MaskEdBox10) + Val(MaskEdBox11)
MaskEdBox13 = Form1.MaskEdBox8
MaskEdBox14 = Val(MaskEdBox12) / Val(MaskEdBox13)

End Sub