Novità

numeri spia

genios

Advanced Member >PLATINUM<
Spero che qualcuno mi aiuti in questa modifica


For spia=1 To 90
Messaggio "NUMERO SPIA "&spia

For x=0 To 2000
es=(fin-x)-9
If Posizione (es,r,spia)>0 Then
cs=cs+1

For y=1 To 90
nu(1)=y
If SerieFreq (es+1,es+9,nu,ru,1)>0 Then
prnu(y,1)=y
prnu(y,2)=prnu(y,2)+1
End If
Next

Questo e’ il cuore della ricerca a cui corrisponde la presenza di ognuno de i novanta numeri dopo l’ uscita di una spia contando 9 estrazioni dopo l’ uscita della spia stessa . La modifica che dovresti fare e’ la seguente : uscito il numero spia va trovato almeno un numero per ogni decina naturale dopo di che si interrompe la ricerca . ( naturalmente se nella stessa estrazione ci sono due numeri della stessa decina vanno presi in considerazione tutti e due )questo va fatto per le 18 volte che esce la spia.

QUESTO E IL LISTATO DA MODIFICARE

Sub main()
Scrivi " NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA"
Dim nu(1)
Dim ru(1)
Dim prnu(90,2)
Dim rig1(90)
Dim rig2(90)

fin=EstrazioneFin
r=InputBox("SU' CHE RUOTA FACCIO LA RICERCA",,10)
ColoreTesto 2
Scrivi "Ricerca sulla ruota di "&NomeRuota(r)&" relativa alle "&_
"ultime 18 sortite della spia e alle 15 "
Scrivi "maggiori presenze in un periodo di 9 estr. successive"&_
" alla spiata"& String(18," ")&"Robyca"
ColoreTesto 0
Scrivi String(89,"*")
Scrivi
ru(1)=r

For spia=1 To 90
Messaggio "NUMERO SPIA "&spia

For x=0 To 2000
es=(fin-x)-9
If Posizione (es,r,spia)>0 Then
cs=cs+1

For y=1 To 90
nu(1)=y
If SerieFreq (es+1,es+9,nu,ru,1)>0 Then
prnu(y,1)=y
prnu(y,2)=prnu(y,2)+1
End If
Next

If cs=18 Then
cs1=x
Exit For
End If
End If
Next
OrdinaMatrice prnu,1,2

For j=1 To 90
rig1(spia)=rig1(spia)+FormatSpace(prnu(j,1),3,True )
rig2(spia)=rig2(spia)+FormatSpace(prnu(j,2),3,True )
Next

ColoreTesto 2
Scrivi NomeRuota(r)&" N. spia: "&spia&" sortito "&_
cs&" volte in "&cs1&" estr."
ColoreTesto 0
Scrivi rig1(spia)
ColoreTesto 1
Scrivi rig2(spia)
Scrivi

cs=0
Erase prnu
Next


End SuB

Ciao Eu geniospie.jpg
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto