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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto