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ì 03 aprile 2025
    Bari
    71
    57
    74
    66
    81
    Cagliari
    08
    71
    63
    28
    13
    Firenze
    02
    77
    51
    48
    40
    Genova
    20
    73
    85
    80
    83
    Milano
    13
    69
    82
    14
    43
    Napoli
    89
    22
    84
    57
    80
    Palermo
    88
    17
    29
    43
    68
    Roma
    20
    10
    67
    41
    39
    Torino
    59
    43
    71
    34
    78
    Venezia
    57
    35
    28
    39
    29
    Nazionale
    52
    72
    73
    26
    77
    Estrazione Simbolotto
    Genova
    25
    07
    38
    14
    18
Indietro
Alto