In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da carlo58 il 25/06/2021, 1:26
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.
-
carlo58
-
- Messaggi: 8
- Iscritto il: 09/06/2021, 2:17
da zagort il 26/07/2021, 9:34
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
-
zagort
-
- Messaggi: 123
- Iscritto il: 20/06/2013, 19:46
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|