Contoh Coding Pada VB

CODING DI FORM 1

Private Sub Command_click()

Form1.Hide

Form2.Show

End Sub

Private Sub MaskEdBox5_LostFocus()

MaskEdBox6 = Val(MaskEdBox2) + Val(MaskEdBox5)

End Sub

Private Sub MaskEdBox7_LostFocus()

On Error Resume Next

MaskEdBox8 = MaskEdBox2

MaskEdBox9 = MaskEdBox5

MaskEdBox10 = MaskEdBox3

MaskEdBox11 = Val(MaskEdBox * 8) + Val(MaskEdBox9) * Val(MaskEdBox10) / 100

MaskEdBox12 = Val(MaskEdBox7) / Val(MaskEdBox11)

End Sub

Private Sub MaskEdBox13_LostFocus()

On Error Resume Next

MaskEdBox14 = MaskEdBox2

MaskEdBox15 = MaskEdBox5

MaskEdBox16 = MaskEdBox3

MaskEdBox17 = Val(MaskEdBox * 14) + Val(MaskEdBox15) * Val(MaskEdBox16) / 100

MaskEdBox18 = Val(MaskEdBox13) / Val(MaskEdBox17)