malo je to puno koda
a sigurno se to da skratit, samo ja neznam kako se bruto i neto racuna :|
možeš za svaki napravit posebnu funknciju npr. za 22:
Public Sub hdcp22 ()
If r1 >= "6" Then b1 = "0"
If r1 = "5" Then b1 = "1"
If r1 = "4" Then b1 = "2"
If r1 = "3" Then b1 = "3"
If r1 = "2" Then b1 = "4"
If r1 > "6" Then n1 = "0"
If r1 = "6" Then n1 = "1"
If r1 = "5" Then n1 = "2"
If r1 = "4" Then n1 = "3"
If r1 = "3" Then n1 = "4"
If r1 = "2" Then n1 = "5"
If r2 >= "5" Then b2 = "0"
If r2 = "4" Then b2 = "1"
If r2 = "3" Then b2 = "2"
If r2 = "2" Then b2 = "3"
If r2 = "1" Then b2 = "4"
If r2 > "5" Then n2 = "0"
If r2 = "5" Then n2 = "1"
If r2 = "4" Then n2 = "2"
If r2 = "3" Then n2 = "3"
If r2 = "2" Then n2 = "4"
If r2 = "1" Then n2 = "5"
If r3 >= "5" Then b3 = "0"
If r3 = "4" Then b3 = "1"
If r3 = "3" Then b3 = "2"
If r3 = "2" Then b3 = "3"
If r3 = "1" Then b3 = "4"
If r3 > "5" Then n3 = "0"
If r3 = "5" Then n3 = "1"
If r3 = "4" Then n3 = "2"
If r3 = "3" Then n3 = "3"
If r3 = "2" Then n3 = "4"
If r3 = "1" Then n3 = "5"
If r4 >= "5" Then b4 = "0"
If r4 = "4" Then b4 = "1"
If r4 = "3" Then b4 = "2"
If r4 = "2" Then b4 = "3"
If r4 = "1" Then b4 = "4"
If r4 > "5" Then n4 = "0"
If r4 = "5" Then n4 = "1"
If r4 = "4" Then n4 = "2"
If r4 = "3" Then n4 = "3"
If r4 = "2" Then n4 = "4"
If r4 = "1" Then n4 = "5"
If r5 >= "6" Then b5 = "0"
If r5 = "5" Then b5 = "1"
If r5 = "4" Then b5 = "2"
If r5 = "3" Then b5 = "3"
If r5 = "2" Then b5 = "4"
If r5 > "6" Then n5 = "0"
If r5 = "6" Then n5 = "1"
If r5 = "5" Then n5 = "2"
If r5 = "4" Then n5 = "3"
If r5 = "3" Then n5 = "4"
If r5 = "2" Then n5 = "5"
If r6 >= "6" Then b6 = "0" 'promjenjena
If r6 = "5" Then b6 = "1"
If r6 = "4" Then b6 = "2"
If r6 = "3" Then b6 = "3"
If r5 = "2" Then b6 = "4"
If r6 > "7" Then n6 = "0"
If r6 = "7" Then n6 = "1"
If r6 = "6" Then n6 = "2"
If r6 = "5" Then n6 = "3"
If r6 = "4" Then n6 = "4"
If r6 = "3" Then n6 = "5"
If r6 = "2" Then n6 = "6"
If r7 >= "5" Then b7 = "0" 'promjenjena
If r7 = "4" Then b7 = "1"
If r7 = "3" Then b7 = "2"
If r7 = "2" Then b7 = "3"
If r7 = "1" Then b7 = "4"
If r7 > "6" Then n7 = "0"
If r7 = "6" Then n7 = "1"
If r7 = "5" Then n7 = "2"
If r7 = "4" Then n7 = "3"
If r7 = "3" Then n7 = "4"
If r7 = "2" Then n7 = "5"
If r7 = "1" Then n7 = "6"
If r8 >= "5" Then b8 = "0"
If r8 = "4" Then b8 = "1"
If r8 = "3" Then b8 = "2"
If r8 = "2" Then b8 = "3"
If r8 = "1" Then b8 = "4"
If r8 > "5" Then n8 = "0"
If r8 = "5" Then n8 = "1"
If r8 = "4" Then n8 = "2"
If r8 = "3" Then n8 = "3"
If r8 = "2" Then n8 = "4"
If r8 = "1" Then n8 = "5"
If r9 >= "5" Then b9 = "0"
If r9 = "4" Then b9 = "1"
If r9 = "3" Then b9 = "2"
If r9 = "2" Then b9 = "3"
If r9 = "1" Then b9 = "4"
If r9 > "5" Then n9 = "0"
If r9 = "5" Then n9 = "1"
If r9 = "4" Then n9 = "2"
If r9 = "3" Then n9 = "3"
If r9 = "2" Then n9 = "4"
If r9 = "1" Then n9 = "5"
If r10 >= "6" Then b10 = "0"
If r10 = "5" Then b10 = "1"
If r10 = "4" Then b10 = "2"
If r10 = "3" Then b10 = "3"
If r10 = "2" Then b10 = "4"
If r10 > "6" Then n10 = "0"
If r10 = "6" Then n10 = "1"
If r10 = "5" Then n10 = "2"
If r10 = "4" Then n10 = "3"
If r10 = "3" Then n10 = "4"
If r10 = "2" Then n10 = "5"
If r11 >= "5" Then b11 = "0"
If r11 = "4" Then b11 = "1"
If r11 = "3" Then b11 = "2"
If r11 = "2" Then b11 = "3"
If r11 = "1" Then b11 = "4"
If r11 > "5" Then n11 = "0"
If r11 = "5" Then n11 = "1"
If r11 = "4" Then n11 = "2"
If r11 = "3" Then n11 = "3"
If r11 = "2" Then n11 = "4"
If r11 = "1" Then n11 = "5"
If r12 >= "5" Then b12 = "0"
If r12 = "4" Then b12 = "1"
If r12 = "3" Then b12 = "2"
If r12 = "2" Then b12 = "3"
If r12 = "1" Then b12 = "4"
If r12 > "5" Then n12 = "0"
If r12 = "5" Then n12 = "1"
If r12 = "4" Then n12 = "2"
If r12 = "3" Then n12 = "3"
If r12 = "2" Then n12 = "4"
If r12 = "1" Then n12 = "5"
If r13 >= "5" Then b13 = "0"
If r13 = "4" Then b13 = "1"
If r13 = "3" Then b13 = "2"
If r13 = "2" Then b13 = "3"
If r13 = "1" Then b13 = "4"
If r13 > "5" Then n13 = "0"
If r13 = "5" Then n13 = "1"
If r13 = "4" Then n13 = "2"
If r13 = "3" Then n13 = "3"
If r13 = "2" Then n13 = "4"
If r13 = "1" Then n13 = "5"
If r14 >= "6" Then b14 = "0"
If r14 = "5" Then b14 = "1"
If r14 = "4" Then b14 = "2"
If r14 = "3" Then b14 = "3"
If r14 = "2" Then b14 = "4"
If r14 > "6" Then n14 = "0"
If r14 = "6" Then n14 = "1"
If r14 = "5" Then n14 = "2"
If r14 = "4" Then n14 = "3"
If r14 = "3" Then n14 = "4"
If r14 = "2" Then n14 = "5"
If r15 >= "6" Then b15 = "0" 'promjenjena
If r15 = "5" Then b15 = "1"
If r15 = "4" Then b15 = "2"
If r15 = "3" Then b15 = "3"
If r15 = "2" Then b15 = "4"
If r15 > "7" Then n15 = "0"
If r15 = "7" Then n15 = "1"
If r15 = "6" Then n15 = "2"
If r15 = "5" Then n15 = "3"
If r15 = "4" Then n15 = "4"
If r15 = "3" Then n15 = "5"
If r15 = "2" Then n15 = "6"
If r16 >= "5" Then b16 = "0" 'promjenjena
If r16 = "4" Then b16 = "1"
If r16 = "3" Then b16 = "2"
If r16 = "2" Then b16 = "3"
If r16 = "1" Then b16 = "4"
If r16 > "6" Then n16 = "0"
If r16 = "6" Then n16 = "1"
If r16 = "5" Then n16 = "2"
If r16 = "4" Then n16 = "3"
If r16 = "3" Then n16 = "4"
If r16 = "2" Then n16 = "5"
If r16 = "1" Then n16 = "6"
If r17 >= "5" Then b17 = "0"
If r17 = "4" Then b17 = "1"
If r17 = "3" Then b17 = "2"
If r17 = "2" Then b17 = "3"
If r17 = "1" Then b17 = "4"
If r17 > "5" Then n17 = "0"
If r17 = "5" Then n17 = "1"
If r17 = "4" Then n17 = "2"
If r17 = "3" Then n17 = "3"
If r17 = "2" Then n17 = "4"
If r17 = "1" Then n17 = "5"
If r18 >= "5" Then b18 = "0"
If r18 = "4" Then b18 = "1"
If r18 = "3" Then b18 = "2"
If r18 = "2" Then b18 = "3"
If r18 = "1" Then b18 = "4"
If r18 > "5" Then n18 = "0"
If r18 = "5" Then n18 = "1"
If r18 = "4" Then n18 = "2"
If r18 = "3" Then n18 = "3"
If r18 = "2" Then n18 = "4"
If r18 = "1" Then n18 = "5"
End Sub
itd....
onda bi to ovak izgledalo:
Citiraj:
Private Sub Command1_Click()
'------score zbroj - GLAVNI KOD, KOD KOJI SE NE PONAVLJA --------
a = Val(r1) + Val(r2) + Val(r3) + Val(r4) + Val(r5) + Val(r6) + Val(r7) + Val(r8) + Val(r9)
b = Val(r10) + Val(r11) + Val(r12) + Val(r13) + Val(r14) + Val(r15) + Val(r16) + Val(r17) + Val(r18)
tot = Val(a) + Val(b)
rout = a
rin = b
rtot = tot
'bruto
bruto1 = Val(b1) + Val(b2) + Val(b3) + Val(b4) + Val(b5) + Val(b6) + Val(b7) + Val(b8) + Val(b9)
bruto2 = Val(b10) + Val(b11) + Val(b12) + Val(b13) + Val(b14) + Val(b15) + Val(b16) + Val(b17) + Val(b18)
bout = bruto1
bin = bruto2
btot = Val(bruto1) + Val(bruto2)
'neto
neto1 = Val(n1) + Val(n2) + Val(n3) + Val(n4) + Val(n5) + Val(n6) + Val(n7) + Val(n8) + Val(n9)
neto2 = Val(n10) + Val(n11) + Val(n12) + Val(n13) + Val(n14) + Val(n15) + Val(n16) + Val(n17) + Val(n18)
nout = neto1
nin = neto2
ntot = Val(neto1) + Val(neto2)
'--------ZAVRŠAVA GLAVNI KOD, SAD SLIJEDE IF HDCP OD 0-36...-------
'JA SAM DAO SAMO DVA PRIMJERA, 22 I 17
'PROBAJ IZVADIT KOD IZ FORME,NAPISAT NA NEKI DRUGI FILE,I ONDA GA UBACIT,TAK BI ZA SVAKI NAPRAVIO AKO SE DA...
If hdcp = "22" Then hdcp22
if hdcp ="17" Then hdcp17
|
možeš stavit te funkcije u modul, samo češ onda morat umjesto r1 = "6" pisati form1.r1 = "6". kužiš?
e i da te pitam:
zašto negdje imaš If r = "5" a negdje if r = 6, fali ti kod ili se za svaki r drugacije racuna???