| Pink_Panther |
| | CODICE Sub Main() Dim ruote(3) Dim ruota(1) Dim poste(2) Dim Importi(2,12) poste(2) = 1 Importi(2,1) = 1 Importi(2,2) = 2 Importi(2,3) = 4 Importi(2,4) = 8 Importi(2,5) = 16 Importi(2,6) = 32 Importi(2,7) = 64 Importi(2,8) = 125 Importi(2,9) = 250 Importi(2,10) = 500 Importi(2,11) = 1000 Importi(2,12) = 2000 Dim n(4) clp = 12 ini = EstrazioneFin - 8400 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es ruote(1) = r1 ruote(2) = r2 ruote(3) = r3 ruota(1) = 11 For r1 = 1 To 9 For r2 = r1 + 1 To 10 For r3 = r2 + 1 To 10 For p1 = 5 To 5 For p2 = 5 To 5 For p3 = 5 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r2,p2) c = Estratto(es,r3,p3) ok = 0 If Estratto(es,r1,p1) = 57 And Estratto(es,r2,p2) = 44 And Estratto(es,r3,p3) = 44 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 40 And Estratto(es,r2,p2) = 61 And Estratto(es,r3,p3) = 61 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 85 And Estratto(es,r2,p2) = 16 And Estratto(es,r3,p3) = 16 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 82 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 87 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 14 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 76 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 69 And Estratto(es,r2,p2) = 32 And Estratto(es,r3,p3) = 32 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 28 And Estratto(es,r2,p2) = 73 And Estratto(es,r3,p3) = 73 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 41 And Estratto(es,r3,p3) = 41 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 52 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 23 And Estratto(es,r2,p2) = 78 And Estratto(es,r3,p3) = 78 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 17 And Estratto(es,r3,p3) = 17 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 63 And Estratto(es,r2,p2) = 38 And Estratto(es,r3,p3) = 38 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 27 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 60 And Estratto(es,r3,p3) = 60 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 66 And Estratto(es,r2,p2) = 35 And Estratto(es,r3,p3) = 35 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 16 And Estratto(es,r2,p2) = 85 And Estratto(es,r3,p3) = 85 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 86 And Estratto(es,r3,p3) = 86 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 1 And Estratto(es,r2,p2) = 10 And Estratto(es,r3,p3) = 10 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 88 And Estratto(es,r2,p2) = 13 And Estratto(es,r3,p3) = 13 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 36 And Estratto(es,r3,p3) = 36 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 89 And Estratto(es,r3,p3) = 89 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 24 And Estratto(es,r3,p3) = 24 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 29 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 53 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 59 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 79) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 14 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 8 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 76 And Estratto(es,r3,p3) = 76 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 67 And Estratto(es,r2,p2) = 56 And Estratto(es,r3,p3) = 56 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 85 And Estratto(es,r2,p2) = 38 And Estratto(es,r3,p3) = 38 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 53 And Estratto(es,r2,p2) = 70 And Estratto(es,r3,p3) = 70 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 63 And Estratto(es,r3,p3) = 63 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 76 And Estratto(es,r3,p3) = 76 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 11 And Estratto(es,r2,p2) = 22 And Estratto(es,r3,p3) = 22 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 46 And Estratto(es,r3,p3) = 46 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 21 And Estratto(es,r3,p3) = 21 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 81 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 20 And Estratto(es,r2,p2) = 13 And Estratto(es,r3,p3) = 13 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 66 And Estratto(es,r2,p2) = 57 And Estratto(es,r3,p3) = 57 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 86 And Estratto(es,r2,p2) = 37 And Estratto(es,r3,p3) = 37 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 17 And Estratto(es,r2,p2) = 16 And Estratto(es,r3,p3) = 16 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 57 And Estratto(es,r2,p2) = 66 And Estratto(es,r3,p3) = 66 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 90 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 8 And Estratto(es,r3,p3) = 8 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 1 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 32 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 59 And Estratto(es,r2,p2) = 64 And Estratto(es,r3,p3) = 64 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 7 And Estratto(es,r3,p3) = 7 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 6 And Estratto(es,r2,p2) = 27 And Estratto(es,r3,p3) = 27 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 33 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 90 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 57) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 13 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 73 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 6 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 19 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 85 And Estratto(es,r3,p3) = 85 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 49 And Estratto(es,r2,p2) = 6 And Estratto(es,r3,p3) = 6 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 83 And Estratto(es,r2,p2) = 62 And Estratto(es,r3,p3) = 62 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 26 And Estratto(es,r2,p2) = 29 And Estratto(es,r3,p3) = 29 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 35 And Estratto(es,r2,p2) = 20 And Estratto(es,r3,p3) = 20 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 1 And Estratto(es,r3,p3) = 1 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 22 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 68 And Estratto(es,r3,p3) = 68 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 40 And Estratto(es,r3,p3) = 40 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 52 And Estratto(es,r2,p2) = 3 And Estratto(es,r3,p3) = 3 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 80 And Estratto(es,r2,p2) = 65 And Estratto(es,r3,p3) = 65 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 51 And Estratto(es,r2,p2) = 4 And Estratto(es,r3,p3) = 4 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 8 And Estratto(es,r3,p3) = 8 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 7 And Estratto(es,r2,p2) = 48 And Estratto(es,r3,p3) = 48 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 58 And Estratto(es,r2,p2) = 87 And Estratto(es,r3,p3) = 87 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 21 And Estratto(es,r2,p2) = 34 And Estratto(es,r3,p3) = 34 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 29 And Estratto(es,r2,p2) = 26 And Estratto(es,r3,p3) = 26 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 38 And Estratto(es,r2,p2) = 17 And Estratto(es,r3,p3) = 17 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 35) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 02 And Estratto(es,r2,p2) = 64 And Estratto(es,r3,p3) = 64 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 36 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 60 And Estratto(es,r2,p2) = 06 And Estratto(es,r3,p3) = 06 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 10 And Estratto(es,r2,p2) = 56 And Estratto(es,r3,p3) = 56 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 54 And Estratto(es,r2,p2) = 12 And Estratto(es,r3,p3) = 12 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 42 And Estratto(es,r3,p3) = 42 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 81 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 72 And Estratto(es,r3,p3) = 72 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 35 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 19 And Estratto(es,r3,p3) = 19 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 08 And Estratto(es,r2,p2) = 58 And Estratto(es,r3,p3) = 58 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 64 And Estratto(es,r2,p2) = 02 And Estratto(es,r3,p3) = 02 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 76 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d End If If Estratto(es,r1,p1) = 19 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 61 And Estratto(es,r2,p2) = 05 And Estratto(es,r3,p3) = 05 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 41 And Estratto(es,r2,p2) = 25 And Estratto(es,r3,p3) = 25 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 88 And Estratto(es,r2,p2) = 68 And Estratto(es,r3,p3) = 68 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 13 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 55 And Estratto(es,r2,p2) = 11 And Estratto(es,r3,p3) = 11 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 30 And Estratto(es,r2,p2) = 36 And Estratto(es,r3,p3) = 36 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 39 And Estratto(es,r2,p2) = 27 And Estratto(es,r3,p3) = 27 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 90 And Estratto(es,r2,p2) = 66 And Estratto(es,r3,p3) = 66 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 54 And Estratto(es,r3,p3) = 54 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 24) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 80 And Estratto(es,r2,p2) = 87 And Estratto(es,r3,p3) = 87 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 79 And Estratto(es,r2,p2) = 88 And Estratto(es,r3,p3) = 88 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 34 And Estratto(es,r2,p2) = 43 And Estratto(es,r3,p3) = 43 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 48 And Estratto(es,r2,p2) = 29 And Estratto(es,r3,p3) = 29 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 07 And Estratto(es,r2,p2) = 70 And Estratto(es,r3,p3) = 70 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 16 And Estratto(es,r2,p2) = 61 And Estratto(es,r3,p3) = 61 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 37 And Estratto(es,r2,p2) = 40 And Estratto(es,r3,p3) = 40 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 47 And Estratto(es,r2,p2) = 30 And Estratto(es,r3,p3) = 30 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 15 And Estratto(es,r2,p2) = 62 And Estratto(es,r3,p3) = 62 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 40 And Estratto(es,r2,p2) = 37 And Estratto(es,r3,p3) = 37 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 03 And Estratto(es,r2,p2) = 74 And Estratto(es,r3,p3) = 74 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 36 And Estratto(es,r2,p2) = 41 And Estratto(es,r3,p3) = 41 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 89 And Estratto(es,r2,p2) = 78 And Estratto(es,r3,p3) = 78 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 25 And Estratto(es,r2,p2) = 52 And Estratto(es,r3,p3) = 52 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 84 And Estratto(es,r2,p2) = 83 And Estratto(es,r3,p3) = 83 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 28 And Estratto(es,r2,p2) = 49 And Estratto(es,r3,p3) = 49 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 24 And Estratto(es,r2,p2) = 53 And Estratto(es,r3,p3) = 53 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 32 And Estratto(es,r2,p2) = 45 And Estratto(es,r3,p3) = 45 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 49 And Estratto(es,r2,p2) = 28 And Estratto(es,r3,p3) = 28 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 87 And Estratto(es,r2,p2) = 80 And Estratto(es,r3,p3) = 80 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 18 And Estratto(es,r2,p2) = 59 And Estratto(es,r3,p3) = 59 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 67 And Estratto(es,r2,p2) = 10 And Estratto(es,r3,p3) = 10 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 42 And Estratto(es,r2,p2) = 35 And Estratto(es,r3,p3) = 35 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 43 And Estratto(es,r2,p2) = 34 And Estratto(es,r3,p3) = 34 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 75 And Estratto(es,r2,p2) = 02 And Estratto(es,r3,p3) = 02 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 63 And Estratto(es,r2,p2) = 14 And Estratto(es,r3,p3) = 14 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 14 And Estratto(es,r2,p2) = 63 And Estratto(es,r3,p3) = 63 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 02 And Estratto(es,r2,p2) = 75 And Estratto(es,r3,p3) = 75 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 46 And Estratto(es,r2,p2) = 31 And Estratto(es,r3,p3) = 31 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 06 And Estratto(es,r2,p2) = 71 And Estratto(es,r3,p3) = 71 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 71 And Estratto(es,r2,p2) = 06 And Estratto(es,r3,p3) = 06 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 30 And Estratto(es,r2,p2) = 47 And Estratto(es,r3,p3) = 47 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 12 And Estratto(es,r2,p2) = 65 And Estratto(es,r3,p3) = 65 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 56 And Estratto(es,r2,p2) = 21 And Estratto(es,r3,p3) = 21 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 65 And Estratto(es,r2,p2) = 12 And Estratto(es,r3,p3) = 12 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 44 And Estratto(es,r2,p2) = 33 And Estratto(es,r3,p3) = 33 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 77 And Estratto(es,r2,p2) = 90 And Estratto(es,r3,p3) = 90 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 51 And Estratto(es,r2,p2) = 26 And Estratto(es,r3,p3) = 26 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If Estratto(es,r1,p1) = 10 And Estratto(es,r2,p2) = 67 And Estratto(es,r3,p3) = 67 Then n(1) = a n(2) = b n(3) = Abs(a - b) d = Fuori90(n(3) + 13) n(4) = 90 - d ok = 1 End If If ok = 1 Then co = co + 1 Scrivi String(80,"°") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " " & SiglaRuota(r3) & " " & StringaEstratti(es,r3) & " SPIE BY BAFFOBLU: " & a & " - " & b & " - " & c,1 Scrivi String(80,"°"),1 ruota(1) = 11 ImpostaGiocata 1,n,ruota,poste,clp,2 ImpostaProgressione 1,Importi Scrivi "puntate eseguite " & colpi Scrivi " - 1 stroke - " & Importi(2,1) & " euro x ambo " Scrivi " - 2 stroke - " & Importi(2,2) & " euro x ambo" Scrivi " - 3 stroke - " & Importi(2,3) & " euro x ambo" Scrivi " - 4 stroke - " & Importi(2,4) & " euro x ambo" Scrivi " - 5 stroke - " & Importi(2,5) & " euro x ambo" Scrivi " - 6 stroke - " & Importi(2,6) & " euro x ambo" Scrivi " - 7 stroke - " & Importi(2,7) & " euro x ambo" Scrivi " - 8 stroke - " & Importi(2,8) & " euro x ambo" Scrivi " - 9 stroke - " & Importi(2,9) & " euro x ambo" Scrivi " - 10 stroke - " & Importi(2,10) & " euro x ambo" Scrivi " - 11 stroke - " & Importi(2,11) & " euro x ambo" Scrivi " - 12 stroke - " & Importi(2,12) & " euro x ambo" Gioca es End If Next Next Next Next Next Next Next ScriviResoconto End Sub CODICE +-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ | RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI | +-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ | Casi esaminati : 227 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | | | Casi vincenti : 227 | +----------------------------------+ +----------------------------------+ +----------------------------------+ | Percentuale pos. : 100 % | | BA | | | | | | | BA | | | | | | | BA | | | | Giocate in corso : 0 | | CA | | | | | | | CA | | | | | | | CA | | | | Giocate terminate : 227 | | FI | | | | | | | FI | | | | | | | FI | | | | Bollette giocate : 1.186 | | GE | | | | | | | GE | | | | | | | GE | | | | Bollette vincenti : 492 | | MI | | | | | | | MI | | | | | | | MI | | | | Attesa media : 5 | | NA | | | | | | | NA | | | | | | | NA | | | | Spesa : 87.838,00 € | | PA | | | | | | | PA | | | | | | | PA | | | | Vincita : 192.235,26 € | | RM | | | | | | | RM | | | | | | | RM | | | | Guadagno : 104.397,26 € | | TO | | | | | | | TO | | | | | | | TO | | | | Perc. Rendimento : 118,852 % | | VE | | | | | | | VE | | | | | | | VE | | | | Mass. Esposizione : 4.002,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | | | Estratto su tutte : 501 | | TT | | 264| 9| | | | TT | | | | | | | TT | | | | Ambo su tutte : 264 | +----------------------------------+ +----------------------------------+ +----------------------------------+ | Terno su tutte : 9 | | | +-------------------------------------+
| | |
| |
|