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ì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16

Ultimi Messaggi

Indietro
Alto