Novità

Cagliari solo 2 colpi!

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
Indietro
Alto