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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13

Ultimi Messaggi

Indietro
Alto