Le mie solite idee

Rafele ‘o Ruoss’ · 9 Ottobre 2021

A gentil richiesta,inserisco lo scropt con nuova condizione che molto probabilmente
andrà nel dimenticatoio nel aspettare una prossima occasione

Codice:

Sub Main()
   ColoreTesto 1
   Scrivi "TERNO SPIA SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE  SU BA- CA "
   Scrivi "ricerche epocali BY Marco"
   ColoreTesto 0
   Dim posta(1)
   Dim poste(2)
   Dim ruota(10)
   Dim n(1)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(3)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 9970
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  ok = 0
                  If(a = 39 Or a = 50 Or a = 84)_
                     And(b = 39 Or b = 50 Or b = 84)_
                     And(c = 39 Or c = 50 Or c = 84)Then
                     ruota(1) = 1
                     ruota(2) = 2
                     ok = 1
                  End If
                  If OK = 1 Then
                     co = co + 1
                     ColoreTesto 2
                     Scrivi String(80,"*") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es) & "   Terno spia per ambo secco    " & a & " - " & b & " - " & c,1
                     Scrivi String(80,"*"),1
                     ColoreTesto 0
                     n(1) = 3
                     ImpostaGiocata 1,n,ruota,posta,clp
                     n1(1) = 3
                     n1(2) = 39
                     ImpostaGiocata 2,n1,ruota,poste,clp
                     n2(1) = 3
                     n2(2) = 42
                     ImpostaGiocata 3,n2,ruota,poste,clp
                     n3(1) = 3
                     n3(2) = 50
                     ImpostaGiocata 4,n3,ruota,poste,clp
                     n4(1) = 39
                     n4(2) = 42
                     n4(3) = 50
                     ImpostaGiocata 5,n4,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

Grazie Marco son sempre ben accetti i tuoi script .

stef · 9 Ottobre 2021

Marco-elle ha scritto:

A gentil richiesta,inserisco lo scropt con nuova condizione che molto probabilmente
andrà nel dimenticatoio nel aspettare una prossima occasione

Codice:

Sub Main()
   ColoreTesto 1
   Scrivi "TERNO SPIA SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE  SU BA- CA "
   Scrivi "ricerche epocali BY Marco"
   ColoreTesto 0
   Dim posta(1)
   Dim poste(2)
   Dim ruota(10)
   Dim n(1)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(3)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 9970
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  ok = 0
                  If(a = 39 Or a = 50 Or a = 84)_
                     And(b = 39 Or b = 50 Or b = 84)_
                     And(c = 39 Or c = 50 Or c = 84)Then
                     ruota(1) = 1
                     ruota(2) = 2
                     ok = 1
                  End If
                  If OK = 1 Then
                     co = co + 1
                     ColoreTesto 2
                     Scrivi String(80,"*") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es) & "   Terno spia per ambo secco    " & a & " - " & b & " - " & c,1
                     Scrivi String(80,"*"),1
                     ColoreTesto 0
                     n(1) = 3
                     ImpostaGiocata 1,n,ruota,posta,clp
                     n1(1) = 3
                     n1(2) = 39
                     ImpostaGiocata 2,n1,ruota,poste,clp
                     n2(1) = 3
                     n2(2) = 42
                     ImpostaGiocata 3,n2,ruota,poste,clp
                     n3(1) = 3
                     n3(2) = 50
                     ImpostaGiocata 4,n3,ruota,poste,clp
                     n4(1) = 39
                     n4(2) = 42
                     n4(3) = 50
                     ImpostaGiocata 5,n4,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

Grazie.

Mauro-emme · 17 Ottobre 2021

Marco-elle ho dato un'occhiata al tuo script dal titolo:

AMBI ZERATI SORTITI SU BARI
GIOCA 1 AMBATA + 4 AMBI SU BARI
METODO E LIST BY Marco"

Ho fatto una prova manuale sul metodo con L8+. E' molto efficace con gli zerati in posizione isotopa. Prova ad adattare il tuo script al quadro estrazionale del 30 settembre in allegato.

Non funziona con la Nazionale.
Le ruote di calcolo sono anche quelle di gioco.
Dei due zerati presi in considerazione si usa la prima cifra (20 e 30 => 2 e 3 =>23 e il vertibile 32.
Nel caso di due zerati uguali, esempio 40 e 40, il primo numero è 44 il secondo il suo vertibile.
Se uno dei due numeri è già presente nella ruota di calcolo non si gioca (anche se qualche volta sortisce ancora).
Se vi sono nella stessa posizione isotopa più zerati vanno abbinati fra loro anche se uguali perchè giocate sulle rispettive ruote.
Accanto al numero dei colpi (clp) è utile mettere il fermo se esce la previsione con una variabile da decidere in InputBox, così da osservare entrambi gli andamenti.
Spesso sortiscono entrambi i numeri ed anche in ambo.
Altre regole si potranno trovare con l'osservazione.

Se, secondo il principio vincere poco ma spesso, questo metodo paga, se non ci acontentiamo un ulteriore passo è quello di usare uno script parallelo che trova la posizione dell'ambata.

Buona domenica, e vista la giornata, buona gita in barca.

Di seguito lo script come riferimento:

Sub Main
'Ricerca ideata da Mauro "Cerca una coppia di Vertibili e la posizione su ogni ruota in un ciclo di X estrazioni"

pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","Enplein",21))
ini = EstrazioneFin -(pr - 1) 'InputBox("Da quale estrazione vuoi iniziare?:","F.Florindi",9912)
nr1 = CInt(InputBox("Quale numero vuoi controllare per la ricerca?:","Enplein",9))
nr2 = Vert(nr1)
fine = EstrazioneFin
ColoreTesto 1
Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
" estrazioni con inizio dalla " & ini,1
Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
ColoreTesto 2
Scrivi
Scrivi String(160,"=") & Chr(10)
Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
For j = 0 To pr - 1
ex = ini + j
If ex > fine Then Exit For
Scrivi ex & Space(2),1,0
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
ColoreTesto 1
If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
ColoreTesto 2
If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
ColoreTesto 3
If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
ColoreTesto 2
Next
Scrivi
Next
Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
Scrivi String(160,"=") & Chr(10)
Scrivi Space(73) & "°°°Listed by Enplein°°°",1
ColoreTesto 0

End Sub

Marco-elle · 17 Ottobre 2021

Metodo ricavato alla 1° estrazione mensile
con riferimento alla cadenza del 1° estratto della NZ
Previsioni di origine statistica

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "1° del mese "
   Scrivi "vincolo di cadenza del 1° estratto sulla NZ "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2),posta(1)
   Dim ruote(10)
   Dim numeri(5)
   Dim es,a0,a1,a2,b1,b2,c1,c2,r1,r2,n1
   For es = 8000 To EstrazioneFin
      If IndiceMensile(es) = 1 Then
         n1 = Estratto(es,12,1)
         If Cadenza(n1) = 1 Then
            a0 = 11
            a1 = 11
            a2 = 17
            b1 = 11
            b2 = 20
            c1 = 11
            c2 = 83
            r1 = 3
            r2 = 5
         End If
         If Cadenza(n1) = 2 Then
            a0 = 48
            a1 = 48
            a2 = 13
            b1 = 48
            b2 = 33
            c1 = 48
            c2 = 43
            r1 = 4
            r2 = 9
         End If
         If Cadenza(n1) = 3 Then
            a0 = 30
            a1 = 30
            a2 = 7
            b1 = 30
            b2 = 11
            c1 = 30
            c2 = 18
            r1 = 5
            r2 = 6
         End If
         If Cadenza(n1) = 4 Then
            a0 = 3
            a1 = 3
            a2 = 7
            b1 = 3
            b2 = 25
            c1 = 3
            c2 = 40
            r1 = 1
            r2 = 8
         End If
         If Cadenza(n1) = 5 Then
            a0 = 9
            a1 = 9
            a2 = 46
            b1 = 9
            b2 = 60
            c1 = 9
            c2 = 86
            r1 = 2
            r2 = 6
         End If
         If Cadenza(n1) = 6 Then
            a0 = 56
            a1 = 56
            a2 = 19
            b1 = 56
            b2 = 37
            c1 = 56
            c2 = 40
            r1 = 5
            r2 = 6
         End If
         If Cadenza(n1) = 7 Then
            a0 = 29
            a1 = 29
            a2 = 31
            b1 = 29
            b2 = 39
            c1 = 29
            c2 = 46
            r1 = 3
            r2 = 9
         End If
         If Cadenza(n1) = 8 Then
            a0 = 31
            a1 = 31
            a2 = 7
            b1 = 41
            b2 = 40
            c1 = 31
            c2 = 51
            r1 = 5
            r2 = 7
         End If
         If Cadenza(n1) = 9 Then
            a0 = 10
            a1 = 10
            a2 = 21
            b1 = 10
            b2 = 38
            c1 = 10
            c2 = 57
            r1 = 5
            r2 = 7
         End If
         If Cadenza(n1) = 0 Then
            a0 = 90
            a1 = 90
            a2 = 11
            b1 = 90
            b2 = 69
            c1 = 90
            c2 = 72
            r1 = 6
            r2 = 7
         End If
         Erase ruote
         Erase poste
         Erase numeri
         ruote(1) = r1
         ruote(2) = r2
         posta(1) = 1
         poste(2) = 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " 1° del mese  ... 1° estratto della NZ " & n1 & " ... cadenza  " & Cadenza(n1),1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         numeri(1) = a0
         ImpostaGiocata 1,numeri,ruote,posta,12
         numeri(1) = a1
         numeri(2) = a2
         ImpostaGiocata 2,numeri,ruote,poste,12,2
         numeri(1) = b1
         numeri(2) = b2
         ImpostaGiocata 3,numeri,ruote,poste,12,2
         numeri(1) = c1
         numeri(2) = c2
         ImpostaGiocata 4,numeri,ruote,poste,12,2
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

Marco-elle · 18 Ottobre 2021

Metodo ricavato alla 5° del mese
con riferimento alla cadenza del 5° estratto della NZ
metodo statistico

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "5° del mese "
   Scrivi "vincolo di cadenza del 5° estratto sulla NZ "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2),posta(1)
   Dim ruote(10)
   Dim numeri(5)
   Dim es,a0,a1,a2,b1,b2,c1,c2,r1,r2,n1
   For es = 7200 To EstrazioneFin
      If IndiceMensile(es) = 5 Then
         n1 = Estratto(es,12,5)
         If Cadenza(n1) = 1 Then
            a0 = 15
            a1 = 15
            a2 = 50
            b1 = 15
            b2 = 51
            c1 = 15
            c2 = 82
            r1 = 1
            r2 = 4
         End If
         If Cadenza(n1) = 2 Then
            a0 = 85
            a1 = 85
            a2 = 63
            b1 = 85
            b2 = 74
            c1 = 85
            c2 = 90
            r1 = 3
            r2 = 5
         End If
         If Cadenza(n1) = 3 Then
            a0 = 44
            a1 = 44
            a2 = 10
            b1 = 44
            b2 = 32
            c1 = 44
            c2 = 90
            r1 = 3
            r2 = 4
         End If
         If Cadenza(n1) = 4 Then
            a0 = 13
            a1 = 13
            a2 = 42
            b1 = 13
            b2 = 47
            c1 = 13
            c2 = 81
            r1 = 1
            r2 = 8
         End If
         If Cadenza(n1) = 5 Then
            a0 = 81
            a1 = 81
            a2 = 13
            b1 = 81
            b2 = 16
            c1 = 81
            c2 = 61
            r1 = 1
            r2 = 2
         End If
         If Cadenza(n1) = 6 Then
            a0 = 1
            a1 = 1
            a2 = 4
            b1 = 1
            b2 = 16
            c1 = 1
            c2 = 40
            r1 = 2
            r2 = 5
         End If
         If Cadenza(n1) = 7 Then
            a0 = 27
            a1 = 27
            a2 = 1
            b1 = 27
            b2 = 8
            c1 = 27
            c2 = 10
            r1 = 1
            r2 = 3
         End If
         If Cadenza(n1) = 8 Then
            a0 = 34
            a1 = 34
            a2 = 5
            b1 = 34
            b2 = 13
            c1 = 34
            c2 = 18
            r1 = 1
            r2 = 2
         End If
         If Cadenza(n1) = 9 Then
            a0 = 27
            a1 = 27
            a2 = 5
            b1 = 27
            b2 = 63
            c1 = 27
            c2 = 75
            r1 = 2
            r2 = 6
         End If
         If Cadenza(n1) = 0 Then
            a0 = 35
            a1 = 35
            a2 = 23
            b1 = 35
            b2 = 26
            c1 = 35
            c2 = 33
            r1 = 1
            r2 = 10
         End If
         Erase ruote
         Erase poste
         Erase numeri
         ruote(1) = r1
         ruote(2) = r2
         posta(1) = 1
         poste(2) = 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " 5° del mese  ... 5° estratto della NZ " & n1 & " ... cadenza  " & Cadenza(n1),1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         numeri(1) = a0
         ImpostaGiocata 1,numeri,ruote,posta,12
         numeri(1) = a1
         numeri(2) = a2
         ImpostaGiocata 2,numeri,ruote,poste,12,2
         numeri(1) = b1
         numeri(2) = b2
         ImpostaGiocata 3,numeri,ruote,poste,12,2
         numeri(1) = c1
         numeri(2) = c2
         ImpostaGiocata 4,numeri,ruote,poste,12,2
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

Marco-elle · 18 Ottobre 2021

Marco-elle ha scritto:

Metodo ricavato alla 5° del mese
con riferimento alla cadenza del 5° estratto della NZ
metodo statistico

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "5° del mese "
   Scrivi "vincolo di cadenza del 5° estratto sulla NZ "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2),posta(1)
   Dim ruote(10)
   Dim numeri(5)
   Dim es,a0,a1,a2,b1,b2,c1,c2,r1,r2,n1
   For es = 7200 To EstrazioneFin
      If IndiceMensile(es) = 5 Then
         n1 = Estratto(es,12,5)
         If Cadenza(n1) = 1 Then
            a0 = 15
            a1 = 15
            a2 = 50
            b1 = 15
            b2 = 51
            c1 = 15
            c2 = 82
            r1 = 1
            r2 = 4
         End If
         If Cadenza(n1) = 2 Then
            a0 = 85
            a1 = 85
            a2 = 63
            b1 = 85
            b2 = 74
            c1 = 85
            c2 = 90
            r1 = 3
            r2 = 5
         End If
         If Cadenza(n1) = 3 Then
            a0 = 44
            a1 = 44
            a2 = 10
            b1 = 44
            b2 = 32
            c1 = 44
            c2 = 90
            r1 = 3
            r2 = 4
         End If
         If Cadenza(n1) = 4 Then
            a0 = 13
            a1 = 13
            a2 = 42
            b1 = 13
            b2 = 47
            c1 = 13
            c2 = 81
            r1 = 1
            r2 = 8
         End If
         If Cadenza(n1) = 5 Then
            a0 = 81
            a1 = 81
            a2 = 13
            b1 = 81
            b2 = 16
            c1 = 81
            c2 = 61
            r1 = 1
            r2 = 2
         End If
         If Cadenza(n1) = 6 Then
            a0 = 1
            a1 = 1
            a2 = 4
            b1 = 1
            b2 = 16
            c1 = 1
            c2 = 40
            r1 = 2
            r2 = 5
         End If
         If Cadenza(n1) = 7 Then
            a0 = 27
            a1 = 27
            a2 = 1
            b1 = 27
            b2 = 8
            c1 = 27
            c2 = 10
            r1 = 1
            r2 = 3
         End If
         If Cadenza(n1) = 8 Then
            a0 = 34
            a1 = 34
            a2 = 5
            b1 = 34
            b2 = 13
            c1 = 34
            c2 = 18
            r1 = 1
            r2 = 2
         End If
         If Cadenza(n1) = 9 Then
            a0 = 27
            a1 = 27
            a2 = 5
            b1 = 27
            b2 = 63
            c1 = 27
            c2 = 75
            r1 = 2
            r2 = 6
         End If
         If Cadenza(n1) = 0 Then
            a0 = 35
            a1 = 35
            a2 = 23
            b1 = 35
            b2 = 26
            c1 = 35
            c2 = 33
            r1 = 1
            r2 = 10
         End If
         Erase ruote
         Erase poste
         Erase numeri
         ruote(1) = r1
         ruote(2) = r2
         posta(1) = 1
         poste(2) = 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " 5° del mese  ... 5° estratto della NZ " & n1 & " ... cadenza  " & Cadenza(n1),1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         numeri(1) = a0
         ImpostaGiocata 1,numeri,ruote,posta,12
         numeri(1) = a1
         numeri(2) = a2
         ImpostaGiocata 2,numeri,ruote,poste,12,2
         numeri(1) = b1
         numeri(2) = b2
         ImpostaGiocata 3,numeri,ruote,poste,12,2
         numeri(1) = c1
         numeri(2) = c2
         ImpostaGiocata 4,numeri,ruote,poste,12,2
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

Attenzione all'ultima previsione.....ambata molto forte su BA
e "potrebbe"unirsi in ambo

antonioquagliozzi · 19 Ottobre 2021

Bogotà ha scritto:
come spesso accade , le ciofeche ti portano grandi risultati sulla distanza ,solo la pazienza premia

Lo

antonioquagliozzi · 19 Ottobre 2021

Scriptlottospiaternogemelli

Rafele ‘o Ruoss’ · 19 Ottobre 2021

antonioquagliozzi ha scritto:
Scriptlottospiaternogemelli

??

Mauro-emme · 20 Ottobre 2021

Marco gentilmente controlla questo script, mi sembre che Spaziometria faccia qualche errore.

Grazie a presto.

Sub Main
Dim ruota(1),pt(4),ruote(2),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
ruote(1) = 1
ruote(2) = 2
a = 75
b = 43
c = 1
d = 56
e = 31
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
cg = 0
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,0
a2(1) = a
a2(2) = b
a2(3) = c
a2(4) = e
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,0
a3(1) = a
a3(2) = b
a3(3) = d
a3(4) = e
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,0
a4(1) = a
a4(2) = c
a4(3) = d
a4(4) = e
cg = cg + 1
ImpostaGiocata cg,a4,ruote,pt,clp,0
a5(1) = b
a5(2) = c
a5(3) = d
a5(4) = e
cg = cg + 1
ImpostaGiocata cg,a5,ruote,pt,clp,0
Gioca es,1
Scrivi
Scrivi
Scrivi "-----------------------------------Metodo e script di Mauro----------------------------------"
Scrivi "--------------------STATISTICO DA LUNGHETTA RICAVATA DA ESTRAZIONE SU BARI-------------------"
Scrivi
Scrivi
Next
ScriviResoconto
End Sub

Marco-elle · 20 Ottobre 2021

Mauro-emme ha scritto:
Marco gentilmente controlla questo script, mi sembre che Spaziometria faccia qualche errore.

Grazie a presto.

Sub Main
Dim ruota(1),pt(4),ruote(2),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
ruote(1) = 1
ruote(2) = 2
a = 75
b = 43
c = 1
d = 56
e = 31
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
cg = 0
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,0
a2(1) = a
a2(2) = b
a2(3) = c
a2(4) = e
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,0
a3(1) = a
a3(2) = b
a3(3) = d
a3(4) = e
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,0
a4(1) = a
a4(2) = c
a4(3) = d
a4(4) = e
cg = cg + 1
ImpostaGiocata cg,a4,ruote,pt,clp,0
a5(1) = b
a5(2) = c
a5(3) = d
a5(4) = e
cg = cg + 1
ImpostaGiocata cg,a5,ruote,pt,clp,0
Gioca es,1
Scrivi
Scrivi
Scrivi "-----------------------------------Metodo e script di Mauro----------------------------------"
Scrivi "--------------------STATISTICO DA LUNGHETTA RICAVATA DA ESTRAZIONE SU BARI-------------------"
Scrivi
Scrivi
Next
ScriviResoconto
End Sub

Rientro la sera e ora sono impossibilitato,vediamo se qualche Bomber passa da queste parti altrimenti guardo in serata

MANCIN072 · 20 Ottobre 2021

Ciao.
Si sostituisce la prima riga dopo il sub Main con questa:

Dim ruota(1),pt(4),ruote(2),a1(4),a2(4),a3(4),a4(4),a5(4),clp,ini,pr,fine,es,a,b,c,d,e,cg

e lo script compilato parte.

MANCIN072 · 20 Ottobre 2021

Manco fosse Natale:

Estrazione generatrice del pronostico 09928 [ 61 - 22/05/2021]
G 0001 Numeri in gioco : 75.43.01.56 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.01.56 ] [BA] [75 43 01 56 ..] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.01.56 ] [CA] [75 .. 56 .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
V N. [75.43.01.56 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 75.43.01.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.01.31 ] [BA] [75 43 01 .. 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.01.31 ] [CA] [75 31 .. .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 75.43.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.56.31 ] [BA] [75 43 .. 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.56.31 ] [CA] [75 31 56 .. ..] C. 2 Terno 09930 [ 63 - 27/05/2021]
V N. [75.43.56.31 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 75.01.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.01.56.31 ] [BA] [75 .. 01 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.01.56.31 ] [CA] [75 31 56 .. ..] C. 2 Terno 09930 [ 63 - 27/05/2021]
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 43.01.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [43.01.56.31 ] [BA] [.. 43 01 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [43.01.56.31 ] [CA] [.. 31 56 .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
V N. [43.01.56.31 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

magari.....

Alien. · 20 Ottobre 2021

Ciao mancino puoi inserire lo script corretto,grazie
corretto ma mi da errore : Dim ruote(10)

Marco-elle · 20 Ottobre 2021

MANCIN072 ha scritto:
Manco fosse Natale:

Estrazione generatrice del pronostico 09928 [ 61 - 22/05/2021]
G 0001 Numeri in gioco : 75.43.01.56 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.01.56 ] [BA] [75 43 01 56 ..] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.01.56 ] [CA] [75 .. 56 .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
V N. [75.43.01.56 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 75.43.01.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.01.31 ] [BA] [75 43 01 .. 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.01.31 ] [CA] [75 31 .. .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 75.43.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.56.31 ] [BA] [75 43 .. 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.56.31 ] [CA] [75 31 56 .. ..] C. 2 Terno 09930 [ 63 - 27/05/2021]
V N. [75.43.56.31 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

G 0004 Numeri in gioco : 75.01.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [75.01.56.31 ] [BA] [75 .. 01 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.01.56.31 ] [CA] [75 31 56 .. ..] C. 2 Terno 09930 [ 63 - 27/05/2021]
Interrotta per raggiunta durata

G 0005 Numeri in gioco : 43.01.56.31 su BA CA per Ambo,Terno,Quaterna
V N. [43.01.56.31 ] [BA] [.. 43 01 56 31] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [43.01.56.31 ] [CA] [.. 31 56 .. ..] C. 2 Ambo 09930 [ 63 - 27/05/2021]
V N. [43.01.56.31 ] [CA] [56 .. 43 .. ..] C. 8 Ambo 09936 [ 69 - 10/06/2021]
Interrotta per raggiunta durata

magari.....

E' un listato ingannevole che ripete 5 numeri frequenti
stipati in 4 quartine che ha dato 1 cinquina e 3 ambi
rullati x 145 colpi

Mauro-emme · 21 Ottobre 2021

Marco-elle ha scritto:
E' un listato ingannevole che ripete 5 numeri frequenti
stipati in 4 quartine che ha dato 1 cinquina e 3 ambi
rullati x 145 colpi

Bravo! Esattamente come tutti i listati!

Buona giornata.

MANCIN072 · 21 Ottobre 2021

Sub Main
Dim ruota(1),pt(4),ruote(2),a1(4),a2(4),a3(4),a4(4),a5(4),clp,ini,pr,fine,es,a,b,c,d,e,cg
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
ruote(1) = 1
ruote(2) = 2
a = 75
b = 43
c = 1
d = 56
e = 31
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
cg = 0
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,0
a2(1) = a
a2(2) = b
a2(3) = c
a2(4) = e
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,0
a3(1) = a
a3(2) = b
a3(3) = d
a3(4) = e
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,0
a4(1) = a
a4(2) = c
a4(3) = d
a4(4) = e
cg = cg + 1
ImpostaGiocata cg,a4,ruote,pt,clp,0
a5(1) = b
a5(2) = c
a5(3) = d
a5(4) = e
cg = cg + 1
ImpostaGiocata cg,a5,ruote,pt,clp,0
Gioca es,1
Scrivi
Scrivi
Scrivi "-----------------------------------Metodo e script di Mauro----------------------------------"
Scrivi "--------------------STATISTICO DA LUNGHETTA RICAVATA DA ESTRAZIONE SU BARI-------------------"
Scrivi
Scrivi
Next
ScriviResoconto
End Sub

Lo posto per correttezza perchè mi piace provare vari script.
Utile o no, io non ne ho idea, ma lo posto.
Buona giornata a tutti

Rafele ‘o Ruoss’ · 21 Ottobre 2021

Mauro-emme ha scritto:
Bravo! Esattamente come tutti i listati!

Buona giornata.

(perdonate se invado il post con altro argomento )

Ciao @Mauro-emme , quindi tutti i listati sono ingannevoli secondo te ,me lo sto chiedendo a questo punto qualche sospetto mi viene ,ma rimane un sospetto il mio ,mi sono accorto che nell'ultimo periodo agosto /settembre alcuni listati che seguo hanno dato e non poco ed improvvisamente gli stessi neanche piu' un numero, mi rendo conto che non esistono regole precise ma incomincio ad avere qualche dubbio in merito e d'altra parte è vero anche che bisogna avere un po piu di pazienza e perseveranza nel non mollare. Avrei piacere se mi illuminassi in tal senso come capire quando uno script è ingannevole come dice anche @Marco-elle . grazie e saluti

Marco-elle · 21 Ottobre 2021

Bogotà ha scritto:
(perdonate se invado il post con altro argomento )

Ciao @Mauro-emme , quindi tutti i listati sono ingannevoli secondo te ,me lo sto chiedendo a questo punto qualche sospetto mi viene ,ma rimane un sospetto il mio ,mi sono accorto che nell'ultimo periodo agosto /settembre alcuni listati che seguo hanno dato e non poco ed improvvisamente gli stessi neanche piu' un numero, mi rendo conto che non esistono regole precise ma incomincio ad avere qualche dubbio in merito e d'altra parte è vero anche che bisogna avere un po piu di pazienza e perseveranza nel non mollare. Avrei piacere se mi illuminassi in tal senso come capire quando uno script è ingannevole come dice anche @Marco-elle . grazie e saluti

I listati non sono ingannevoli e si basano su statistiche precedenti,più la statistica è approfondita e più le previsioni aumentano in quantità numerica e molte volte insostenibili da tenere in gioco.Busogna trovare il giusto compromesso e sperare che il giocatore abbia la fortuna di scegliere la condizione giusta.MA secondo il mio punto di vista,l’informatica aiuta a capire se una metodologia è valida invece di affidarsi a carta e penna che il più delle volte non di riesce a trovare tutte le previsioni disponibili e valutarne l’attendibilità

Marco-elle · 21 Ottobre 2021

Giusto x dire che i listati non funzionano più,questa è la conferma che non è vero!
Io ho giocato la stessa previsione su BA (solo 1 quartina e abbastanza spinta)
perchè era già all'ottavo colpo su BA-NA dove questa sera ha dato il capogioco

Le mie solite idee

Banned

Member

Member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Super Member >GOLD<

Banned

Member

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Member

Super Member >PLATINUM<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<