Novità

Le mie solite idee

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
Clicca per espandere...
Grazie Marco son sempre ben accetti i tuoi script .
 
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
Clicca per espandere...

Grazie.(y)
 
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.
  1. Non funziona con la Nazionale.
  2. Le ruote di calcolo sono anche quelle di gioco.
  3. Dei due zerati presi in considerazione si usa la prima cifra (20 e 30 => 2 e 3 =>23 e il vertibile 32.
  4. Nel caso di due zerati uguali, esempio 40 e 40, il primo numero è 44 il secondo il suo vertibile.
  5. Se uno dei due numeri è già presente nella ruota di calcolo non si gioca (anche se qualche volta sortisce ancora).
  6. Se vi sono nella stessa posizione isotopa più zerati vanno abbinati fra loro anche se uguali perchè giocate sulle rispettive ruote.
  7. 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.
  8. Spesso sortiscono entrambi i numeri ed anche in ambo.
  9. 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
 

Allegati

  • Cattura.PNG
    Cattura.PNG
    50,7 KB · Visite: 29
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
 
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 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
Clicca per espandere...
Attenzione all'ultima previsione.....ambata molto forte su BA
e "potrebbe"unirsi in ambo
Immagine 2021-10-18 222329.png
 
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
 
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
Clicca per espandere...
Rientro la sera e ora sono impossibilitato,vediamo se qualche Bomber passa da queste parti altrimenti guardo in serata
 
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.
 
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.....
 
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.....
Clicca per espandere...
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
 
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
 
Mauro-emme ha scritto:
Bravo! Esattamente come tutti i listati!

Buona giornata.
Clicca per espandere...
(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
 
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
Clicca per espandere...
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à
 
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
Immagine 2021-10-21 202634.pngImmagine 2021-10-21 203344.png
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto