Le mie solite idee

Rafele ‘o Ruoss’ · 19 Settembre 2021

Marco-elle ha scritto:
Ciao Mauro,
In questa sezione "Area Download"
ci sono tutti i migliori Guru del VB script
sicuramente ti aiuteranno nelle tue richieste

vero son proprio bravi e tecnicamente preparati presumo, solo che alle volte parlano un linguaggio tutto loro e si fa fatica nel capire.

Marco-elle · 19 Settembre 2021

Ricerca statistica su quaterna in cadenza su TT
Gioca 3 ambi + 1 quartina su ruote congeniali

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "QUATERNA IN CADENZA SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "RICERCA  E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(2),a2(2),a3(2),a4(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 7000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 11
         For p1 = 1 To 2
            For p2 = p1 + 1 To 3
               For p3 = p2 + 1 To 4
                  For p4 = p3 + 1 To 5
                     a = Estratto(es,r1,p1)
                     b = Estratto(es,r1,p2)
                     c = Estratto(es,r1,p3)
                     d = Estratto(es,r1,p4)
                     ok = 0
                     If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 And Cadenza(d) = 1 Then
                        a1(1) = 2
                        a1(2) = 25
                        a2(1) = 2
                        a2(2) = 56
                        a3(1) = 2
                        a3(2) = 57
                        a4(1) = 2
                        a4(2) = 25
                        a4(3) = 56
                        a4(4) = 69
                        ruota(1) = 1
                        ruota(2) = 3
                        ok = 1
                     End If
                     If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 And Cadenza(d) = 2 Then
                        a1(1) = 6
                        a1(2) = 17
                        a2(1) = 6
                        a2(2) = 34
                        a3(1) = 6
                        a3(2) = 72
                        a4(1) = 6
                        a4(2) = 27
                        a4(3) = 34
                        a4(4) = 72
                        ruota(1) = 7
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 And Cadenza(d) = 3 Then
                        a1(1) = 31
                        a1(2) = 16
                        a2(1) = 31
                        a2(2) = 43
                        a3(1) = 31
                        a3(2) = 82
                        a4(1) = 8
                        a4(2) = 13
                        a4(3) = 16
                        a4(4) = 80
                        ruota(1) = 6
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 And Cadenza(d) = 4 Then
                        a1(1) = 4
                        a1(2) = 10
                        a2(1) = 4
                        a2(2) = 15
                        a3(1) = 4
                        a3(2) = 17
                        a4(1) = 4
                        a4(2) = 15
                        a4(3) = 17
                        a4(4) = 22
                        ruota(1) = 1
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 And Cadenza(d) = 5 Then
                        a1(1) = 23
                        a1(2) = 2
                        a2(1) = 23
                        a2(2) = 8
                        a3(1) = 23
                        a3(2) = 86
                        a4(1) = 2
                        a4(2) = 8
                        a4(3) = 23
                        a4(4) = 86
                        ruota(1) = 6
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 And Cadenza(d) = 6 Then
                        a1(1) = 88
                        a1(2) = 2
                        a2(1) = 88
                        a2(2) = 23
                        a3(1) = 88
                        a3(2) = 70
                        a4(1) = 23
                        a4(2) = 53
                        a4(3) = 70
                        a4(4) = 88
                        ruota(1) = 3
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 And Cadenza(d) = 7 Then
                        a1(1) = 58
                        a1(2) = 9
                        a2(1) = 58
                        a2(2) = 55
                        a3(1) = 58
                        a3(2) = 81
                        a4(1) = 9
                        a4(2) = 48
                        a4(3) = 58
                        a4(4) = 81
                        ruota(1) = 1
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 And Cadenza(d) = 8 Then
                        a1(1) = 24
                        a1(2) = 47
                        a2(1) = 24
                        a2(2) = 69
                        a3(1) = 24
                        a3(2) = 86
                        a4(1) = 24
                        a4(2) = 36
                        a4(3) = 47
                        a4(4) = 86
                        ruota(1) = 8
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 And Cadenza(d) = 9 Then
                        a1(1) = 15
                        a1(2) = 20
                        a2(1) = 15
                        a2(2) = 42
                        a3(1) = 15
                        a3(2) = 61
                        a4(1) = 15
                        a4(2) = 42
                        a4(3) = 61
                        a4(4) = 71
                        ruota(1) = 2
                        ruota(2) = 7
                        ok = 1
                     End If
                     If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 And Decina(d) = 8 Then
                        If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 And Cadenza(d) = 0 Then
                           a1(1) = 80
                           a1(2) = 9
                           a2(1) = 80
                           a2(2) = 70
                           a3(1) = 80
                           a3(2) = 87
                           a4(1) = 70
                           a4(2) = 80
                           a4(3) = 82
                           a4(4) = 87
                           ruota(1) = 5
                           ruota(2) = 6
                           ok = 1
                        End If
                     End If
                     If ok = 1 Then
                        co = co + 1
                        ColoreTesto 1
                        Scrivi String(110,"=") : ColoreTesto 1
                        ColoreTesto 0
                        Scrivi "Data " & DataEstrazione(es) & " "
                        Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                        ColoreTesto 0
                        ColoreTesto 1
                        Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Quaterna in Cadenza " & a & " - " & b & " - " & c & " - " & d,1
                        ColoreTesto 0
                        Scrivi
                        ImpostaGiocata 1,a1,ruota,poste,clp
                        ImpostaGiocata 2,a2,ruota,poste,clp
                        ImpostaGiocata 3,a3,ruota,poste,clp
                        ImpostaGiocata 4,a4,ruota,poste,clp
                        Gioca es,1
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

i legend · 19 Settembre 2021

Marco-elle ha scritto:

Ricerca statistica su terni in decina 1 su TT
Gioca 3 ambi + 1 cinquina su NA-PA

Codice:

Sub Main()
   ColoreTesto 2 :Scrivi "-----------------TERNO IN DECINA 1  SU TT ",1
   ColoreTesto 2 :Scrivi "------------------- Ricerca e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruote(11),nu1(5),nu2(3),nu3(2),nu4(5),pt2(2),pt3(3)
   pt2(2) = 1
   pt3(2) = 1
   pt3(3) = 1
   clp = 12
   co = 0
   ini = 9300
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 11
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     :ok = 1
                     If ok = 1 Then
                        ColoreTesto 2
                        Scrivi String(110,"*") : ColoreTesto 0
                        Scrivi "Data " & DataEstrazione(es) & " "
                        Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                        Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                        Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                        Scrivi
                        ruote(1) = 6
                        ruote(2) = 7
                        'ruote(3) =10
                        nu1(1) = 54
                        nu1(2) = 9
                        ImpostaGiocata 1,nu1,ruote,pt2,clp
                        nu2(1) = 54
                        nu2(2) = 14
                        ImpostaGiocata 2,nu2,ruote,pt2,clp
                        nu3(1) = 54
                        nu3(2) = 65
                        ImpostaGiocata 3,nu3,ruote,pt2,clp
                        nu4(1) = 9
                        nu4(2) = 14
                        nu4(3) = 54
                        nu4(4) = 65
                        nu4(5) = 81
                        ImpostaGiocata 4,nu4,ruote,pt3,clp
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Ciao Marco per velocizzare la ricerca di un terno in decina potresti fare così:
---------------------------
Redim aE(5)
M=0
For p =1 to 5
E=estratto(id,r,p)
If decina(e)=1 then
M=m+1
AE(m)=E
End if
Next
If m= 3 then ' sevuoi che ci sia solo un terno
Scrivi stringa numeri (aE)
Altrimenti
If m>=3 then ' anche se ci dovessero essere più terni.
If m=4 se vuoi una quaterna
If m>=4 se vuoi anche più di una quaterna.
Sperando di aver fatto cosa gradita .
Ciao

Marco-elle · 19 Settembre 2021

i legend ha scritto:
Ciao Marco per velocizzare la ricerca di un terno in decina potresti fare così:
---------------------------
Redim aE(5)
M=0
For p =1 to 5
E=estratto(id,r,p)
If decina(e)=1 then
M=m+1
AE(m)=E
End if
Next
If m= 3 then ' sevuoi che ci sia solo un terno
Scrivi stringa numeri (aE)
Altrimenti
If m>=3 then ' anche se ci dovessero essere più terni.
If m=4 se vuoi una quaterna
If m>=4 se vuoi anche più di una quaterna.
Sperando di aver fatto cosa gradita .
Ciao

Eccerto che è cosa gradita!
Grazie Legend.....purtroppo sono molto Basic con ste robe

Marco-elle · 19 Settembre 2021

Ricerca Quaterne in cadenza modificata perchè avevo sbagliato una condizione
sulle quaterne con gli zerati e non ho fatto a tempo a modificare,
Con calma cercherò di applicare i consigli dei Guru del VB Script per semplificare
le mie ricerche.Al momento,sono soddisfatto delle mie basilari saccenze e nonostante
tutto riesco a esporre ,a chi fa piacere, i miei lavori

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "QUATERNA IN CADENZA SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "RICERCA  E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(2),a2(2),a3(2),a4(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 7000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 11
         For p1 = 1 To 2
            For p2 = p1 + 1 To 3
               For p3 = p2 + 1 To 4
                  For p4 = p3 + 1 To 5
                     a = Estratto(es,r1,p1)
                     b = Estratto(es,r1,p2)
                     c = Estratto(es,r1,p3)
                     d = Estratto(es,r1,p4)
                     ok = 0
                     If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 And Cadenza(d) = 1 Then
                        a1(1) = 2
                        a1(2) = 25
                        a2(1) = 2
                        a2(2) = 56
                        a3(1) = 2
                        a3(2) = 57
                        a4(1) = 2
                        a4(2) = 25
                        a4(3) = 56
                        a4(4) = 69
                        ruota(1) = 1
                        ruota(2) = 3
                        ok = 1
                     End If
                     If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 And Cadenza(d) = 2 Then
                        a1(1) = 6
                        a1(2) = 17
                        a2(1) = 6
                        a2(2) = 34
                        a3(1) = 6
                        a3(2) = 72
                        a4(1) = 6
                        a4(2) = 27
                        a4(3) = 34
                        a4(4) = 72
                        ruota(1) = 7
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 And Cadenza(d) = 3 Then
                        a1(1) = 31
                        a1(2) = 16
                        a2(1) = 31
                        a2(2) = 43
                        a3(1) = 31
                        a3(2) = 82
                        a4(1) = 8
                        a4(2) = 13
                        a4(3) = 16
                        a4(4) = 80
                        ruota(1) = 6
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 And Cadenza(d) = 4 Then
                        a1(1) = 4
                        a1(2) = 10
                        a2(1) = 4
                        a2(2) = 15
                        a3(1) = 4
                        a3(2) = 17
                        a4(1) = 4
                        a4(2) = 15
                        a4(3) = 17
                        a4(4) = 22
                        ruota(1) = 1
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 And Cadenza(d) = 5 Then
                        a1(1) = 23
                        a1(2) = 2
                        a2(1) = 23
                        a2(2) = 8
                        a3(1) = 23
                        a3(2) = 86
                        a4(1) = 2
                        a4(2) = 8
                        a4(3) = 23
                        a4(4) = 86
                        ruota(1) = 6
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 And Cadenza(d) = 6 Then
                        a1(1) = 88
                        a1(2) = 2
                        a2(1) = 88
                        a2(2) = 23
                        a3(1) = 88
                        a3(2) = 70
                        a4(1) = 23
                        a4(2) = 53
                        a4(3) = 70
                        a4(4) = 88
                        ruota(1) = 3
                        ruota(2) = 9
                        ok = 1
                     End If
                     If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 And Cadenza(d) = 7 Then
                        a1(1) = 58
                        a1(2) = 9
                        a2(1) = 58
                        a2(2) = 55
                        a3(1) = 58
                        a3(2) = 81
                        a4(1) = 9
                        a4(2) = 48
                        a4(3) = 58
                        a4(4) = 81
                        ruota(1) = 1
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 And Cadenza(d) = 8 Then
                        a1(1) = 24
                        a1(2) = 47
                        a2(1) = 24
                        a2(2) = 69
                        a3(1) = 24
                        a3(2) = 86
                        a4(1) = 24
                        a4(2) = 36
                        a4(3) = 47
                        a4(4) = 86
                        ruota(1) = 8
                        ruota(2) = 10
                        ok = 1
                     End If
                     If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 And Cadenza(d) = 9 Then
                        a1(1) = 15
                        a1(2) = 20
                        a2(1) = 15
                        a2(2) = 42
                        a3(1) = 15
                        a3(2) = 61
                        a4(1) = 15
                        a4(2) = 42
                        a4(3) = 61
                        a4(4) = 71
                        ruota(1) = 2
                        ruota(2) = 7
                        ok = 1
                     End If
                        If a = Figura(a)*10 And b = Figura(b)*10 And c = Figura(c)*10 And d = Figura(d)*10  Then
                           a1(1) = 80
                           a1(2) = 9
                           a2(1) = 80
                           a2(2) = 70
                           a3(1) = 80
                           a3(2) = 87
                           a4(1) = 70
                           a4(2) = 80
                           a4(3) = 82
                           a4(4) = 87
                           ruota(1) = 5
                           ruota(2) = 6
                           ok = 1
                        'End If
                     End If
                     If ok = 1 Then
                        co = co + 1
                        ColoreTesto 1
                        Scrivi String(110,"=") : ColoreTesto 1
                        ColoreTesto 0
                        Scrivi "Data " & DataEstrazione(es) & " "
                        Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                        ColoreTesto 0
                        ColoreTesto 1
                        Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Quaterna in Cadenza " & a & " - " & b & " - " & c & " - " & d,1
                        ColoreTesto 0
                        Scrivi
                        ImpostaGiocata 1,a1,ruota,poste,clp
                        ImpostaGiocata 2,a2,ruota,poste,clp
                        ImpostaGiocata 3,a3,ruota,poste,clp
                        ImpostaGiocata 4,a4,ruota,poste,clp
                        Gioca es,1
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

Marco-elle · 20 Settembre 2021

Ricerca statistica di terni in decina
Gioca 3 ambi + 1 quartina su ruote congeniali
Listato in collaborazione di Legend

Codice:

Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,1,2)
   aAmbo(0,2) = Array(0,1,16)
   aAmbo(0,3) = Array(0,1,90)
   aQuart(0) = Array(0,1,2,16,90)
   aR(0) = Array(0,1,2)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 1
   aAmbo(1,1) = Array(0,12,8)
   aAmbo(1,2) = Array(0,12,15)
   aAmbo(1,3) = Array(0,12,38)
   aQuart(1) = Array(0,12,25,36,38)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 2
   aAmbo(2,1) = Array(0,50,7)
   aAmbo(2,2) = Array(0,50,70)
   aAmbo(2,3) = Array(0,50,72)
   aQuart(2) = Array(0,50,70,72,75)
   aR(2) = Array(0,2,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 3
   aAmbo(3,1) = Array(0,6,2)
   aAmbo(3,2) = Array(0,6,29)
   aAmbo(3,3) = Array(0,6,51)
   aQuart(3) = Array(0,2,6,19,50)
   aR(3) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 4
   aAmbo(4,1) = Array(0,54,3)
   aAmbo(4,2) = Array(0,54,26)
   aAmbo(4,3) = Array(0,54,65)
   aQuart(4) = Array(0,26,54,65,69)
   aR(4) = Array(0,6,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 5
   aAmbo(5,1) = Array(0,41,18)
   aAmbo(5,2) = Array(0,41,33)
   aAmbo(5,3) = Array(0,41,65)
   aQuart(5) = Array(0,2,13,41,44)
   aR(5) = Array(0,3,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 6
   aAmbo(6,1) = Array(0,13,20)
   aAmbo(6,2) = Array(0,13,58)
   aAmbo(6,3) = Array(0,13,65)
   aQuart(6) = Array(0,7,13,58,65)
   aR(6) = Array(0,1,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 7
   aAmbo(7,1) = Array(0,29,4)
   aAmbo(7,2) = Array(0,29,15)
   aAmbo(7,3) = Array(0,29,56)
   aQuart(7) = Array(0,4,15,29,56)
   aR(7) = Array(0,3,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 8
   aAmbo(8,1) = Array(0,34,18)
   aAmbo(8,2) = Array(0,34,33)
   aAmbo(8,3) = Array(0,34,65)
   aQuart(8) = Array(0,2,5,14,34)
   aR(8) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 300 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

Marco-elle · 20 Settembre 2021

Così è più pulito

Codice:

Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,1,2)
   aAmbo(0,2) = Array(0,1,16)
   aAmbo(0,3) = Array(0,1,90)
   aQuart(0) = Array(0,1,2,16,90)
   aR(0) = Array(0,1,2)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 1
   aAmbo(1,1) = Array(0,12,8)
   aAmbo(1,2) = Array(0,12,15)
   aAmbo(1,3) = Array(0,12,38)
   aQuart(1) = Array(0,12,25,36,38)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 2
   aAmbo(2,1) = Array(0,50,7)
   aAmbo(2,2) = Array(0,50,70)
   aAmbo(2,3) = Array(0,50,72)
   aQuart(2) = Array(0,50,70,72,75)
   aR(2) = Array(0,2,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 3
   aAmbo(3,1) = Array(0,6,2)
   aAmbo(3,2) = Array(0,6,29)
   aAmbo(3,3) = Array(0,6,51)
   aQuart(3) = Array(0,2,6,19,50)
   aR(3) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 4
   aAmbo(4,1) = Array(0,54,3)
   aAmbo(4,2) = Array(0,54,26)
   aAmbo(4,3) = Array(0,54,65)
   aQuart(4) = Array(0,26,54,65,69)
   aR(4) = Array(0,6,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 5
   aAmbo(5,1) = Array(0,41,18)
   aAmbo(5,2) = Array(0,41,33)
   aAmbo(5,3) = Array(0,41,65)
   aQuart(5) = Array(0,2,13,41,44)
   aR(5) = Array(0,3,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 6
   aAmbo(6,1) = Array(0,13,20)
   aAmbo(6,2) = Array(0,13,58)
   aAmbo(6,3) = Array(0,13,65)
   aQuart(6) = Array(0,7,13,58,65)
   aR(6) = Array(0,1,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 7
   aAmbo(7,1) = Array(0,29,4)
   aAmbo(7,2) = Array(0,29,15)
   aAmbo(7,3) = Array(0,29,56)
   aQuart(7) = Array(0,4,15,29,56)
   aR(7) = Array(0,3,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 8
   aAmbo(8,1) = Array(0,34,18)
   aAmbo(8,2) = Array(0,34,33)
   aAmbo(8,3) = Array(0,34,65)
   aQuart(8) = Array(0,2,5,14,34)
   aR(8) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 300 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

Marco-elle · 20 Settembre 2021

Script definitivo,vi erano alcuni errori previsionali

Codice:

Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,42,17)
   aAmbo(0,2) = Array(0,42,78)
   aAmbo(0,3) = Array(0,42,84)
   aQuart(0) = Array(0,2,41,42,78)
   aR(0) = Array(0,6,10)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 1
   aAmbo(1,1) = Array(0,12,8)
   aAmbo(1,2) = Array(0,12,15)
   aAmbo(1,3) = Array(0,12,38)
   aQuart(1) = Array(0,12,25,36,38)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 2
   aAmbo(2,1) = Array(0,50,7)
   aAmbo(2,2) = Array(0,50,70)
   aAmbo(2,3) = Array(0,50,72)
   aQuart(2) = Array(0,50,70,72,75)
   aR(2) = Array(0,2,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 3
   aAmbo(3,1) = Array(0,6,2)
   aAmbo(3,2) = Array(0,6,29)
   aAmbo(3,3) = Array(0,6,51)
   aQuart(3) = Array(0,2,6,19,50)
   aR(3) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 4
   aAmbo(4,1) = Array(0,54,3)
   aAmbo(4,2) = Array(0,54,26)
   aAmbo(4,3) = Array(0,54,65)
   aQuart(4) = Array(0,26,54,65,69)
   aR(4) = Array(0,6,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 5
   aAmbo(5,1) = Array(0,41,18)
   aAmbo(5,2) = Array(0,41,33)
   aAmbo(5,3) = Array(0,41,65)
   aQuart(5) = Array(0,2,13,41,44)
   aR(5) = Array(0,3,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 6
   aAmbo(6,1) = Array(0,13,20)
   aAmbo(6,2) = Array(0,13,58)
   aAmbo(6,3) = Array(0,13,65)
   aQuart(6) = Array(0,7,13,58,65)
   aR(6) = Array(0,1,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 7
   aAmbo(7,1) = Array(0,29,4)
   aAmbo(7,2) = Array(0,29,15)
   aAmbo(7,3) = Array(0,29,56)
   aQuart(7) = Array(0,4,15,29,56)
   aR(7) = Array(0,3,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 8
   aAmbo(8,1) = Array(0,34,18)
   aAmbo(8,2) = Array(0,34,33)
   aAmbo(8,3) = Array(0,34,65)
   aQuart(8) = Array(0,2,5,14,34)
   aR(8) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 300 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

Marco-elle · 21 Settembre 2021

Ricerca Statistica su Quaterne in figura
Gioca 3 ambi + 1 quartina su ruote congeniali

Codice:

Sub Main
ColoreTesto 2
   Scrivi " QUATERNA IN FIGURA "
   Scrivi " GIOCA 3 AMBI + 1 QUARTINA SU RUOTE CONGENIALI "
   Scrivi " RICERCA  BY Marco"
   ColoreTesto 0

   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2)
   nClp = 12
   aP(2) = 1
  
   ''''''''''''''''''''''''''''''''''
   ' Figura 9
   aAmbo(9,1) = Array(0,30,17)
   aAmbo(9,2) = Array(0,30,78)
   aAmbo(9,3) = Array(0,30,84)
   aQuart(9) = Array(0,30,58,70,81)
   aR(9) = Array(0,7,10)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 1
   aAmbo(1,1) = Array(0,27,31)
   aAmbo(1,2) = Array(0,27,64)
   aAmbo(1,3) = Array(0,27,78)
   aQuart(1) = Array(0,3,27,31,64)
   aR(1) = Array(0,2,6)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 2
   aAmbo(2,1) = Array(0,64,15)
   aAmbo(2,2) = Array(0,64,49)
   aAmbo(2,3) = Array(0,64,58)
   aQuart(2) = Array(0,9,48,64,72)
   aR(2) = Array(0,3,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 3
   aAmbo(3,1) = Array(0,60,29)
   aAmbo(3,2) = Array(0,60,78)
   aAmbo(3,3) = Array(0,60,81)
   aQuart(3) = Array(0,29,60,68,81)
   aR(3) = Array(0,1,2)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 4
   aAmbo(4,1) = Array(0,36,4)
   aAmbo(4,2) = Array(0,36,32)
   aAmbo(4,3) = Array(0,36,72)
   aQuart(4) = Array(0,5,12,36,72)
   aR(4) = Array(0,3,6)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 5
   aAmbo(5,1) = Array(0,26,18)
   aAmbo(5,2) = Array(0,26,33)
   aAmbo(5,3) = Array(0,26,65)
   aQuart(5) = Array(0,1,26,59,65)
   aR(5) = Array(0,3,9)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 6
   aAmbo(6,1) = Array(0,41,6)
   aAmbo(6,2) = Array(0,41,38)
   aAmbo(6,3) = Array(0,41,73)
   aQuart(6) = Array(0,38,41,47,73)
   aR(6) = Array(0,3,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 7
   aAmbo(7,1) = Array(0,54,12)
   aAmbo(7,2) = Array(0,54,14)
   aAmbo(7,3) = Array(0,54,15)
   aQuart(7) = Array(0,4,14,54,76)
   aR(7) = Array(0,2,10)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Figura 8
   aAmbo(8,1) = Array(0,32,6)
   aAmbo(8,2) = Array(0,32,66)
   aAmbo(8,3) = Array(0,32,90)
   aQuart(8) = Array(0,6,32,49,90)
   aR(8) = Array(0,5,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 4000 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aFig(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Figura(aE(p))
             aFig(D,1) = aFig(D,1) + 1
            aFig(D,2) = aFig(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aFig(D,1) >= 4 Then
               ColoreTesto 1
               Scrivi String(65,"*") : ColoreTesto 0
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & " - Quaterna in figura - " & aFig(D,2)
               ColoreTesto 1
               Scrivi String(65,"*") : ColoreTesto 0
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next
   Call ScriviResoconto
End Sub

Marco-elle · 21 Settembre 2021

Ricerca statistica del terno radicale in figura
Gioca 3 ambi + 1 quartina su ruote congeniali

Codice:

Sub Main
   ColoreTesto 2
   Scrivi " TERNO RADICALE  IN FIGURA "
   Scrivi " GIOCA 3 AMBI + 1 QUARTINA SU RUOTE CONGENIALI "
   Scrivi " RICERCA  BY Marco"
   ColoreTesto 0
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2)
   nClp = 12
   aP(2) = 1
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 1
   aAmbo(1,1) = Array(0,30,3)
   aAmbo(1,2) = Array(0,30,17)
   aAmbo(1,3) = Array(0,30,84)
   aQuart(1) = Array(0,3,17,30,84)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 2
   aAmbo(2,1) = Array(0,56,15)
   aAmbo(2,2) = Array(0,56,49)
   aAmbo(2,3) = Array(0,56,58)
   aQuart(2) = Array(0,21,26,56,81)
   aR(2) = Array(0,2,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 3
   aAmbo(3,1) = Array(0,15,17)
   aAmbo(3,2) = Array(0,15,41)
   aAmbo(3,3) = Array(0,15,59)
   aQuart(3) = Array(0,15,40,41,44)
   aR(3) = Array(0,1,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 4
   aAmbo(4,1) = Array(0,83,3)
   aAmbo(4,2) = Array(0,83,44)
   aAmbo(4,3) = Array(0,83,65)
   aQuart(4) = Array(0,3,44,65,83)
   aR(4) = Array(0,2,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 5
   aAmbo(5,1) = Array(0,2,53)
   aAmbo(5,2) = Array(0,2,57)
   aAmbo(5,3) = Array(0,2,64)
   aQuart(5) = Array(0,2,31,53,57)
   aR(5) = Array(0,2,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 6
   aAmbo(6,1) = Array(0,41,15)
   aAmbo(6,2) = Array(0,41,17)
   aAmbo(6,3) = Array(0,41,44)
   aQuart(6) = Array(0,1,10,41,44)
   aR(6) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 7
   aAmbo(7,1) = Array(0,10,7)
   aAmbo(7,2) = Array(0,10,8)
   aAmbo(7,3) = Array(0,10,66)
   aQuart(7) = Array(0,8,10,47,66)
   aR(7) = Array(0,2,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Terno Radicale Figura 8
   aAmbo(8,1) = Array(0,19,30)
   aAmbo(8,2) = Array(0,19,57)
   aAmbo(8,3) = Array(0,19,59)
   aQuart(8) = Array(0,8,10,19,30)
   aR(8) = Array(0,1,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 6000 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aRad(8,2)' va da 0 a 9
         For p = 1 To 5
            D = Radicale(aE(p))
            aRad(D,1) = aRad(D,1) + 1
            aRad(D,2) = aRad(D,2) & Format2(aE(p)) & " "
         Next
         For D = 1 To 8
            If aRad(D,1) = 3 Then
               ColoreTesto 1
               Scrivi String(65,"*") : ColoreTesto 0
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & " - Terno Radicale in Figura - " & aRad(D,2)
               ColoreTesto 1
               Scrivi String(65,"*") : ColoreTesto 0
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next
   Call ScriviResoconto
End Sub

Marco-elle · 21 Settembre 2021

Questa sera il metodo del cavallo full version
regala un altro ambo,sembra il metodo più
profiquo di quelli inseriti

Marco-elle · 23 Settembre 2021

Diaventiamo tutti ricchi
metodo sommativo
gioca 1 cinquina su BA

Codice:

Sub Main()
   ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
   Scrivi "GIOCA 1 CINQUINA SU BARI"
   Scrivi "METODO BY MARCO"
   ColoreTesto 0
   Dim n(5)
   Dim ruota(1)
   Dim pt5(5)
   pt5(2) = 1
   pt5(3) = 1
   pt5(4) = 1
   pt5(5) = 1
   clp = 10
   co = 0
   ini = 9500
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 To 12
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If a < 10 And b < 10 And c < 10 Then
                     n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
                     n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
                     n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
                     n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
                     n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
                     ok = 1
                  End If
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
                     n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
                     n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
                     n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
                     n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
                     n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
                     n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
                     n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
                     ok = 1
                  End If
                  If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
                     n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
                     n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
                     n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
                     n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
                     n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
                     n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
                     n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
                     n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
                     ok = 1
                  End If
                  If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
                     n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
                     n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
                     n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
                     n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
                     ok = 1
                  End If
                  If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
                     n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
                     n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
                     n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
                     n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
                     n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
                     ok = 1
                  End If
                  If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
                     n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
                     n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
                     n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
                     n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
                     n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
                     n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
                     n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
                     n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
                     n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
                     n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
                     ok = 1
                  End If
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(110,"*") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                     Scrivi
                     ruota(1) = 1
                     ImpostaGiocata 1,n,ruota,pt5,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Tessa23 · 23 Settembre 2021

Marco-elle ha scritto:

Diaventiamo tutti ricchi
metodo sommativo
gioca 1 cinquina su BA

Codice:

Sub Main()
   ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
   Scrivi "GIOCA 1 CINQUINA SU BARI"
   Scrivi "METODO BY MARCO"
   ColoreTesto 0
   Dim n(5)
   Dim ruota(1)
   Dim pt5(5)
   pt5(2) = 1
   pt5(3) = 1
   pt5(4) = 1
   pt5(5) = 1
   clp = 10
   co = 0
   ini = 9500
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 To 12
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If a < 10 And b < 10 And c < 10 Then
                     n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
                     n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
                     n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
                     n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
                     n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
                     ok = 1
                  End If
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
                     n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
                     n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
                     n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
                     n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
                     n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
                     n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
                     n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
                     ok = 1
                  End If
                  If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
                     n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
                     n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
                     n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
                     n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
                     n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
                     n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
                     n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
                     n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
                     ok = 1
                  End If
                  If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
                     n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
                     n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
                     n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
                     n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
                     ok = 1
                  End If
                  If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
                     n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
                     n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
                     n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
                     n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
                     n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
                     ok = 1
                  End If
                  If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
                     n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
                     n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
                     n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
                     n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
                     n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
                     n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
                     n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
                     n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
                     n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
                     n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
                     ok = 1
                  End If
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(110,"*") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                     Scrivi
                     ruota(1) = 1
                     ImpostaGiocata 1,n,ruota,pt5,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Marco-elle ha scritto:

Diaventiamo tutti ricchi
metodo sommativo
gioca 1 cinquina su BA

Codice:

Sub Main()
   ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
   Scrivi "GIOCA 1 CINQUINA SU BARI"
   Scrivi "METODO BY MARCO"
   ColoreTesto 0
   Dim n(5)
   Dim ruota(1)
   Dim pt5(5)
   pt5(2) = 1
   pt5(3) = 1
   pt5(4) = 1
   pt5(5) = 1
   clp = 10
   co = 0
   ini = 9500
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 To 12
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If a < 10 And b < 10 And c < 10 Then
                     n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
                     n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
                     n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
                     n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
                     n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
                     ok = 1
                  End If
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
                     n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
                     n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
                     n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
                     n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
                     n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
                     n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
                     n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
                     ok = 1
                  End If
                  If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
                     n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
                     n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
                     n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
                     n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
                     n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
                     n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
                     n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
                     n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
                     ok = 1
                  End If
                  If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
                     n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
                     n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
                     n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
                     n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
                     ok = 1
                  End If
                  If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
                     n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
                     n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
                     n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
                     n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
                     n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
                     ok = 1
                  End If
                  If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
                     n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
                     n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
                     n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
                     n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
                     n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
                     n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
                     n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
                     n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
                     n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
                     n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
                     ok = 1
                  End If
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(110,"*") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                     Scrivi
                     ruota(1) = 1
                     ImpostaGiocata 1,n,ruota,pt5,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Ciao Marco puoi scrivere la previsione e quanti colpi grazie mille

Marco-elle · 23 Settembre 2021

Tessa23 ha scritto:
Ciao Marco puoi scrivere la previsione e quanti colpi grazie mille

Ciao Tessa,
attualmente non ci sono previsioni in corso

toon · 23 Settembre 2021

Sei un anunnaki, confessa...

Marco-elle · 23 Settembre 2021

toon ha scritto:
Sei un anunnaki, confessa...

Tessa23 · 24 Settembre 2021

Marco-elle ha scritto:
Ciao Tessa,
attualmente non ci sono previsioni in corso

Buongiorno grazie Marco

Rafele ‘o Ruoss’ · 24 Settembre 2021

Marco-elle ha scritto:

Diaventiamo tutti ricchi
metodo sommativo
gioca 1 cinquina su BA

Codice:

Sub Main()
   ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
   Scrivi "GIOCA 1 CINQUINA SU BARI"
   Scrivi "METODO BY MARCO"
   ColoreTesto 0
   Dim n(5)
   Dim ruota(1)
   Dim pt5(5)
   pt5(2) = 1
   pt5(3) = 1
   pt5(4) = 1
   pt5(5) = 1
   clp = 10
   co = 0
   ini = 9500
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 12 To 12
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If a < 10 And b < 10 And c < 10 Then
                     n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
                     n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
                     n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
                     n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
                     n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
                     ok = 1
                  End If
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
                     n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
                     n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
                     n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
                     n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
                     n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
                     n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
                     n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
                     ok = 1
                  End If
                  If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
                     n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
                     n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
                     n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
                     n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
                     n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
                     n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
                     n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
                     n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
                     n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
                     n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
                     ok = 1
                  End If
                  If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
                     n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
                     n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
                     n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
                     n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
                     n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
                     ok = 1
                  End If
                  If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
                     n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
                     n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
                     n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
                     n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
                     n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
                     ok = 1
                  End If
                  If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
                     n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
                     n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
                     n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
                     n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
                     n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
                     ok = 1
                  End If
                  If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
                     n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
                     n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
                     n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
                     n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
                     n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
                     ok = 1
                  End If
                  If ok = 1 Then
                     ColoreTesto 2
                     Scrivi String(110,"*") : ColoreTesto 0
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                     Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                     Scrivi
                     ruota(1) = 1
                     ImpostaGiocata 1,n,ruota,pt5,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Buon pomeriggio Marco, è sempre apprezzato ogni tuo post lo è ancora di piu' quando ti accorgi che l'incredibile esiste , non sono un esperto
e non conosco le funzionalità degli script in genere ma ce tanta curiosità.
Provando ad andare a ritroso nel tempo ho notato che dal 2005 a metà circa del 2018 lo script ha prodotto poco e solo pochi ambi ,come mai aldilà di varie modifiche da metà del 2018 lo stesso ha praticamente sbancato quasi ogni mese fino ad oggi ?cosa secondo te puo' esser accaduto
in questo preciso periodo.
il fatto di averlo condiviso puo' secondo la tua esperienza incidere sui strabilianti risultati avuti fino ad oggi.
grazie

Marco-elle · 24 Settembre 2021

Bogotà ha scritto:
Buon pomeriggio Marco, è sempre apprezzato ogni tuo post lo è ancora di piu' quando ti accorgi che l'incredibile esiste , non sono un esperto
e non conosco le funzionalità degli script in genere ma ce tanta curiosità.
Provando ad andare a ritroso nel tempo ho notato che dal 2005 a metà circa del 2018 lo script ha prodotto poco e solo pochi ambi ,come mai aldilà di varie modifiche da metà del 2018 lo stesso ha praticamente sbancato quasi ogni mese fino ad oggi ?cosa secondo te puo' esser accaduto
in questo preciso periodo.
il fatto di averlo condiviso puo' secondo la tua esperienza incidere sui strabilianti risultati avuti fino ad oggi.
grazie

Ciao Bogotà,
La mia ricerca è fatta dal 2018
Questi algoritmi sono sempre da prendere con le pinze,però è bello vedere output del genere ma…..ti posso assicurare che,molto spesso questo tipo di previsioni vanno a segno.Sono sempre alla ricerca di nuove possibili combinazioni da mettere in gioco cercando di giocare meno colpi possibile e quando vado a verificare se la previsione è valida,moltissime volte mi ritrovo con vincite pazzesche mancate.Ora però….in questo periodo mi sto divertendo con le ambate in posizione da giocare max 3/4 colpi,non disdegnando qualche buona convergenza

Rafele ‘o Ruoss’ · 24 Settembre 2021

Marco-elle ha scritto:
Ciao Bogotà,
La mia ricerca è fatta dal 2018
Questi algoritmi sono sempre da prendere con le pinze,però è bello vedere output del genere ma…..ti posso assicurare che,molto spesso questo tipo di previsioni vanno a segno.Sono sempre alla ricerca di nuove possibili combinazioni da mettere in gioco cercando di giocare meno colpi possibile e quando vado a verificare se la previsione è valida,moltissime volte mi ritrovo con vincite pazzesche mancate.Ora però….in questo periodo mi sto divertendo con le ambate in posizione da giocare max 3/4 colpi,non disdegnando qualche buona convergenza

non ultima e come non ricordarla la quaterna sulla NZ

Le mie solite idee

Banned

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Member

Banned

Advanced Member >PLATINUM PLUS<

Banned