Novità

Per Salvo Rubino Mike o altro scripter

sorujoe

Advanced Member >GOLD<
Vi chiedo gentilmente questo script

Analizzo una estrazione prendo il primo estratto e vado dietro di 2 concorsi e lo sommo al primo estratto della medesima ruota; Tale somma la chiameremo "K"
"k" non deve essere ne un gemello ne uno in cadenza 9
"k" e il vertibile è l'ambata da giocare sulla ruota in esame per i colpi indicati
ACCERTARSI che i tre concorsi in cui ho fatto il rilevamento non sia presente nessuna delle due ambate.

Tale analisi va fatta anche sui secondi estratti (da sommare con i l secondo di 2 estrazioni prima) ...coi terzi ...coi quarti e coi quinti
avrò al massimo per ogni concorso 5 previsioni ogni ruota.
  1. Devo poter immettere la ruota;
  2. data inizio script e per quanti colpi fare lo spoglio per estratto e ambo ....spoglio completo cioè non fermarsi al primo esito solamente
Esempio Reale
23/05/2019 Bari primo estratto: 13
21/05/2019
18/05/2019 Bari primo estratto 30

30+13= 43 e vertibile 34 in gioco su Bari per i colpi che indico
Ove necessario fare il -90

Nelle tre estrazioni il 34 e 43 non devono esserci su Bari. Tale analisi andrà fatta anche coi secondi, terzi, quarti e quinti estratti (secondo con secondo; terzo con terzo, quarto con quarto e quinto con quinto)

Grazie
 
Ultima modifica:
Altra cortesia che vi chiedo
questo script me lo potete far girare su spaziometria includendo la nazionale?
Se mi permettete di mettere il concorso di avvio dello script e i colpi senza doverli mettere dal codice sarebbe ideale.
Anche in questo nelle 3 estrazioni di calcolo nessuna delle ambate deve essere presente a ruota e non deve includere ambate derivanti da gemelli o cadenza 9. Grazie

HTML:
Sub Main()
Dim am(10)
Dim ruote(10)
Dim posta(5)
posta(1)=1


fin=EstrazioneFin
ini=9300
For es=ini To fin
For r=1 To 10
For p=1 To 5
For p1=3 To 3
a=Estratto(es,r,p)
If a=<10 Then
b=Estratto(es-2,r,p1)
Scrivi "----------------------------------------------------"
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),10)&" "&CInt(a)
Scrivi DataEstrazione(es-2)&" "&Left(NomeRuota(r),10)&" "&CInt(b)
ruote(1)=r

c=Fuori90(a+b)
d=Vert(c)

am(1)=c
am(2)=d

ImpostaGiocata 1,am,ruote,posta,5


Gioca es

End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Ciao,controlla se va bene.
Per quanto riguarda il 2°, a me gira su Spaziometria così com' è.
Cinzia

Codice:
'Metodo proposto da Sorujoe
'prendo il primo estratto e vado dietro di 2 concorsi e lo sommo al primo estratto della medesima ruota; Tale somma la chiameremo "K"
'"k" non deve essere ne un gemello ne uno in cadenza 9
'"k" e il vertibile è l'ambata da giocare sulla ruota in esame per i colpi indicati
'ACCERTARSI che i tre concorsi in cui ho fatto il rilevamento non sia presente nessuna delle due ambate.
'Script Cinzia
Sub Main()
Dim ru(1),n(1),n1(1),n2(1),n3(1),n4(1),nn(2),nn1(2),nn2(2),nn3(2),nn4(2),ps(2)
ps(1)=1
ps(2)=1
r=CInt(InputBox("La ruota su cui vuoi giocare?","Ruota di gioco",1))
If r="" Then Exit Sub
pos=CInt(InputBox("Quale posizione vuoi esaminare?","Posizione",1))
If pos="" Then Exit Sub
ex=CInt(InputBox("Quante estrazioni vuoi analizzare?","ultime",10))
If ex="" Then Exit Sub
col=CInt(InputBox("Per quanti colpi?","colpi",10))
If col="" Then Exit Sub

For es=EstrazioneFin-ex To EstrazioneFin

For r=1 To 10
ru(1)=r

a=Estratto(es,r,pos)
b=Estratto(es-2,r,pos)
If a>0 And b>0 Then
k=Fuori90(a+b)
If Gemello(k)=False Then
If Cadenza(k)<>9 Then
n(1)=k


nn(1)=k
nn(2)=Vert(k)
If SerieFreq(es-2,es,nn,ru,1)=0 Then
Scrivi

Scrivi SiglaRuota(r)&" "&StringaEstratti(es-2,r)&" "&SiglaRuota(r)&" "&StringaEstratti(es,r)

ImpostaGiocata 1,nn,ru,ps,col

Gioca es
End If
End If
End If
End If
Next
Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 ottobre 2025
    Bari
    09
    10
    42
    73
    59
    Cagliari
    14
    65
    66
    79
    83
    Firenze
    71
    15
    32
    04
    61
    Genova
    08
    02
    18
    87
    84
    Milano
    33
    08
    84
    80
    41
    Napoli
    29
    81
    50
    17
    83
    Palermo
    14
    28
    74
    19
    60
    Roma
    76
    32
    55
    67
    90
    Torino
    07
    02
    66
    15
    70
    Venezia
    34
    73
    70
    40
    09
    Nazionale
    87
    79
    36
    46
    02
    Estrazione Simbolotto
    25
    07
    23
    17
    30
Indietro
Alto