Laporan Akhir LABALA (bab4)

LABORATORIUM AKUNTANSI LANJUT A
LAPORAN AKHIR

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

Paraf Asisten


( )

Cara Mengerjakan Kasus Laporan Segmentasi 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 form2 dan hasilnya akan seperti dibawah ini :
Form1


Form2

 
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 4
Laporan Segmen

Form1 yang sudah di input dengan coding tertentu dan menghasilkan output seperti dibawah ini :

 
Coding-coding yang sudah diketikkan pada Visual Basic :


Dibawah ini seluruh coding pada form1 :
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Command2_Click()
MaskEdBox1.SetFocus
End Sub
Private Sub MaskEdBox2_LostFocus()
MaskEdBox3 = Val(MaskEdBox1) + Val(MaskEdBox2)
MaskEdBox4.SetFocus
End Sub
Private Sub MaskEdBox5_LostFocus()
MaskEdBox6 = Val(MaskEdBox4) + Val(MaskEdBox5)
MaskEdBox8 = Val(MaskEdBox2) + Val(MaskEdBox5)
MaskEdBox10.SetFocus
End Sub
Private Sub MaskEdBox11_LostFocus()
MaskEdBox12 = Val(MaskEdBox10) + Val(MaskEdBox11)
MaskEdBox13.SetFocus
End Sub
Private Sub MaskEdBox4_LostFocus()
MaskEdBox7 = Val(MaskEdBox1) + Val(MaskEdBox4)
End Sub
Private Sub MaskEdBox6_LostFocus()
MaskEdBox9 = Val(MaskEdBox3) + Val(MaskEdBox6)
End Sub
Private Sub MaskEdBox13_LostFocus()
MaskEdBox16 = Val(MaskEdBox10) + Val(MaskEdBox13)
End Sub
Private Sub MaskEdBox14_LostFocus()
MaskEdBox15 = Val(MaskEdBox13) + Val(MaskEdBox14)
MaskEdBox17 = Val(MaskEdBox11) + Val(MaskEdBox14)
MaskEdBox22.SetFocus
End Sub
Private Sub MaskEdBox15_LostFocus()
MaskEdBox18 = Val(MaskEdBox12) + Val(MaskEdBox15)
MaskEdBox19 = Val(MaskEdBox7) - Val(MaskEdBox16)
MaskEdBox20 = Val(MaskEdBox8) - Val(MaskEdBox17)
MaskEdBox21 = Val(MaskEdBox9) - Val(MaskEdBox18)
End Sub
Private Sub MaskEdBox23_LostFocus()
MaskEdBox24 = Val(MaskEdBox22) + Val(MaskEdBox23)
MaskEdBox25.SetFocus
End Sub
Private Sub MaskEdBox25_LostFocus()
MaskEdBox28 = Val(MaskEdBox19) - Val(MaskEdBox22) - Val(MaskEdBox25)
End Sub
Private Sub MaskEdBox26_LostFocus()
MaskEdBox27 = Val(MaskEdBox25) + Val(MaskEdBox26)
MaskEdBox29 = Val(MaskEdBox20) - Val(MaskEdBox23) - Val(MaskEdBox26)
MaskEdBox31.SetFocus
End Sub
Private Sub MaskEdBox27_LostFocus()
MaskEdBox30 = Val(MaskEdBox21) - Val(MaskEdBox24) - Val(MaskEdBox27)
End Sub
Private Sub MaskEdBox32_LostFocus()
MaskEdBox33 = Val(MaskEdBox30) - Val(MaskEdBox31) - Val(MaskEdBox32)
End Sub
 
Form2 yang sudah di input dengan coding tertentu dan menghasilkan output seperti dibawah ini :


Coding-coding yang sudah diketikkan pada Visual Basic :

 
Dibawah ini seluruh coding pada form1 :
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
MaskEdBox1 = Form1.MaskEdBox3
MaskEdBox2 = Form1.MaskEdBox6
MaskEdBox3 = Val(MaskEdBox1) + Val(MaskEdBox2)
MaskEdBox4 = Form1.MaskEdBox12
MaskEdBox5 = Form1.MaskEdBox15
MaskEdBox6 = Val(MaskEdBox4) + Val(MaskEdBox5)
MaskEdBox7 = Val(MaskEdBox1) - Val(MaskEdBox4)
MaskEdBox8 = Val(MaskEdBox2) - Val(MaskEdBox5)
MaskEdBox9 = Val(MaskEdBox3) - Val(MaskEdBox6)
End Sub
Private Sub MaskEdBox11_LostFocus()
MaskEdBox12 = Val(MaskEdBox10) + Val(MaskEdBox11)
MaskEdBox13.SetFocus
End Sub
Private Sub MaskEdBox14_LostFocus()
MaskEdBox15 = Val(MaskEdBox13) + Val(MaskEdBox14)
MaskEdBox16 = Val(MaskEdBox7) - Val(MaskEdBox10) - Val(MaskEdBox13)
MaskEdBox17 = Val(MaskEdBox8) - Val(MaskEdBox11) - Val(MaskEdBox14)
MaskEdBox18 = Val(MaskEdBox9) - Val(MaskEdBox12) - Val(MaskEdBox15)
MaskEdBox19 = Form1.MaskEdBox24
MaskEdBox20 = Form1.MaskEdBox27
MaskEdBox21 = Val(MaskEdBox18) - Val(MaskEdBox19) - Val(MaskEdBox20)
MaskEdBox21.SetFocus
End Sub