Kamis, 19 November 2009

listing program visual basic

Listing program
Private sub command_()
Form1.hide
Form2.show
Maskedbox1=form1.maskedbox2
Maskedbox2= form1.maskedbox3
Maskedbox3= form1.maskedbox4
Maskedbox4= form1.maskedbox5
Maskedbox5= form1.maskedbox10
Maskedbox6= form1.maskedbox11
Maskedbox7= form1.maskedbox12
Maskedbox8= form1.maskedbox13
Maskedbox9=val(maskedbox1)*val(maskedbox5)
Maskedbox10=val(maskedbox2)*val(maskedbox6)
Maskedbox11=val(maskedbox3)*val(maskedbox7)
Maskedbox12=val(maskedbox4)*val(maskedbox8)
Maskedbox13=(val(maskedbox9)/val(maskedbox25)*100)
Maskedbox14=(val(maskedbox10)/val(maskedbox25)*100)
Maskedbox15=(val(maskedbox11)/val(maskedbox25)*100)
Maskedbox16=(val(maskedbox12)/val(maskedbox25)*100)
Maskedbox17=(val(maskedbox9)/val(maskedbox25)*val(form1.maskedbox1)
Maskedbox18=val(maskedbox10) )/val(maskedbox25)*val(form1.maskedbox1)
Maskedbox19=val(maskedbox11) )/val(maskedbox25)*val(form1.maskedbox1)
Maskedbox20=val(maskedbox12) )/val(maskedbox25)*val(form1.maskedbox1)
Maskedbox21=val(maskkedbox17)/val(maskedbox5)
Maskedbox22=val(maskkedbox18)/val(maskedbox6)
Maskedbox23=val(maskkedbox19)/val(maskedbox7)
Maskedbox24=val(maskkedbox20)/val(maskedbox8)
Maskedbox25=val(maskedbox9)+val(maskedbox10 )+val(maskedbox11)+val(maskedbox12)
Maskedbox26= val(maskedbox13)+val(maskedbox14 )+val(maskedbox15)+val(maskedbox16)
Maskedbox27=val(maskedbox9)/val(maskedbox25)*val(form1.maskedbox1)+val(maskedbox10)/val(maskedbox25)*val(form1.maskedbox1)+val(maskedbox11)/val(maskedbox25)*val(form1.maskedbox1)+val(maskedbox12)/val(maskedbox25)*val(form1.maskedbox1)
Maskedbox28= form1.maskedbox14
Maskedbox29= form1.maskedbox15
Maskedbox30= form1.maskedbox16
Maskedbox31= form1.maskedbox17
Maskedbox32= form1.maskedbox6
Maskedbox33= form1.maskedbox7
Maskedbox34= form1.maskedbox8
Maskedbox35= form1.maskedbox9
Maskedbox36=val(maskedbox28)-val(maskedbox32)
Maskedbox37= val(maskedbox29)-val(maskedbox33)
Maskedbox38=val(maskedbox30)-val(maskedbox34)
Maskedbox39=val(maskedbox31)-val(maskedbox35)
Maskedbox40= form1.maskedbox10
Maskedbox41= form1.maskedbox11
Maskedbox42 = form1.maskedbox13
Maskedbox43= form1.maskedbox14
Maskedbox44 =val(maskedbox36)*val(maskedbox40)
Maskedbox45=val(maskedbox37)*val(maskedbox41)
Maskedbox46=val(maskedbox38)*val(maskedbox42)
Maskedbox47=val(maskedbox39)*val(maskedbox43)
Maskedbox48=(val(maskedbox44)/val(maskedbox60)*100)
Maskedbox49=(val(maskedbox45)/val(maskedbox60)*100)
Maskedbox50=(val(maskedbox46)/val(maskedbox60)*100)
Maskedbox51=(val(maskedbox47)/val(maskedbox60)*100)
Maskedbox61= val(maskedbox48)+val(maskedbox49 )+val(maskedbox50)+val(maskedbox51)
Maskedbox52=val(maskedbox36)/val(maskedbox60)*val(form1.maskedbox28)
Maskedbox53=val(maskedbox37)/val(maskedbox60)*val(form1.maskedbox29)
Maskedbox54=val(maskedbox38)/val(maskedbox60)*val(form1.maskedbox30)
Maskedbox55=val(maskedbox39)/val(maskedbox60)*val(form1.maskedbox31)
Maskedbox62=val(maskedbox36)/val(maskedbox60)*val(form1.maskedbox1)+val(maskedbox37)/val(maskedbox60)*val(form1.maskedbox1)+val(maskedbox38)/val(maskedbox60)*val(form1.maskedbox1)+val(maskedbox39)/val(maskedbox60)*val(form1.maskedbox1)
Maskedbox56=val(maskkedbox52)/val(maskedbox40)
Maskedbox57=val(maskkedbox53)/val(maskedbox41)
Maskedbox58=val(maskkedbox54)/val(maskedbox42)
Maskedbox59=val(maskkedbox55)/val(maskedbox43)

Tidak ada komentar:

Posting Komentar