LA Akunt. Manajemen Bab 4

§ CODING FORM 1

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub MaskEdBox11_LostFocus()

MaskEdBox12 = Val(MaskEdBox10) + Val(MaskEdBox11)

End Sub

Private Sub MaskEdBox14_LostFocus()

MaskEdBox15 = Val(MaskEdBox13) + Val(MaskEdBox14)

MaskEdBox16 = Val(MaskEdBox10) + Val(MaskEdBox13)

MaskEdBox17 = Val(MaskEdBox11) + Val(MaskEdBox14)

MaskEdBox18 = Val(MaskEdBox12) + Val(MaskEdBox15)

MaskEdBox19 = Val(MaskEdBox7) - Val(MaskEdBox16)

MaskEdBox20 = Val(MaskEdBox8) - Val(MaskEdBox17)

MaskEdBox21 = Val(MaskEdBox9) - Val(MaskEdBox18)

End Sub

Private Sub MaskEdBox2_LostFocus()

MaskEdBox3 = Val(MaskEdBox1) + Val(MaskEdBox2)

End Sub

Private Sub MaskEdBox23_LostFocus()

MaskEdBox24 = Val(MaskEdBox22) + Val(MaskEdBox23)

End Sub

Private Sub MaskEdBox26_LostFocus()

MaskEdBox27 = Val(MaskEdBox25) + Val(MaskEdBox26)

MaskEdBox28 = Val(MaskEdBox19) - Val(MaskEdBox22) - Val(MaskEdBox25)

MaskEdBox29 = Val(MaskEdBox20) - Val(MaskEdBox23) - Val(MaskEdBox26)

MaskEdBox30 = Val(MaskEdBox21) - Val(MaskEdBox24) - Val(MaskEdBox27)

End Sub

Private Sub MaskEdBox32_LostFocus()

MaskEdBox33 = Val(MaskEdBox30) - Val(MaskEdBox31) - Val(MaskEdBox32)

End Sub

Private Sub MaskEdBox5_LostFocus()

MaskEdBox6 = Val(MaskEdBox4) + Val(MaskEdBox5)

MaskEdBox7 = Val(MaskEdBox1) + Val(MaskEdBox4)

MaskEdBox8 = Val(MaskEdBox2) + Val(MaskEdBox5)

MaskEdBox9 = Val(MaskEdBox3) + Val(MaskEdBox6)

End Sub

§ CODING FORM 2

Private Sub Form_Load()

MaskEdBox1 = Form1.MaskEdBox3

MaskEdBox2 = Form1.MaskEdBox6

MaskEdBox3 = Form1.MaskEdBox9

MaskEdBox4 = Form1.MaskEdBox12

MaskEdBox5 = Form1.MaskEdBox15

MaskEdBox6 = Form1.MaskEdBox18

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)

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)

End Sub

Private Sub MaskEdBox20_LostFocus()

MaskEdBox21 = Val(MaskEdBox9) - (Val(MaskEdBox18) + Val(MaskEdBox19) + Val(MaskEdBox20))

End Sub

Oia tmen2, coding ini sudah berhasil loh. Kalau tidak percaya lihaat hasil run-nya dibawah ini

Form1

Form2

Tidaak ada unsuur sengajaann loh ..

Ini sekedar share saja

^_^

Posted in: Tugas Kampus