Script: una è diametrale l'altra simmetrica.

salvo50 · 30 Ottobre 2018

Juri;n2137369 ha scritto:
Mancano molti casi.Questi non li ha visti.Sono 5 casi.

Il 13 otto su na 41-71 e su to 89-44 uniti ed isotopi.PERFETTA.Ambata 55 con 10-40-70-25-85.Al 2° c 85-40 to.AVANTI.(FORTE CONVERGENZA 55 NA).

IL 18 otto su ro 89-29 e to 85-40 isotopi.Ambta 39 con il resto della sestina.Presente to.

Poi su to 85-40 e su naz 87-57 isotopi.

Poi su mi 88-43 uniti e su na 23-83 uniti.

Poi su mi 17-62 e su ro 48-78 uniti ed isotopi.

Quando mi dà le 2 ambata da giocare vuol dire che non ha trovato una delle 2?Ho visto infatti che è cosi'.Non è valida la previsione.

Grazie.

Ciao a Tutti

Per la ricerca in avanti i colpi di controllo impostati, li controlla tutti, cioè se prima non passano i colpi impostati (in questo caso 9) non gioca la previsione, io diversamente non lo so fare, quindi se qualche altro scripter si vuole cimentare e ben accetto.

Quando da le due ambate da giocare, vuol dire che non li ha trovati tutti e due i numeri, se ne trova uno gioca l'altro, io l'ho capita così. Dimmi come deve essere

Juri · 30 Ottobre 2018

Quindi con le ricerche indietro non si riesce neanche con un altro script?Volendo si riesce a fare uno script se non interviene nessuno dove almeno rivela i casi con le previsioni poi le trovo a mano se ci sono indietro?

Se non trovo le ambate indietro o avanti di 5 colpi non si gioca niente.

Grazie mille.

salvo50 · 30 Ottobre 2018

Juri;n2137380 ha scritto:
Quindi con le ricerche indietro non si riesce neanche con un altro script?

Con le ricerche indietro non ci sono problemi, se non li trova tutti e due, come lo intendo io, vuol dire che si possono giocare perche non sono usciti, se te vuoi che quando non escono tutti e due non si deve giocare, si può fare, e mettere solo che quando ne esce uno giocare l'altro

Volendo si riesce a fare uno script se non interviene nessuno dove almeno rivela i casi con le previsioni poi le trovo a mano se ci sono indietro?

non ho capito cosa chiedi

Se non trovo le ambate indietro o avanti di 5 colpi non si gioca niente.

Probabilmente si può fare, vari Mke58, Joe, ILeggend, DJNomade ecc... penso che sappiano come fare, io non riesco a farlo in un solo script la ricerca indietro e avanti, che la ricerca in avanti dovrebbe farla solo nel caso che nella ricerca indietro non sono usciti i numeri cercati.

Juri · 30 Ottobre 2018

se te vuoi che quando non escono tutti e due non si deve giocare, si può fare, e mettere solo che quando ne esce uno giocare l'altro

Intendo questo che hai scritto.

Puoi fare la ricerca in avanti in un solo script?Conviene farlo?Oppure va bene almeno che rintraccia i casi senza le previsioni.Nel senso che il 18 ottobre mi vede i casi che dico con le somme poi ci penso da solo.

Non ho capito perchè i casi del 13 e 18 ottobre non li ha trovati lo script?Sono isotopi e uniti.

Grazie.

salvo50 · 31 Ottobre 2018

Ciao Juri

Juri;n2137423 ha scritto:
se te vuoi che quando non escono tutti e due non si deve giocare, si può fare, e mettere solo che quando ne esce uno giocare l'altro

Intendo questo che hai scritto.

Fatto

Puoi fare la ricerca in avanti in un solo script?

L'ho già fatto, è nel post 19, però come ho gia scritto, i colpi che imposti li controlla tutti, se un numero esce prima, non gioca subito l'estrazione successiva, ma finesce i colpi impostati e poi gioca, diversamente non lo so fare.

Conviene farlo?

Vuoi un mio parere?
Secondo me è inutile farlo.

Oppure va bene almeno che rintraccia i casi senza le previsioni.Nel senso che il 18 ottobre mi vede i casi che dico con le somme poi ci penso da solo.

Si può fare cosi, lascio solo le previsioni

Non ho capito perchè i casi del 13 e 18 ottobre non li ha trovati lo script?Sono isotopi e uniti.

Appena posso vedo il perchè.

Poi ti posto pure quello con una sola ruota

Juri · 31 Ottobre 2018

Grazie mille.

Quando ci sono gli altri script vedo.

salvo50 · 31 Ottobre 2018

Nello script del post 19 ho tolto imposta giocata ed il controllo dei colpi in avanti l'ho fatto facoltativo, cioè che puoi decidere tu se vuoi fare il controllo dei colpi o no, facendo così mi sono accorto del perche non fa i colpi del 13 e del 18, perche se si fa il controllo ed ad esempio si impostano 9 colpi, automaticamente il controllo si blocca 9 giocate prima dell'ultima estrazione in archivio perche altrimenti andrebbe fuori range, per vedere i colpi del 13 e del 18 devi impostare che non vuoi fare il controllo, lo decidi nella prima domanda che fa lo script, se metti 1 fa il controllo per i colpi che hai impostato, se metti un qualdiasi altro numero non fa il controllo.

questo è lo script con una sola ruota controllo indietro

Codice:

'Chiesto da Juri
'Una ruota
'Con controllo indietro uscita previsione
'Script by Salvo50
Option Explicit
Sub Main
   Dim Es,Fin,R1,R2,A,B,C,D,E1,E2,Clp1
   Dim P1,P2,P3,P4,P5,P6,Caso,Casi,Ini
   Dim H12,H23,H34,X1,X2,Ok,Cerch,Salvo50
   Dim Sf1,Sf2,Ind,Num(6),Poste(3),Ruota(1)
   Dim SAC,SBD,SAD,SBC,Nu1(1),Nu2(1),Amba(2)
   Dim Amba1(1),Amba2(1),H(4),L(6),Posta(1)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Clp1 = InputBox(" Per quanti colpi vuoi giocare l'ambata? ",Salvo50,9)
   Ind = InputBox(" Per quanti colpi vuoi andare indietro nella ricerca dei numeri usciti? ",Salvo50,4)
   Cerch = InputBox(" Vuoi visualizzare il cerchi ciclometrico, se si metti 1 altrimenti un qualsiasi altro numero) ",Salvo50,0)
   Ini = InputBox("Da quale estrazione vuoi iniziare?",,9330)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If((P1 = P3 And P2 = P4) Xor(P2 = P1 + 1 And P4 = P3 + 1))Xor((P1 = P3 And P2 = P4) And(P2 = P1 + 1 And P4 = P3 + 1)) Then
                        C = Estratto(Es + 1,R1,P3) : If C > 0 Then
                        D = Estratto(Es + 1,R1,P4)
                        If(Distanza(A,B) = 45) And((Distanza(C,D) = 30) Or(Distanza(C,D) = 60)) _
                           Xor(Distanza(C,D) = 45) And((Distanza(A,B) = 30) Or(Distanza(A,B) = 60)) Then
                           SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                           H(1) = SAC : H(2) = SBD : H(3) = SAD : H(4) = SBC
                           Call OrdinaMatrice(H,1)
                           H12 = Distanza(H(1),H(2)) : H23 = Distanza(H(2),H(3)) : H34 = Distanza(H(3),H(4))
                           Ok = 0
                           If H12 = 15 And H23 = 15 And H34 = 45 Then X1 = H(3) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 45 And H23 = 15 And H34 = 15 Then X1 = H(1) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 15 And H23 = 45 And H34 = 15 Then X1 = H(2) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 15 And H23 = 30 And H34 = 30 Then X1 = H(2) + 15 : X2 = H(3) + 15 : Ok = 1
                           If H12 = 30 And H23 = 30 And H34 = 15 Then X1 = H(1) + 15 : X2 = H(2) + 15 : Ok = 1
                           If H12 = 30 And H23 = 15 And H34 = 30 Then X1 = H(1) + 15 : X2 = H(3) + 15 : Ok = 1
                           If H12 = 15 And H23 = 15 And H34 = 15 Then X1 = H(4) + 15 : X2 = X1 + 15 : X1 = Fuori90(X1) : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 15 And H23 = 15 And H34 = 30 Then X1 = H(3) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 30 And H23 = 15 And H34 = 15 Then X1 = H(1) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 15 And H23 = 30 And H34 = 15 Then X1 = H(2) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If Ok = 1 Then
                              L(1) = H(1) : L(2) = H(2) : L(3) = H(3) : L(4) = H(4) : L(5) = X1 : L(6) = X2
                              Call OrdinaMatrice(L,1)
                              Ruota(1) = R1
                              Nu1(1) = X1 : Nu2(1) = X2
                              Sf1 = SerieFreq(Es - Ind,Es,Nu1,Ruota,1)
                              Sf2 = SerieFreq(Es - Ind,Es,Nu2,Ruota,1)
                              If Sf1 = 0 Or Sf2 = 0 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi

                                 Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es + 1,R1,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi "   Ambi  " & Space(9) & " Somme Vert." & Space(10) & " Somme Diag.",1
                                 Scrivi "  " & Format2(A) & Space(1) & Format2(B) & Space(16) & Format2(SAC) & Space(19) & Format2(SAD),1
                                 Scrivi "  " & Format2(C) & Space(1) & Format2(D) & Space(16) & Format2(SBD) & Space(19) & Format2(SBC),1
                                 Scrivi
                                 Scrivi " I 4 numeri ricavati dalle somme vert. e diag. " & Format2(H(1)) & " " & Format2(H(2)),1,0
                                 Scrivi " " & Format2(H(3)) & " " & Format2(H(4)),1
                                 Scrivi " I 2 numeri mancanti per formare l'esagono regolare  ",1,0
                                 ColoreTesto 2
                                 Scrivi Format2(X1) & " " & Format2(X2),1 : ColoreTesto 0
                                 Scrivi " I 6 numeri distanza 15 che formano l'esagono  " & Format2(L(1)) & " " & Format2(L(2)),1,0
                                 Scrivi " " & Format2(L(3)) & " " & Format2(L(4)) & " " & Format2(L(5)) & " " & Format2(L(6)),1
                                 Scrivi
                                 If Cerch = 1 Then
                                    DisegnaCerchioCiclometrico L,1,,,,1
                                 End If
                                 Amba1(1) = X1
                                 If Sf1 = 0 And Sf2 > 0 Then ImpostaGiocata 1,Amba1,Ruota,Posta,Clp1
                                 Amba2(1) = X2
                                 If Sf2 = 0 And Sf1 > 0 Then ImpostaGiocata 1,Amba2,Ruota,Posta,Clp1,3
                                 Num(1) = SAC : Num(2) = SBD : Num(3) = SAD : Num(4) = SBC : Num(5) = X1 : Num(6) = X2
                                 ImpostaGiocata 2,Num,Ruota,Poste,Clp1
                                 Gioca Es
                              End If
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

invece questo è lo script controllo avanti una ruota per il controllo è uguale a quello con due ruote

Codice:

'Chiesto da Juri
'Con controllo pronostico in avanti
'Una ruota
'Script by Salvo50
Option Explicit
Sub Main
   Dim Es,Fin,R1,R2,A,B,C,D,E1,E2
   Dim P1,P2,P3,P4,P5,P6,Caso,Casi,Ini
   Dim H12,H23,H34,X1,X2,Ok,Cerch,Salvo50
   Dim Sf1,Sf2,Av,SAC,SBD,SAD,SBC,Eseg_Control
   Dim H(4),L(6),Ruota(2),Nu1(1),Nu2(1)
   Fin = EstrazioneFin
   Eseg_Control = CInt(InputBox(" Vuoi fare il controllo? - (SI = 1) - (NO un qualsiasi altro numero) ",Salvo50,0))
   Av = 0
   If Eseg_Control = 1 Then
      Av = CInt(InputBox(" Per quanti colpi vuoi andare avanti nel controllo del pronostico? ",Salvo50,9))
   End If
   Cerch = InputBox(" Vuoi visualizzare il cerchi ciclometrico, se si metti 1 altrimenti un qualsiasi altro numero) ",Salvo50,0)
   Ini = InputBox("Da quale estrazione vuoi iniziare?",,9330)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     If((P1 = P3 And P2 = P4) Xor(P2 = P1 + 1 And P4 = P3 + 1))Xor((P1 = P3 And P2 = P4) And(P2 = P1 + 1 And P4 = P3 + 1)) Then
                        C = Estratto(Es + 1,R1,P3) : If C > 0 Then
                        D = Estratto(Es + 1,R1,P4)
                        If(Distanza(A,B) = 45) And((Distanza(C,D) = 30) Or(Distanza(C,D) = 60)) _
                           Xor(Distanza(C,D) = 45) And((Distanza(A,B) = 30) Or(Distanza(A,B) = 60)) Then
                           SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                           H(1) = SAC : H(2) = SBD : H(3) = SAD : H(4) = SBC
                           Call OrdinaMatrice(H,1)
                           H12 = Distanza(H(1),H(2)) : H23 = Distanza(H(2),H(3)) : H34 = Distanza(H(3),H(4))
                           Ok = 0
                           If H12 = 15 And H23 = 15 And H34 = 45 Then X1 = H(3) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 45 And H23 = 15 And H34 = 15 Then X1 = H(1) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 15 And H23 = 45 And H34 = 15 Then X1 = H(2) + 15 : X2 = X1 + 15 : Ok = 1
                           If H12 = 15 And H23 = 30 And H34 = 30 Then X1 = H(2) + 15 : X2 = H(3) + 15 : Ok = 1
                           If H12 = 30 And H23 = 30 And H34 = 15 Then X1 = H(1) + 15 : X2 = H(2) + 15 : Ok = 1
                           If H12 = 30 And H23 = 15 And H34 = 30 Then X1 = H(1) + 15 : X2 = H(3) + 15 : Ok = 1
                           If H12 = 15 And H23 = 15 And H34 = 15 Then X1 = H(4) + 15 : X2 = X1 + 15 : X1 = Fuori90(X1) : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 15 And H23 = 15 And H34 = 30 Then X1 = H(3) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 30 And H23 = 15 And H34 = 15 Then X1 = H(1) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If H12 = 15 And H23 = 30 And H34 = 15 Then X1 = H(2) + 15 : X2 = H(4) + 15 : X2 = Fuori90(X2) : Ok = 1
                           If Ok = 1 Then
                              L(1) = H(1) : L(2) = H(2) : L(3) = H(3) : L(4) = H(4) : L(5) = X1 : L(6) = X2
                              Call OrdinaMatrice(L,1)
                              Ruota(1) = R1
                              Ruota(2) = R2
                              Nu1(1) = X1 : Nu2(1) = X2
                              If Eseg_Control = 1 Then
                                 Sf1 = SerieFreqTurbo(Es + 1,Es + Av,Nu1,Ruota,1)
                                 Sf2 = SerieFreqTurbo(Es + 1,Es + Av,Nu2,Ruota,1)
                              End If
                              If Sf1 = 0 Or Sf2 = 0 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es + 1,R1,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi "   Ambi  " & Space(9) & " Somme Vert." & Space(10) & " Somme Diag.",1
                                 Scrivi "  " & Format2(A) & Space(1) & Format2(B) & Space(16) & Format2(SAC) & Space(19) & Format2(SAD),1
                                 Scrivi "  " & Format2(C) & Space(1) & Format2(D) & Space(16) & Format2(SBD) & Space(19) & Format2(SBC),1
                                 Scrivi
                                 Scrivi " I 4 numeri ricavati dalle somme vert. e diag. " & Format2(H(1)) & " " & Format2(H(2)),1,0
                                 Scrivi " " & Format2(H(3)) & " " & Format2(H(4)),1
                                 Scrivi " I 2 numeri mancanti per formare l'esagono regolare  ",1,0
                                 ColoreTesto 2
                                 Scrivi Format2(X1) & " " & Format2(X2),1 : ColoreTesto 0
                                 Scrivi " I 6 numeri distanza 15 che formano l'esagono  " & Format2(L(1)) & " " & Format2(L(2)),1,0
                                 Scrivi " " & Format2(L(3)) & " " & Format2(L(4)) & " " & Format2(L(5)) & " " & Format2(L(6)),1
                                 Scrivi
                                 If Eseg_Control = 1 Then
                                    If Sf1 = 0 And Sf2 = 0 Then
                                       Scrivi " Nei " & Format2(Av) & " Colpi in avanti ",1,0
                                       ColoreTesto 2
                                       Scrivi Format2(X1) & " e " & Format2(X2),1,0 : ColoreTesto 0
                                       Scrivi " Non sono usciti",1
                                    End If
                                    If Sf2 = 0 And Sf1 <> 0 Then
                                       Scrivi " Nei " & Format2(Av) & " Colpi in avanti dei numeri ",1,0
                                       ColoreTesto 2
                                       Scrivi Format2(X1) & " e " & Format2(X2),1,0 : ColoreTesto 0
                                       Scrivi " è uscito solo ",1,0
                                       ColoreTesto 2
                                       Scrivi Format2(X1),1 : ColoreTesto 0
                                    End If
                                    If Sf1 = 0 And Sf2 <> 0 Then
                                       Scrivi " Nei " & Format2(Av) & " Colpi in avanti dei numeri ",1,0
                                       ColoreTesto 2
                                       Scrivi Format2(X1) & " e " & Format2(X2),1,0 : ColoreTesto 0
                                       Scrivi " è uscito solo ",1,0
                                       ColoreTesto 2
                                       Scrivi Format2(X2),1 : ColoreTesto 0
                                    End If
                                 End If
                                 If Cerch = 1 Then
                                    DisegnaCerchioCiclometrico L,1,,,,1
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   If ScriptInterrotto Then Exit Sub
Next
End Sub

Juri · 31 Ottobre 2018

Come mai hai messo il controllo a 9 colpi?Va bene 5.Cambio poco o niente?

Vedo che a 2 ruote lo script n° 19 fa bene.A mano le vedo se sono usciti o no.

L'ambata in quello vecchio su 300 casi o piu' era forte.Forse 80% in quelle unite.

Grazie mille.

salvo50 · 31 Ottobre 2018

Juri;n2137625 ha scritto:
Come mai hai messo il controllo a 9 colpi?

Nessun motivo particolare, un numero lo dovevo mettere.

Cerca

Cerca

Script: una è diametrale l'altra simmetrica.

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi