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 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto