49 e 89 dopo 4 volte usciti gli zerati

[carlo58]

Salve.
Alla vostra esperienza di listati, volevo sapere se esiste un listato di questa tecnica trovata su Internet.
Oppure s'è possibile fare questo listato.

Teoria. Ogni qualvolta su una Ruota e in una sequenza
di 10 estrazioni rileviamo la presenza di almeno 4 numeri
appartenenti alla seguente serie: 10 – 20 – 30 – 40 –
50 – 60 – 70 – 80 – 90, metteremo in gioco solo sulla
Ruota di ricerca e per un periodo massimo di 6 estrazioni,
la seguente previsione composta da un solo Ambo
Secco 49-89

Vediamo un esempio di applicazione:
Ruota di GENOVA
31.08.2006 76 36 39 25 60
12.09.2006 66 54 70 32 22
14.09.2006 69 54 61 70 62
21.09.2006 21 35 80 54 86
Esito: Ambo Secco 49-89 al 6° colpo.

[zagort]

se ti accontenti
i

Codice: Seleziona tutto

Sub Main()
   Dim num1(2),num2(8),ruote(5),posta(1),poste(5)
   posta(1) = 3:poste(2) = 2:poste(3) = 1.3:poste(4) = 0.6:poste(5) = 0.1
   ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",10)
   k = InputBox("per quanti colpi?","colpi di gioco",14)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   Scrivi "metodo zerati consecutivi",1
   Scrivi "chilohafatto",1
   Scrivi String(72,"=")
   Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
   DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
   For es = ini To EstrazioneFin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      For r1 = 1 To 11
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 5
            For p2 = 1 To 5
               For p3 = 1 To 5
                  For p4 = 1 To 5
                     a = Estratto(es - 4,r1,p1)
                     b = Estratto(es - 3,r1,p2)
                     c = Estratto(es - 2,r1,p3)
                     d = Estratto(es - 1,r1,p4)
                     If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 And Cadenza(d) = 0      Then
                     
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es-4,r1),1
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es-3,r1),1
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es-2,r1),1
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es-1,r1),1
                        ruote(1) = r1:ruote(2) = 11
                        num1(1) = 49
                        num1(2) = 89
                        ImpostaGiocata 1,num1,ruote,poste,k
                        Gioca es,1
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
   Scrivi "metodo zerati consecutivi",1
   Scrivi "di chilohafatto",1
End Sub