Novità

Cagliari solo 2 colpi!

Molto bene,a breve vi metto l'ambo preso a cagliari 44-56 e il 70-84 che era ancora in corso,per farvi capire Missione cosa voleva dire nei suoi programmi.Da come li ho interpretati io.
 
cit:autore @Ramco Top
Codice:
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp
ru = ScegliRuota
pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60)
Ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = Ini To fin
   For r = 1 To 11
      If r = 11 Then r = 12
      If r = ru Then
         rt(1) = r
         co = 0
         For p = 1 To 5
            a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89)
            If Cadenza(a) = 1 Then c = 0
            If Cadenza(a) = 0 Then b = 0
            nu(1) = a: nu(2) = b: nu(3) = c
            co = co + 1
            Scrivi: Scrivi "Data " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  analisi " & p & "° estratto " & a
                        OrdinaMatrice nu,1
            ImpostaGiocata co,nu,rt,pt,clp
            Gioca es
         Next
         Scrivi String(100,"="): Scrivi
      End If
   Next
Next
ScriviResoconto
End Sub

cit ;Autore pubblicazione grande Missione

Codice:
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
r = 1
ru(1) = r
nua(1) = Estratto(es,r,1) - 1 : nua(2) = Estratto(es,r,1) : nua(3) = Estratto(es,r,1) + 1
nub(1) = Estratto(es,r,2) - 1 : nub(2) = Estratto(es,r,2) : nub(3) = Estratto(es,r,2) + 1
nuc(1) = Estratto(es,r,3) - 1 : nuc(2) = Estratto(es,r,3) : nuc(3) = Estratto(es,r,3) + 1
nud(1) = Estratto(es,r,4) - 1 : nud(2) = Estratto(es,r,4) : nud(3) = Estratto(es,r,4) + 1
nue(1) = Estratto(es,r,5) - 1 : nue(2) = Estratto(es,r,5) : nue(3) = Estratto(es,r,5) + 1
co = 1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
ImpostaGiocata co,nua,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nub,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nuc,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nud,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nue,ru,poste,18,2
co = co + 1
Gioca es
Next
ScriviResoconto
End Sub


Cit Autore @Marcorun
Codice:
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
r = 1
ru(1) = r
nua(1) = Estratto(es,r,1) - 1 : nua(2) = Estratto(es,r,1) : nua(3) = Estratto(es,r,1) + 1
nub(1) = Estratto(es,r,2) - 1 : nub(2) = Estratto(es,r,2) : nub(3) = Estratto(es,r,2) + 1
nuc(1) = Estratto(es,r,3) - 1 : nuc(2) = Estratto(es,r,3) : nuc(3) = Estratto(es,r,3) + 1
nud(1) = Estratto(es,r,4) - 1 : nud(2) = Estratto(es,r,4) : nud(3) = Estratto(es,r,4) + 1
nue(1) = Estratto(es,r,5) - 1 : nue(2) = Estratto(es,r,5) : nue(3) = Estratto(es,r,5) + 1
If nua(1) = 10 Then nua(1) = False
If nua(1) = 20 Then nua(1) = False
If nua(1) = 30 Then nua(1) = False
If nua(1) = 40 Then nua(1) = False
If nua(1) = 50 Then nua(1) = False
If nua(1) = 60 Then nua(1) = False
If nua(1) = 70 Then nua(1) = False
If nua(1) = 80 Then nua(1) = False
If nua(1) = 90 Then nua(1) = False
If nub(1) = 10 Then nub(1) = False
If nub(1) = 20 Then nub(1) = False
If nub(1) = 30 Then nub(1) = False
If nub(1) = 40 Then nub(1) = False
If nub(1) = 50 Then nub(1) = False
If nub(1) = 60 Then nub(1) = False
If nub(1) = 70 Then nub(1) = False
If nub(1) = 80 Then nub(1) = False
If nub(1) = 90 Then nub(1) = False
If nuc(1) = 10 Then nuc(1) = False
If nuc(1) = 20 Then nuc(1) = False
If nuc(1) = 30 Then nuc(1) = False
If nuc(1) = 40 Then nuc(1) = False
If nuc(1) = 50 Then nuc(1) = False
If nuc(1) = 60 Then nuc(1) = False
If nuc(1) = 70 Then nuc(1) = False
If nuc(1) = 80 Then nuc(1) = False
If nuc(1) = 90 Then nuc(1) = False
If nud(1) = 10 Then nud(1) = False
If nud(1) = 20 Then nud(1) = False
If nud(1) = 30 Then nud(1) = False
If nud(1) = 40 Then nud(1) = False
If nud(1) = 50 Then nud(1) = False
If nud(1) = 60 Then nud(1) = False
If nud(1) = 70 Then nud(1) = False
If nud(1) = 80 Then nud(1) = False
If nud(1) = 90 Then nud(1) = False
If nue(1) = 10 Then nue(1) = False
If nue(1) = 20 Then nue(1) = False
If nue(1) = 30 Then nue(1) = False
If nue(1) = 40 Then nue(1) = False
If nue(1) = 50 Then nue(1) = False
If nue(1) = 60 Then nue(1) = False
If nue(1) = 70 Then nue(1) = False
If nue(1) = 80 Then nue(1) = False
If nue(1) = 90 Then nue(1) = False

If nua(3) = 11 Then nua(3) = False
If nua(3) = 21 Then nua(3) = False
If nua(3) = 31 Then nua(3) = False
If nua(3) = 41 Then nua(3) = False
If nua(3) = 51 Then nua(3) = False
If nua(3) = 61 Then nua(3) = False
If nua(3) = 71 Then nua(3) = False
If nua(3) = 81 Then nua(3) = False
If nua(3) = 1 Then nua(3) = False
If nub(3) = 11 Then nub(3) = False
If nub(3) = 21 Then nub(3) = False
If nub(3) = 31 Then nub(3) = False
If nub(3) = 41 Then nub(3) = False
If nub(3) = 51 Then nub(3) = False
If nub(3) = 61 Then nub(3) = False
If nub(3) = 71 Then nub(3) = False
If nub(3) = 81 Then nub(3) = False
If nub(3) = 1 Then nub(3) = False
If nuc(3) = 11 Then nuc(3) = False
If nuc(3) = 21 Then nuc(3) = False
If nuc(3) = 31 Then nuc(3) = False
If nuc(3) = 41 Then nuc(3) = False
If nuc(3) = 51 Then nuc(3) = False
If nuc(3) = 61 Then nuc(3) = False
If nuc(3) = 71 Then nuc(3) = False
If nuc(3) = 81 Then nuc(3) = False
If nuc(3) = 1 Then nuc(3) = False
If nud(3) = 11 Then nud(3) = False
If nud(3) = 21 Then nud(3) = False
If nud(3) = 31 Then nud(3) = False
If nud(3) = 41 Then nud(3) = False
If nud(3) = 51 Then nud(3) = False
If nud(3) = 61 Then nud(3) = False
If nud(3) = 71 Then nud(3) = False
If nud(3) = 81 Then nud(3) = False
If nud(3) = 1 Then nud(3) = False
If nue(3) = 11 Then nue(3) = False
If nue(3) = 21 Then nue(3) = False
If nue(3) = 31 Then nue(3) = False
If nue(3) = 41 Then nue(3) = False
If nue(3) = 51 Then nue(3) = False
If nue(3) = 61 Then nue(3) = False
If nue(3) = 71 Then nue(3) = False
If nue(3) = 81 Then nue(3) = False
If nue(3) = 1 Then nue(3) = False




co = 1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
ImpostaGiocata co,nua,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nub,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nuc,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nud,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nue,ru,poste,18,2
co = co + 1
Gioca es
'End If
Next
ScriviResoconto
End Sub


Previsionistica Razionale 1 e 2 Arn se sai come usarli è una bella combinazione di dati
Arn Plugin Previsionistica



buona ricerca il primo di ramco è perfetto
 
Come sempre succede ai migliori studiosi del lotto sempre e solo per cronaca, esce l ambo 70-84 a Cagliari.
Era per tutto il mese di marzo nei miei studi. Ma il 70 era troppo probabile. Troppo evidente.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 14 novembre 2025
    Bari
    09
    52
    43
    68
    73
    Cagliari
    16
    44
    01
    57
    28
    Firenze
    41
    61
    73
    30
    22
    Genova
    46
    56
    68
    29
    74
    Milano
    56
    43
    66
    71
    65
    Napoli
    36
    81
    52
    24
    47
    Palermo
    67
    72
    49
    35
    84
    Roma
    84
    48
    83
    71
    07
    Torino
    53
    45
    10
    87
    05
    Venezia
    46
    48
    13
    49
    25
    Nazionale
    16
    54
    86
    83
    84
    Estrazione Simbolotto
    Torino
    08
    17
    45
    01
    38

Ultimi Messaggi

Indietro
Alto