PER BAFFOBLU .......I SIMPATICI

mastrogino · 12 Giugno 2024

Ciao questi sono i numeri simpatici si mettono in gioco quando in una estrazione si ha un
numero su di piu ruote .
si mettono in gioco i due numeri x ambate ambo e ambetto
il bello è che stranamente quando esce uno dei due numeri di seguito escono sulle altre ruote
1°esempio reale
estrazione del 07/06/2024
CA FI MI PA NUMERO MULTIPLO 63
IN GIOCO 34.36.
2° COLPO 34 MI
ADESSO SI ASPETTA LE USCITE MULTIPLE DEL 34.36. SU QUESTE RUOTE
---------------------------------------------------------------------------
2° ESEMPIO REALE
estrazione del 06/06/2024
ca.ge.ro numero multiplo 27
in gioco 88.14.
1° colpo 14 ca
di sequito inserisco la lista

01=28.18
02=58.37
03=34.33
04=10.21
05=46.17
06=52.26
07=88.07
08=04.22
09=70.24
10=46.36
11=87.38
12=04.23
13=79.80
14=40.27
15=16.72
16=82.75
17=58.05
18=34.01
19=28.71.
20=76.07
21=80.04
22=28.08
23=04.12
24=70.09
25=46.75
26=65.06
27=88.14
28=28.71
29=40.79
30=16.42
31=46.40
32=58.88
33=16.03
34=10.51
35=76.56
36=52.10
37=28.02
38=04.53
39=70.53
40=55.31
41=22.70
42=88.30
43=64.74
44=40.48
45=16.90
46=82.50
47=04.86
48=34.44
49=10.81
50=76.46
51=51.34
52=28.89
53=04.39
54=43.78
55=46.70
56=56.35
57=88.73
58=64.62
59=40.84
60=16.55
61=01.18
62=58.85
63=34.36
64=10.50
65=76.85
66=52.78
67=28.71
68=04.21
69=70.41
70=46.55
71=40.28
72=88.15
73=64.83
74=40.79
75=82.16
76=82.85
77=58.82
78=34.54
79=10.74
80=76.13
81=16.49
82=64.77
83=76.73
84=61.59
85=73.76
86=58.47
87=87.77
88=55.32
89=67.52
90=58.45

BaffoBlù · 13 Giugno 2024

Più che uno script è un elenco telefonico...

Dagli un occhiata che poi lo aggiustiamo meglio...

Codice:

Option Explicit
Sub Main()
   Dim k,Ini,fin,es,r1,r2,r3,p1,p2,p3,a,b,c,co,ok,tm
   Dim ruota(10)
   Dim posta(10)
   Dim poste(10)
   Dim n(2)
   posta(1) = 1
   poste(2) = 1
   tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
   k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
   Ini = EstrazioneFin - tm
   fin = EstrazioneFin
   co = 0
   ok = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      ruota(1) = r1
      ruota(2) = r2
      ruota(3) = r3
      For p1 = 1 To 5
         For r1 = 1 To 8
            a = Estratto(es,r1,p1)
            For r2 = r1 + 1 To 9
               For p2 = 1 To 5
                  b = Estratto(es,r2,p2)
                  If a = b Then
                     For r3 = r2 + 1 To 10
                        For p3 = 1 To 5
                           c = Estratto(es,r3,p3)
                           If c = a Then
                              If a = 1 Then
                                 n(1) = 28: n(2) = 18
                                 ok = 1
                              End If
                              If a = 2 Then
                                 n(1) = 58: n(2) = 37
                                 ok = 1
                              End If
                              If a = 3 Then
                                 n(1) = 34: n(2) = 33
                                 ok = 1
                              End If
                              If a = 4 Then
                                 n(1) = 10: n(2) = 21
                                 ok = 1
                              End If
                              If a = 5 Then
                                 n(1) = 46: n(2) = 17
                                 ok = 1
                              End If
                              If a = 6 Then
                                 n(1) = 52: n(2) = 26
                                 ok = 1
                              End If
                              If a = 7 Then
                                 n(1) = 88: n(2) = 07
                                 ok = 1
                              End If
                              If a = 8 Then
                                 n(1) = 04: n(2) = 22
                                 ok = 1
                              End If
                              If a = 9 Then
                                 n(1) = 70: n(2) = 24
                                 ok = 1
                              End If
                              If a = 10 Then
                                 n(1) = 46: n(2) = 36
                                 ok = 1
                              End If
                              If a = 11 Then
                                 n(1) = 87: n(2) = 38
                                 ok = 1
                              End If
                              If a = 12 Then
                                 n(1) = 04: n(2) = 23
                                 ok = 1
                              End If
                              If a = 13 Then
                                 n(1) = 79: n(2) = 80
                                 ok = 1
                              End If
                              If a = 14 Then
                                 n(1) = 40: n(2) = 27
                                 ok = 1
                              End If
                              If a = 15 Then
                                 n(1) = 16: n(2) = 72
                                 ok = 1
                              End If
                              If a = 16 Then
                                 n(1) = 82: n(2) = 75
                                 ok = 1
                              End If
                              If a = 17 Then
                                 n(1) = 58: n(2) = 05
                                 ok = 1
                              End If
                              If a = 18 Then
                                 n(1) = 34: n(2) = 01
                                 ok = 1
                              End If
                              If a = 19 Then
                                 n(1) = 28: n(2) = 71
                                 ok = 1
                              End If
                              If a = 20 Then
                                 n(1) = 76: n(2) = 07
                                 ok = 1
                              End If
                              If a = 21 Then
                                 n(1) = 80: n(2) = 04
                                 ok = 1
                              End If
                              If a = 22 Then
                                 n(1) = 28: n(2) = 08
                                 ok = 1
                              End If
                              If a = 23 Then
                                 n(1) = 04: n(2) = 12
                                 ok = 1
                              End If
                              If a = 24 Then
                                 n(1) = 70: n(2) = 09
                                 ok = 1
                              End If
                              If a = 25 Then
                                 n(1) = 46: n(2) = 75
                                 ok = 1
                              End If
                              If a = 26 Then
                                 n(1) = 65: n(2) = 06
                                 ok = 1
                              End If
                              If a = 27 Then
                                 n(1) = 88: n(2) = 14
                                 ok = 1
                              End If
                              If a = 28 Then
                                 n(1) = 28: n(2) = 71
                                 ok = 1
                              End If
                              If a = 29 Then
                                 n(1) = 40: n(2) = 79
                                 ok = 1
                              End If
                              If a = 30 Then
                                 n(1) = 16: n(2) = 42
                                 ok = 1
                              End If
                              If a = 31 Then
                                 n(1) = 46: n(2) = 40
                                 ok = 1
                              End If
                              If a = 32 Then
                                 n(1) = 58: n(2) = 88
                                 ok = 1
                              End If
                              If a = 33 Then
                                 n(1) = 16: n(2) = 03
                                 ok = 1
                              End If
                              If a = 34 Then
                                 n(1) = 10: n(2) = 51
                                 ok = 1
                              End If
                              If a = 35 Then
                                 n(1) = 76: n(2) = 56
                                 ok = 1
                              End If
                              If a = 36 Then
                                 n(1) = 52: n(2) = 10
                                 ok = 1
                              End If
                              If a = 37 Then
                                 n(1) = 28: n(2) = 08
                                 ok = 1
                              End If
                              If a = 38 Then
                                 n(1) = 04: n(2) = 53
                                 ok = 1
                              End If
                              If a = 39 Then
                                 n(1) = 70: n(2) = 53
                                 ok = 1
                              End If
                              If a = 40 Then
                                 n(1) = 55: n(2) = 31
                                 ok = 1
                              End If
                              If a = 41 Then
                                 n(1) = 22: n(2) = 70
                                 ok = 1
                              End If
                              If a = 42 Then
                                 n(1) = 88: n(2) = 30
                                 ok = 1
                              End If
                              If a = 43 Then
                                 n(1) = 64: n(2) = 74
                                 ok = 1
                              End If
                              If a = 44 Then
                                 n(1) = 40: n(2) = 48
                                 ok = 1
                              End If
                              If a = 45 Then
                                 n(1) = 16: n(2) = 90
                                 ok = 1
                              End If
                              If a = 46 Then
                                 n(1) = 82: n(2) = 50
                                 ok = 1
                              End If
                              If a = 47 Then
                                 n(1) = 04: n(2) = 86
                                 ok = 1
                              End If
                              If a = 48 Then
                                 n(1) = 34: n(2) = 44
                                 ok = 1
                              End If
                              If a = 49 Then
                                 n(1) = 10: n(2) = 81
                                 ok = 1
                              End If
                              If a = 50 Then
                                 n(1) = 76: n(2) = 46
                                 ok = 1
                              End If
                              If a = 51 Then
                                 n(1) = 51: n(2) = 34
                                 ok = 1
                              End If
                              If a = 52 Then
                                 n(1) = 28: n(2) = 89
                                 ok = 1
                              End If
                              If a = 53 Then
                                 n(1) = 04: n(2) = 39
                                 ok = 1
                              End If
                              If a = 54 Then
                                 n(1) = 43: n(2) = 78
                                 ok = 1
                              End If
                              If a = 55 Then
                                 n(1) = 46: n(2) = 70
                                 ok = 1
                              End If
                              If a = 56 Then
                                 n(1) = 56: n(2) = 35
                                 ok = 1
                              End If
                              If a = 57 Then
                                 n(1) = 88: n(2) = 73
                                 ok = 1
                              End If
                              If a = 58 Then
                                 n(1) = 64: n(2) = 62
                                 ok = 1
                              End If
                              If a = 59 Then
                                 n(1) = 40: n(2) = 84
                                 ok = 1
                              End If
                              If a = 60 Then
                                 n(1) = 16: n(2) = 55
                                 ok = 1
                              End If
                              If a = 61 Then
                                 n(1) = 01: n(2) = 18
                                 ok = 1
                              End If
                              If a = 62 Then
                                 n(1) = 58: n(2) = 85
                                 ok = 1
                              End If
                              If a = 63 Then
                                 n(1) = 34: n(2) = 36
                                 ok = 1
                              End If
                              If a = 64 Then
                                 n(1) = 10: n(2) = 50
                                 ok = 1
                              End If
                              If a = 65 Then
                                 n(1) = 76: n(2) = 85
                                 ok = 1
                              End If
                              If a = 66 Then
                                 n(1) = 52: n(2) = 78
                                 ok = 1
                              End If
                              If a = 67 Then
                                 n(1) = 28: n(2) = 71
                                 ok = 1
                              End If
                              If a = 68 Then
                                 n(1) = 04: n(2) = 21
                                 ok = 1
                              End If
                              If a = 69 Then
                                 n(1) = 70: n(2) = 41
                                 ok = 1
                              End If
                              If a = 70 Then
                                 n(1) = 46: n(2) = 55
                                 ok = 1
                              End If
                              If a = 71 Then
                                 n(1) = 40: n(2) = 28
                                 ok = 1
                              End If
                              If a = 72 Then
                                 n(1) = 88: n(2) = 15
                                 ok = 1
                              End If
                              If a = 73 Then
                                 n(1) = 64: n(2) = 83
                                 ok = 1
                              End If
                              If a = 74 Then
                                 n(1) = 40: n(2) = 79
                                 ok = 1
                              End If
                              If a = 75 Then
                                 n(1) = 82: n(2) = 16
                                 ok = 1
                              End If
                              If a = 76 Then
                                 n(1) = 82: n(2) = 85
                                 ok = 1
                              End If
                              If a = 77 Then
                                 n(1) = 58: n(2) = 82
                                 ok = 1
                              End If
                              If a = 78 Then
                                 n(1) = 34: n(2) = 54
                                 ok = 1
                              End If
                              If a = 79 Then
                                 n(1) = 10: n(2) = 74
                                 ok = 1
                              End If
                              If a = 80 Then
                                 n(1) = 76: n(2) = 13
                                 ok = 1
                              End If
                              If a = 81 Then
                                 n(1) = 16: n(2) = 49
                                 ok = 1
                              End If
                              If a = 82 Then
                                 n(1) = 64: n(2) = 77
                                 ok = 1
                              End If
                              If a = 83 Then
                                 n(1) = 76: n(2) = 73
                                 ok = 1
                              End If
                              If a = 84 Then
                                 n(1) = 61: n(2) = 59
                                 ok = 1
                              End If
                              If a = 85 Then
                                 n(1) = 73: n(2) = 76
                                 ok = 1
                              End If
                              If a = 86 Then
                                 n(1) = 58: n(2) = 47
                                 ok = 1
                              End If
                              If a = 87 Then
                                 n(1) = 87: n(2) = 77
                                 ok = 1
                              End If
                              If a = 88 Then
                                 n(1) = 55: n(2) = 32
                                 ok = 1
                              End If
                              If a = 89 Then
                                 n(1) = 67: n(2) = 52
                                 ok = 1
                              End If
                              If a = 90 Then
                                 n(1) = 58: n(2) = 45
                                 ok = 1
                              End If
                              If ok = 1 Then
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruota(3) = r3
                                 co = co + 1
                                 Scrivi String(100,"°") & " Caso n°" & co,1
                                 Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & "  " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & "  " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3),1,,,,2
                                 Scrivi "Numero Ripetuto : [" & Format2(a) & "] in " & p1 & "°. " & p2 & "°. " & p3 & "°. Pos. su " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " - " & SiglaRuota(r3),1
                                 Scrivi String(70,"°"),1
                                 ImpostaGiocata 1,n,ruota,posta,k
                                 ImpostaGiocata 2,n,ruota,poste,k
                                 Gioca es,1,,1
                              End If
                           End If
                        Next
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea di Mastrogino e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub

mastrogino · 13 Giugno 2024

bUONGIRNO Baffo e a tutti voi il listato va benissimo vediamo di smussare le punte
intanto ti ringrazio

BaffoBlù · 13 Giugno 2024

Ciao

lo script precedente, va bene solo per 3 numeri ripetuti, ma ho visto che vai anche con 4 numeri ripetuti

Questo script invece ne prende in considerazione 4 di numeri ripetuti...

Codice:

Option Explicit
Sub Main()
   Dim k,Ini,fin,es,r1,r2,r3,r4,p1,p2,p3,p4,a,b,c,d,co,ok,tm
   Dim ruota(10)
   Dim posta(10)
   Dim poste(10)
   Dim n(2)
   posta(1) = 1
   poste(2) = 1
   tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
   k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
   Ini = EstrazioneFin - tm
   fin = EstrazioneFin
   co = 0
   ok = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      ruota(1) = r1
      ruota(2) = r2
      ruota(3) = r3
      ruota(4) = r4
      For p1 = 1 To 5
         For r1 = 1 To 7
            a = Estratto(es,r1,p1)
            For r2 = r1 + 1 To 8
               For p2 = 1 To 5
                  b = Estratto(es,r2,p2)
                  If a = b Then
                     For r3 = r2 + 1 To 9
                        For p3 = 1 To 5
                           c = Estratto(es,r3,p3)
                           If c = a Then
                              For r4 = r3 + 1 To 10
                                 For p4 = 1 To 5
                                    d = Estratto(es,r4,p4)
                                    If d = a Then
                                       If a = 1 Then
                                          n(1) = 28: n(2) = 18
                                          ok = 1
                                       End If
                                       If a = 2 Then
                                          n(1) = 58: n(2) = 37
                                          ok = 1
                                       End If
                                       If a = 3 Then
                                          n(1) = 34: n(2) = 33
                                          ok = 1
                                       End If
                                       If a = 4 Then
                                          n(1) = 10: n(2) = 21
                                          ok = 1
                                       End If
                                       If a = 5 Then
                                          n(1) = 46: n(2) = 17
                                          ok = 1
                                       End If
                                       If a = 6 Then
                                          n(1) = 52: n(2) = 26
                                          ok = 1
                                       End If
                                       If a = 7 Then
                                          n(1) = 88: n(2) = 07
                                          ok = 1
                                       End If
                                       If a = 8 Then
                                          n(1) = 04: n(2) = 22
                                          ok = 1
                                       End If
                                       If a = 9 Then
                                          n(1) = 70: n(2) = 24
                                          ok = 1
                                       End If
                                       If a = 10 Then
                                          n(1) = 46: n(2) = 36
                                          ok = 1
                                       End If
                                       If a = 11 Then
                                          n(1) = 87: n(2) = 38
                                          ok = 1
                                       End If
                                       If a = 12 Then
                                          n(1) = 04: n(2) = 23
                                          ok = 1
                                       End If
                                       If a = 13 Then
                                          n(1) = 79: n(2) = 80
                                          ok = 1
                                       End If
                                       If a = 14 Then
                                          n(1) = 40: n(2) = 27
                                          ok = 1
                                       End If
                                       If a = 15 Then
                                          n(1) = 16: n(2) = 72
                                          ok = 1
                                       End If
                                       If a = 16 Then
                                          n(1) = 82: n(2) = 75
                                          ok = 1
                                       End If
                                       If a = 17 Then
                                          n(1) = 58: n(2) = 05
                                          ok = 1
                                       End If
                                       If a = 18 Then
                                          n(1) = 34: n(2) = 01
                                          ok = 1
                                       End If
                                       If a = 19 Then
                                          n(1) = 28: n(2) = 71
                                          ok = 1
                                       End If
                                       If a = 20 Then
                                          n(1) = 76: n(2) = 07
                                          ok = 1
                                       End If
                                       If a = 21 Then
                                          n(1) = 80: n(2) = 04
                                          ok = 1
                                       End If
                                       If a = 22 Then
                                          n(1) = 28: n(2) = 08
                                          ok = 1
                                       End If
                                       If a = 23 Then
                                          n(1) = 04: n(2) = 12
                                          ok = 1
                                       End If
                                       If a = 24 Then
                                          n(1) = 70: n(2) = 09
                                          ok = 1
                                       End If
                                       If a = 25 Then
                                          n(1) = 46: n(2) = 75
                                          ok = 1
                                       End If
                                       If a = 26 Then
                                          n(1) = 65: n(2) = 06
                                          ok = 1
                                       End If
                                       If a = 27 Then
                                          n(1) = 88: n(2) = 14
                                          ok = 1
                                       End If
                                       If a = 28 Then
                                          n(1) = 28: n(2) = 71
                                          ok = 1
                                       End If
                                       If a = 29 Then
                                          n(1) = 40: n(2) = 79
                                          ok = 1
                                       End If
                                       If a = 30 Then
                                          n(1) = 16: n(2) = 42
                                          ok = 1
                                       End If
                                       If a = 31 Then
                                          n(1) = 46: n(2) = 40
                                          ok = 1
                                       End If
                                       If a = 32 Then
                                          n(1) = 58: n(2) = 88
                                          ok = 1
                                       End If
                                       If a = 33 Then
                                          n(1) = 16: n(2) = 03
                                          ok = 1
                                       End If
                                       If a = 34 Then
                                          n(1) = 10: n(2) = 51
                                          ok = 1
                                       End If
                                       If a = 35 Then
                                          n(1) = 76: n(2) = 56
                                          ok = 1
                                       End If
                                       If a = 36 Then
                                          n(1) = 52: n(2) = 10
                                          ok = 1
                                       End If
                                       If a = 37 Then
                                          n(1) = 28: n(2) = 08
                                          ok = 1
                                       End If
                                       If a = 38 Then
                                          n(1) = 04: n(2) = 53
                                          ok = 1
                                       End If
                                       If a = 39 Then
                                          n(1) = 70: n(2) = 53
                                          ok = 1
                                       End If
                                       If a = 40 Then
                                          n(1) = 55: n(2) = 31
                                          ok = 1
                                       End If
                                       If a = 41 Then
                                          n(1) = 22: n(2) = 70
                                          ok = 1
                                       End If
                                       If a = 42 Then
                                          n(1) = 88: n(2) = 30
                                          ok = 1
                                       End If
                                       If a = 43 Then
                                          n(1) = 64: n(2) = 74
                                          ok = 1
                                       End If
                                       If a = 44 Then
                                          n(1) = 40: n(2) = 48
                                          ok = 1
                                       End If
                                       If a = 45 Then
                                          n(1) = 16: n(2) = 90
                                          ok = 1
                                       End If
                                       If a = 46 Then
                                          n(1) = 82: n(2) = 50
                                          ok = 1
                                       End If
                                       If a = 47 Then
                                          n(1) = 04: n(2) = 86
                                          ok = 1
                                       End If
                                       If a = 48 Then
                                          n(1) = 34: n(2) = 44
                                          ok = 1
                                       End If
                                       If a = 49 Then
                                          n(1) = 10: n(2) = 81
                                          ok = 1
                                       End If
                                       If a = 50 Then
                                          n(1) = 76: n(2) = 46
                                          ok = 1
                                       End If
                                       If a = 51 Then
                                          n(1) = 51: n(2) = 34
                                          ok = 1
                                       End If
                                       If a = 52 Then
                                          n(1) = 28: n(2) = 89
                                          ok = 1
                                       End If
                                       If a = 53 Then
                                          n(1) = 04: n(2) = 39
                                          ok = 1
                                       End If
                                       If a = 54 Then
                                          n(1) = 43: n(2) = 78
                                          ok = 1
                                       End If
                                       If a = 55 Then
                                          n(1) = 46: n(2) = 70
                                          ok = 1
                                       End If
                                       If a = 56 Then
                                          n(1) = 56: n(2) = 35
                                          ok = 1
                                       End If
                                       If a = 57 Then
                                          n(1) = 88: n(2) = 73
                                          ok = 1
                                       End If
                                       If a = 58 Then
                                          n(1) = 64: n(2) = 62
                                          ok = 1
                                       End If
                                       If a = 59 Then
                                          n(1) = 40: n(2) = 84
                                          ok = 1
                                       End If
                                       If a = 60 Then
                                          n(1) = 16: n(2) = 55
                                          ok = 1
                                       End If
                                       If a = 61 Then
                                          n(1) = 01: n(2) = 18
                                          ok = 1
                                       End If
                                       If a = 62 Then
                                          n(1) = 58: n(2) = 85
                                          ok = 1
                                       End If
                                       If a = 63 Then
                                          n(1) = 34: n(2) = 36
                                          ok = 1
                                       End If
                                       If a = 64 Then
                                          n(1) = 10: n(2) = 50
                                          ok = 1
                                       End If
                                       If a = 65 Then
                                          n(1) = 76: n(2) = 85
                                          ok = 1
                                       End If
                                       If a = 66 Then
                                          n(1) = 52: n(2) = 78
                                          ok = 1
                                       End If
                                       If a = 67 Then
                                          n(1) = 28: n(2) = 71
                                          ok = 1
                                       End If
                                       If a = 68 Then
                                          n(1) = 04: n(2) = 21
                                          ok = 1
                                       End If
                                       If a = 69 Then
                                          n(1) = 70: n(2) = 41
                                          ok = 1
                                       End If
                                       If a = 70 Then
                                          n(1) = 46: n(2) = 55
                                          ok = 1
                                       End If
                                       If a = 71 Then
                                          n(1) = 40: n(2) = 28
                                          ok = 1
                                       End If
                                       If a = 72 Then
                                          n(1) = 88: n(2) = 15
                                          ok = 1
                                       End If
                                       If a = 73 Then
                                          n(1) = 64: n(2) = 83
                                          ok = 1
                                       End If
                                       If a = 74 Then
                                          n(1) = 40: n(2) = 79
                                          ok = 1
                                       End If
                                       If a = 75 Then
                                          n(1) = 82: n(2) = 16
                                          ok = 1
                                       End If
                                       If a = 76 Then
                                          n(1) = 82: n(2) = 85
                                          ok = 1
                                       End If
                                       If a = 77 Then
                                          n(1) = 58: n(2) = 82
                                          ok = 1
                                       End If
                                       If a = 78 Then
                                          n(1) = 34: n(2) = 54
                                          ok = 1
                                       End If
                                       If a = 79 Then
                                          n(1) = 10: n(2) = 74
                                          ok = 1
                                       End If
                                       If a = 80 Then
                                          n(1) = 76: n(2) = 13
                                          ok = 1
                                       End If
                                       If a = 81 Then
                                          n(1) = 16: n(2) = 49
                                          ok = 1
                                       End If
                                       If a = 82 Then
                                          n(1) = 64: n(2) = 77
                                          ok = 1
                                       End If
                                       If a = 83 Then
                                          n(1) = 76: n(2) = 73
                                          ok = 1
                                       End If
                                       If a = 84 Then
                                          n(1) = 61: n(2) = 59
                                          ok = 1
                                       End If
                                       If a = 85 Then
                                          n(1) = 73: n(2) = 76
                                          ok = 1
                                       End If
                                       If a = 86 Then
                                          n(1) = 58: n(2) = 47
                                          ok = 1
                                       End If
                                       If a = 87 Then
                                          n(1) = 87: n(2) = 77
                                          ok = 1
                                       End If
                                       If a = 88 Then
                                          n(1) = 55: n(2) = 32
                                          ok = 1
                                       End If
                                       If a = 89 Then
                                          n(1) = 67: n(2) = 52
                                          ok = 1
                                       End If
                                       If a = 90 Then
                                          n(1) = 58: n(2) = 45
                                          ok = 1
                                       End If
                                       If ok = 1 Then
                                          ruota(1) = r1
                                          ruota(2) = r2
                                          ruota(3) = r3
                                          ruota(4) = r4
                                          co = co + 1
                                          Scrivi String(100,"°") & " Caso n°" & co,1
                                          Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & "  " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & "  " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & "  " & SiglaRuota(r4) & " - " & StringaEstratti(es,r4),1,,,,2
                                          Scrivi "Numero Ripetuto : [" & Format2(a) & "] in " & p1 & "°. " & p2 & "°. " & p3 & "°. " & p4 & "°. Pos. su " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " - " & SiglaRuota(r3) & " - " & SiglaRuota(r4),1
                                          Scrivi String(70,"°"),1
                                          ImpostaGiocata 1,n,ruota,posta,k
                                          ImpostaGiocata 2,n,ruota,poste,k
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 Next
                              Next
                           End If
                        Next
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea di Mastrogino e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub

Alien. · 13 Giugno 2024

Ciao Baffoblù puoi fare una variazione al listato.
con ID mese e ruote a piacere
in una estrazione ci sono 5 numeri per ogni ruota.
si prendono i 5 numeri estratti ed ad ognuno si si applica i 2 numeri da formare 10 numeri e controllare su tutte cosa succede è una follia ma a volte....

ES: A BARI ESCONO 1 2 3 4 5

01=28.18
02=58.37
03=34.33
04=10.21
05=46.17

SI METTONO IN GIOCO LE 5 COPPIE DI NUMERI ,TUTTO QUA.
GRAZIE.

BaffoBlù · 14 Giugno 2024

Alien. ha scritto:
Ciao Baffoblù puoi fare una variazione al listato.
con ID mese e ruote a piacere
in una estrazione ci sono 5 numeri per ogni ruota.
si prendono i 5 numeri estratti ed ad ognuno si si applica i 2 numeri da formare 10 numeri e controllare su tutte cosa succede è una follia ma a volte....

ES: A BARI ESCONO 1 2 3 4 5

01=28.18
02=58.37
03=34.33
04=10.21
05=46.17

SI METTONO IN GIOCO LE 5 COPPIE DI NUMERI ,TUTTO QUA.
GRAZIE.

Beccati sto di papiro...

ps : fallo caricare per bene (lungo...)

i risultati sono interessanti...

Codice:

Option Explicit
Sub Main()
   Dim k,Ini,fin,es,r1,r2,a,b,c,d,e,co,ok,tm,Im
   Dim n1(2),n2(2),n3(2),n4(2),n5(2)
   Dim ruota(11)
   Dim ruote(11)
   Dim poste(10)
   poste(2) = 1
   r2 = 11
   r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
   Im = CInt(InputBox(" Indice mensile ? ",,"1"))
   tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
   Ini = EstrazioneFin - tm
   fin = EstrazioneFin
   co = 0
   ok = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      If IndiceMensile(es) = Im Then
         ruota(1) = r1
         ruote(1) = r2
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If a = 1 Then
            n1(1) = 28: n1(2) = 18
            ok = 1
         End If
         If a = 2 Then
            n1(1) = 58: n1(2) = 37
            ok = 1
         End If
         If a = 3 Then
            n1(1) = 34: n1(2) = 33
            ok = 1
         End If
         If a = 4 Then
            n1(1) = 10: n1(2) = 21
            ok = 1
         End If
         If a = 5 Then
            n1(1) = 46: n1(2) = 17
            ok = 1
         End If
         If a = 6 Then
            n1(1) = 52: n1(2) = 26
            ok = 1
         End If
         If a = 7 Then
            n1(1) = 88: n1(2) = 07
            ok = 1
         End If
         If a = 8 Then
            n1(1) = 04: n1(2) = 22
            ok = 1
         End If
         If a = 9 Then
            n1(1) = 70: n1(2) = 24
            ok = 1
         End If
         If a = 10 Then
            n1(1) = 46: n1(2) = 36
            ok = 1
         End If
         If a = 11 Then
            n1(1) = 87: n1(2) = 38
            ok = 1
         End If
         If a = 12 Then
            n1(1) = 04: n1(2) = 23
            ok = 1
         End If
         If a = 13 Then
            n1(1) = 79: n1(2) = 80
            ok = 1
         End If
         If a = 14 Then
            n1(1) = 40: n1(2) = 27
            ok = 1
         End If
         If a = 15 Then
            n1(1) = 16: n1(2) = 72
            ok = 1
         End If
         If a = 16 Then
            n1(1) = 82: n1(2) = 75
            ok = 1
         End If
         If a = 17 Then
            n1(1) = 58: n1(2) = 05
            ok = 1
         End If
         If a = 18 Then
            n1(1) = 34: n1(2) = 01
            ok = 1
         End If
         If a = 19 Then
            n1(1) = 28: n1(2) = 71
            ok = 1
         End If
         If a = 20 Then
            n1(1) = 76: n1(2) = 07
            ok = 1
         End If
         If a = 21 Then
            n1(1) = 80: n1(2) = 04
            ok = 1
         End If
         If a = 22 Then
            n1(1) = 28: n1(2) = 08
            ok = 1
         End If
         If a = 23 Then
            n1(1) = 04: n1(2) = 12
            ok = 1
         End If
         If a = 24 Then
            n1(1) = 70: n1(2) = 09
            ok = 1
         End If
         If a = 25 Then
            n1(1) = 46: n1(2) = 75
            ok = 1
         End If
         If a = 26 Then
            n1(1) = 65: n1(2) = 06
            ok = 1
         End If
         If a = 27 Then
            n1(1) = 88: n1(2) = 14
            ok = 1
         End If
         If a = 28 Then
            n1(1) = 28: n1(2) = 71
            ok = 1
         End If
         If a = 29 Then
            n1(1) = 40: n1(2) = 79
            ok = 1
         End If
         If a = 30 Then
            n1(1) = 16: n1(2) = 42
            ok = 1
         End If
         If a = 31 Then
            n1(1) = 46: n1(2) = 40
            ok = 1
         End If
         If a = 32 Then
            n1(1) = 58: n1(2) = 88
            ok = 1
         End If
         If a = 33 Then
            n1(1) = 16: n1(2) = 03
            ok = 1
         End If
         If a = 34 Then
            n1(1) = 10: n1(2) = 51
            ok = 1
         End If
         If a = 35 Then
            n1(1) = 76: n1(2) = 56
            ok = 1
         End If
         If a = 36 Then
            n1(1) = 52: n1(2) = 10
            ok = 1
         End If
         If a = 37 Then
            n1(1) = 28: n1(2) = 08
            ok = 1
         End If
         If a = 38 Then
            n1(1) = 04: n1(2) = 53
            ok = 1
         End If
         If a = 39 Then
            n1(1) = 70: n1(2) = 53
            ok = 1
         End If
         If a = 40 Then
            n1(1) = 55: n1(2) = 31
            ok = 1
         End If
         If a = 41 Then
            n1(1) = 22: n1(2) = 70
            ok = 1
         End If
         If a = 42 Then
            n1(1) = 88: n1(2) = 30
            ok = 1
         End If
         If a = 43 Then
            n1(1) = 64: n1(2) = 74
            ok = 1
         End If
         If a = 44 Then
            n1(1) = 40: n1(2) = 48
            ok = 1
         End If
         If a = 45 Then
            n1(1) = 16: n1(2) = 90
            ok = 1
         End If
         If a = 46 Then
            n1(1) = 82: n1(2) = 50
            ok = 1
         End If
         If a = 47 Then
            n1(1) = 04: n1(2) = 86
            ok = 1
         End If
         If a = 48 Then
            n1(1) = 34: n1(2) = 44
            ok = 1
         End If
         If a = 49 Then
            n1(1) = 10: n1(2) = 81
            ok = 1
         End If
         If a = 50 Then
            n1(1) = 76: n1(2) = 46
            ok = 1
         End If
         If a = 51 Then
            n1(1) = 51: n1(2) = 34
            ok = 1
         End If
         If a = 52 Then
            n1(1) = 28: n1(2) = 89
            ok = 1
         End If
         If a = 53 Then
            n1(1) = 04: n1(2) = 39
            ok = 1
         End If
         If a = 54 Then
            n1(1) = 43: n1(2) = 78
            ok = 1
         End If
         If a = 55 Then
            n1(1) = 46: n1(2) = 70
            ok = 1
         End If
         If a = 56 Then
            n1(1) = 56: n1(2) = 35
            ok = 1
         End If
         If a = 57 Then
            n1(1) = 88: n1(2) = 73
            ok = 1
         End If
         If a = 58 Then
            n1(1) = 64: n1(2) = 62
            ok = 1
         End If
         If a = 59 Then
            n1(1) = 40: n1(2) = 84
            ok = 1
         End If
         If a = 60 Then
            n1(1) = 16: n1(2) = 55
            ok = 1
         End If
         If a = 61 Then
            n1(1) = 01: n1(2) = 18
            ok = 1
         End If
         If a = 62 Then
            n1(1) = 58: n1(2) = 85
            ok = 1
         End If
         If a = 63 Then
            n1(1) = 34: n1(2) = 36
            ok = 1
         End If
         If a = 64 Then
            n1(1) = 10: n1(2) = 50
            ok = 1
         End If
         If a = 65 Then
            n1(1) = 76: n1(2) = 85
            ok = 1
         End If
         If a = 66 Then
            n1(1) = 52: n1(2) = 78
            ok = 1
         End If
         If a = 67 Then
            n1(1) = 28: n1(2) = 71
            ok = 1
         End If
         If a = 68 Then
            n1(1) = 04: n1(2) = 21
            ok = 1
         End If
         If a = 69 Then
            n1(1) = 70: n1(2) = 41
            ok = 1
         End If
         If a = 70 Then
            n1(1) = 46: n1(2) = 55
            ok = 1
         End If
         If a = 71 Then
            n1(1) = 40: n1(2) = 28
            ok = 1
         End If
         If a = 72 Then
            n1(1) = 88: n1(2) = 15
            ok = 1
         End If
         If a = 73 Then
            n1(1) = 64: n1(2) = 83
            ok = 1
         End If
         If a = 74 Then
            n1(1) = 40: n1(2) = 79
            ok = 1
         End If
         If a = 75 Then
            n1(1) = 82: n1(2) = 16
            ok = 1
         End If
         If a = 76 Then
            n1(1) = 82: n1(2) = 85
            ok = 1
         End If
         If a = 77 Then
            n1(1) = 58: n1(2) = 82
            ok = 1
         End If
         If a = 78 Then
            n1(1) = 34: n1(2) = 54
            ok = 1
         End If
         If a = 79 Then
            n1(1) = 10: n1(2) = 74
            ok = 1
         End If
         If a = 80 Then
            n1(1) = 76: n1(2) = 13
            ok = 1
         End If
         If a = 81 Then
            n1(1) = 16: n1(2) = 49
            ok = 1
         End If
         If a = 82 Then
            n1(1) = 64: n1(2) = 77
            ok = 1
         End If
         If a = 83 Then
            n1(1) = 76: n1(2) = 73
            ok = 1
         End If
         If a = 84 Then
            n1(1) = 61: n1(2) = 59
            ok = 1
         End If
         If a = 85 Then
            n1(1) = 73: n1(2) = 76
            ok = 1
         End If
         If a = 86 Then
            n1(1) = 58: n1(2) = 47
            ok = 1
         End If
         If a = 87 Then
            n1(1) = 87: n1(2) = 77
            ok = 1
         End If
         If a = 88 Then
            n1(1) = 55: n1(2) = 32
            ok = 1
         End If
         If a = 89 Then
            n1(1) = 67: n1(2) = 52
            ok = 1
         End If
         If a = 90 Then
            n1(1) = 58: n1(2) = 45
            ok = 1
         End If
         '
         If b = 1 Then
            n2(1) = 28: n2(2) = 18
            ok = 1
         End If
         If b = 2 Then
            n2(1) = 58: n2(2) = 37
            ok = 1
         End If
         If b = 3 Then
            n2(1) = 34: n2(2) = 33
            ok = 1
         End If
         If b = 4 Then
            n2(1) = 10: n2(2) = 21
            ok = 1
         End If
         If b = 5 Then
            n2(1) = 46: n2(2) = 17
            ok = 1
         End If
         If b = 6 Then
            n2(1) = 52: n2(2) = 26
            ok = 1
         End If
         If b = 7 Then
            n2(1) = 88: n2(2) = 07
            ok = 1
         End If
         If b = 8 Then
            n2(1) = 04: n2(2) = 22
            ok = 1
         End If
         If b = 9 Then
            n2(1) = 70: n2(2) = 24
            ok = 1
         End If
         If b = 10 Then
            n2(1) = 46: n2(2) = 36
            ok = 1
         End If
         If b = 11 Then
            n2(1) = 87: n2(2) = 38
            ok = 1
         End If
         If b = 12 Then
            n2(1) = 04: n2(2) = 23
            ok = 1
         End If
         If b = 13 Then
            n2(1) = 79: n2(2) = 80
            ok = 1
         End If
         If b = 14 Then
            n2(1) = 40: n2(2) = 27
            ok = 1
         End If
         If b = 15 Then
            n2(1) = 16: n2(2) = 72
            ok = 1
         End If
         If b = 16 Then
            n2(1) = 82: n2(2) = 75
            ok = 1
         End If
         If b = 17 Then
            n2(1) = 58: n2(2) = 05
            ok = 1
         End If
         If b = 18 Then
            n2(1) = 34: n2(2) = 01
            ok = 1
         End If
         If b = 19 Then
            n2(1) = 28: n2(2) = 71
            ok = 1
         End If
         If b = 20 Then
            n2(1) = 76: n2(2) = 07
            ok = 1
         End If
         If b = 21 Then
            n2(1) = 80: n2(2) = 04
            ok = 1
         End If
         If b = 22 Then
            n2(1) = 28: n2(2) = 08
            ok = 1
         End If
         If b = 23 Then
            n2(1) = 04: n2(2) = 12
            ok = 1
         End If
         If b = 24 Then
            n2(1) = 70: n2(2) = 09
            ok = 1
         End If
         If b = 25 Then
            n2(1) = 46: n2(2) = 75
            ok = 1
         End If
         If b = 26 Then
            n2(1) = 65: n2(2) = 06
            ok = 1
         End If
         If b = 27 Then
            n2(1) = 88: n2(2) = 14
            ok = 1
         End If
         If b = 28 Then
            n2(1) = 28: n2(2) = 71
            ok = 1
         End If
         If b = 29 Then
            n2(1) = 40: n2(2) = 79
            ok = 1
         End If
         If b = 30 Then
            n2(1) = 16: n2(2) = 42
            ok = 1
         End If
         If b = 31 Then
            n2(1) = 46: n2(2) = 40
            ok = 1
         End If
         If b = 32 Then
            n2(1) = 58: n2(2) = 88
            ok = 1
         End If
         If b = 33 Then
            n2(1) = 16: n2(2) = 03
            ok = 1
         End If
         If b = 34 Then
            n2(1) = 10: n2(2) = 51
            ok = 1
         End If
         If b = 35 Then
            n2(1) = 76: n2(2) = 56
            ok = 1
         End If
         If b = 36 Then
            n2(1) = 52: n2(2) = 10
            ok = 1
         End If
         If b = 37 Then
            n2(1) = 28: n2(2) = 08
            ok = 1
         End If
         If b = 38 Then
            n2(1) = 04: n2(2) = 53
            ok = 1
         End If
         If b = 39 Then
            n2(1) = 70: n2(2) = 53
            ok = 1
         End If
         If b = 40 Then
            n2(1) = 55: n2(2) = 31
            ok = 1
         End If
         If b = 41 Then
            n2(1) = 22: n2(2) = 70
            ok = 1
         End If
         If b = 42 Then
            n2(1) = 88: n2(2) = 30
            ok = 1
         End If
         If b = 43 Then
            n2(1) = 64: n2(2) = 74
            ok = 1
         End If
         If b = 44 Then
            n2(1) = 40: n2(2) = 48
            ok = 1
         End If
         If b = 45 Then
            n2(1) = 16: n2(2) = 90
            ok = 1
         End If
         If b = 46 Then
            n2(1) = 82: n2(2) = 50
            ok = 1
         End If
         If b = 47 Then
            n2(1) = 04: n2(2) = 86
            ok = 1
         End If
         If b = 48 Then
            n2(1) = 34: n2(2) = 44
            ok = 1
         End If
         If b = 49 Then
            n2(1) = 10: n2(2) = 81
            ok = 1
         End If
         If b = 50 Then
            n2(1) = 76: n2(2) = 46
            ok = 1
         End If
         If b = 51 Then
            n2(1) = 51: n2(2) = 34
            ok = 1
         End If
         If b = 52 Then
            n2(1) = 28: n2(2) = 89
            ok = 1
         End If
         If b = 53 Then
            n2(1) = 04: n2(2) = 39
            ok = 1
         End If
         If b = 54 Then
            n2(1) = 43: n2(2) = 78
            ok = 1
         End If
         If b = 55 Then
            n2(1) = 46: n2(2) = 70
            ok = 1
         End If
         If b = 56 Then
            n2(1) = 56: n2(2) = 35
            ok = 1
         End If
         If b = 57 Then
            n2(1) = 88: n2(2) = 73
            ok = 1
         End If
         If b = 58 Then
            n2(1) = 64: n2(2) = 62
            ok = 1
         End If
         If b = 59 Then
            n2(1) = 40: n2(2) = 84
            ok = 1
         End If
         If b = 60 Then
            n2(1) = 16: n2(2) = 55
            ok = 1
         End If
         If b = 61 Then
            n2(1) = 01: n2(2) = 18
            ok = 1
         End If
         If b = 62 Then
            n2(1) = 58: n2(2) = 85
            ok = 1
         End If
         If b = 63 Then
            n2(1) = 34: n2(2) = 36
            ok = 1
         End If
         If b = 64 Then
            n2(1) = 10: n2(2) = 50
            ok = 1
         End If
         If b = 65 Then
            n2(1) = 76: n2(2) = 85
            ok = 1
         End If
         If b = 66 Then
            n2(1) = 52: n2(2) = 78
            ok = 1
         End If
         If b = 67 Then
            n2(1) = 28: n2(2) = 71
            ok = 1
         End If
         If b = 68 Then
            n2(1) = 04: n2(2) = 21
            ok = 1
         End If
         If b = 69 Then
            n2(1) = 70: n2(2) = 41
            ok = 1
         End If
         If b = 70 Then
            n2(1) = 46: n2(2) = 55
            ok = 1
         End If
         If b = 71 Then
            n2(1) = 40: n2(2) = 28
            ok = 1
         End If
         If b = 72 Then
            n2(1) = 88: n2(2) = 15
            ok = 1
         End If
         If b = 73 Then
            n2(1) = 64: n2(2) = 83
            ok = 1
         End If
         If b = 74 Then
            n2(1) = 40: n2(2) = 79
            ok = 1
         End If
         If b = 75 Then
            n2(1) = 82: n2(2) = 16
            ok = 1
         End If
         If b = 76 Then
            n2(1) = 82: n2(2) = 85
            ok = 1
         End If
         If b = 77 Then
            n2(1) = 58: n2(2) = 82
            ok = 1
         End If
         If b = 78 Then
            n2(1) = 34: n2(2) = 54
            ok = 1
         End If
         If b = 79 Then
            n2(1) = 10: n2(2) = 74
            ok = 1
         End If
         If b = 80 Then
            n2(1) = 76: n2(2) = 13
            ok = 1
         End If
         If b = 81 Then
            n2(1) = 16: n2(2) = 49
            ok = 1
         End If
         If b = 82 Then
            n2(1) = 64: n2(2) = 77
            ok = 1
         End If
         If b = 83 Then
            n2(1) = 76: n2(2) = 73
            ok = 1
         End If
         If b = 84 Then
            n2(1) = 61: n2(2) = 59
            ok = 1
         End If
         If b = 85 Then
            n2(1) = 73: n2(2) = 76
            ok = 1
         End If
         If b = 86 Then
            n2(1) = 58: n2(2) = 47
            ok = 1
         End If
         If b = 87 Then
            n2(1) = 87: n2(2) = 77
            ok = 1
         End If
         If b = 88 Then
            n2(1) = 55: n2(2) = 32
            ok = 1
         End If
         If b = 89 Then
            n2(1) = 67: n2(2) = 52
            ok = 1
         End If
         If b = 90 Then
            n2(1) = 58: n2(2) = 45
            ok = 1
         End If
         '
         If c = 1 Then
            n3(1) = 28: n3(2) = 18
            ok = 1
         End If
         If c = 2 Then
            n3(1) = 58: n3(2) = 37
            ok = 1
         End If
         If c = 3 Then
            n3(1) = 34: n3(2) = 33
            ok = 1
         End If
         If c = 4 Then
            n3(1) = 10: n3(2) = 21
            ok = 1
         End If
         If c = 5 Then
            n3(1) = 46: n3(2) = 17
            ok = 1
         End If
         If c = 6 Then
            n3(1) = 52: n3(2) = 26
            ok = 1
         End If
         If c = 7 Then
            n3(1) = 88: n3(2) = 07
            ok = 1
         End If
         If c = 8 Then
            n3(1) = 04: n3(2) = 22
            ok = 1
         End If
         If c = 9 Then
            n3(1) = 70: n3(2) = 24
            ok = 1
         End If
         If c = 10 Then
            n3(1) = 46: n3(2) = 36
            ok = 1
         End If
         If c = 11 Then
            n3(1) = 87: n3(2) = 38
            ok = 1
         End If
         If c = 12 Then
            n3(1) = 04: n3(2) = 23
            ok = 1
         End If
         If c = 13 Then
            n3(1) = 79: n3(2) = 80
            ok = 1
         End If
         If c = 14 Then
            n3(1) = 40: n3(2) = 27
            ok = 1
         End If
         If c = 15 Then
            n3(1) = 16: n3(2) = 72
            ok = 1
         End If
         If c = 16 Then
            n3(1) = 82: n3(2) = 75
            ok = 1
         End If
         If c = 17 Then
            n3(1) = 58: n3(2) = 05
            ok = 1
         End If
         If c = 18 Then
            n3(1) = 34: n3(2) = 01
            ok = 1
         End If
         If c = 19 Then
            n3(1) = 28: n3(2) = 71
            ok = 1
         End If
         If c = 20 Then
            n3(1) = 76: n3(2) = 07
            ok = 1
         End If
         If c = 21 Then
            n3(1) = 80: n3(2) = 04
            ok = 1
         End If
         If c = 22 Then
            n3(1) = 28: n3(2) = 08
            ok = 1
         End If
         If c = 23 Then
            n3(1) = 04: n3(2) = 12
            ok = 1
         End If
         If c = 24 Then
            n3(1) = 70: n3(2) = 09
            ok = 1
         End If
         If c = 25 Then
            n3(1) = 46: n3(2) = 75
            ok = 1
         End If
         If c = 26 Then
            n3(1) = 65: n3(2) = 06
            ok = 1
         End If
         If c = 27 Then
            n3(1) = 88: n3(2) = 14
            ok = 1
         End If
         If c = 28 Then
            n3(1) = 28: n3(2) = 71
            ok = 1
         End If
         If c = 29 Then
            n3(1) = 40: n3(2) = 79
            ok = 1
         End If
         If c = 30 Then
            n3(1) = 16: n3(2) = 42
            ok = 1
         End If
         If c = 31 Then
            n3(1) = 46: n3(2) = 40
            ok = 1
         End If
         If c = 32 Then
            n3(1) = 58: n3(2) = 88
            ok = 1
         End If
         If c = 33 Then
            n3(1) = 16: n3(2) = 03
            ok = 1
         End If
         If c = 34 Then
            n3(1) = 10: n3(2) = 51
            ok = 1
         End If
         If c = 35 Then
            n3(1) = 76: n3(2) = 56
            ok = 1
         End If
         If c = 36 Then
            n3(1) = 52: n3(2) = 10
            ok = 1
         End If
         If c = 37 Then
            n3(1) = 28: n3(2) = 08
            ok = 1
         End If
         If c = 38 Then
            n3(1) = 04: n3(2) = 53
            ok = 1
         End If
         If c = 39 Then
            n3(1) = 70: n3(2) = 53
            ok = 1
         End If
         If c = 40 Then
            n3(1) = 55: n3(2) = 31
            ok = 1
         End If
         If c = 41 Then
            n3(1) = 22: n3(2) = 70
            ok = 1
         End If
         If c = 42 Then
            n3(1) = 88: n3(2) = 30
            ok = 1
         End If
         If c = 43 Then
            n3(1) = 64: n3(2) = 74
            ok = 1
         End If
         If c = 44 Then
            n3(1) = 40: n3(2) = 48
            ok = 1
         End If
         If c = 45 Then
            n3(1) = 16: n3(2) = 90
            ok = 1
         End If
         If c = 46 Then
            n3(1) = 82: n3(2) = 50
            ok = 1
         End If
         If c = 47 Then
            n3(1) = 04: n3(2) = 86
            ok = 1
         End If
         If c = 48 Then
            n3(1) = 34: n3(2) = 44
            ok = 1
         End If
         If c = 49 Then
            n3(1) = 10: n3(2) = 81
            ok = 1
         End If
         If c = 50 Then
            n3(1) = 76: n3(2) = 46
            ok = 1
         End If
         If c = 51 Then
            n3(1) = 51: n3(2) = 34
            ok = 1
         End If
         If c = 52 Then
            n3(1) = 28: n3(2) = 89
            ok = 1
         End If
         If c = 53 Then
            n3(1) = 04: n3(2) = 39
            ok = 1
         End If
         If c = 54 Then
            n3(1) = 43: n3(2) = 78
            ok = 1
         End If
         If c = 55 Then
            n3(1) = 46: n3(2) = 70
            ok = 1
         End If
         If c = 56 Then
            n3(1) = 56: n3(2) = 35
            ok = 1
         End If
         If c = 57 Then
            n3(1) = 88: n3(2) = 73
            ok = 1
         End If
         If c = 58 Then
            n3(1) = 64: n3(2) = 62
            ok = 1
         End If
         If c = 59 Then
            n3(1) = 40: n3(2) = 84
            ok = 1
         End If
         If c = 60 Then
            n3(1) = 16: n3(2) = 55
            ok = 1
         End If
         If c = 61 Then
            n3(1) = 01: n3(2) = 18
            ok = 1
         End If
         If c = 62 Then
            n3(1) = 58: n3(2) = 85
            ok = 1
         End If
         If c = 63 Then
            n3(1) = 34: n3(2) = 36
            ok = 1
         End If
         If c = 64 Then
            n3(1) = 10: n3(2) = 50
            ok = 1
         End If
         If c = 65 Then
            n3(1) = 76: n3(2) = 85
            ok = 1
         End If
         If c = 66 Then
            n3(1) = 52: n3(2) = 78
            ok = 1
         End If
         If c = 67 Then
            n3(1) = 28: n3(2) = 71
            ok = 1
         End If
         If c = 68 Then
            n3(1) = 04: n3(2) = 21
            ok = 1
         End If
         If c = 69 Then
            n3(1) = 70: n3(2) = 41
            ok = 1
         End If
         If c = 70 Then
            n3(1) = 46: n3(2) = 55
            ok = 1
         End If
         If c = 71 Then
            n3(1) = 40: n3(2) = 28
            ok = 1
         End If
         If c = 72 Then
            n3(1) = 88: n3(2) = 15
            ok = 1
         End If
         If c = 73 Then
            n3(1) = 64: n3(2) = 83
            ok = 1
         End If
         If c = 74 Then
            n3(1) = 40: n3(2) = 79
            ok = 1
         End If
         If c = 75 Then
            n3(1) = 82: n3(2) = 16
            ok = 1
         End If
         If c = 76 Then
            n3(1) = 82: n3(2) = 85
            ok = 1
         End If
         If c = 77 Then
            n3(1) = 58: n3(2) = 82
            ok = 1
         End If
         If c = 78 Then
            n3(1) = 34: n3(2) = 54
            ok = 1
         End If
         If c = 79 Then
            n3(1) = 10: n3(2) = 74
            ok = 1
         End If
         If c = 80 Then
            n3(1) = 76: n3(2) = 13
            ok = 1
         End If
         If c = 81 Then
            n3(1) = 16: n3(2) = 49
            ok = 1
         End If
         If c = 82 Then
            n3(1) = 64: n3(2) = 77
            ok = 1
         End If
         If c = 83 Then
            n3(1) = 76: n3(2) = 73
            ok = 1
         End If
         If c = 84 Then
            n3(1) = 61: n3(2) = 59
            ok = 1
         End If
         If c = 85 Then
            n3(1) = 73: n3(2) = 76
            ok = 1
         End If
         If c = 86 Then
            n3(1) = 58: n3(2) = 47
            ok = 1
         End If
         If c = 87 Then
            n3(1) = 87: n3(2) = 77
            ok = 1
         End If
         If c = 88 Then
            n3(1) = 55: n3(2) = 32
            ok = 1
         End If
         If c = 89 Then
            n3(1) = 67: n3(2) = 52
            ok = 1
         End If
         If c = 90 Then
            n3(1) = 58: n3(2) = 45
            ok = 1
         End If
         '
         If d = 1 Then
            n4(1) = 28: n4(2) = 18
            ok = 1
         End If
         If d = 2 Then
            n4(1) = 58: n4(2) = 37
            ok = 1
         End If
         If d = 3 Then
            n4(1) = 34: n4(2) = 33
            ok = 1
         End If
         If d = 4 Then
            n4(1) = 10: n4(2) = 21
            ok = 1
         End If
         If d = 5 Then
            n4(1) = 46: n4(2) = 17
            ok = 1
         End If
         If d = 6 Then
            n4(1) = 52: n4(2) = 26
            ok = 1
         End If
         If d = 7 Then
            n4(1) = 88: n4(2) = 07
            ok = 1
         End If
         If d = 8 Then
            n4(1) = 04: n4(2) = 22
            ok = 1
         End If
         If d = 9 Then
            n4(1) = 70: n4(2) = 24
            ok = 1
         End If
         If d = 10 Then
            n4(1) = 46: n4(2) = 36
            ok = 1
         End If
         If d = 11 Then
            n4(1) = 87: n4(2) = 38
            ok = 1
         End If
         If d = 12 Then
            n4(1) = 04: n4(2) = 23
            ok = 1
         End If
         If d = 13 Then
            n4(1) = 79: n4(2) = 80
            ok = 1
         End If
         If d = 14 Then
            n4(1) = 40: n4(2) = 27
            ok = 1
         End If
         If d = 15 Then
            n4(1) = 16: n4(2) = 72
            ok = 1
         End If
         If d = 16 Then
            n4(1) = 82: n4(2) = 75
            ok = 1
         End If
         If d = 17 Then
            n4(1) = 58: n4(2) = 05
            ok = 1
         End If
         If d = 18 Then
            n4(1) = 34: n4(2) = 01
            ok = 1
         End If
         If d = 19 Then
            n4(1) = 28: n4(2) = 71
            ok = 1
         End If
         If d = 20 Then
            n4(1) = 76: n4(2) = 07
            ok = 1
         End If
         If d = 21 Then
            n4(1) = 80: n4(2) = 04
            ok = 1
         End If
         If d = 22 Then
            n4(1) = 28: n4(2) = 08
            ok = 1
         End If
         If d = 23 Then
            n4(1) = 04: n4(2) = 12
            ok = 1
         End If
         If d = 24 Then
            n4(1) = 70: n4(2) = 09
            ok = 1
         End If
         If d = 25 Then
            n4(1) = 46: n4(2) = 75
            ok = 1
         End If
         If d = 26 Then
            n4(1) = 65: n4(2) = 06
            ok = 1
         End If
         If d = 27 Then
            n4(1) = 88: n4(2) = 14
            ok = 1
         End If
         If d = 28 Then
            n4(1) = 28: n4(2) = 71
            ok = 1
         End If
         If d = 29 Then
            n4(1) = 40: n4(2) = 79
            ok = 1
         End If
         If d = 30 Then
            n4(1) = 16: n4(2) = 42
            ok = 1
         End If
         If d = 31 Then
            n4(1) = 46: n4(2) = 40
            ok = 1
         End If
         If d = 32 Then
            n4(1) = 58: n4(2) = 88
            ok = 1
         End If
         If d = 33 Then
            n4(1) = 16: n4(2) = 03
            ok = 1
         End If
         If d = 34 Then
            n4(1) = 10: n4(2) = 51
            ok = 1
         End If
         If d = 35 Then
            n4(1) = 76: n4(2) = 56
            ok = 1
         End If
         If d = 36 Then
            n4(1) = 52: n4(2) = 10
            ok = 1
         End If
         If d = 37 Then
            n4(1) = 28: n4(2) = 08
            ok = 1
         End If
         If d = 38 Then
            n4(1) = 04: n4(2) = 53
            ok = 1
         End If
         If d = 39 Then
            n4(1) = 70: n4(2) = 53
            ok = 1
         End If
         If d = 40 Then
            n4(1) = 55: n4(2) = 31
            ok = 1
         End If
         If d = 41 Then
            n4(1) = 22: n4(2) = 70
            ok = 1
         End If
         If d = 42 Then
            n4(1) = 88: n4(2) = 30
            ok = 1
         End If
         If d = 43 Then
            n4(1) = 64: n4(2) = 74
            ok = 1
         End If
         If d = 44 Then
            n4(1) = 40: n4(2) = 48
            ok = 1
         End If
         If d = 45 Then
            n4(1) = 16: n4(2) = 90
            ok = 1
         End If
         If d = 46 Then
            n4(1) = 82: n4(2) = 50
            ok = 1
         End If
         If d = 47 Then
            n4(1) = 04: n4(2) = 86
            ok = 1
         End If
         If d = 48 Then
            n4(1) = 34: n4(2) = 44
            ok = 1
         End If
         If d = 49 Then
            n4(1) = 10: n4(2) = 81
            ok = 1
         End If
         If d = 50 Then
            n4(1) = 76: n4(2) = 46
            ok = 1
         End If
         If d = 51 Then
            n4(1) = 51: n4(2) = 34
            ok = 1
         End If
         If d = 52 Then
            n4(1) = 28: n4(2) = 89
            ok = 1
         End If
         If d = 53 Then
            n4(1) = 04: n4(2) = 39
            ok = 1
         End If
         If d = 54 Then
            n4(1) = 43: n4(2) = 78
            ok = 1
         End If
         If d = 55 Then
            n4(1) = 46: n4(2) = 70
            ok = 1
         End If
         If d = 56 Then
            n4(1) = 56: n4(2) = 35
            ok = 1
         End If
         If d = 57 Then
            n4(1) = 88: n4(2) = 73
            ok = 1
         End If
         If d = 58 Then
            n4(1) = 64: n4(2) = 62
            ok = 1
         End If
         If d = 59 Then
            n4(1) = 40: n4(2) = 84
            ok = 1
         End If
         If d = 60 Then
            n4(1) = 16: n4(2) = 55
            ok = 1
         End If
         If d = 61 Then
            n4(1) = 01: n4(2) = 18
            ok = 1
         End If
         If d = 62 Then
            n4(1) = 58: n4(2) = 85
            ok = 1
         End If
         If d = 63 Then
            n4(1) = 34: n4(2) = 36
            ok = 1
         End If
         If d = 64 Then
            n4(1) = 10: n4(2) = 50
            ok = 1
         End If
         If d = 65 Then
            n4(1) = 76: n4(2) = 85
            ok = 1
         End If
         If d = 66 Then
            n4(1) = 52: n4(2) = 78
            ok = 1
         End If
         If d = 67 Then
            n4(1) = 28: n4(2) = 71
            ok = 1
         End If
         If d = 68 Then
            n4(1) = 04: n4(2) = 21
            ok = 1
         End If
         If d = 69 Then
            n4(1) = 70: n4(2) = 41
            ok = 1
         End If
         If d = 70 Then
            n4(1) = 46: n4(2) = 55
            ok = 1
         End If
         If d = 71 Then
            n4(1) = 40: n4(2) = 28
            ok = 1
         End If
         If d = 72 Then
            n4(1) = 88: n4(2) = 15
            ok = 1
         End If
         If d = 73 Then
            n4(1) = 64: n4(2) = 83
            ok = 1
         End If
         If d = 74 Then
            n4(1) = 40: n4(2) = 79
            ok = 1
         End If
         If d = 75 Then
            n4(1) = 82: n4(2) = 16
            ok = 1
         End If
         If d = 76 Then
            n4(1) = 82: n4(2) = 85
            ok = 1
         End If
         If d = 77 Then
            n4(1) = 58: n4(2) = 82
            ok = 1
         End If
         If d = 78 Then
            n4(1) = 34: n4(2) = 54
            ok = 1
         End If
         If d = 79 Then
            n4(1) = 10: n4(2) = 74
            ok = 1
         End If
         If d = 80 Then
            n4(1) = 76: n4(2) = 13
            ok = 1
         End If
         If d = 81 Then
            n4(1) = 16: n4(2) = 49
            ok = 1
         End If
         If d = 82 Then
            n4(1) = 64: n4(2) = 77
            ok = 1
         End If
         If d = 83 Then
            n4(1) = 76: n4(2) = 73
            ok = 1
         End If
         If d = 84 Then
            n4(1) = 61: n4(2) = 59
            ok = 1
         End If
         If d = 85 Then
            n4(1) = 73: n4(2) = 76
            ok = 1
         End If
         If d = 86 Then
            n4(1) = 58: n4(2) = 47
            ok = 1
         End If
         If d = 87 Then
            n4(1) = 87: n4(2) = 77
            ok = 1
         End If
         If d = 88 Then
            n4(1) = 55: n4(2) = 32
            ok = 1
         End If
         If d = 89 Then
            n4(1) = 67: n4(2) = 52
            ok = 1
         End If
         If d = 90 Then
            n4(1) = 58: n4(2) = 45
            ok = 1
         End If
         If e = 1 Then
            n5(1) = 28: n5(2) = 18
            ok = 1
         End If
         If e = 2 Then
            n5(1) = 58: n5(2) = 37
            ok = 1
         End If
         If e = 3 Then
            n5(1) = 34: n5(2) = 33
            ok = 1
         End If
         If e = 4 Then
            n5(1) = 10: n5(2) = 21
            ok = 1
         End If
         If e = 5 Then
            n5(1) = 46: n5(2) = 17
            ok = 1
         End If
         If e = 6 Then
            n5(1) = 52: n5(2) = 26
            ok = 1
         End If
         If e = 7 Then
            n5(1) = 88: n5(2) = 07
            ok = 1
         End If
         If e = 8 Then
            n5(1) = 04: n5(2) = 22
            ok = 1
         End If
         If e = 9 Then
            n5(1) = 70: n5(2) = 24
            ok = 1
         End If
         If e = 10 Then
            n5(1) = 46: n5(2) = 36
            ok = 1
         End If
         If e = 11 Then
            n5(1) = 87: n5(2) = 38
            ok = 1
         End If
         If e = 12 Then
            n5(1) = 04: n5(2) = 23
            ok = 1
         End If
         If e = 13 Then
            n5(1) = 79: n5(2) = 80
            ok = 1
         End If
         If e = 14 Then
            n5(1) = 40: n5(2) = 27
            ok = 1
         End If
         If e = 15 Then
            n5(1) = 16: n5(2) = 72
            ok = 1
         End If
         If e = 16 Then
            n5(1) = 82: n5(2) = 75
            ok = 1
         End If
         If e = 17 Then
            n5(1) = 58: n5(2) = 05
            ok = 1
         End If
         If e = 18 Then
            n5(1) = 34: n5(2) = 01
            ok = 1
         End If
         If e = 19 Then
            n5(1) = 28: n5(2) = 71
            ok = 1
         End If
         If e = 20 Then
            n5(1) = 76: n5(2) = 07
            ok = 1
         End If
         If e = 21 Then
            n5(1) = 80: n5(2) = 04
            ok = 1
         End If
         If e = 22 Then
            n5(1) = 28: n5(2) = 08
            ok = 1
         End If
         If e = 23 Then
            n5(1) = 04: n5(2) = 12
            ok = 1
         End If
         If e = 24 Then
            n5(1) = 70: n5(2) = 09
            ok = 1
         End If
         If e = 25 Then
            n5(1) = 46: n5(2) = 75
            ok = 1
         End If
         If e = 26 Then
            n5(1) = 65: n5(2) = 06
            ok = 1
         End If
         If e = 27 Then
            n5(1) = 88: n5(2) = 14
            ok = 1
         End If
         If e = 28 Then
            n5(1) = 28: n5(2) = 71
            ok = 1
         End If
         If e = 29 Then
            n5(1) = 40: n5(2) = 79
            ok = 1
         End If
         If e = 30 Then
            n5(1) = 16: n5(2) = 42
            ok = 1
         End If
         If e = 31 Then
            n5(1) = 46: n5(2) = 40
            ok = 1
         End If
         If e = 32 Then
            n5(1) = 58: n5(2) = 88
            ok = 1
         End If
         If e = 33 Then
            n5(1) = 16: n5(2) = 03
            ok = 1
         End If
         If e = 34 Then
            n5(1) = 10: n5(2) = 51
            ok = 1
         End If
         If e = 35 Then
            n5(1) = 76: n5(2) = 56
            ok = 1
         End If
         If e = 36 Then
            n5(1) = 52: n5(2) = 10
            ok = 1
         End If
         If e = 37 Then
            n5(1) = 28: n5(2) = 08
            ok = 1
         End If
         If e = 38 Then
            n5(1) = 04: n5(2) = 53
            ok = 1
         End If
         If e = 39 Then
            n5(1) = 70: n5(2) = 53
            ok = 1
         End If
         If e = 40 Then
            n5(1) = 55: n5(2) = 31
            ok = 1
         End If
         If e = 41 Then
            n5(1) = 22: n5(2) = 70
            ok = 1
         End If
         If e = 42 Then
            n5(1) = 88: n5(2) = 30
            ok = 1
         End If
         If e = 43 Then
            n5(1) = 64: n5(2) = 74
            ok = 1
         End If
         If e = 44 Then
            n5(1) = 40: n5(2) = 48
            ok = 1
         End If
         If e = 45 Then
            n5(1) = 16: n5(2) = 90
            ok = 1
         End If
         If e = 46 Then
            n5(1) = 82: n5(2) = 50
            ok = 1
         End If
         If e = 47 Then
            n5(1) = 04: n5(2) = 86
            ok = 1
         End If
         If e = 48 Then
            n5(1) = 34: n5(2) = 44
            ok = 1
         End If
         If e = 49 Then
            n5(1) = 10: n5(2) = 81
            ok = 1
         End If
         If e = 50 Then
            n5(1) = 76: n5(2) = 46
            ok = 1
         End If
         If e = 51 Then
            n5(1) = 51: n5(2) = 34
            ok = 1
         End If
         If e = 52 Then
            n5(1) = 28: n5(2) = 89
            ok = 1
         End If
         If e = 53 Then
            n5(1) = 04: n5(2) = 39
            ok = 1
         End If
         If e = 54 Then
            n5(1) = 43: n5(2) = 78
            ok = 1
         End If
         If e = 55 Then
            n5(1) = 46: n5(2) = 70
            ok = 1
         End If
         If e = 56 Then
            n5(1) = 56: n5(2) = 35
            ok = 1
         End If
         If e = 57 Then
            n5(1) = 88: n5(2) = 73
            ok = 1
         End If
         If e = 58 Then
            n5(1) = 64: n5(2) = 62
            ok = 1
         End If
         If e = 59 Then
            n5(1) = 40: n5(2) = 84
            ok = 1
         End If
         If e = 60 Then
            n5(1) = 16: n5(2) = 55
            ok = 1
         End If
         If e = 61 Then
            n5(1) = 01: n5(2) = 18
            ok = 1
         End If
         If e = 62 Then
            n5(1) = 58: n5(2) = 85
            ok = 1
         End If
         If e = 63 Then
            n5(1) = 34: n5(2) = 36
            ok = 1
         End If
         If e = 64 Then
            n5(1) = 10: n5(2) = 50
            ok = 1
         End If
         If e = 65 Then
            n5(1) = 76: n5(2) = 85
            ok = 1
         End If
         If e = 66 Then
            n5(1) = 52: n5(2) = 78
            ok = 1
         End If
         If e = 67 Then
            n5(1) = 28: n5(2) = 71
            ok = 1
         End If
         If e = 68 Then
            n5(1) = 04: n5(2) = 21
            ok = 1
         End If
         If e = 69 Then
            n5(1) = 70: n5(2) = 41
            ok = 1
         End If
         If e = 70 Then
            n5(1) = 46: n5(2) = 55
            ok = 1
         End If
         If e = 71 Then
            n5(1) = 40: n5(2) = 28
            ok = 1
         End If
         If e = 72 Then
            n5(1) = 88: n5(2) = 15
            ok = 1
         End If
         If e = 73 Then
            n5(1) = 64: n5(2) = 83
            ok = 1
         End If
         If e = 74 Then
            n5(1) = 40: n5(2) = 79
            ok = 1
         End If
         If e = 75 Then
            n5(1) = 82: n5(2) = 16
            ok = 1
         End If
         If e = 76 Then
            n5(1) = 82: n5(2) = 85
            ok = 1
         End If
         If e = 77 Then
            n5(1) = 58: n5(2) = 82
            ok = 1
         End If
         If e = 78 Then
            n5(1) = 34: n5(2) = 54
            ok = 1
         End If
         If e = 79 Then
            n5(1) = 10: n5(2) = 74
            ok = 1
         End If
         If e = 80 Then
            n5(1) = 76: n5(2) = 13
            ok = 1
         End If
         If e = 81 Then
            n5(1) = 16: n5(2) = 49
            ok = 1
         End If
         If e = 82 Then
            n5(1) = 64: n5(2) = 77
            ok = 1
         End If
         If e = 83 Then
            n5(1) = 76: n5(2) = 73
            ok = 1
         End If
         If e = 84 Then
            n5(1) = 61: n5(2) = 59
            ok = 1
         End If
         If e = 85 Then
            n5(1) = 73: n5(2) = 76
            ok = 1
         End If
         If e = 86 Then
            n5(1) = 58: n5(2) = 47
            ok = 1
         End If
         If e = 87 Then
            n5(1) = 87: n5(2) = 77
            ok = 1
         End If
         If e = 88 Then
            n5(1) = 55: n5(2) = 32
            ok = 1
         End If
         If e = 89 Then
            n5(1) = 67: n5(2) = 52
            ok = 1
         End If
         If e = 90 Then
            n5(1) = 58: n5(2) = 45
            ok = 1
         End If
         If ok = 1 Then
            ruota(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,,,1,2
            Scrivi "Ambi a Tutte : ",1
            Scrivi Format2(n1(1)) & " - " & Format2(n1(2)),1,,,1,2
            Scrivi Format2(n2(1)) & " - " & Format2(n2(2)),1,,,1,2
            Scrivi Format2(n3(1)) & " - " & Format2(n3(2)),1,,,1,2
            Scrivi Format2(n4(1)) & " - " & Format2(n4(2)),1,,,1,2
            Scrivi Format2(n5(1)) & " - " & Format2(n5(2)),1,,,1,2
            Scrivi String(70,"°"),1
            ImpostaGiocata 1,n1,ruote,poste,k',2,,1 ' se vuoi il primo esito raggiunto togli apice dopo k
            ImpostaGiocata 2,n2,ruote,poste,k',2,,2
            ImpostaGiocata 3,n3,ruote,poste,k',2,,3
            ImpostaGiocata 4,n4,ruote,poste,k',2,,4
            ImpostaGiocata 5,n5,ruote,poste,k',2,,5
            Gioca es,1,,1
         End If
      End If
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Variante di Alien su Idea di Mastrogino e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub

claudio8 · 14 Giugno 2024

@BaffoBlù
Sostituendo i blocchi if... end if

Codice:

If a = 1 Then
    n1(1) = 28: n1(2) = 18
    ok = 1
End If

con

Codice:

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1    ' senza l' End If finale che non serve

riduci le righe del papiro

salvo50 · 14 Giugno 2024

Ciao a Tutti

E se Mastrogino ci dice l'algoritmo di come a trovato questi simpatici (formuletta)
si possono sostituire tutti questi IF-THEN con qualche FOR-NEXT

claudio8 · 14 Giugno 2024

salvo50 ha scritto:
Ciao a Tutti

E se Mastrogino ci dice l'algoritmo di come a trovato questi simpatici (formuletta)
si possono sostituire tutti questi IF-THEN con qualche FOR-NEXT

in genere i simpatici dovrebbero essere i frequenti, ma .... ???

Alien. · 14 Giugno 2024

claudio8 ha scritto:
@BaffoBlù
Sostituendo i blocchi if... end if

Codice:

If a = 1 Then n1(1) = 28: n1(2) = 18 ok = 1 End If

con

Codice:

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1 ' senza l' End If finale che non serve

riduci le righe del papiro

Ciao claudio se puoi, correggere il "papiro" di baffoblu, grazie.

BaffoBlù · 14 Giugno 2024

claudio8 ha scritto:
@BaffoBlù
Sostituendo i blocchi if... end if

Codice:

If a = 1 Then n1(1) = 28: n1(2) = 18 ok = 1 End If

con

Codice:

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1 ' senza l' End If finale che non serve

riduci le righe del papiro

Grazie del consiglio, non lo sapevo...

ma alla fine basta un End if sola?

se vuole lo fa Mastogino o qualcun'altro, io son diventato scemo abbastanza...

claudio8 · 14 Giugno 2024

Bast a un if.... them

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1 ' senza l' End If finale che non serve

chiaramente x tutti i 90 numeri

Alien. · 14 Giugno 2024

mastrogino ha scritto:
Ciao questi sono i numeri simpatici si mettono in gioco quando in una estrazione si ha un
numero su di piu ruote .
si mettono in gioco i due numeri x ambate ambo e ambetto
il bello è che stranamente quando esce uno dei due numeri di seguito escono sulle altre ruote
1°esempio reale
estrazione del 07/06/2024
CA FI MI PA NUMERO MULTIPLO 63
IN GIOCO 34.36.
2° COLPO 34 MI
ADESSO SI ASPETTA LE USCITE MULTIPLE DEL 34.36. SU QUESTE RUOTE
---------------------------------------------------------------------------
2° ESEMPIO REALE
estrazione del 06/06/2024
ca.ge.ro numero multiplo 27
in gioco 88.14.
1° colpo 14 ca
di sequito inserisco la lista

01=28.18
02=58.37
03=34.33
04=10.21
05=46.17
06=52.26
07=88.07
08=04.22
09=70.24
10=46.36
11=87.38
12=04.23
13=79.80
14=40.27
15=16.72
16=82.75
17=58.05
18=34.01
19=28.71.
20=76.07
21=80.04
22=28.08
23=04.12
24=70.09
25=46.75
26=65.06
27=88.14
28=28.71
29=40.79
30=16.42
31=46.40
32=58.88
33=16.03
34=10.51
35=76.56
36=52.10
37=28.02
38=04.53
39=70.53
40=55.31
41=22.70
42=88.30
43=64.74
44=40.48
45=16.90
46=82.50
47=04.86
48=34.44
49=10.81
50=76.46
51=51.34
52=28.89
53=04.39
54=43.78
55=46.70
56=56.35
57=88.73
58=64.62
59=40.84
60=16.55
61=01.18
62=58.85
63=34.36
64=10.50
65=76.85
66=52.78
67=28.71
68=04.21
69=70.41
70=46.55
71=40.28
72=88.15
73=64.83
74=40.79
75=82.16
76=82.85
77=58.82
78=34.54
79=10.74
80=76.13
81=16.49
82=64.77
83=76.73
84=61.59
85=73.76
86=58.47
87=87.77
88=55.32
89=67.52
90=58.45

CIAO MASTROGINO CI SONO 2 NUMERI "SPIA SIMPATICI" CHE: 74 E 29 HANNO GLI STESSI "SIMPATICI" ?

74	29
40	40
79	79

BaffoBlù · 14 Giugno 2024

claudio8 ha scritto:
Bast a un if.... them

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1 ' senza l' End If finale che non serve

chiaramente x tutti i 90 numeri

questo lo avevo già capito

sei tu che non hai capito

alla fine dello script, per tutte queste "IF"

nessuna "END IF" ?

questo intendevo e intendo.

mastrogino · 14 Giugno 2024

Buona serata a tutti , ringrazio tutti voi x il vostro intervento , anche per la variante di ALIEN per l'idea , interessante

mastrogino · 14 Giugno 2024

salvo50 ha scritto:
Ciao a Tutti

E se Mastrogino ci dice l'algoritmo di come a trovato questi simpatici (formuletta)
si possono sostituire tutti questi IF-THEN con qualche FOR-NEXT

Ciao Salvo50 , non vi è un vero e proprio algoritmo ho trovato i numeri su di una vecchia tavola
inserita nel mio vecchio pc una tavola donata da una mia vecchia amica era incompleta e ci ho aggiunto del mio
uno dei 2 numeri e la somma di un'altro numero , credevo che inserendo 3 numeri su tante ruote
erano troppi , ma se voi li volete non ci sono problemi a metterlo a disposizione di tutti .

claudio8 · 14 Giugno 2024

BaffoBlù ha scritto:
questo lo avevo già capito

sei tu che non hai capito

alla fine dello script, per tutte queste "IF"

nessuna "END IF" ?

questo intendevo e intendo.

Baffo, ognuno di questi blocchi presenti nel tuo costrutto compreso quello finale ha l' End If di chiusura

Codice:

If a = 1 Then
    n1(1) = 28: n1(2) = 18
    ok = 1
End If

queste 4 righe possono essere sostituite con una unica riga:

If a = 1 Then n1(1) = 28: n1(2) = 18 : ok = 1 ' va su unica riga senza l' End If finale del proprio blocco

quindi se parli di questo ultimo blocco

Codice:

 If e = 90 Then
     n5(1) = 58: n5(2) = 45
     ok = 1
 End If

anche esso va senza End If, segue la stessa regola di scrittura.

Questa tipologia di costrutto è simile a

If r= 11 Then r=12 che come vedi non ha " Enf if " finale perchè la conseguenza " r=12 " è scritta sulla stessa riga.

In questo script, avendo la condizione " IF ... Then " una serie di " conseguenze" ( n1(1) = 28 ... n1(2) = 18 e ok = 1 ) si usano i 2 punti " : " per poterle scrivere sulla stessa riga.

Spero di essere stato esaustivo e chiaro. " E' chiar stu fatt "

Ps: Non sono entrato nel merito di tutto lo script per vedere se può essere ulteriormente ottimizzato

claudio8 · 14 Giugno 2024

claudio8 ha scritto:
If r= 11 Then r=12 che come vedi non ha " Enf if " finale perchè la conseguenza " r=12 " è scritta sulla stessa riga questo perche l'End IF si può omettere, ma se si mette non cambia l'operatività dello script.

Ho solo inserito una puntualizzazione, non si sa mai passase Luigi da queste parti .....

salvo50 · 15 Giugno 2024

BaffoBlù ha scritto:
questo lo avevo già capito

sei tu che non hai capito

alla fine dello script, per tutte queste "IF"

nessuna "END IF" ?

questo intendevo e intendo.

Scusami Baffo ma anch'io avevo capito come Claudio

Riguardo a rifare tutte le righe lo faccio io, appena posso

joe · 15 Giugno 2024

Se Luigi passasse da queste parti scriverebbe come ha scritto che è meglio che vi sia una istruzione di comando per ogni linea.

Infatti ha rimproverato me quando per mia abitudine (appresa altrove) utilizzavo il "2 punti" per separare le istruzioni scritte in una sola riga.

Evidentemente "qui" non lo si faceva come non si sapeva cosa fosse "Split" o come potessero essere usati 2 cicli nidificati per generare gli ambi...

Ma sono storie vecchie ...

PER BAFFOBLU .......I SIMPATICI

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<