saudara sci bu -" I /6, rnpi jika ada 2 orang a tau lehih maka _;11mlai1 bagian I/": dibagi rata
i ''· .I ika <Jda ncnck semang diri maka jumlah bagian ncnck
=
I/(,, tapi }i;:a
lebih dari seorang maka jumlah hagian nenek I13 dibagi rat a I 7. Lalu lal·.11kan proses perhitungan jumlah bagian scmuc. para al!I;
'""is
.vang 1cl:Jl1 ditcntukan 18. I.ak11kw pcnjumlahan semua pillak ahli waiis yang mcmpc1oi·: 11 jumlah liagian
I'l. lakuLm proses pcngurangan dari jmnlah harra
11
,risan
dikun~ng Pk'>
.1urnlah hana warisa" yan telal1 dibagikan tadi, hasilnya scbagai
il;;i t:i
ashobah 20. Lakukan penentuan piliak ahli waris yang akan mendapatkan ha;·::1
ashobah 21. Jika ada anak laki-laki sendirian wnp;; ada yang percrnpuan ma!-a jumlah bagian miak laki-laki = ashobal1, tapi jika ada anak pcrcmpua:, maka jumlah bagian masing-masing adalah seornng anak
laki-la~'
sa1na dcngan dtta orang anak }Jere1np11nn
22. Jika ada cucu l<1ki-laki sendirian t@1pa ada yang pcremprnm rnakci
jumlah bagi;.n cucu laki-laki = ashobah, tapi jika ada cucu rcrcmptwn maka jumla 11 bagian masing-masing adalal1 scorang cucu laki-lal- i sama den gar_ dua orang cucu perempuan 23. Jika ada bapak, ibu dan pihak yang mcninggal suami/istri lanpa yanF lainnya maka jumlah bagian ibu
= l/3 + ashobalt. bagian bapak "2.·:,
· 11chobah arnu sisa dari ashobah, lapi jika
bapa~
bescria anuk
perempurn a11m cucu perempuan tanpa yang laki-laki maka jumlah
(,J
bagia11 bar,ak -· li6 1 ashonbah, tapi jika lidak ada cucn maka jumld1 baJ.!ian b;1pak
ashobah
2,1. ./1L1 ;ida kakck bescrta anak perempua11 atau cucu perernpuan da11 1<1npa ada ;audara laki-laki kandung atau sebi1pak maka jnmlah hagia11
bkck kakck 25
J1~a
I '(i
'
ashbah, tapi jika tidak ada cucu maka jumlah bagian
ashobah
ad;i kal\ck bcscrta saudara sekandung/scln11n·1k lanpa ada ahl1
11 aris _\illlf'-
lainnya, jika ada saudarn laki-lakilperempuan
sckandun.~
atan ··.l'l,apak lakukan proses I itung jmnlah lrn!cdan kakck tkn1«1!l ke1cn111an hagian J/3 dari jumlah harta warh1an dan hilung kclcntnill' bagian j1ka dibagi rnta dengan saudara. Sctclah ilu bandi11gka11 mlai11yo1. basil bagian yang lebih besar umuk dibc1ikan kcpada bkek. 'edangkan sisa diherikan kepada saudara 21" .lika ada kckck bcserla saudara sekandu:1g alau scbapak dengan ah!i waris lain, lab1kan prose pembagian kcpada lwrla kakek dan sm1dara sekandung/scbapak dengan ketentmm kakek mend amt J /6 bagiaP dan Ilana warisan chm J/3 ;ia11a ashobah dan ashobah dibagi rata dcnga" s;mdarn, sdclah ilu bandingkan dari keliga bagian tersebut yag lehih bcsar 11nt11k diberikan kcpada kakek scdang sisa bagian diberikan kcpada saudara 27. Jika ahl i
11 aris
lcrJiri dari suarni, ibu, sau
seibu maim jumlah bagian saudam-saudara lerscb1!t ashobah dihagi rat a
I',,,
.'.8. Jika ada saudara laki-laki sebapak scndi1ian tanpa adanya kakck dari bap
=
3shobah. tapi ji.' 1 bcrsama saud<1r"
pcrcmpuau nraka schruh harta ashobah dibagi dcngan ke1cnlu<;•1 bagian saudara laki-laki sebapak sama dcngan dua bagian saudma pcrcmpuan scbapak 29 . .lika ada
saudara perempuan sekandung bescrta anak atau cuci:
pcrempuan maka jumlah bagian saudara perempuan sekand ung ashobah ~O . .lika
adil saudara perempuan scbapak bcsena anak atau cw;11
percmpuan maka jumlah bai,>ian saudara perempuan
sch~pak
•
ashobnh 31. Jika ada kc).(makan sekandung maka jumlah bagian kcponakan
sckandung " 1shobah 32. Jrka mla kcpo.iakan scbapak maka jumlah bagian keponakan scbapaL
•· ashobah 33 . .lika ada parnan sekandung maka jumlah hagian paman sekandung ashobah ~·f.
.lika ada
1x1111an
sebapak maka jumlah bagian paman 3cbapak
ashohah ~5 . .lika
ada svpupu sekandung maka jrnnlah hagian scpupu sekand11'1g
ash(ibah
:ic .lika ada 'epupu scbapak rnaka jumlah bagian scpupu scbapak
cc
66
37. Jika ada ahli waris negara maim jrnnlah bagian ahli waris negara ·· ashobah 38. Lalu lakukan proses perhittmgan jumlah bagfan semua para ahli waris
yang telah ditentukan J9 . .Jika hasil pcrhitungan kurang dari atau sama dengan Nol (0) rnaka
tampilkanpesan tcrsebut 40. Jika hasil perhitungan kurang atau lebih dari sisawansan mak
42. Sclesai
Bet,>in
1
'-----.---·)
/
p~ii;; bagiansdrlkbpk, bagiansdrprhpk As Doub 1c Public bagiansdrpribu, bagiansdrpribu As Dc)ub!e l'ublic bagian paman As Double Public lwgianpamanbpk As Double Public bagiankeponakan As Double Public bat~iankeponakanbpk As Double Public hagiaPscpupu As Double Public bagianscpup11bpk As Double Public si<;awasiat As Currency Public sisawNisan, jumwasiat As Currency Public totbagiananaklk, totbagiaaanakpr As Currency Public totbagiancuculk, tothagiancucupr As Currency Public totbagianbpk, totbagianibu Ar. CmTcncy Public bagiansuami, totbagianislli As Currency Public ba,siankakekbapak, totbagiannenekbapak,
\ '\
1otbagiar.ncnckibu As Currency Public totbdgiansdrlk, totbagiansdrpr As Currency l'ublic totbagiansdrlkbpk, totbagiansdrprbpk. As CmTcncy Public totbagiansdrlkibu, totbagianstlrpribu As Ctwrcncy Public totbagian pama11 As CmTenc~' l'uhlic tol ).1gia11pamanbpk As Curr:.:ncy l'ublic l
\l-
uhlic tulhagiannegara 1\s Currency 1ddic 1d1ob11f! As Currency
ublic t•.>lbagian, j11111sisabagian As Currency
CF--~
\I
AA TIDAK
TIDAK
------
~-
~-.Sisawaris.Text = 0 ::::::::=>---
,\ YA
TlDAK
B
YA
c
D
YA ___.----Janakpr.Text = l
-------,
YA ~-=>----...i
nagiananakpr ~ 112
' _I
~
----
~nakpr.Text C' V > 1 And
----~
-1
-----YA {- B·agian,ma. - , kpr ---_ _1 ; _3 ,--_;:;>--0 1 ~ upr. aue= ~_1
-
_ _ _ _ _ _ __J TIDAK
~ucupr.Valuc --------- = l
And
<---~-------------- Cuculk. Va!ue = 0
-
~----------Jcucupr.Text = l ----------
--.,,.
-------------
________________
_::::::::-,..~[
Bagiancucupr ··- 1/2 ] - -
_ _ _ _ _ _ _J
YA
E
F
"
F
E
<~Text=JAnd -----~
C'uclk.Value = o
~~YA ----
..--------
----------
---+
Bagiancucupr = 2.':'
1---1> _J
TIDAK
-~;:.Value= I And Jmrnkpr.Texl =l ~
------
TIDAK
C• • "\ ! I .>tiam1. v a ue "" 0
And Anak. Yalue "" o And Suami.Enabled=·· f
~
<
~~
~ak lk. Value~ O And
~
·--......
:~;;akpr.Value=OAntl
C'uculk.Value = O And ~1pr.Value - O
~
TlDAK
YA
/---
·-----
Bagiansuami ·- 112
0
..........
I
cb
[-C:]
[-;-~
1/~~
Or~~
_ / Anaklk.Value ""I A11<1kpr. Value,, J 0r (:ucullcValue= J Or ucupr Value =l
~ ,,
~
TI
l : '>--- llagiansu;~l/~,j· YA [ - - -
-
~
'~
.
II I
!
TIDAK
~Jue~
...
TIDAK
Anak.Value"" O And "' . -E nabled =UC I stn. t r /~>--
l ''
YA
/_,/
"'--..
And'~.
/ / Anaklk. Vah:c '" o .•\nakpr_Value = o And
<
'~ ~~:~::~k; 0:1,::~: ~And
~
"--..~-fu-
~
c_gi_a_ni_st_ri_=
~
I I
,
I
TIDAK
~,
<
1\naklk Value=
o
Ar;;-"
'Ywkpr~aluc--OAnd /t'--...._,, YA (_uculk \ aluc = O And
" "
•1
( ucup1 Value -
o
'""·~/ __,JDAK
I
. Bagmn_•s_tr_i_=_1_1&__JL_
~·
----
I -------·-·---~·-.,.,. . ! I
~
!bu.Value• I And Bapak.Valuc I And
~
(s11a111i.Val11e" 0 Or islri.Val11e = 0) And (anakpr.Vah1c = 0 And cuc11pr. Value··· 0 And anaklk.V<1luc = 0 And cuculk. Value= 0) And anak.Value = 0
Bagianbapak
·--
~
ol
.,.!
~!
I I
I
I
--II
II
~r-~1
I
I -----
~-~dk. Value= 1_ Or -----------
Cu cu Ik. \'a Iue " I
·----_
YA
r;;-·
__.---·-•l~agianbapak
=
0
I . 1---1>1
~
----_r_~~K [~]
_ _I
YA
YA
Anaklk.Value = 0 And (Anakpr. Value '' I Or ~ cucupr. \";il11c • I) ,/----
TIDAK
[:,]
/ (
\...
'\... ""
!bu.Value·· I And Jlapak. Valt:e =• I And 1s11ami.Val11c •• 0 Or istri. Val11c OJ And (anakpr. V
j__
~
'""TIDJ\K T!D1\K
::::>-------···--·
YA
//~~ :\nakl~ Value I Or ,.\nakpr.V
/
<
~y I
TIDAK
1-h -------
YA
.I
--,__Bagianibu
=
1!6
Jsdrlk.Text >I Or .lsdrpr.Tcxl > I Or Jsdrlkbpk.Text : I Or Jsdrprbpk.Test co I Or Jsdrlkihu.text C> I Or Jsdrpribu.Text ·, I
/
Tlf),\K
/
/
Sdr!k.Value (sdrpr Value
I !\nd
I Or '~.;orpribu. \aluc I Or sc!rikil>u \':tluc ·· 1.1 /
,,,-,.-'
/
Tlf);\K
/
/ / Sdrpr.V1d11c ,\id 1sdrpribu \':due ! Or sdrlkibu. Vi:luc I Or sdrprbpk Value· I Or ~Value'·'· I)
TID:\K
y
Bagianibu
·~
116
YA
~L~~-'g_i'_'n-il_H_r_1_:(_,_,
->
, T!DAK
-~-:t_~
_...---~drlkibu Value • ~ --------------
Sdrprihu_ \'aluc · I
~----- --~ .....
And
-----
~-!'.~
~
I TIDAK
I
/~,
<
-~_Value-~
OOr ,\nakpr Value"-- 0 Or Cuculk. Value-~ 0 Or ~upr.Value" 0 _
'"' -~ TJDA ( ,-1 ____,
_
I
I
-- I
i
YA
Bagianibu
- -~ l/J--• I I I
J
[£]
-,.
r-----,
'L-~~ \) I
I
-
Jsdrlk.Texl '" l And Jsdrrr.Texl ··" 0 And .lsdrlkib11.Tcxt ~· 0 And Jsdrpriht1.Tcxl ·- 0 '-..,
I
YA
-·1
"-..,,,,. )·
TIDAK
,,"'
/
/~sdrik Tcxl ·
() J\nd Jsdrpr.Tc,xl I And Jsdrikbpkln1 °· 0 And .hdrpri1pk: Tesl" 0 And Jsllrik1bt1. I csl 0 And
/ /
~ ~
0
YA
I
f
---~L3~.l-J!_1_j;:_11_1i_b'_'_1_1__ ., ~--
•
/ )
-
TIDAK
"'
/~:::CXI · ;\~ 0
/
<
~
~
.Jsdrikbpk Tcxl I And Jsdrprbpk Tcxl 0 And Jsdrik1b11. !'est 0 And Jsdrpnbu. !'ext 0
-~
"'~- / /
J
TlDAK
L_1~]
I
I
~ciq•rilm IC' I - (I
"',~
+i
~
y
;\Q___
~
13agianibu I 13 ---------' 0
,
[~;]
l~
/,)~
/~drpr
rcxl (J Ami .l'tlrlUlpk·_rexl O And J,,drprbpk I C\t "' 1 And J'1l1pnhuTex1 • 0 And ~"lrl~1hu Texl (I
<
YA
0
'·"'- /
1
Bagianibu
=
~---1>
/
-~'-
TIDAK
///~~ /hdrlkText 0 Aud Jsdrpr. I ext ·· I And Jsdrlkbplc Text •· 0 And , Jsdrprhpk.Tcxt ~ 0 / "' Jsdrlkilm.Texl ··• I And "'.lsdqmbu.Tcx1 ". 0
<
YA -
llagianibu •· Ji.1
--..
!-----..
'~"'/ I
TIDAK
~
/~cDA"d
/ /
~ '
.1'd1p1. I ext - 0 And .fsdrlkbpk.Text = 0 And Jsdrprbpk.Text ~ 0 / .lodrlkibu. Text =• tl Jsdmribu.Text =• I
/ TIDAK
rI
T
I
"'
YA >------[ .
Bagianibu = l!:l
_ _ _ _ _ _ __,
YA
/
j
(sdrlkilw.Value I And sdrpribu. \/alt c = I) Or (jsdrlkib11.Texl > I Or ( sdrpribu .' I ) And (anakpr.Vnh1e = 0 Or cucupr. V11lue = 0) And (sdrlkbpk. Value'" 0 Or sdrprbpk.Value = 0) And (paman.Valulc = 0 Or Pmnanbpk.Value = 0) And kenonaka11. Value~· 0 /
TIDAK
L-----·
~
'y
.\r-;;-·-------J
.>-1>~<1g1ansdrpr 0 --// ------
/' /
Sdrpr. Value" 1 And ~tlrl.Value ~
0 And Kakekbpk.Value = 0 Anti (anakpr. Value= 0 Or cucupr.Value =0)
TID.\K
~"
" ( TfDAK
~
<
sdrpr.Text =· 1 And sdrprbpk. Va hie= 1 Or drrrbpk.Value = 0)
---~ TIDAK
Y/r;;:
-•l.~~·jansdrpr = I '2 ~-
[~
J~
<,, ""'--...
"-
Sdrprb1;k. Value~ l And Sdrlkbpk. Value·~ 0 And Kakekbpk. Value= 0 And (anakpr. Value= 0
TIDAK
~upr.Valuc: = 0),YA
..
·-----
YA
Bat'.1ansdrprbpk ·
2!}
---------··-----·
~
- -..
//
:·i~)J\K,.. Suarni.Valt~e z. O And
. -·--
~
lhu.V &Jue= 1 And (sdrlk.Value = 1 Or sdrpr.Value = I) And
~~-Yaluc=O "'-.._
.
)"YA
/~ (sdrlkibu.Value I And sdrpribu. Yalu~= l) Or (isdrlk ibu.T 0xt > I Or ( sd rpribu > l ) And (anakpr.Vaiue = 0 Or cucupr.Value = 0) And (sdrlkbpk.\'alue = 0 Or sdrprbpk.Vaiue -0) And (paman.Valule = 0 Or / Pamanbpk.V~Iue= 0) And kenonakan. 'I al ue = 0
"'
Y.A.
~
/
Bagiansdrpribu ·- () Bagiansdrlkibu - (I
~ )
._..,.j
0
;
TIDAK
L
l
[J
1.l ~
---
1-. . _J
r
"
q]
l~J
-~ Sdrpribu.Value ~ I And ---------YA .lsdrpnbu. I ex!= 1 And -~--"fl3i!!(iansdrpribu •
Sdrlkibu.Value~
0
-----~
I~..
~-
._
Sdrlkibu. Value= 1 And Jsdr!kibu.1 ext = I And --.....___~-pribu. Value= 0
~
~agiansdrpnbu • _1
6_t------
-------
:EAK
<--~~1bu.Value ·• ~~~~.. ·-----....
Sdrlk1bu. Value• I
--
Bagwnsdrp1ibu -~---•· flagiansdrlkibu ~ I ·'6
I
-------------TJDAK
<
<.;
__..---
~----
Sdrlkibu Value•• I And ~ .Jsdrlkibu. 1·ext > l And
~>-'-Y-'--A'---1>-1 11agiansdrpribn
I 11
Sdrlkibu.Value •• 0
j--..
~~ Sdrlkihn.Valuc·~
Y\ Sdrpribu.Tcxt > I And ~~ ~lagi:~~;drpribu _1 Sdrpribu. Value •• l ~
~l -.. y
_.,...------------TlDAK
CJ
·-----·-----------------·------·
rIDAK
~\nd neilckib:t.Value ·- 1
--...._ ~~~I~ ._.->-
\nd nenekbpk. Value••~
~
--
Bagianncnckibu = l.'6 I
----------------TJ DAK
YA [13agiannenekbapak · 1/2
And nenekibt1.Value= J 1\nd ncnckbpk.Value ~ 0
___.,
Bagianncnekibn ~ J :2
-
~~~~~~~~-K--~~~~~~~· = bagianistri * sisawarisan ·r 0tl)agiansua1:1! """" bag1ansuan1l * sisa\varisa11
To1bagrnnistri
Tolbagiananaklk = bagiananaklk * sisawmisan Totbagiananakpr = ba1c~i;i:ianakpr * sisawarisan To1bagia.1cuculk -· bagiancuculk * sisawarisan Totbagiancurnpr ~ bagiancucupr * sisawarisan Totbag.ianbapak = hagianbapak * sisawarisan 'rolhagianibu "' bagianibu * sisa\va.risa11 Totbagiankakekbpk = totbagiankakekbpk * sisawarisan Totbagiannenekbpk =bagiannenekbpk * sisawarisan Totbagiannenckibu = bagiannenekibu '• sisawarisan Totba[.>iansdrlk '" bagiansdrlk * sisawarisan Totbagia11sd11lr .. bagiansdrpr * sisawarisan Totbagiansdrlkbpk '" bagiansdrlkbpk * sisawarisan Totbagiansdrprbpk = bagiansdrprbpk * sisaw
1'otbagi n1negara = bagia11 ncgara
* sisa\varisan
-------.-----------·--------
r 41
f--~·
~---------__j
-
r ·ro1hagi:111 = Totuagianistri +T;itb~giansua~;;;--:~r:;;l~~ia~makil-,-,----, J
To1bagiananakpr tTotbagiancuculk + Totba11iancucupr+ To1bagianbapak _, Totbagianibu + Totbagiankakck!Jpk 1 To1bagiannenckbpk + Totbagiannenekibu + Totbagiansdrlk + To1bagiansdrpr + Totbagiansdrlkbpk + Tothagianncgarn + Totbagiansdrlkibu + Totbagiansdqnibu + Totbagiankcponakan 1Tolbagiabkeponai:anbpk + Totbagianpamannbpk -1 To:bagianpamanbpk 1- Tolbagiansdrprbpk
Ashobah
~
sisawarisan - totbagian
Tothaµi:manaklk
:•.shobah
1------
--,
Jlk -- Val(janaklk.Tcxt) * 2 Jpr = Val(janakpr.Tcxt) * I Jlkpr -· jlk + jpr Totbagiananaklk ~· (jlk/jlkpr) -1 1\shobah Totbagiammakpr (_jpriilkpr) + 1\sholxth
T!DAK
---------------6
I
---
Cuculk. Value= I
~
--------· YA
-
------------
C11cupr Value=· 0
·<----
--
TIDAK YA
--------------~ ~i
-+
ashobahl------
I
~------------'
Cucupr Value= I
l__ -
Totbagiw1rnculk
l
Totbagim1c11culk asl1obal1 Jlkc" Val(Jcuc1tlk.Tex1J * 2 Jprc •• Val(Jcucupr.Text) ·1 I Jlkprc jlkc •. wrc Totbagiancuculk · (jlkc•jlkprc) * Ashobah Totbagi~ncuc1~ (Jprc'1lkprcl ., Ashobah
TIDJ\K
I h1·
--1>1
I
j
---·---·------------·--···-------~
__L_
~-
-------------
---------YA llapak.Vah1c ··I ~:=i
.·.::::.:__
...._____ TIDA K
____.-----
--------
---------------------..___
~ lbu. Value•= 1 And (suami.Valw~ ·•· 0 Or _..----lstri.Value = 0) And (anakpr.Valuc ·· 0 Or ---....._____ Cucunr.Value ~ 0 Or anaklk Value (I 01 -_ CucuJ!,.Value=O)And Anak.Value 0 TIDAK
~~
-----------------,
~
Tmbagianibu = 113 * Ashobah Totbagianbapak = ashobah ···· b.igianibu
! -~
7
TIDAK
Bagianbapak = totbat:ianbapak + ashobah
I
/~
~naklk.value 0 ~'~~akpr. value = and ~ =
/
0 cuculk. value = 0 and cucupr.value =0 /
TIDAK
/ YA --L-----, Bagianbapak •• asl1obah ~----------
[
10
87
'!OJ
8
TIDAK
----1-----
~------ -----------Kakekbapak. Value~
-----------.
I
·
··-::.:::::=-
--
YA
11
---
-........._________
----------- (anakpr. Value"" l Or cucupr.Valuc -----------anaklk.Va:11e = 0 And cuculk.Valuc (sdrlk. Value = 0 And sdrpr. Value ··· (I I ~ sclrlkbpk.Va!ue = 0 and sclrpr.Value •
i--_
I ·111) AK
I l .\nd 0 :\nd
___>
0
____ _..,---··
_____ ___----·
~~·
Ebagiankakekba~ak
---------..
..\nd
---------------
-----._
=
tolbagianbkekhapak ·
11·;/Jo~·-----1 I
------------------~
_ _........ _-
___---~,,;;;;;:::: "'""'v"'"":~------ ---- ----anaklk.Value = 0 And cuculk.Value = 0 And
{sclrlk.Valuc=O And sclrpr.Value=O And
----._______
sdrlkbpk.Va!uc = 0 and sdrpr.Va!uc = 0
"JI).\:\.
-------.........
------- ~-___________
----...__ __
>
~~
----------
YA
r·
[I Totalbagiankakekbapak
=
ashobah
---·------·· - -
I ._J I I
r,1-. L_ iJI\ J
-----
~J
0
-~~ ~ -------
~
Anakpr.valuc = 0 and cucupr.value '" 0 ---------~ TIDAK ----- -and ihu.value" 0 and nenckbpk.vaiue · 0 ---.________ and nenckibu.value 0 and ((suami.value · .---------~ I or istri. value= 1) or anak. value= I _ ___.-~ . · ~
-----------
.._______
------------------»<
-----YA
~
-----
TI D /, K
[
TIDAK
I~
Sdrik.value = 1
----------! YA
Satu = l/3 •
waris~~----·----·
I
--- -·--·-----1>1
Dua= (l/(jsdrlk.text + I )J * sisa warisan Totbai,,>iansdrlk = (jsdrlk.te.,t(jsdrlk.text + I)* sisawarisan
r------0 -
,.
15
----------
-<:._.___
--------------------
satu > dua Or satu '' 2 ~-=---4
-- -----------TIDAK
iI
Tl!) \f.:
-
fo1bagi<1nkakckbpk • Sa1u [ ·rotlH1g.iansdrlk :c: sisa\varisan - satu
-----~-~-----:::--=
r---~-
I
Sdrlkbpk.Value
I
_____
~-----Satu = 1/3
k YA
_
* sisawarisan
J
--~----~---------------
Sdrprbpk. Val nc
l jI
,--------L.-1_ _ _J
[i·olbagiankakekbpk - dua
L_
Y,\
O
--------------I
------------------
I v ,\
*
Jsdrlkbpk · Val(jsdrikl,pk.Tc:\11 * 2 j Jsdrpr '' Val(jsclrpr."k,:1 I ' I Jsdrlkpr' jsdrlk 1 _isdrpr • :' I Tothagiansc.lrlkhpk - i_isdrlkflpk jsdrpr) '' sismrnrisan Totbagiansdrpr = (jsdrprijsdrlkprl' sisnwarisan Dua'' (2/jsdrlkpr)' sisawari:'.<111 '
ce····--
_
_J
0
_______-~l-~
<------------ sdrpr. value·· 0 And ~
---
-._ sdrprbpk. value· 1. - - - -
YA
TIDAK
Jlksdrbpk = Val(jsdrlkbpk.tcxt) * 2 .lprsdrppk = ValUsdrprbpk.lcxl l ' I Jlkprsdr = jlksdrbpk I jprsdrbpk 1 2 Totbagfr,nsdrlkbpk = (jlksdrbpk/jlkprsdr) * sisawarisan Totbaf>,iansdrprbpk ·- (iprsdrhpk/jlkprsdrl * sisawarisan Dua = ( 2 I jlkprsdr) • sisawarisan
~ ---
sdrpr. value
------
I And
~
~·~~bpk.val_:.~
~IDACJ
YA
r==------"---~----
--------,
.llksdrbpk -- ValUsdrlkbpk.lcxt) '2 .lprsdrppk = ValUsdrprbpk.lcxt) * I Jprsdr-• Val(jprsdr.tex!) * I JJkprsdr = jJksdrbpk + jprsdr!Jpk I JlllSdr ' 2 Totbagiansdrlkbpk •· (jlksdrbpk• jlkprc.dr) * sisawarisnn Totbagiansdrprb11k •· (jprsdrbpkjlkprsdrJ * sisawarisan Totba~iansdrpr= (jprsdr/jlkprsdrJ * sisawarisan Ona·= ( 2 /jlkprsdr) * sisawarisan
20
19
16
--1
Tol?.lbagiankakekhpk = Sat11 .lsdrlkhpk = Val(isdrlkbpk.Texl) • 2 .lsdrprbpk = Val(jsdrprbpk.Tcxt) * I .lsdrpr = Val(jsdrpr.Tex1) * l Jsdrlkpr = jsdrlkbpk + jsdrprbpk 1 jsdrpr Tolbagiansdrlkbpk = (jsdrlkbpklisdrlkpr) • (sisawarism1 - s;1t11) Totbagiansdrprbpk = (jstlrprbpk/jsdrlkpr) * (:;isawnrisan - sal11) Totbagiansdr== (jsdrpr/jsdrlkpr) * (sisawarisan - saru) _ _ _j
I ____L ______
Totbagiankakekbpk -~ dua
--~
-
Sdrpr.Val11e • I
------- :::.::_::::=>-
----------c------~---. [
Satu •= I/3 • sisawarisan
J
--_l________ Sdrprbpk.Valuc ··· I
---::::::::>r -'
, - - - - -------- - - - - ___ _ jI___ _
I
l
Jsdrprbpk ••• Val(sdrpdipl.; lest I* I Jsclrpr = Val(jsdrpr.Tesl I* I Jsdrlkpr = jsdrprbpk _1sdrpr · 2 Totbagiansdrprbpk •- ljsdqJrbpkjsdrlkpr·) * sisawnrisan Totbagiansdrpr ·- (jsdrpr!iscl rlkpr J * sisawarisan Dua= 12~jsdrlkpr) • sisawarisan
) .
I
I
II
I
----------
_l
2J
[~
-
-
~
____J ___
TIDAK
-<·----
-----
Sdrprbpk.Va~"'r
l
YA
---------------· Dua·· ( 2 I Gsclrpr.Text + 2 l l * sisawa11san Totbagiansdrpr = (isdrpr.Text ! (Jsdrpr.text + 2 ·, J * sisawarisan
L
j ._,.
-~i
----------
Satu >Dua Or Satu
I TIDAK
r.:: 1
YA
I
l ___
Totbagiankakekbpk = Satu Jrrs
~l-
salu)
____
I J
Totbagiankakekbpk = dua
r--~ ~
·_r ~
---:::::::::::_
~] L ~-'
·-
~
Sdrprbpk.V:.lue= 1
TIDAK -=-------l>I
~-J
Satu = 1/3 " sisawarisan Dua= (2~~~rprbpk.Text + 2)) * sisa~~san
_ :- ;S~<·~.: :tu~ >~D~L~ta~O~ r~S~at~u~=~D: :u~a -
---_-_-_-_-_-_-_-_-
YA
----i
J-Tolbagiankakckbpk = dua Tolbagiansrdrprbpk ~- sisawaris'::~ ~
i
-
r
---
..--TIDAK
Totbagiank-ak-,c-·k-b-pk--ch;;·I~- - - - - -
_-___
Tolbagiansrdrprbpk
sisawarisan - clua
-1-
TIDAK_____.;;
r-~~r~lk~.V~<:tlu:e~=~l'..---------1
YA
Satu ·~ 1/6 " sisawarism;-j Dua= 1/3 * ashobah
J
--
~~lYA I
iI
Totbagiabsdrlk ·~
(jsdrlk~jsdrlkpr).
Totbagiansdrpr
ljsdrprfisdrlkpr)
Tiga ~ (2/jsdrll-:pr) * ashobah
* sisawarisan
* sisawarisan
--~--
I
___J__
TID.\1' _:::=------·-----•I
---~rpr. Value= 0 - -_- -
~
Tiga
(I /(jsdrlk.Text = 1))
Totbagiansdrlk
~
* ashobah
(jsdrlk.Text I (jsdrlk.Tcxt 1 I))·• asllobah
J
··-·1
.lsurlk = Val(jsdrlk.Text) * 2 .lsdrpr '' Val(jsdrpr.Tcxl) * I .lsdrlkpr = jsdrlk + jsdrpr + 2
TIDAK
I
;
Totbagiankakekbpk = Satu Jsdrlk = Val(is,jr]k.Tcxt) * 2
I
)TIDAK I
I
l
ll
Jsdrpr = Vai(jsdrpr.Tex[) * J . .Jsdrlkpr = jsdrlk + jsdq1r Totbagiansdrlk •· (jsdrlk/jsdrlkpr)' (ashob
I-~:~~~ v,
II 1
-------
---
TlDt\K
I
T0'bagianbketb;,~·.• Dua
Jsdrlk = Val(jsdrlk.Tcxt) * 2 Jsd11Jf = Val(jsdrpr.Tcxt) * l Jsdrlkpr = jsdrlk + jsdrpr Totbagiansdrlk = (isdr!kijsdrlkpr) * (ashobail 2) Totbagiansdrpr = (isdrpr/jsdrlkpr) * (ashobah -· 2)
J.____ T"I hagiankakekhpk
·~
tiga
J_
:~
TIDJ\K
~
!
r
'
----
------
Sdrlkbpk. Value = 1
-----
::::::::::>-
--r~'-A - - - -
Satu = l /6 • sisawarisan Dua =.1/3 * ashobah I
i
------------
Sdrpr. Viil ue =I And Sdq>rbpk. Value = 0 -----
~·
J
TIDAK
I I J
.--·---Jsdrlkbpk = Val(jsdrlkhpk.Text; * 2 .lsdrpr •- Val(.1sdrpr.T,:st) * I Jsdrlkpr = (jsdrlk 1- jsdrpr 1 2 Totb>1giansdrlkhpk (Jsdrll.!.ipk1.1sdrlkpr) '' ;1shohab Totbagiansdrpr Usdrp1 •. 1sdrlkpr1 • ashflhah Tiga = (2 'jsdrlkpr J * ashnbah
f__
I .I
-prhpk. Value = I
TIDAK
I
cb
1
yA
Jsdrlkbpk - Val(jsdrlkbpk.l'cxt) * 2 Jsdrprbpk = Val(jsdrprhpk.Tcxt) * I Jsdrlkpr •• (jsdrlkbpk 1 jsdrprbpk + 2 Totbagiansdrlkhpk (jsd:lkhpVjsdrlkpr) * ashobah Totbagiansdrprbpk (jsdrprhpk~jsdrlkpr) * ashnhah Tig
- -..
r-:1-:--i
~
y
30
I
.-~~lrbpk.Value= I And <__
Sdrlkbpk. Value I
Tl DAI<.:
I YA Jsdrlkbpk = Va!Usdrlkbpk.Tcxl) * 2 .lsdqirbpk = VaJUsdrprbpk.Text) * I Jsd1pr= Va!Usdrpr.Text) * 1 Jsdrlkpr = jsdrlkbpk + jsdrprhpk + jsdrpr + 2 Totbagiansdrlkbpk = (isdrlkbpk/jsdrlkpr) * ashobah Totbagiansdrprhpk = Usdqirhpk~isdrlkpr) * ashohah Bagiansdrpr = (jsJrprzisdrH;pr) * ashohah Tiga = (2/jsrdlkpr) * sisawarisan
~-
-
Sclrprbpk. Value" G And ------sdrlkbpk. \I ;;lue • 0
~-------
---.-.....__........___
TJDAJ<.: >---------------~
~
riga ~ (1/ljsclrlkbpk.Text +I))• ashobah i Totbagiansclrlkbpk • (jsclrlkbpk.Text!(jsdrlkbpk.Text + I))* ashobah
L
-·-
Satu> Dua Ancl Satn > 1iga
J
---~
_:__-----J_~' i\ - -
~-----~---·
Totbagiankakekbpk • ~:a111 Jsdrlkhpk = Valcjsdrlkhpk .Tcx1) * 2 Jsdrprbpk = Val(isdrprbpk Text)* I Jsdrpr •= Val(jsdrpr.Text I * I Jsdrlkpr = jsdrlk + jsdqw ! jsdrpr Totbagiansdrlkbpk = (jsdrlkijsdrlkpr) * (ashobah -- sa111) Totbagiansdrprbpk = (isdrpr!jsclrikpr) * (ashohah - saln 1 Totbagiansdrpr ··• ( jsdrpr/jsdrlkprl * taslJObah saltl.1
(
TIDAK
-~
Totbagiankakekhpk = Satu Jsdrlkbpk = Val(jsdrlkbpk.Text) • 2 .Jsdrprbpk •· Val(jsdqJrbpk.Text 1* I ·Jsdrp;-= Val(jsdrpr.T~xt)' I .lsdrlkpr = jsdrlk + jsdrpr + jsdrpr Totb&giansdrlkbpk = (jsdrlk(jsdrlkpr) * (ashobah - dua) To!bagi:msdrprbpk '' (jsdrpr/jsdrlkpr) * (ashobah dua 1 Totbagiansdrpr = (jsdrpr/jsdrlkpr) * 1ashobah - dua)
Totbagiankakekbpk = tiga
Tli)AK
---
1--~
Sdrpr.Valuc •=I 1J -\
l [ \
I
----------
G;atu ~)ua
=
1/6
* si,:wawarisnn i,
I /3 • ;1shobah
.
1
==i~----
,JlDA~- Sdrprbpk.Value··J --~
l · l
----------------- . l
-------
"'::::~rbpk.Valuc =O ~ ·11 ');\K
- -j .
Y·\ ·
.Tsdrlkbpk" Val(isdrlkbpk.Tc~xtJ * 2 .Tsdrprbvk"" Viil(Jsdrprhpk. fc'-1) * .1 Jsdrlkp: = .isdrlkbpk 1 Jsdrprhpk 1 2. Totbagiansdrlkhpk • (jsclrlkhpk/1sdrlkpr) * asl1r>bali Tothagia_n_s.drprhpk (lsd1-prbplqsdrlkpr) * asliohah 'f"1ga ;,;, (~" . . !.'JSru·'II;.pr)"'~ s1s;nvar1,..,an
Ti~a = (2/(jsdrpr.Text + 2)) * ashobah
· Totbagiansdrpr•• (jsdrpr.TexV(isdrpr.Tcxl + 2))
- .:
l
36
lI
,.
J
--r---------
* ashohah j
·----IP
y ;\
.
"
__I ___ ---- --------
----
--~->-
Satu > chia And satu > !iga '
--------------
ITu1hagiankakekbpk ,-, Satu
'
1
I vA
1
______L _
Jsdrprbpk = Val(jsdrprbpk .Te\t i • I Jsdrpr = Val(jsdrpr. Text) * I Jsdrlkpr = jsdr11r + jsdrpr Toibagiansdr}lrbpk = (jsdrprbpkijsdrlkpr) * (ashobah Totbagiansdrpr =- (isdrpr/jsdrlkprJ * (ashobah - satt1)
/ ~ -~ 1.
1
sal11)
.
------1
1
1
Sat u > rl ua And satu > tiga
·r~-------------T;~~~bagiankakekbpk -·· tiga
I
::::::==-
1
/Y . \
Tothagiankakekbpk = dua Jsdrprbpk = Val(jsdrprbµk.Text) • Jsdrpr ·= Val(jsdqir.Tcxl) '' I Jsdrlkpr = jsdqir + jsdrpr Totbagiansdrprbpk '' (jsd11lrbpk/jsdrlkpr) • (aslmbah · dua) Totbagiansdrpr •= (isdrpr,l1sdrlkpr) • (ashobah - dua I
---+
---
11·
J_ --------r--------~~~YA~---I --
Sdrpihpk.Value '' 1
---~
'
Satu = 116 • sisawarisan Dua·~, 1/3 * ashobah Tig;; = (2 / Osdrprbpk.Text + 2))
TIDAK
--
TIDAK
dua)
I
I Totbagiankakekbpk = Satu I
~-
* (ashobah -
/
Totb;,giansdr~rbpk"
----· sisawarisan - satu
----=====:::::>
Dua> satu And dua > tiga
--~ I YA
Totba1,tiankakekhpk ~- dua Totbagiansdrprbpk = sisawarisan -- dua
Totb11giankakekbpk ·" tiga Totbagiansdrprbpk = sisawarisan - tiga
39
l_J
II
TID;\K
YI\ Totbagiansdrpr ·~ 0
=::::::.-- -----~-r otbagiansdrlkbpk <~ 0
·~
·----
---==:i
-~·-~-----.--·---·--------!>
~tbagiansdrprhpk= ~
_.:._--
YA
0
-----. --------
Totbagrnnsdrprbpk <~--~ 0 ..------ · ·- -·
:::_...
/Yi\
J L
.
·-----
------->·
.J
Totba!!iansdrrrhpk ·• 0
I
.I
[Q~\]
L._______
I>
40
! ; .'
11
-··-----~--
------------l ---------
-- ----TIDAi\.
Sdrlki\111.Value= 1 And sdrpribu \";tlue I - - - - - And ;;orlk.Value = I And sdrpr.\"al11c I --------~·
YA
.lha11asdr = ashobah I Val(jsdrlk.'foxl) + .1sclrpr.tcxt) ; Val(jsdrlkibu.TeY.l) + Val(isdrprilmText) Totbagiansdrlkibu = jhartasdr • Val(jsdrlkib11.Text) Totbagianschpribu = jha11asdr' Val(jsdrpribu.Text) Tctbagiansdrlk = jhartasdr * (Val(jsdrlk.Text) Totbagiansdrpr = jhartasdr * Val(jsdqir.Tcxt)
l
----
---
--
---
Sdrlkibu. Vah;e =· l And sdrpribu.Value=l -~:~-----_:_A::1~1d:_:sd~r~lk~·.~V~a:luce = 1 And sdrpr.Valuc 0
'TIDAK
--------_________,.
-~-
.lhartasdr · ashobal;-/-V-al-(1-·sd-rlk.Text) + './al(jsdrlkibu ·1 ex;) Totbagmnsdrlk1bu c• jhartasdr * Val(jsdrlkibu.lext) Totbagiansdrpribu ·- jl1m1asdr * Val(jsdrpribu.tcxl) Totbagiansdrlk = jhartasdr * Val(jsdrlk.text)
i
l
V-;-1l(-S(-lrpri-b1-1.t-cx_l_)
I J
---------"
~
-------~--_
____[ ________
'"'••-.-.
-.......
--·---~
----
TIDAK
-·--------=-
--------------
Sdrlkibu.Value= I And sdrprihu.Valuc •I And ,.drlk.Valuec 0 And sdrpr.Valuc I
Yi\
Jhm1asdro ashobah I Val(jsdrlk.Text: 1 j;;dq1r.1cxli ·• Val(jsdrlkibu.Tcxt) + Val!jsdrrribu Tex I) Totbagiansdrlkibu = jhartasdr * \'al(j:;drlkih11.Tc>ct J Totbagiansdrlk = jhartasdr * (Val(lsdr lk.Tcxl J Tot\Jagiansdrpr "' jhartasdr * Val(jsdrpr Tex I I
lj,
+--------1>
Tl DAK
Jhartasdr"• ashobah /Val(jsddk.Tcxl) 1 jsdrpr.1cx1) Val(jsdrlkibu.Text) + Val(jsdrprilm l'c"d J Tolbagiansdrlkibu ". jhartasdr * Val(jsdrlk1h11.Tcx1 I Totbagiansdrlk = jhartasdr * (Val(jsdrlk I c''1 I rotbagiansdrpr = jhartasdr * Val(jsdrpr.Tcxt I
-------
I II I I
"I IDAK
1
__.,
--------
r=:=____ Sdrlkibu.Value =I And sdrprilm\!aluc I - - - - Aud sdr1k.Value = 0 Aud sdrpr.Valuc I I '
1
-·--__-::=-
---------·
YA
l111artasdr = ashobah I Val(jsdrlk.T~x.t) J _1sdq;r text;;-· Val(jsdrlkibu.Text) + Val(jsdrpribu ·lcxt) 1--------·-+ Totbagiansdrlkibv = jhartasdr * Val(jsdrlkibu.Tcxt) Totbagiansdrlk = jhartasdr * (Val(jsdrlk .Text) Totbagiansrlrpr = jhartasdr * Val(jsurp;·.Tcxt)
I.
~~] I
------- ---------
'
--~drlkibu.Vnlue' =I And sclrpribu.Value 0 - - - - - - - - i··~:~----.!..·'\~1i_:1d~s~·d~rl~k~.V~a:il:1e~·~·-~l~A~n:d~s~d~q:Jr~.v~';:1Ju~-(~------------
~
rJDM<
~-----------~~-J;iartasdr = ashobah./ Val(jsdrlk.Text) + jsdqJr.tcxt) 1 \·'a\(Jsdrpribu Tc'~
j
Totbagiansdrlk -- jhartasdr • (Val(jsdrlk.Tcxt) Totbagiansdrpr = jhartasdr * Val(jsdrpr.Texl)
_______l _______ _
l----
.-----._-----____ I( _J_Yi\
.. - - - - - - Sdrlkibu.Vai11e•• I And '.,drpribu.Vai11.: 1) - - - - - - - - And sdrlk.Value ~ 0 ;\nd sdrpr.Valuc I •..--· _ _ .._ _-:::::=J'1D:\h
__________
---
[Jl;artas;l~ -;;~hobah I Val(jsdrlk.Tcx\) + jsdrpr texO-· Val(Js;lr;;rib~j-C\-;)1
\
Totbaginnsdrlk
~
1
jhartasdr" (Val(jsdrlk.Tcxt)
Totbag1an~drpr = jhartasdr * Val(jsdrpr.Text)
I
__J
L_ _ _ _ _.
--~~~--Sdrlkibu.V?lue = And sdrpribu.Valne"
----------I ----
--------
0
I ------
And sdrlk.Value = 1 And sdrpr.Value -· 0
f
TIDAi<
I
,j.
------
YA
\
.lhartasd r ·· ash o ba_l_1/_V_"_·ll-(i--so-'r-lk-.T_e_x_!),,_-t_·.-is-d-rp.-r-.te-·x-·)-·-+-V--a-l(-is_d_r_p_r-ib-u-.'1-.c-x
II
Totbagiansdrlk ·-jhartasdr • (Valijsddk.Texl) Totbagian!;drpr : jharlasdr • Val(isdrpr.Tcxt)
L_
1
0
.
01 . j
J
J__ [ I 46 ----~-
c:~-J I
[~
I II YA -------------------
Jhar1asdr = ashobah I Val(jsdrlk.Text) + jsdrpr.lcx!l Tothagiansdrlk =jhartasdr * (Val(jsdrlk.Text) I Totbagiansdrpr = jhartasdr • Val(jsdrpr. Text) l ________________
I
1
Val(jsdrpribu.Tcxtl
~
---------------
TID:\K
j
I I
I
__ _ _ _. --------I '
~.>
YA
Sdqir.Vahre - 0
·1·1DAK
J
-------
Sd rl k. Va Iuc = 1
r I
I ->-----
~-----
~
'-- 'fotbagiansdrlk
~ ashobah
>·
l------ -----------------·•
'!'
------------
Sdq1r. Value= I
---------
YA
.lsdrlk ·• \'al(jsdrlk.Tcxt) • 2 .lsdq·•r \'ai(jsdrpr.Text) * I .lsdrlkpr jsdrlk r jsdrpr Totbagim1sdrlk ·· (jsdrlk(jscirlkpr) * ashobah Totbagi,insdrpr •· (jsdrprzjsdrlkpr) * ashobah
--------------------
_I ___ --
TlDAK
_
~-----<:::::::_ Sdrlkbpkvalue = 1
--:::=:~
YA
~prbpk.value~l -------
TIDAK
I
y .\
~--------'t-
l
I
I
I +'
---------·
.Jsdrlkbpk = Val(jsdrlkbpk.Te,1) * :>. .lsdrprbpk = Val(lsdrprbpk.Tcxl) * 1 Jsdrlkprbpk = jsdrlkhpk ' jsclrprbpk
Totbagiansdrlkbpk · (jsdrlkbpkijsd rlk rrbpkJ * asl10bah Totbagiansclrprhpk (isdrprbpk.!jsdrlkprbpkl * ashnbah ______ _ _ _ _J
T/I) \1'
sdq:r.Valuc = 0 And kakckbpk.Valuc = 0
YA
I
.,:;,lbagiansdrlkbpk = ashobah
---
TID:\K
-------
l
-----------
----------------------
----.._
Sdrpr.Value = 1 And (anakp•-.\'aluc Or cucupr.Value ~. I)
I
._____
__..---~-
YA
Totbagiansdrpr
0
•
ashobal;--i-
[~
i/
0 _____l ____
~-~]
----- ------------
--Sctrprbpk.Value= I And -·I Orcucupr.Value= 1)
(anak~
-----
_ _. - -
YA
TIDAK
Totbagiansdrpr = ashobah
--
---............;:o.-
r L__I_ B~~iankeponakan~h~;l~~
Keponakan.value
=
---............
TIDAK .
I
-
)'A
__ --1 ___
--_____
-.o:::::::::::: TIDAK
Keponakanbpk. value
I
-
---::::=>.--------·
YA
Hagiankeponakanhpk ashobal;I _=_ _ __ J · - - - - - -
_______,.
___ __l_______ r=--TIDAK
I
parna.valuc
""°'
-----=~-:=:>-
1
-------,----------
I __
YA
l3agianpaman •• ashobah
l 0
·-·1
I
-----1>1I
1
[J
--
~
_,._._...
--
TIDAK
-..,--
-·~
p:unanbpk.valuc =· l YA
[-&-;;;;;;pamanbpk = ashobah
---1
_;:::::::::>
J
-----------i:;:-------
·---------::::::~ sepupu. value= 1 TIDAK
c·--B-a-g-iansepupu = ashobah
-"':::>-
-]--------··-·----..
________ __L_____ _:::.:.::=-------I -r~'A sepupubpk. vah1e •• I ---__~-
TIDAK
l
Bagia-nsepupubpk =• ashoba_h_]---·- - - - - - - - - + !
____l____ ----------------=-TvA -----· !___________ ]-
----
~
I
ncgara. value "'" I
13agianncgara = ashobah ~
-=::::::>-
'i"I
~__ _T_ ·~ totbagianistri + totbagiamuami + totbagiamJ1,aklk · to!bagianan.ikpr + tott1agiancuculk -!" totbagiancucupr _, h)thagianlbu
To1bagia11
totbagianbapak 1 totbagiansdrlk + totbagiansdrpr ' 101h;igiankakekbapak to1bagiannenekbapak + lotbagiannenekibu + 1otbagia11sepupu ' totbagianc.crupubpk 1 t;,tbagiankepo;iakan + 1otbapi111kqio11akanbpk 101!><11•.ianpam;in + IDtbagianpamanbpk + 101bagi,msd1 IU1pk · 101hag1ansdrprbpk
-1
lothagiansdrlkibu
------·-1·
1 lolbai~ianpn\iu
'l'IJ)AK~~~---------
r-----c.----
.
0
----------
------
-----------
Totbagian <• 0
I I
; t(l\bc1i<1nncL',::1ra
·
·---1
~>
-----
~~
--------
Totbagian < Val(sisawarisan) Or
------------
____-,
'!DA~~S?-~~:
Totb11gia11istri ~ (totbagianistri/totbagian) • sisawarisan Totbagian.mami - (totbagiansuami/totbagian) * :.isawansan Totbagiananaklk •• (totbagianannklk/totbagian) * s1s<1Mir1sm1 Totbagiananakpr •c (torbagiamnakpr/to•.bagianl * sisawarisan Totbagiancuculk = (totbagiancuculk./totbagianl * sisawill'isan Totbagiancnctipr "" (tolbagiancucupr/totbagian) * sis<1warisan Totbagianbapak" (lotbag1a11bapak/totbagian) * sisa\\arisan Totbagianibu ·" (tothagim1ibu/totbagian) * sisawarisan Totbagiankilkckllpk = (lcthagiankakekbpkitotbagianl * si.,awarisan Totbagiannenckbpk =(totbagiannenekbpk/totbagian) * sisawarisau Totbagianncnckibu "" (mtbagiannenekibu. /totbagian) * :;isawarisan Totbagiansdrlk ... (totbagim1sdrlk/totbai,,>ian) * sisawarisan Totbagiansdrpr = (totbagiansdrpr/totbagian) * sisawarisan Totbagiansclrlkbpk " (lotbagiansdrlkbpk. /totbagian I * sisawarba11 Totbagiansclrprbpk '" (totl>agiansdrprbpk/lotbagian) * sisawarisan Totbagiansdrlkibu "· (totbagiansdrlkiht/totbagian) • sismvarisan Totbagiansdrpribu" (lotbagiansdrprilmitotbagian) * sisawarisan Totbagiankcponakan = (totbagiankeponakan/totbagian)" si><11varisa11 Totbagiabkcponakanbpk = (totbagiankeponakanbpk (lotba[.'ian) * sisam1ns.u1 Totbagianpamannbpk "' Uotbagianpamanbpk/tolbagian l * sisawarisan Totbagianpamanbpk "' (totbagianpamanbpk/totbagian) * sisawarisan Totbagianscpupu "' (totb11giansepupu/l<,1bagian l * s:sawarisan Totbagiamepupubpk = (tctbagiansep!lpubpk/totbag",m J *' si.sawansa11 ·ratbagiani'cg:ara (totbag)an negara/tothagian) >+- sisa,varis
I
1
1
--..[-;,·;~-1 -.-·-.J
[
l '.U
Gambar 4. 14 Flowcba1·t Prosedur perhiturgan jumlah bagian para ahli waris
11 l
4.7 Pcranrnngan Layar -1.7.1 Pcrancangan Layar Aplikasi llmu faroitlh
Aplikasi llmu Faroidh ------~---------
File Konsultasi Keluar
lnformasi Ilmu Faroidh Operasional Program
Programmer
[___
__________________________ Gambar 4.16 Rancangan Layar :Vknu I 'lama
Kons11lt;1si \7iinl£.:\kniI-1g-,g-,-11-i-,-,-,1~1i-\-\-·a-r-is--------------~=:==---_-_-::____ __ .,... Y ,, f-' Nlenir1e10aJ !Junia [] Su.irn1 [] lsin
0 O
Anak
Jumlab J-Iarla \Varisan
Rp.
'-·--===1-~
Biaya Pera\\<11<1n I-lutan.~~ Piutang V,'a:-.iat
lsln
Sisa Har.a \Vnrisan Rp.
c:=-.
_-------~]
[ ~I ~~LN"''~I J..:..osongk.an Ahli \\ ;u-1-;
____.
Gamb:1.r 4.17 Rancang:rn Layar Konsultasi (input Yang Meninggal)
112
l
Konsultasi Yang Mcnmggal I Ahli Waris
[--~;oses
; 'iHh Ahli \Varis dnn J.untlnln1ya Ahli \Varis Jurnlah
O
[=:J [=:J
Anak Laki-lak1 O Anal Pcrcnlpuan [] Cucu Jaki-hki
0 O 0 O 0
1
O 0 []
[J
L
1
]
Ahli \Varis
O
8
Cui..:u Pcrc111puan Saudara l.1k1-Jak1
f=:=J 0
SauJara Pl~rcnlpuar1 seibu
c:J 0 C:=J 0 [=:::::J 0
Paman Pa1nan Sebupat Sepupu Scpupu Scbpk.
[=:::::J O Bapak SaudaJ'a Pcrcn1puan [=:J 0 lbu r Saudara I ak1-laki scbpk [=:J O Kakt•k Saudara Percmpuan Sebpl [=:J 0 Nenek dari bapak Sauda1a lak1-lak1 Seibu [=:J O Ncnck dari !bu Kcponakan
Kt"p0naJ..:111 ~)(•hapak
lstri Suarni
Ncg;ira
(;am bar .t.18 Rancangan Layar Konsultasi (Input Ahli \V:iris dan .Jumlahnya)
.Jurnl.ah
Bngian
01·ang
Bn:gian
Ora11g
Pam an c:::---=i=:=:i Anak Pr•rcmpu;in [=:J Paman Sdiapak 1=:_~--=:Jl7 =:J ~=-===!1 1 Sepupu :=J[ :J Cucu laf\i-laki C11c11 Peremp11an L I[ :=J Sepupu Sebpk [~~~ [Saudara Jati-laki L:===:Jc:J Bapak !bu =====i~c:J==: Saudara Perempuan c=.==ic:J Saudara Laki-laU scbpk C:[=:::::J Kakck !:==: I I - - I :=i Saudara Percmpuan Scbpk I ==:Jc:J Ncnel: dari bapak f Saudara laki-laki Scibu C [=:::::J Nenek d:1ri lhu [-====i=:J -J__::=J Saudara Pcre111puan seibu c:J !sin [ . c:J Suan ' Keponakan l Keponakan Scbapak [___ I -\ c =ii==i Negara r----~1i==i
c=
c_
:::::::c=J
Q~~cQ
,,
Gambar 4.19 Rani:1mgan Layar Bagian Output Ahli Waris
I
BABV IMPLEMENTASI 5.1 lmplcmentasi 5.1.1 Kcbutuhan Pcnrnglrnt Kerns Agar program
ini dapat berjalan uc11ga11 baik memcrlukan
konllgurasi perangkat keras sebagai berikul Kcbutuhan Minimum : I. Pentium I 233 MHz Mcmory64 Mb :i. Ruang Penyimpauan HardDisk yang tcrscdi;1 I 00 \·lb cl. Kartu grnfik 2 Mb 5
\lonitor bcresolusi 800 X 600
(,
Keyboard/Mouse
Kel,utuhan yang disarankan I. Pentium Ill 500 MHz 1
\lemory 128
'· !(uang pcyimpanan HardDisk yang tcrscd1<1 .:'50 .\Iii .f.
Kartu grafig 4 Mb
5. \lonitor bcrcsolusi 4 Mb 6.
Keyboard/Mouse
11·1
5.1.2 Kcbutuha11 Piranti Lunak
Agar progrn·n ini dapat bcrjalan dcnµan baik mcmcrlnkm1 komponcn piranti lunak Sistcm Opcrasi i\licrososf1 Windows 95, \\: 11~dows 98, Windows XP.
5.1.J l'ro<:cdur l'emaliaian Sislcm lnstalasi Program
llntuk menginstall program ini, anda harus mcnggnnakan sistcm opcrasi Microwft Windows 95/98/XI'. l .angkal•-langkah
p~nginstalm1
adalal1 sebagai berikut: 1. i'Jyalakan komputcranda.jalankan i'vlicrosnli \\'indnws ')5198/XP 1vh;sukkan CD Aplikasi Faroidh kc dalam CD-ROM Drive
·'
/)011h/c klik hon MyKomputcr dila\ a1 11w11i1or and a. I \011h/c klik
CD-ROM drive, dan kemudian douh/,· klik sctnp.cxc. kclika laym·
setup muncul, klik insla//, kemudian i.
Jill.
115
lluinstalR Program Langkah-l<mgkah untuk meng-u!"'install program ini scbagai bcrikut : Nyalakan komputer anda,jalankan M:.;rosoli Windows ')5i<J8fXP 1
Klik tombol start pada tosk!>ar, pihh
.,·c11111gs,
kcmucllan klik c<mtm/
panel. Dou'J/e klik Addi!lem,,ve program. pilih ,111/Jkw:J hmJ/ilh.
kemudian klik Add/Jlmwve.
5.2 Cara l'cngopcrasiao Aplilmsi Faroidh
Apikasi Perhitun,·an waris rncnurut hukwn hlam !Faroidhi dirancang untul~
n1c1nbcrikan i!1fon11asi bagian 1nasinJ!_-111asing harta \Varis,111 ah!i \vans
scsuai dcugan ketcntuan syarn' (hukrnn islam). I 'ntuk mcngunakan Aplikasi ini kami mcnggunak;m
1rn, IFalor
yang
bcrbcnti;k tombol yang berisi fonn-fonn yanF mc\\:1kili pcrilrnl langkahlangbh perhitungan.
5.3 Tampilan Layar
Pada arilikasi ini penuiis membuat 8 (dclapanJ.icn1s lnv:1r vaitu: I. I ayar SplashScrccn ~
! ayar n1enu uta1na
.i.
! .:1y;11 Input pihak yang 1ne11inggal dunia dan pcrhitung.an kc\Viljiba11·-
kc11ajib<1n sebclum harta warisan dibag1ka11 .J
I.a var Input para al1li waris dan jumlahnya
I I6
5. La:•·1r bagian masing-masing ahli waris 6. Layar Pe1~jelasan llmu Faroidh 7. Layar Penjelasan Program 8. Layar ·rentHng Pr0gra1nn1er
5.3. l Lay a r Sp ash .Screen
Tampilan yang pertama kali muncul pada saat aplikasi i111 clijalaukan adalah layar Splash Screen/pc nbuka sebagai berikut.
Gllmhar 5.1 Layar SplashScrren/Prmhulrn
5.3.2 Layar Menu lJmma
Garnbar 5.2 Layar Menu Uta ma Pti:la Jayar n1enu uta1na terdapat 2 (dua) n1cnu 11!<1rna, yaitu
1.
iVICllll
File Pada mem. File terdapat :> (d11a)
A.'onsu/tasi
,;1dllllL'llll.
va1111 s11bmcn11
dm1 submebu Kduar. .lib d1pilili "1brncnu Km1.1·11/1a.11
rnaka akan ditampilkan Jayar input pil1ak vang rncninggnl clan pcrhilungan kewajiban-kcwajiban scbcl11m harta warisan diba!likan .lika dipilih submenu Keluar maka aplika"
1111
ak;m tcl'lutup.
118
2. Menu lnfimnasi. Pada menu 111/ormasi terdapat 3 (tiga) buah submenu yallu sub111enu lllnu }/l1roidh, subinenu I'cflayuk
f'rop.,run1,
l)rogra1111ner. Jika submcnu J>e1?/e/asan fi11111 1:aroii.lh
sub1nen11
dipilih 1naka
akan ditampilkan layar tentang pcnjclasan ilmu faroidh. Jib submcnu f',•f11111uk Program dipilih maka akai1 dit.ampilkan layar pctm\juk
program. Jika submenu Programmer cipilih maka akan ditarnpilkan l;1yar te11ta11g pro1,>rammer.
S.3.3 Layar Input pihak yang Me:ainggal
11
I Gambar S.3 Layar Input Pihak Yang "er.in·:cgal i'•tda lavar ini user diharuskan .
.
n1cn1~is1
( 'hec~lln-..:
pil1ak
yan~
1nenin 12 gcil dania dan TextBox ju1nlah harta \van-.;an :-.ert11 nH.::ngisi ·rc\tl3ox kc~\vaj1ha11
lia11a \varisan ~,ebelun1 d-ibagi. Setclali St~111uany~1 diisi 111ak;1 usc·r !1aius
I I')
meng-klik lombol hitung agar mendapatkan sisa ha11a warisan yang kcmudrnn akan d1bag1kan kepada ahli waris
5.JA Layar Input Para Ahli Waris !lan .Jumhtlrn)'a (j
J(
~hll VtarIB
0 0 0
.Auat JnJ.~i ·
o·r·.nrnnl
.\nai; l'<-:l i!fi!fHl:'iU
0
("11n1 l«kl·).li
P:11nhn S>:h.q1:.J..:
,·_QSf•tm):l\I
C) _:;~f''lj'>H Sd.<.1,1,:il;: QF:;•F•1~
Ea.!J;u Q_f_:;11k1-,l~
Gambar 5.4 La 0 ,ir Input Ahli Waris · l'ada layer lnput Ahli Waris ini, user Innis 1nengisikan s1;1na sa1a al1li waris yang ada bcserta jumlahnya dengan earn m·:ng-kl1k objek ChesBos ,\hli wans dan mcngisi TcxtBox jurnlah dcngan angka 0.1 ..' ..1..
Sc1elall scmua ahli
\Varis ya11g ada diisi, rnaka user 1neng-khk to1nbo! I uush uniuk n1cnch1patk1u1 hnsil bagian harta v.'arisa111nasing-n1asing scpe11i ditunjukkan pnda Fa1nhar 4.5
120
5.3.5 Lay:•r Hagian masing-masing Ahli wari~
i ;.
.: i :
Boglan
AhliWarls
Jtn\llalt
orang
{(Hi
l'l1r.:>..."1. P,..i~;11tt,,:np~I.
!'irpr1p1:
:lf;'\'llUIP1>1Jnk
\ - ~-· ·-.. ;oc~lx{t: i-·- - .. -N••--·-··--~
K:i:KH,· 'N;;fi~Ii. ib.ti ~~l''!r \'
ii
l!
d."ai.i}.1;
r. . ·-···--·----·0 . ·-------(,
{tjfi
.V.>•tmf>-1.k'11\
i : !'.uaml
,
'
1!
Gambar 5.5 Layar Bagian Masing-masing Ahli Waris
Layar ini berisi informasi tentang baginn-n1asing-1nasing ciLii \Vari:)
setelah mcl liui proses pcrh1tungan,
5.3.t. Layar Pcnjclasa11 !lmu faroidh
"
,S::k~;T('ntaag Thn,1 '~~1is ~~~-~~-~~~l Kata warisan yang sudah po;"'tler didalmn bal1asa . Indoriesia asalnya dm1 bal1aso arz,\. ymh1 "11~aratsa" yang mengandug pen.gertian pt·rpindahan. ,pelbag&i halt doo kewajiban tentMg kekayaan »esMrang yang meainggat dunia kepada orang in.in yang rnasihi h1dup (Drs 1',1nslich Maruzi, 1981) Oleh lrarena ilmu ini lebih bm1yalc membic;"·alrnn hak-hak ah1i wa1is yang telah ditentukan kadm·nya :;ec?J·a · pasl! malta dilkalan.gonfaqoha (ahli fic)h) lebil1 p0puler dengan nru.nafaraidh yait:u "ilr1~ufiqh .vang ber7>aufan
dengan pe1nbagi.an harta warisan. 1-'.>engetahuan ten.tang c(ira perhitungan, .,.V;'lng aa_vat n1
Sfurpan _,.,;
____
!
,_"--~--'
tutup
·--~-' ·-·~·-~---
C:ambar 5.6 Layar Pcnjclasan limn Faroidh Layar ini berisi tentang dasar-dasar ilmu faroidh meliputi pcngcrtian. dasar hukum, bagian masing-masing ahli waris, hijnb mahjub. ashobah dan pcnjelasm1 lainnya yang dapat dijadikan refercnsi untuk mcmpclajari ilmn foroidh.
5.3.7 Layar Pcnjelasan Program
Pilih salah satu pihak yang meniiir,gal dt!ll'.a Inputkan Jumlah Harta Warisan seluntlmy,, 3. Input Biaya Pernwatan jenazah (tahJ!J) 2
~
S
6
Input Hutang piutang si mab Input Jumlcl1 wasrnt (kalo ada ... ) Klik tombol /Uiung
S;;telah JUfnlah sisa '"-'arisan teris1, ki11 tc·znl)o1 JVe.,"t.:t Layar Input Ahli Waris. pilih se_nua ahli v.·aris yang ada bese1ta jumlclmya 9. 'Terakhir, ldik tombol Pl'Os~s untuk r1endapc:.tl:~.::1n jurrJah bc.rg1an hart a "'vansan. n1J:ting-masing 3.
Pad~
Gambar 5,7 Layar Penjclasan Program Pada layar ini terdapat penjelasan mengenai hagaimana mcnggunakan aplikasi yang tclah dibunt untuk menghitung harta warisan menurut lmkmn Islam. Layar ini llanat discbllt sebagai manual Aplikasi.
>.3.8 Layar Tcntang Programmer
.,,<>.--),;,
MAD BAIHAQI
:"1!.iiforii1ati e ·::E~1°eneerin°~j ···ooo ::,""-.'''., i : ) '
'·''.-'
'
-
,,.. ~. ,,_,~~~,. . . . -:~. . :.:..: --~",;:.~E::~\; ·.-_: : _. '.....:.-·~-......;:.:.... ~·~·· ~~ -·· ,_,.
•
~ytlem Info...
Gambar 5.8 Layar Ten1ang Programmer
!
12.1
HABVI
KESIMPULAN DAN SABAN 6.1 k:rsimpulan 13erdasarkan
hasil
perancangan
dan
11nplcrnentao;;1
;\plika:~·
l'crhitungan Hana Warisan Mcnlirut lfokurn hl;irn illl. maka dapat dia111bil kes1mp11lan: a
,-\pl1kasi ini dapat mcnghitung harta wansan scsnai dcngan kctentnan h11k11111 Islam yang telah dirumuskan olch ,\1-(>uran dan bcbcrnpa ulama liqh.
b. Aplikasi ini dapat memudahkan masvarnkat un1uk menghitung hm1a \varisan scsuai hukum Islan1.
c. Aplikasi ini dapat digunakan pada lemhaga pcngambil kcputusan scpcrti l\:radilm1 /\gmna unt11k memutnskan sc 1gkcta \\'arisan. 6.2 Saran
a. Agar lebih memenuhi criteria user i11te1fha yang baik, aplii;asi ini dapal dikcmbangkan
menggunakan
menjadi
i;plikasi
intcraktif dcngan
menambahkan gr.mbar dan suara. b. Aplikasi ini dibuat hanya berdasarkan pcndapat beherapa nlmm; yang tcrbatas, kiranya pcmbaca dapat mcngcmbangkan aplika'i ini dent!
OAFTAR PlJSTAk'.i\
Rahman Fatirnr, 1981. !111111 Waris. Penerbi1 PT Alrna'arif, Bandt•nf\ Goni Abdul, M, 2003. lkhtisar Faraidh, Darul lJlum Press
iV1cL.cod Ray•nond, .Tr, 200L Siste111 I1!f<Jr1nasi A,fanajenu.•11. Pl. Prcnhallindo, .Jakarta S. Prcssrnan Roger, Phd. 2U02, l?ekayasa />erangkot ! 1enge111hangan
.~)'.\'ICIJI J>G1«1r Atfenggunakan
/.f11111/..,
,,\nd1 '{ngyakar1a
Vivual nosic 2003. i\nd l
\'
og1aka11a
Supardi Yuniar, MicrtJS'/f/ Visual Basic Da!am l'raAtek. ]lllic. Datakom
()ption
1~".p!ic;t
Public bagiananaJ..lf.; As Double. baganakpr 1\s Doubic Public bagian·:ucupr As Double. bagiancuculk As f)oubk~ Puhli~· hngiunsunrni As Double, bnMit1.ni:dri AN f>ouhlo Public bngiansdrlk As. l)ouble, hagiansdrpr As f)ouble Public bagianb<1pak As Doub!i:, bagianihu As Double Public b:igi:inkakckhapaL As DoGble, bagianncnehhapal As Dnuhk:_ l1a.t'.i:n1nt'nt'kihu Public bagiannegara As Double Public hag1ansdrlkbpk As Double, bagiansdrprbpk As Double Public bagiansdr!k1bd As Double, hagiansdrpribu As Double 1)ublic bagianpan1an As Double Public bagianpan1an 1-1pk 1\s Double Public bagiankeponakitn ,\s [Jouble Public ha;;1ankcponakanhpk A.s Double Public h:igiansepupu As Double Publi1· bagra11scpupupbpk As Double
Public .sisa\\ a.'." wt i\.s Currency Pub! ic .si:-.:1\\ ansan As Currtncy, jum\\'asiat As Currency Public t
Public 1othag1ar.sdrlk .<\s Curitncy. totbagian:;drpr .i-\s CorrctH·.' Puh!ii: 101bag1:1nsdrll-.bpk As ()Jrrency:, totl,ag.iansdrprbpk ,\::, {'u1re11l'.' Public tolh<1J>,1ar~sdrlkihu 1\s Currency, totbai;•,1Msdrprihu As ( urrerry Public 1ntb.1g1a11parnan As Currency, totbagianpan1~mbpk A( CtH1e11c~ Public h1!hagiansepupu As C'u:-rency, totbagianscpupubpk ;\s ( ·-tU'fCrlt.' Public to1h<1giankcponr1l~n 1\s Cu:-rency, tothagiankcponaka~1·1pk :\;; ( 'ur rent> Puhhc !Pth:1g1an11egara As Currency', lotbagianl;::!.c!...bapak i\:, CtHTl~!ll'\ Public it'>hobalt ;\s (\irrency
Public Public Public Public
l(Jtbanian ..\s Currency, jun1sisabagian As ('urrency totbaglansel11ruhny& As Currency hagiananakpr As Doub.I;! bagianscpr.pubpk As Double
Priyate Sub (\Hnn1and4 _Click() Unload Fom1 I End Sub
Prirnte Suh Check 17 C'ltck() Fnd Sub
l'rirnte Sub anaklk.. Click() If an:1l..!LV1iue ,.,- I Then 1anakllTe\t ~ I Else
1winllk.Tc\t "°II End If End Sub
:\~,
l)c)ubll·
l'i i\ate Sub anakp "'_Click() lfanakpr.\1alue =I Then .itmakpr. l'ext '"' I Else j1111nhpr.Toxt ,, o End Ir End Sub Pri\ate St!b crndfinish_Click()
Di1njharta.sdr As Currency J)i1n jll...pr 1\s Byte. j!k 1\s Byte, jp1 r\s Byte IJ11n .Jlkprc As lh le, .1lkc As Byte. jprc As Byte Di:n jlkprsdr As II\ le. Jlksdr As !l~·te,jprsdr As Byte Dimjlkprsdrbpk As Byte, jlks
bag.a.n\..akckbnpak---' 0 haginrinenekhapak -, tl hagiannenekihu :.c O hagiansdrlk O bagiansdrpr ' (l haginnsd lkhph - 11 h:1giansd1prhpk 11 bagiansdr!k.1hu 1l bagiansdrpribu {J bagiankepo11akan ·-- O hagiank.cpona\.-.anbpk ~~ 0 bagianse-pupu O ha1,1ansep11puhph ,, O h;i~ 1:1nnt•g,1ra O ;1shobai1 o 1
ir s1sn\\:H1\ Tt'\t
""Then \ l sgBt'\. "Jun1!ah Iota I h~u ta \Varisan belun1 ditentulan .. 1". \\laris:1n" '(lo·r(• salah End Ir Ir SlS:l\\ aris T~:--.t : 0 ·r11en MsgBo:-.- ".lun1\ah 101al harta \Varisan belun1 ditcntul..:an .. !". \Varisa11"
End If
1)
~
(l
+ vhExclnn1ation. "KL~l.:ntu:n1 Hana
Yb\· \r\:un:i! iun.
"Kch~ntuan
llnrta
.sisa\varisan
=
C'Cur{s1sa,varis.Tex(o
If suan1i_ \'alue C-'' ~) ,And istri. VaJue 0 And anak. Value ..,,. (l "nll~n f\r1sgBO.\ "Pihak rv!cninggal behun Ditentukan .. !", \'hExc!rnn:::_ti1HL "P!h~1k 'lang i\'1eninggal1' End tr' ';o;:
'bagian anakpei'cinpuan k;u1dung lfanakpr.-Va!uc - l t\ndarw.kfkValue=Ol'hen lfjanakprText ~I "ll1en hagiananakr·r ·-~ ! I 2 E!seirjanakpr Text '.- I And anakll Value= OThen bagiananakpr 2 I 3 End If ' l:nd If
'bagiancucuperen1puan dari ana\: laki-laki lfcucupr.Value"-- I Andcuculli..\'alue=OThen Il"jcucupr.T~-'\l '"'I r\nd anakpr.Value=OThen hagiancucupr ! I 2 Elsell'jcucupr_'fext > I And an:!kpr.Value ..,., 0 "fhen bagiancucupr ·- 2 / 3 El.s~Ir anakpr. Value= I 1\nd cuculk Value= 0 ·n1en hagiancucupr "" I I (1 Lndlf End If hagian suan11 Ir suanu \' aluL' o ,And an;1L Vallie """' 0 1\nd sunrni. En:ihled ·ri \IL' Th~·n If" anak!k \';1luc o :\nd anahpr.\'aluc:::.. P And cucu/k.Valuc n :\nd c1i..:upr \';t!ut~ , n lhL'.ll bag1an~:u:1n11 I r2 r.:!selr a11:1~lk Value i (Jr an;tkpr. Value""" I ()r cucuH•. \·';-tluc l I l1 rurupr Value I ·rhvn
bag1ans11ami End Ir End If
I/~
'haidan isl ri
o And m1ak. Vahll' = 0 J\nd istri.Enablcd -~ ·rrut: ';'hen lfanai-.IJ., \'aluL' · 0 Anti anukpr.\'<1lue= 0 And cuculk.Va!uc U And L·uc11pr_\.al11i: haginni~1r1 ,_,_. ! / 4 Elselfanak!k Va!ue·"" J ()ranakpr.Value= I Orcuculk.YaluP. ! ChctJcupr\-':1!uc
Ii" 1 .tri.Va!uL'
bagian1s!n - I End If' End If
0 Thl'n
I '!'hen
~
'l>agianl1;1pak lf ihn.V'alue l And bapaJ...V3Juc := i J\nd (suami.Value -- O ()r istri. \';1!u·~ "- 0) And (anakpr.\'alue O :\nd c1Jcupr.\.'a!ue = 0 And anak.lk.Valuc ::: (J And :.inakp1 \!a!ue \ll And anak. Value:~ o 'rl1cn bngianhapak = o Elsclfbapak.\i:tlue-"" 1 ·111en If anal·-lk Valu(' -· I Or c·Jcuik Value= 1 Then bngianhapak I J () El self (anakpr. Valu~ '"' I Or cucupr.Value = 1) .·\nd annklk. \ 1 aluc
O And cuc::IL \'::Jue
O
·ri1cn bagianbapal = I i (, Encl Jr
End If 'baginn kakek
lfkakckbapak Value= I 'f11cn ff' Not (sdrlii.. Value"" I Or scirpr. Value= J <)r sdrlkbpk Value If anaklk. Value"" I Or cuculk,Value = I Then bng1ankahekbapak = I I 6
=0 l ()r sdrprbpk_ \:::l11e
Ebelf anal-..IL Value,. 0 And (anakpr. Value= 1 Or cucupr. Haiuc bngiankakel-..bapak ·-= I / (i
:o-
(l)
Then
l) Then
End If'
End ff End If
'hagian ibu 1r ibu. Vnlue -.." I .1\nd bapnk. Value= 0 And (suruni \ 1alue -, O <)r 1stri Val11i: = u) And (anakpcValue:::: OAnd cucupr.Value=OAnd anaklk.\laluc =· n And cucn!k \l;due O) ,\nd ana1..\-'a!ue ~" O Then l.lagianibti = O E!sclf il.lu. V<,lue '"" I Then If anaUk. \'a Inc~ I Or am•kpr,Value =I Or cucull-... Value= I Or ettcupr.Valul! = l Then bag1anibu ;:.'. I I (i Elselfj~;dr!k."rexi_ >I Orjsdrpr.Text >I Orjsdrlkbpk Tc\l - l <)r1'->d1p1hph ·re . ..i I ()1 .isdrlkihu "l"t>-.t -_,.I ()rjs
I/
(1
E!st~lrsdrlkhpl-... Value=
! And (sdrprbpk.Value -"""" I ()1 sdrpnhu \;ilut'
! ()r :-.drli-...ibu Value"
I) Then
hag1an1bu I/(, Elsclr ~;drprbpk.Valuc::: I .t\nd (sdrpribu.Valuc;;;; ! ()r sdrlk1hu Value bagianibu -~ I .' 6 Elselfsdr!l-..1b11.V-alue =I And sdrpribu.Valuc = ! 1"hen bagianihu ! i 6 Eisel r ;inaU k Value :;::: 0 Or <1nak.pr. v nl ue = 0 ()r cu cul i-.. v ;ii l!(.' bag1an1hu - I I 3 '.~lselfjsdrll-.. ·r'.!xt"'"' ! r\ndjsdrpr.Text ~I .Andjsdrlkib11 Tc-d
\) {
)r
I) ·i hen
l°lll'\1)11 \· :iluc
I)
Then (J-rhc1~
bagianibu "'' I I 3
ElsclfisUrH. Te:o-..t = 0 1\ndjsdrpr:re:..;t ·"""I AndJsdr!kbrt-.. Tl'\! n :\n,[ i~:drprhph. r,~:-..l = o And .1sdrlkih11 Tc\! (J And jsdrprihu.Text = O 111i~n bari:1n1hu I / 3 i'.bl'lf1sthpr rcxt --''I: Andjsdrlkbpk. fcxt " I :\ndjsdrprbp!. . 1·1.·\I U ,\ndr,d1H,1bu rL'\! · O And JSdrpnbti I L"d :::: 0 Then bag1an1hu ! ! J Elscfl'_1-.drpr ··1·e\.l -" 0 And jsdrlkbpk.Text '"" O Andjsdrprbpi, ·r\.'\1 ! _.\nd.r.:iJrll-..1bu T ..:.<.:t ll 1\nd .1~drpnhu Tex1 c-- O Then ba~'.tanth11 lI3 =:;
[Jseif jsdrlk Text = 0 And jodrpr.Text = 0 And jsdrlkbpLTe:d •• () .\nd .1sdrprbpk.Te.\t ·' o .\nd .1sdrlkib11.Texl = I And .isdrpr:bu.Text = 0 Then bagianibu = I i 3 Elsl~l f j . '.drik.Ti:xt . -=- 0 1\nd jsdrpr.Text = 0 1\nd jsdrlkbpl... Tc:;l "' il /\nd ,rsdrpnbu,T•,:);t -"' o :\.nd jsdrlklbu.Texl"" O1\nd j~·drpribl1.pfcxt = I 'fhen bagianib11-= I I 3
EnJ If End ff 'hagian saudara 1Jcrernpuan kandung II' suan1i. Value.-=; 0 f\nd ibtt Value= l And (sdrik.Valuc '" t ()r sdrpr.\laJ110: _.;. ! ) And :u1ak_ \,.aluc '11 Then lf {$drllibu.\raJ•Je = I "And 5drpribu.Value = 1) Or(} drll..ibu.'re'.I I ()r jsdrpr'ihu.·re:\t "> ! i And (anakpr.Vah11..' ·:: 0 ()r cucupr.Valuc= O) And (pan1an. Value°'-' n ()r bagiansdrpr = 0
End
(~:drlkbpi..:.Va!ul'
c·
0 (lr sdrprhpLVahit·"" ii} '\nd
pamanbpk.Value ::i: 0) And keponakan. Value
-~ O lht·n
Ir
Els:elf sdrpr Value'-· I And sdrH•. Value == 0 And kakekhap~1!.. Valul' ll ..\rid (anakj•t. V:1l11~· ()r cucupr_\l~lue "'"· 0) Then lfjsdrpr Text "" I And (sdrpri,pk. \falue = l ()r sdrprbpLValnc O) Thi.:n bagiansdi pr""' I / 2 Elselfjsdrpr.Text > l Then l f' sdrlkihu. Valuc = O Or ;i;drpr1 'ht Vahie = ii 'l'hcn hag1ansdrpr ;~ 21 3 End tr l'nct If l'nd If 'hag1:1n saud;ll'
n \111.'tL111a~-p1 \"altil..'
!l
n
'hagian sa11dar: ..'icibu 1rsua1n1.Valuc O And 1b11.Vai1Je::..: I And (sdrlk.Vaiue l ()r •;drpr_\'.due ! l .\nd ::inakVa!Ul' o Then If (sdrlk1bu Value ,.. I And sdrpribu. Value= 1) Or (jsdr!h1bu.'!\':\f 1 ( >r _isdrpnhu T~\! ~ I) And (anakpr \'aluc' o ()r cucupr.Va'ue = O) And (~drlkbph.Valuc O ()r sd1 prhpl Va!uc ~ 0) And (pamnn.\'aluc O ()r pmnanbnk.Valueo.= 0) And J...epona1..an V:1!uc n Then hagi:i11:.d1 IJ...1bu :-=- u hagiansdrpnhu ~ O l ·.nd I!. f;Lse
'iuml:Jh sdrihu scorang ir sdrpnhn. Valu: ·= I And jsdrpnhu.'1 ext= I And sdrlhibu_ V;1:11l' bagiansdrprihu "" I J 6
o Tht•n
Elself sdrlJ..ibu.Value ---~ I And jsdrlkibu.Text = l ;\nd sdrpribu. Vaine ,c 1i Then b:i.giansdr!J..ib;1""' I I 6 'Juinlah sdnbu 2 orang Elsclf sdr\k1bu Value= I And sclrpribu.Valuc = I Then hagian~drpribu:::: I I 6 bagiansdrlkihu '"' I I (i El self sdrikihu. Valuc = I And jsdrlkibu.Text > l .\ml sdrpribu. Value · • OThen bagiansdrlkihu .-c: l I 3 Cb:0lf' sdrlkihu.Value'""' o 1\nd jscirpribu.'fext > I ,\nd sdrpribu. Value_--;; ! ·rhen hngiansdrprihu ". I / 1 End
1r
End If 'Bagian
Ncnt~\...
If ncne\...bapak_Value :::-. I And nenekibu.Value =-0 Then bag1annenekbapak = I / 6 Elself nenek1bu.Valuc'"" l And nenekbapak.Valuc = 0 "f1ien bagiannenekibu = I ! 6
Else!f nenekbapak Value •• I A"d nenekibu. Value•• I Then bagianncnekbapak = I / 12 bagianncnokihu ::.--= I ! : 2 End If
'Hitungjun1lah ba1~ian 10tbaµiani::otri C'Cur(bagianis1ri "'sisa\varisan) tothagiansuanl1 ('.('ur(bagiansu:uni * sisa\\'Hrisan) 1nthagia11anak!l, - ('Cur(hagi:.u1anak.lk * sisa1,varisan) 1otbagia11a11ak11r ·· CCur(bagiananakpr + sisa\varisan) lolhagianc11cull... (~Cur(bagiancuculk * sisrnvnrisan) tolhagiancuc11pr ,.., CCur(bagiancucupr"' sisa\varisan) totbagianbapak -..,. CC\ir(bagianbapak * sisa,varisan) tothagianibu"'"' CCur{bagianibu * sisa\varisan) lothagiankal..ekbapal '~ CCur(hagiar!lu1kekbapaJ.. * sisa\\arisan) iotbagiannenckhph. = CCur(bagianncnekbapak * sistnv:1ri~:a11) totbagiannenenkihu ~,- C'.Cur(ba~1 iannenekibu * ::;isa\Yarisan) totbagiansdr!k" CCurthagi?nsdrlk * sisa\varisan) 101hagiansdrpr =' CC11r(bagia11sdrpr * sisa\varisan) totbagiansdrlkbpk '"' CCur(bagiansdrlkbpk * sisinvarisan) totbngia11sdrprbpl-. .z ('Cur(bagiansdrprbpk * s!s<.l\varisan)
totbagiansdr!k.ibu :. - : {:Cur(bagia:isdrlkihu * sisa\•.-arisan) totbagiansdrpnbu -= CCur(hagian:;d1 'ribu * sisa\\arisan) tl1tbagianJ...CplHJa\....an ""-' ('(:ur(bagian,,cponakan * SiSa\\'arisan) totbagiank~ponaknnbpJ... = CCur(\~agiankeponakanhpJ.. * sisa\\ ar1!'<1n l tothagianpa111an :c~ ('('.t1r(bagim1p::in1an * sisa\\arisan) tothngianpan1:u~link -o-- CCur(b;1gianpama11bpk ;1i sis a\\ arisan) l{llln1g1anst•pt1p11 ( 'Cur(hagian'ic11upu • sisa\varisan) totbagianscpupubpk ~ CCur(hagianscpupupbpk"' si~a,,·ansan) totbagiannl'._L'.ara"" CC'ur(bagirun1egara * sisa\\arisan)
'H.itungju111lah total :;;ekiruh hngian ('Cur(lotbagiananak~k + totbagianistri ·l to1bagi:1n~uanu ..: loibagiananakpr f lotbagiancuculk -i· loth:1giancucupr + totbagianhapak + lotbai;ianibu ·! totbagiansdr!h 1 totbagiansdrpr -t totbaginnk.nkekbapak + totbaginnnenckbp~ -1 totbaginnnenenkibu ·1 tolbagiansepupu + totbugiansep11pubpk + totbaginnkeponakan + totbagiru1L0ponaka:1bpk + JotbagiansdrikLpk + totbagirtllsdrprbpk + totbagiansdr!libu + totbagi<111sdrprihu + tothagi;:u1pan1::n -1- lotbagianpa1nanbpk) ashobah '-' sisa\varisan - totbagian
totbagian =
If ashobah
>
o ·n1en
'Bagian :Lshobah 'Bagian a.shobnh anak If anaklk. \'aloe::::: I 111en If JnaLpr.Valuc ~ 0 Then totbagian:mnk lk = ashobah Elself anakpr. Value~ I Then j/k ~ Val(jaraklk.Te"t) • 2 jpr~ Val(ianakpr.Text) *I jlkpr "' jlk + jpr
totbagiananallk ·:~ (jlk I jlkpr) * ashobah totbagiananakpr ~ (jpr /_1lkpr) * nshobah End If
'ashobah cue
Elseir cuculJ.. Value= 1 Then lf cucupr_ Value;, 0 Then
totbagii1ncuculk = ;.t<.;hobah Elsclf cuc11pr.Vnlue ~"' l ·n1cn .1lkc ·· Vol(jcucnlk.Tcxl) • 2 jpri..: "- \ 111Hjcucupr.l'e,.,,I)
_11kprc
*
I
.1lkc + jprc
lolbagiancuculk = (jlkc; Jlkprc) * ashobah to!bagiancucupr = (iprc I jlkprc) * ashobah
End
rr
'B::1gian n1a!;alah 'al ghorro\vnin' (lhu dan Bapal..) Elsclf hapak Value·"" I ~llien If ibti.Valuc : :-. I And (stUUlji. Value== 0 Or fatri.Value ~' O) :\nd {anahp1 \'a!u~ O Or anaklh.Value -""' 0 Or cuculk ' 1 alue = O) And ~u1ak_ \"<1luc n Thl'n tottingiar11h11 := I I 3 * a'ihobah
totbagianbapak :- :- ashobnh - totbagianibu 'Bagian ashohah bnpak El sci r (anaJ..pr_ \!aluc = t Or cucupr. Value'-= IJ And anaklk \'
End
o Ch" cucupr.Valu~
() l'hi.:11
n :\nd c11cupr Va"1e ~- O Then
1r 1r
'Battian ashol:ah kakekbapak
Els~Jr kakckbapak.Vuluc = I Then
lf'(nnal.pr.Valuc · I ()r cucupr.Vnlue =-I) And ;uiahlh Value (sdrlk.Vnlue = 0 1\nd sdrpr.\'aluc = 0 _ And sdrprhpk Value= 0 And sdrikbpk.Valuc-" 0) Then
o :\11d cuc11lh Va!u.:
o And
b:1t:1:1nkaki:h.bapt1I-; ~' totbngiankakekbapak + ns:hobah Else!f anal...!k_\1alue = 0 And imakpr.Value = O And cucu!l....\'a!uL' :\nd cucupr.Value-...,. 0 1\11d sdrlk.Value = O And sdrpr \.'a!Ut.~
(l
o
:\nd sdrprbpk.\'alue :::- t) 1\nd sdr!kbpk.\'aluc "-"""'I) The11 haglnnknkehbtn>nk "'' hNhobnh
'Bagi;u1 i'v1 lHJt\sanu11ah 'i\!luqo~.annnah kc I-*"'* Elscir anal...pr. \ialue = 0 And cucupr.Value = 0 And ibu.\,.alve.:.: O ..\nd nenel...b::!.p:iL \falue -== o :\nd nenel...1bu.Value ~ 0 And ((suru11i.Vulue = I 1\nd istri.\/aluc c· I) ()r anah..\'a\ue -~ I) Then llsdr!k.\'alueo-- l'fhen satu """ 1 / 3 * sisa\vari~a:1
lfsdrpr.Value:::.: l Then .1lbdr ~ Vul(jsdrlk.Tcxt) * 2 jprsdr o-: \laJ(jsdrpr.Tcxt) * ! jllprsdr = jlksdr + jprsdr + 2 totbag1ansdrlk = Qlbdr I jlkprsdr) • s1sawarisan totbag1ansdrpr = (_jp1sdr /jlkprsdr) * sis;:l\varismt dua"'"" (2 I jlkprsdr) * sisa\varisan End If End If Elself sdrprValuc = 0 Then dua "' ( ! / (isdrl~.Tc:-;.t + J:1) * sisa\varisan lotbHgian~Jrlk = (jsdrlk:rc:-..t I jsdrlk.Text + I) * sisa\\tHisan End II 'End ff If satu ,, dua ()r salu '""
lotbaginnkakehbapal =- satu totbngiai~sdrlk
""sisa\varisan - satu Else totbag1ankakekbapa1. =:- dua Enli If Elselfsdr!!-.bpk.\'alue ==I '!'hen satu ~·· I / 3 * sisa\v1irisan If sdrpr. Valt.e '' I And sdrprbpk. Value= tl Then Jlksdrbpk' \'al(jsddkbpk.Text) • 2 jprsdr ·~., Val(jsdrpr.Te;.,.t) '~ 1 jlkprsdr = jiksdr + jprsdr + 2 totbng_i; nsdr!kbpk ""(jlksdrbpk /jlkprsdr) it sisa\\·ansan totbagia: c;drpr =- (jprsdr I .ilk1)rsdr) * si::;a\varism1 diW. 0~ {:?. i!kprsdr) * sisa\\:U-isan Elself sdrpr Value'' 0 And sdrprbpk. Value~ I Then .ilksdrbpl. ,. Val(jsdcJkbpk.Text) • 2 jprsdrbpk ~ Val(jsdrµrbpk.Tci:t) • I .1lkpcsdr • .ilksdrbpk + jprsdrbpk + 2 lothagiansdrlkbpk = (jlksdrbpk I jlkprsdr)' sism arisan tothagiansdrprbpk ::-:: (jprstlrbpk / jlkprsdr) * sisa\Yarisan dua "- (21 jlkprSdr) * sisuv.arisan Elsi.:!IJ' sdrpr_ Value= I And kdrprbpk.Valde =o:: 1 Then Jlksdrbpk ~ Val(jsdrlkbpk.Text) • 2 .I p1sdrbpl. Val(isdrpr. Tc:
j!i..prsdr 'jlksdr + jprsdr -i· jprsdr + 2 lotb:igiansdrlkbpk = (jlkhdrhpk /jlkprsdr) * sisa\\·arisan to!bagiansdrprbpk "'' (iprsdrbpk I jlkprs
If salu _,_. dua .t\nd sutu = dua Tbe:-i. tothagi<.nkakekbapak = -:;atu jlksdrbpk ,, Vnl(jsdrlkbpLTe't) * 2 Jprsdrhpk · Val(jsdrprbpk.Text) • I jprsclr= Val(jsdrpr.Te:-.1) *I jlkprsdr ~ J!ksdrbpk + jpr.;drbpk + jprs
End
1r
Elselfsdrpr Value: I Then
satu "'- I : 3 * sisa\V;.uiscm If sdrprbpk.Value. "· I Then Jllrsdrbpk ~ Val(1sdrrrbpk.Texl) • I .1prsdr "• Val(jsdrpr.TextJ • l .r"prsdr ~wrsd•l•pk + jpfsdr + 2 tothagiansdrprbpk =· (jprsdrhpk I jlkprsdr) * sisa\\arisan lt)tbng1a11sdrpr ~ (jsdrpr / jlkprsdr) * sisH\\·1irisnn dua (?-I _jlkprsdr) • sisr1wari:.an Elsclr sJrpr. Value~, 0 The!\ dua =- (2 I (jsdrpr.1'cxt -1 2)) * sisa\vari~:an tothagiansdrpr = (jsdrpr.Tcx1 I (jsdrpr:rext t- 2)) * sisn\\Hrisnn End If 1rsatu > dua Or satu =dua 'fhen totbagia,1J...akekbapak = satu jprsdrbp.• " Val(jsdrprbpk.Text) • I jprsdr: \ al(jsdrpr.Text) • l jlkprsclr "jprsdrhpk + jprsdr totbagiansdrprbpk = (jprsdrbpk I jlkprsdr) * (sisa\Yarisan - satu)
tothat>,ia1l'.;drpr o-.:. (iprsdr / .ilkprsdr) * (sisa\varisan - satu)
Else totbagianiakekbapak -°' dua End If Elself sdrprbpk. Value~ I Then satu = l I 3 "' sisa\vari!>an dun:= (2 / (jsdrprbpk.Text + 2)) If salU ,» 2 ()r sa1U -·-- 2 l'hcn
to1bag111n!-..akekbapah
·=
* sisa\varisa11
liua
1otbngiansdrprbpk""' 3isn\varisan - satu
1:1se
tot b.1g1
'Nluqosanunah h.e 2 'Ebe If sdr!k_Valu~·
I Then si:,a\'arisan du:i I / 3 t ashoh:ih If sdrpr.\';ilue I ·rht:n 1lksdr "- \'alUo.;dl\\.. ·re\l): 2 s:1t11 -- 1 /
(1 ,._
1prsdr""' Val11o;:.drp1 Te\l) • I 11\..prsdr - 1H.:.dr 1 .iprsdr --t 2 totbagiansdrlk {J!ksdr I jlkprsdr) * ashobah tolbagia1~sdrp1· ·o-. \jprsJr I jlkprsdr:1 >(< ashohah t1g~""'" (2, jlhr,rsdrJ * ashobah E!selrsdrpr.Valuc "' 0111en tiga""" t l / (jsdrl\.. 'fe"\l ;- 1)) * asitobah tolbagi:n1sdr!k -- (rsdrlk.Text I (jsdrlk.Tcxl + l))"' ashobah Fnd If ff salu :·· dua And sat11 > llga 'l'hl.!n 0
totbagiankah.ekbapak = satu
.1\ksdr ~ V:1l(isdr\k.Tcxt) * 2 jprsdr -- Val(_1sdrpr.~rext) * l ilkprsdr 1lksdr + jprsdr 101bag1ansdrlk Ulksdr I jlkpr
* ashobah
lfsdrpr,Value"-" J 1\nd~:drprbpk.Value=OTI1en jlksdrbpk '' Val(jsdrlkhpk.Te:
!1b:a
(~
* nsho!Jah
'jiksdr)
Elsdfsdrprhpk.Value~
I i\nrl s
1-:bL.·lf ~drprhpl...Valuc
:o-·- 01 hen t11!a (~ ,' (jsdrpr.:rext + 2)) * ashobah tothag1ansdrpr =-(jsdrpr.Tc;..1 / (jsdrpr.Text ·• 2)) '' ash0h,1h
J:nd
Ir
Jf;.;atu -,, dua And satu > tiga 11ien totbagiankakeh:bapnk.::..: satu .tlk>
;prsdrhpk •" \lal(is
V<1!(1sdrpr:rcxt)
*
I
jlkprsdr '' j!ksdrhp~ + jprsdrhpk + jprsdr l~iibagiansddk hpJ..- = (il ksctrhpk J jlkprsdr) * (_rm ho bah ·· dua) totbagiansdrnrhpk (jprsdrbpk I jlkprsdr) • ('shobah - dua) tutbagiansdrpr ~ (jsdrpr IJlkprsdr) * (ashobah - dual 0
•
Else totbugn111kakekbapak "' liga End If El self' sdrprbpk. \'alue = I Then satu I ! (, * ~isa\vari'\an
lll
I
jlkprodr ·" JPre
tol\1ngians(iJ rrbpk = (jprsdrbpk I jlkprsdr) :fl (nshobah - Sa!U) tolbag1ans
t::nd If
IfsJrprbpk.\'aluc;:;:: I 111cn satu "= 1 / (, * sisa\varh.an dua I / 3 * sisa\varismi Irr.a (21 ijsdrprbµk.Tcxl + 2)) • lashohah) Ii' sa1u > doa And satu ~. tiga Then tolhagiankakckhapak = satu tolbagiansdrprbpk = sisa\varisan - satu !"'.bclr dt1:1 > satu And du~l > tiga 'I11en tothag1a!1bapak "" dua !nlhagiansdrprbp~; ""a-;hobah - dua Else
1,11hag1:inkahckhapak ,_, tiga !nlhagiansdrprl>pk = ashobah - tiga [·nd lf End It"
!f !n!h:lt_'.lansdrlk ·- 0 The:i. lotb;1gian_•;drlk -- 0 00
End
1r
l f !ot hngiansdrpr <'"' O Then tothagiansdrpr ' " 0 End 1r
If totbagiansdrlkbpk <=-- 01~heri tothagiansdrlkbpk = 0 End
rr
If totbngiansdrprbpk <= O·rhen tothagi,msdrprhpk: 0 En
End
rr
rr
'Masalah rvtusyarokah (menggabungkau saudi.lfa st!kandung dengan sauJarJseibu) if suarni,\'alue ,;: ;_ 0 r\nd ibu_Va!11e = l And a11ak.Value""' o A.nd suaini.Enabled '"" r!'n1c Then If sdrll-..ibu.Valuc :-c l And sd~pribu.Value = I And sdrlk.Value-::c l ..\nd sdrpr_Value = ! Then jharta;,dr '~ ashobah I (Va!(jsdrlk.Tcxt) + Val(jsdrpr.·re:;;l) ·!- Val(isdrlh1bu_Ti:::. . o + Val(isd rpri bu. ·r«•xl)) totbagian~:drll-..ibu -- jhai1asdr * Val(Jsdrlk1l'1t'fc:-i;I) tolbagiansdrprihu =~ jhartasdr * Val(jsdrprib11.'fext) tothagiansdrlk ~ jharl,LW' • Val(isdrlk. Text) 101bagiansdrpr ""jhartasdr * Val(jsdrpr.'rext) Elselfsdrlkihu_\lafue :..- 1 And sdrpribu.Value= I /\nd sdr!L\ral\1c '°' l :\nd sdrpr_\'a!uc c \) ·rhen
.1harl<1sdr ,tshobah I (Vhl(jsdrlk.T~xt) +- Va!(jsdrlkibu !"c'.l) f Va!l_i'>drprrhu TL'\.l/} totb;1g1ansdrlkihu ""jhart::r;dr * Val(jsdrlkibu.Te:\t) totbagiansdrpribu = jhruiasdr * Val(isdrpribu.-rext) tothagiansdrlk "'"jharlasdr * Val(jsdrlk.'fe:\l) Els<.•,ffsdrlkibu.V11ltu~ ·"I And sdrpribti.Valuo I And sdrll, Vnl!tt' 11 .-\nd "di pr \';1loL' · I i'hen jhartasdr-~ ashobah / (\'a!(jsdrpr.Tcxt) + Val(jsdrllihu Tt'.\I) ' \-:d1_1sdrp1ibu_Tc:\l)) lolbagianMlrlkibu '~ Jhnrtasdr • Val(jsdrlkilmTexl) t~1tbagi;u1sdrpri1Ju ~~ jhar1asdr * Val(jsdrprihu.·rexl) H1t!iagi:u1::.drpr "'' jhartasdr * ValQsdrpr.Tcxt) Ebl'lf sdrlhibu.Valuc ~' I And sdrpribu.Valuc '"" 0 And sdr!l .. \';ilue I And sdrpr \'aluc" Then iharlasdr ·
Then
.ihannsdr
.1~;hohah
I (VaJ(jsdrlk.Text) + Val(jsdrpr ·re\! l · \:;d(_l',dr pnhu
[()tl1a1;1ans<:rpr ib11 '= jharta'>dr * VaJ(jsdrpribu. Te:xt) l1lth:1!'.lan-;drH. -- _ihnriasdr * Val(jsdrlk.'fcxt) 1utbag;:111:-.drpr '~ jharlasdr * Val(jsdrpr.Text) Elsdf' ~;ddk1bu_Value"" I ,.\nd sdrpribu.Valuc .. 0 :\nd
~»drik
Va!til..'
T~:J
I .-\nd sJrp1
l1
\':due~- 11
Then
1l1artasdr ashobali ;' (Vahjsdrlk.l'ext) + Va!(jsdr!kihu_TL·'i.ll) totbag 1ansrJrlhibu =- jharta~dr * Val(jsdrlJ..1bu.'l'e:-..1) lolbaurnns.Jrll ~ ,1hartasdr" VnlGsdrlk.Text) Elscl(sdi"!kibu.Value"" 1 And ~drprihu.Value = {) ;\nd sdr!LValuc "- O And sdrpr \'a!ul! I hen
ashobah I (Val(jsdrpr.Text)-r- \ral<jsdrlh:ibu.'l".:.\t)) h•tbagiansdrllibu ,__-, jhartastir * Val(jsdrlhibu_l'ext) lolhagiansdrpr-== jharl::L11dr,,. ValGsdrpr.Texn I'.!sci f sdrlkihu. Value ~ () And sdrpribu. Value = l And sdrlk. Value JIH>rtasdr · asliuhah I (Val(jsdrlk.Text) + Val(jsdrpribu.T•.'.'.l)) totbagiansdrpribu = jharta~dr * ValUsdrpribu.Te:-:t) jhart:i.:-:dr
0 --
totbagiansdrlk = .1harlasdr ' Va!Gsdrlk. Te"l) Elself sdrlkibu.Value = 0 And sdrpribu.Value = I 1\nd sdrlk.\fa!ue ihartasdr" ashobah I (Val(jsdrpr.Text) + Val(jsdrpribu Te,:t)) .totbagiansdrpribu = jharta£dr * V:.::..!(!sdrpribu.Text) 1otbagiansdrpr = jhartasdr * Val(isdrpr.Text) End ·nagian nshobah sdr sekandung & ash ma'al ghoiri
1r
Else!f sdrll. Vrtlue::..:. I 'Then tr sdrpr.Value = 0 And kakel;bapah.Value = 0111en tothagiansd1 lk =- ashobah Elseffsdrpr.V,uue ~I Thon jlksdr = Val(j·;dflk.Texl) • 2 .1prsdr = Vul•jsdrpr.Tcxt) • I jlkprsdr = jlksdr + jprsdr lolbagiJnsdrlk = (jlks
,=:,
l AnJ sdrpr V:i!uc
il ·i-hcn
O 1\r.d sdrpr. Value
I ·n1cn
1r sdrprhpk. Value= I 111en
jlksdrbpk" Val(jsdrlkbpk.Tei;l) * 2 jprsdrbpk •• Val(jsdrprbpk.Te>t) * J jlkprsdrbr:k •• jlksdrbpk -t JOrsdrbpk tolbagians
'hag1a11
as!~obah
n1a'a! ghoiri
Elsclf sdrpr V:-iluc ~~ I And (11nnkpr.Value
z=-
I ()r cucupr.Vahw
Il
l"!k'11
totbagiansdrpr ~" as!Jobah Elsefrsllrprhph..Valuc= I 1\nd(anakpr.Value-.::. I Orcucurr.ValuL' totbagian~drprbpk = ashohah
'Bagian
!Ot!iagi:inkcponakan = ashobah Elsclf keponakanbpk. Value= I 11ien toLbagiankcponakanbpk = ashobah 'Bagian <.L<;hobah paman sel.an
lothagi:inkakckbapak ==- ashohah
'Bag1an
!ll'_!!.;ua
Eisel! :iegai iL ValuL" ·---. I Then totb:ig1a11nC!,'.~ra ;;;; ashobnh
End If / f IOI hag1a11i:-:!f! ,. :..:: 0 ·rhen
totbaginnistri ' O End If
IJ" t11tbag1ansua1ni <;;:; (/ 'P-u.>n . iotb;1gia1lsl1an1i 0 End If IC tolbagiananaklk <= 0 Then
I !Then
totbagia1i;1nahlk ._, , 0 End 1r Ir totba.gi:inanaJ..pr tothn1~1an.1nnhpr
<• .::0
0 -rhcr.
O
End If If lotba.1.>,1;1r1cuctilh < 0 '111cr1 totbagianrui·u\k -~ O End If
If' 1ot!lag1 ancti·_·upr ...:"· 11 Tlwn tothagianc11c11pr 0
End Jr 1rto1h:11_•.t:u1hap:ik <
o Then
-"""
totbagianbnpak """ 0
End If
.r totbagianibu <'== 0 ·n1en tothagianibu
=
0
End If !f to!b.iJ'1:u1kakckbapn1.
<>::-.
to1\ 1 <1ri:111\...al.~thap::1!..
OThen
"'" o
End If 1r1r.,1 b:1;~1;11111t·11cJ..bp1... < -·' {) Th,~n totha~·Jan111~nc-khpJ.. = 0
Fnd If'
rr tothav1
O
='
r.nd if lJ'totha~'!itn~dr!k
.: O 111en 101h:1r1:u1:;dr!\...'"" o Fnd 1r
lr to1 l1ag1;1nsdrpr .::_.:--:
l)
'fhen
lolhagiansdrpr = 0
1-nd If
Jr 1otb:\g1ansdrl\...hpk <=-
0 'l11er.
0
totbagiansdrlkhpt End If
~--== l)
Ir totbaginnsdrprhph. <"'· 0 'f'hcn
totbagiansdrprbpk End If
=
n
I./' ll1tbagiansdrlh.ibu
--~::.
01'hcn 0
lotbag1an~drlkibu""'
End If
1r totbagiansdrpnbu <= o ·rhen
totbagi,1nsdrpribu = U End If If totbagiankeponakan <= 0 'fhcn toibnginnkcponaknn = O End 1r IC totbagiankcponakanbpk <= 0 Then totbagia,1keponakanbpk = 0 End If If totb<1! ianpa1nan <= 0 Th~n lt1tbatianpaman = O End If If to1hns1anpanu1nhpk <=c 01lien lolhagianpan1a11bpk = n
End If II lotbag1ar.sepupu <= OThen totbagianscpupu = 0 End Ir If totbagian.sepupuhpk <"" OTI1en !olhaginnsepupuhpk : -:- O End If If totbagiannegara <-=- 0 "!hen
101hagianncgara .~~ n End If '*** Jika 1r.;1sih ada totnl sisa \\'a i.;: (MasaJah R()l)D) a111u kurann \ -\11!) totliag1an ·· ('Cur(totbagianann_klk) + CC:ur(lothagianistfl l r ( '( 'tir( to! h;H'.i:1n:-.tt:in11 i CC11r(101hagrnrwnakpr) + C'Car(totbagiancuculk) 1 ('('ur(!(lthag1;111c11i.:uprl 1 CCur(lothagi;1nbapal) + C'Cu:(totbagianibu-) ·i CCur(lothag1:u1sdrB..1 ,_ CCur(totbag1;:111sdrpr) 1 ('('u1 ( hHbagiankakekhapak) !· CCur(tothaginnncnddlph J 1 ('('url It 1th.11·1:11111l'lll'J!k ibul ' C('ur(llll.l1agi<111scpup.1) ·I
( 'Cur(tothagiansepup11bp~) r CCur(fotbagiarif.-eponakanl c·c '11r( !ill ha::1a11kep1 •na:.:uibpk) + ('('ur(to!b:tgiansdq1rbpk) ! ('Cur{!ti1l1:1!~::ir1~.(!rlk1hul 1 C'Ctu(toi.bagiansdrprihu) + __ CCur(!uthagianparnan) + CC.'.ur(totbagianpan1anbpk) -1 ('Cut( I! \th;1J:-•,1<11111l:gara) 'tothagi~ui totbagiananakik ·I totbagianistri t 101bagian~ua1 1 1i ' hi!ha,~·.i;m;ina~pr totbagiancuculk + totbagianrur.upr + totbagianhapak --1 tothngi:inibu 1 !
If tothag1an · o -n1en ;\'l:.gBo, "P;,ra Ahli \\illfl[i/Ju1nlah hnrla \Vansan hdurn \Vafls & ll:n111 \\larisan"
d111.~n111k;1n '_I J. ~hi
'( ioTo salah End If If ((llh:it•,la/1 · \IS:l\\'al'iStlll ()r
tolbagianscluruhnya
> SiStl\\;lflSi!ll ri1l'll
'l-litu11!-',JU1ni;1h bagian 1othag1anistri "'' CCur((tolha3in.1istri / lotbngian) :t< s1s
·_,cla111ar1on. 'Ahn
totbagiancucupr "'" CCur((tofbagiancucupr I totbaginn) * si:;-J\\nris<1nf lotbngianbapal "- CCur((tothabrianbapak I 1,1tbagian) * sis:n\'ari5a11) tolbagi;tnibu = C(:ur((totbagianibu I totbagian) * sisa,varisan) lotbagia ikukekbapak = CCur((totbagiankakekhapnk / totbag1an) * si!"-.tt\\ansun) totbagian ic11okbpk. '"" <.:Cur({tothagiannenekhpk I lotbagiar.:. * si:.;n\\Bnsan) tothagian.1enenkibu = CCur{(totbagirinnenenkibu / totbagian) .., sisa\\arisaP) 101bagiansdrlk CCur((fl1tbagiansdrlk I totbagian) * sisa\\·ansan l totbngia11sdrpr =· CCur(Uotbagiansdrpr I tolbagian) * sisa\\arisan') totbaginnsepupu ·-= CCur((tntbagiansepupu / totbagian) * sisa\\·ansanl totbagianp.iman == C('.ur((t0lbagianpaman / totba!'ian) * s1Sa\\arisan) tothagi
totbagiansdrlkbpk '""' C('.ur((lotbagiansdrlkbpk / totbagim1) * sisa\\arisan) to!bagiansd rprbpk '':' CCu;((totbagiansdrprbpJ.. I totbagian) * s1sa\\ arisan) lolhagiansdrlkibu : : : C(:11r((lotbagiansdrlkibu I totbagian) "' sisa\\ ari~;an) tothaginn~;drpribu ~~ CCur((lotbagiansdrpribu / totbagian) " si:->
l-'orn12
1:orn1::!_!1al~c11culk.l'cxt""'
For!n.1t(totbngiancucu!k, "fl.Iii/()")
Fonn2 bagc111.:upr.·r ~xt ::..: Fonnat(totbagiancucupr. "# Jfl!O") F{1nn2 l)ag:-;drpr.Texl .,, Forn1a~(tolbagiansdrpr. "#.#Htl"J Forin:.' ha!'.s.dr!LTc'\t -" FormH~(lotbnginnsdrU .. "ff.fl#o") i:onn:: hag1sdrlkbpk:rext ,;.: Fonni\t(lolbagiansdrlkbpk. "IJ,l!!IO") 1:{)rn1~ h;i1•.sd1Ik1hu.Tex1 ::·
1:or1112. h1.1.1_'.:,drprbpk.' re.\.t
l·\1fP1at(totbagiansdrlk1ln1, "I! ,Ii iii)" l Fo1111at(totbagiansdrprhp~.
"11.if ff
1:orn1] h~11•.q!r11ribu.'l'exl
'- Fonna1(lotbngiansdrprihu. "#.lll!!l") 1~on112_ hagkt·1iormkan. Tex! oc: Forraat(totbagiankcponakm1. "ii .111i()"j l·'onn2_ bagkl•ponakanbpk.Tcxt ·"" f on11at(totbaginnkeponah.anh1Jh.. "JJ _iJ 1i11") 1:orn12. bagpa1nan.crext = Fonnrit(totbagianpaman, "H,##ll") 1:orn12.bagip;:u11<1nbapaJ...1'ext:.... l~om1at(lotbagitu1pa1nanhpk. '' 11 .11~;(!" l Fonn2. hagscpupu.Tt:xl "" Fonnat(totbagianscpupu, "#.#liO") Forn12 bagscpupubpk.l'ext """ Format(totbagianscpupubpk. "fl_ !I '1 0") Forni:! haghapaJ...Text '·"' Forn~at(totbagianbnpak, "11)/#0")
Fl'flll2 ha~dH1.·rcxt · Fnr1na!(tu1bngianih11, "#.11#0") Fonn.:: hagka!..ckbapak ·rext -"" Format(totbagiank~ikekbapak.
';!.r.;;o")
Forni'.?. ha1•.nen.~kbapak::: Forrnat(totbagiannenekhpk. "ff.#!IO" Fon112 hagnc1ickihu.Te\t = Fu:inat(totbagiannencnh.ibu. ''lf.fli;!l"J
For111'.1hagi:-.tr.1·e,l = Forn;aHlotbagianistri, "Jf.#flO") F.-rn1~ harsu:111i1:rext "'' Forn1ut(totbaginnsuan11, ''11.llrlO") Fnrrn2 h:u'.tncg~!ra.Tcxl ~ Format(totbagiannegara. "#.ifliO"~
f·'orn12._i;1nakJI.. ·- Fonn I.janaklk Forn12 _jana!..pr Forn1I jannkpr I 1.irn12 1c11rul!.. Forni J.jcuculh
1·(ifi11~ .irucupr ;.. Forn1 l .jcucupr Forni? _1k1..•pon:il.an "" Fom1 l.j!..cponak.an Forn12 .1ki:ptH1a\..anhpk,,.,. Fonnl jkeponakanbpk Ft)rrn2 1pa1nan ' Fonn J .jpama.11 Forrn2 .1pa1nanbpk ~" Forml .jp:1.in;.11bpk Fenn2_ 1:.drlk ""' Form I .jsdrlk Forn12 .isdr!\...hpk "' Fonn I jsdr!kbpk
i: oi in.~ .1sd1 !h1bu Forn1 l J-,drlkihu Forn12.ii.drpr ! ·.H111l _1surp1 Ftl!'n1: .1sdrprhpL 1:orin 1 ..1sdrprbpl F(1n11:2 jsdrprihu !:1H 1H I .jsdrpnbu
F,Ji 1112 .1scpup11 Fui 1n I .1sepupu r~1r1n2 JSCpt:puhpk I· (I! 111 ! JSCpupu F~Hrn2
'.1hO\\
Fnd Suh Prnalc Suh ..:111dkclua1 C!ick() l :nload i\ lL'
Lnd Suh
Pri' ~!!<.:'Sub rindpr(\scs I. Cl1rh() s-;Tabl Tab I l·nd Sub
P1 i\ ate Sub Con1niand 1.. Click.() SST ab! ·rah n J:nd Sub P11\atc ~..;ub Conu11:1nd3 Click() 1 St!llll1L\ alue "- (l t~tn V ;.tlue
anal \'alul'.:
0
O
End Std>
Prl\ :Ht' Sub c111.:ulh Cliclf) Vaiuc I '!hen
lt"~ucull
JCUCulkText """'· l
IJse jcuculk T~.\I End Ir End Sub
o
Pt j, ate Sub cucupr. Clicl() Ir cucupr. Value.:::. I ·rhen icuctipr ·re.\I ~- ! l·!sc
i...::ucupr.Tcxt l·nd If
O
End Sub Pn\ ate Sub fonn _Load( l sSTah I Tab= ll End Sub
Prnatc Sub hitung _Click() Dini sisa\\'asial ;\s Curren:.y Dirn sis:n,·arisan. jun1\\Ttsiat As Currcncr J)in1 j1n\·nb ;\s fnt11gc1
Ii' ( 'Cur(Jur!l\\ .tr1<; Tl• \I l
O (lr JUn1n-aris. fext = 1' 11 'Chen \1.,:->.Bl)\ "J un1lah h: rta '' arisan belun1 diisi !.. ", 0 -:. \'hExclarnation, "I Iart a \\' arisan"
\\l!ll'.\"df\<: Sl·tf·\l(ilS
1·nd JI"
.1urn,-.:1s1a!
3 • { Cur(junn,aris.'fext)
TL',!) · ju11n\·ao.;in1 'fhcn "jur11r:1h \\:l~1:111nt·lcbihi 1/3 hurta \Varisan", 0
1rccur(;\;1·,1.ii \!~gBo\ \\'a'.>J:tl" \\:1:-.1:11
·-t
vbFxclan1al1on. "Kctcntuan
SL'tFnru;,
[:isl'."
sio.;a\\ :insan · ('('ur(sisa\\asiat) - CCur(\vusiat.Text) SlS;l\\ ;ll JS. re\ I
f:o1n1:it(s1s:n\arisan. "#,##0 11 )
1:11d 1r
Lnd Suh P1n;11e Sub Ldua1 Clic),.(_) l•n[o;id l\-ll'
J·nd Suh
Pt1\a!c Sub hut;u;F l os!foi.:us(J
hutang Forrna!(h11tang. "#.liflO") Lud Su 1_i Prn;1t~
'.;ub 1s1r1 Click() lf i~vi Vah·~· I Then 1sln ! 1-:nahk•d Fa!sr: l~lselr 1·.;ln \'nlul' o T~1en 1<;\ri ! I'.n:1blcd l'rue
1·:11d 1r ,(suan\!.\.':dul~
-
J
And 1s1n"" ! Then
\.-1-;g_Box "l"ang 111ati 1:urna I onu1g. /'.J1d II' Ln
' lfyuiaklk.Te:\t" "" Tht'H i
· L!;:;t~!fjannk!k.Tc"t -,."' ! Then anaklJ....Valu~~ I ·1-J-;¢lfjan~1kH.
Te:..t <=-' O'Then ';1na!..lk.\iaJue ·" O 'rina!-..lk.'rext =- O ·i:11d If
'Fud Sub
11n,;1te S;;bjanaJ..!k CiotFot:us()
k~n~-an",
O + vbExdnn1ation. "K<'nfinnasi"
;inaklk \';llu.;_· Fnd Sub
P rn ate \ub ,1a1J;ikl~ KeyPn.·ss( !Zey1\sc11 As Integer) If Not (Kl':-Asl·ii .-1X AnJ KeyA.scii <= _.r;,7 Or KeyAscii = \'bKeyBaclJ rJ1cn Bl'ep l(c~Asc11
1:_nd 1r Fnd S11b
iJ
!'n'.alt:' Sub.1u111\\!IJ'1:; L1>stFocus(J ForrnaHiun1\'.aris. ''#,• #0")
1un1\\fffJS cc
Fnd Sul' Pn\
\l
End Sub l'ri\:lll~ Sub :,eponah.:inbpk_ Click() 1rtcponah.:n1hpk.Valul'- =I ·1·11en jkcp1)nakanhpLTe:-.1 ~- I 1·1sc .11-.cponakanbpk.Tc\t---' 0
L'.nd If l:nd Suh
Pn-. ;ltc Sub pan1::u1 _Click() If pa111an.Valuc - l ·rhl.':n JIH1rnan.l'L'\.l :: I Flse Jparnan. l"l!\l
0
F•-1d II !'.rid Sub
Pn\;.:itc Sub prn11anbpk __Click\)
!fpJ.n1anbpL\lnluc · I Then Jpan1:u1bpk. fc\I - I \'.lsc _1pan1anbpL i'c:-;l o End
1r
End Sub Pri\ate Sub sddk_."Click()
trsdrlk.Valuo"=-1 Tht.!n jsdr1u·c,1 I l::ls~
isdrlk.l'c:-;.t '"' n
._:nd If 1'.nd Suh Pri\
O
Pt1\alc~uhsd1lh1bu ('he!..()
lfsdrlk1hu_V;i!u0
I Then
isdrl~1bu_T('\l
J
Else jsdr!l-..ibu.Tt''-.! -Fnd If End Sub
1)
Prnatc St:b sdrpr_ ('lick() 1r sdrpr ·V;ilue I Then 1sdrpr.Tc\\ !
Ebe jsdrpr:rc:-.t End 1r
()
End Sub
Pi I\ all' Suh sdrprbpk Clich() Ir Stlrprbpk. Value l "I1H! 11
jsdrprhpk. Text Else isUrprbpJ...Te'-.l End If
--:-c
i.l
L'.ud Sub Pn\ ale Sub sdrpribu_ Click()
If sdrpnbu.Valuc - l "fhen .1sdrpribu.Text = I Lbc .1:-drpribu.Texl -= O End If
End Sub Prn ate Sub sepupu _Clicl.() lfsepupL1.Value '"--I T!1en
jsepupu.Text '"' I Ebe js~pupu. 1·exl _._-_ o
End II' Und Suh
Privalc Sub "'-'PUJlubpk. C 1ich( l If scpupuhph \'alut'
J
·1 hen
iscpupnhph Tt'\I FhL~
1sepupuhph 1°1..'\.l 11nd If'
n
1-:nd Sub Pn\alc Suh
:;1~a\\-a11'>
~.isa\\:.lJ 1s
F\'11naH:-.1saH·aris. "Ii.tit 0")
l.ostFocus()
l'.nd Suh Pr J\;l[e S11b sua1n1 Clickl)
If' suanl'_ \-a!ue I '!'hen -;uanu I .Enabled False
r-·lst:lfsuarni Value-,· o·rhen ·"u~1n1i
I. Enabled
True
End If End Sub
Prnate Sub ial~itj f,ostFocu<>() tahjq Fnrn1:ll([ah_i1,1. "ti.r'il/O'") End Sub flrl\;lle
'"" '" t
Sub \\:ls1:l! Lll:->lFucus()
Fnd S• 1b
l·orn\ali"'
"·""t. "I'. /I/lo")