Code:
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'-----------------PRVI KOD---------------------
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 If
If hdcp = "17" Then '-----------------DRUGI KOD---------------------
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"
If r6 = "5" Then b6 = "1"
If r6 = "4" Then b6 = "2"
If r6 = "3" Then b6 = "3"
If r6 = "2" Then b6 = "4"
If r6 > "6" Then n6 = "0"
If r6 = "6" Then n6 = "1"
If r6 = "5" Then n6 = "2"
If r6 = "4" Then n6 = "3"
If r6 = "3" Then n6 = "4"
If r6 = "2" Then n6 = "5"
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 > "5" Then n7 = "0"
If r7 = "5" Then n7 = "0"
If r7 = "4" Then n7 = "1"
If r7 = "3" Then n7 = "2"
If r7 = "2" Then n7 = "3"
If r7 = "1" Then n7 = "4"
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 n11 = "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"
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 > "6" Then n15 = "0"
If r15 = "6" Then n15 = "1"
If r15 = "5" Then n15 = "2"
If r15 = "4" Then n15 = "3"
If r15 = "3" Then n15 = "4"
If r15 = "2" Then n15 = "5"
If r16 >= "5" Then b16 = "0"
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 > "5" Then n16 = "0"
If r16 = "5" Then n16 = "1"
If r16 = "4" Then n16 = "2"
If r16 = "3" Then n16 = "3"
If r16 = "2" Then n16 = "4"
If r16 = "1" Then n16 = "5"
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 If
'I TAKO DALJE I DALJE I DALJE... :)
Da tako je, evo sad sam napiso tu kod, napisao sam glavni kod, i 2 koda koja se ponavljaju (napominjem treba biti 36 takvih kodova), a već od par njih kad stavim piše da nema više mjesta, tj previše koda.. nisam baš skužio ono zadnje jer neznam jel si ti mislio na ovakav kod, pogledaj sada ovaj pa mi kaži jel bi se to moglo ubacit odnekud u formu ili neko drugo rješenje.