Novità

forse una buona base

genios

Advanced Member >PLATINUM PLUS<
Dall’ estrazione n 1 del superenalotto all’ estrazione n 10 controllare quali delle 30 terzine della matrice abbiano dato 0 punti . Mettere in gioco quindi le terzine con 0 punti dall’ estrazione 11 fino alla 15 e verificarne l’ esito per ciascuna estrazione . Fare di nuovo il controllo delle 30 terzine dall’ estrazione partendo dall’ estrazione 11 alla estrazione 20 e mettere in gioco le terzine che abbiano dato 0 punti dall’ estrazione 21 fino alla 25 e verificarne l’ esito per ciascuna estrazione e cosi via fino all’ estrazione attuale . ciao Eugenio
numeri(1,1 )=1
numeri(2,1 )=2
numeri(3,1 )=3

numeri(1,2 )=4
numeri(2,2 )=5
numeri(3,2 )=6

numeri(1,3 )=7
numeri(2,3 )=8
numeri(3,3 )=9

numeri(1,4 )=10
numeri(2,4 )=11
numeri(3,4 )=12

numeri(1,5 )=13
numeri(2,5 )=14
numeri(3,5 )=15

numeri(1,6 )=16
numeri(2,6 )=17
numeri(3,6 )=18

numeri(1,7 )=19
numeri(2,7 )=20
numeri(3,7 )=21

numeri(1,8 )=22
numeri(2,8 )=23
numeri(3,8 )=24

numeri(1,9 )=25
numeri(2,9 )=26
numeri(3,9 )=27

numeri(1,10 )=28
numeri(2,10 )=29
numeri(3,10 )=30

numeri(1,11 )=31
numeri(2,11 )=32
numeri(3,11 )=33

numeri(1,12 )=34
numeri(2,12 )=35
numeri(3,12 )=36

numeri(1,13 )=37
numeri(2,13 )=38
numeri(3,13 )=39

numeri(1,14 )=40
numeri(2,14 )=41
numeri(3,14 )=42

numeri(1,15 )=43
numeri(2,15 )=44
numeri(3,15 )=45

numeri(1,16 )=46
numeri(2,16 )=47
numeri(3,16 )=48

numeri(1,17 )=49
numeri(2,17 )=50
numeri(3,17 )=51

numeri(1,18 )=52
numeri(2,18 )=53
numeri(3,18 )=54

numeri(1,19 )=55
numeri(2,19 )=56
numeri(3,19 )=57

numeri(1,20 )=58
numeri(2,20 )=59
numeri(3,20 )=60

numeri(1,21 )=61
numeri(2,21 )=62
numeri(3,21 )=63

numeri(1,22 )=64
numeri(2,22 )=65
numeri(3,22 )=66

numeri(1,23 )=67
numeri(2,23 )=68
numeri(3,23 )=69

numeri(1,24 )=70
numeri(2,24 )=71
numeri(3,24 )=72

numeri(1,25 )=73
numeri(2,25 )=74
numeri(3,25 )=75

numeri(1,26 )=76
numeri(2,26 )=77
numeri(3,26 )=78

numeri(1,27 )=79
numeri(2,27 )=80
numeri(3,27 )=81

numeri(1,28 )=82
numeri(2,28 )=83
numeri(3,28 )=84

numeri(1,29 )=85
numeri(2,29 )=86
numeri(3,29 )=87

numeri(1,30 )=88
numeri(2,30 )=89
numeri(3,30 )=90
 
Primo step . Dichiarazione matrici ciclo sulle estrazioni e lettura matrice numeri . Ora ho bisogno d' aiuto .

Codice:
Option Explicit
Sub Main
Dim c(90)
Dim EstrazioneIniziale,EstrazioneFinale
Dim retestratti,retesito,es
Dim i,j
Dim Numeri(3,30)
Numeri(1,1) = 1
Numeri(2,1) = 2
Numeri(3,1) = 3
Numeri(1,2) = 4
Numeri(2,2) = 5
Numeri(3,2) = 6
Numeri(1,3) = 7
Numeri(2,3) = 8
Numeri(3,3) = 9
Numeri(1,4) = 10
Numeri(2,4) = 11
Numeri(3,4) = 12
Numeri(1,5) = 13
Numeri(2,5) = 14
Numeri(3,5) = 15
Numeri(1,6) = 16
Numeri(2,6) = 17
Numeri(3,6) = 18
Numeri(1,7) = 19
Numeri(2,7) = 20
Numeri(3,7) = 21
Numeri(1,8) = 22
Numeri(2,8) = 23
Numeri(3,8) = 24
Numeri(1,9) = 25
Numeri(2,9) = 26
Numeri(3,9) = 27
Numeri(1,10) = 28
Numeri(2,10) = 29
Numeri(3,10) = 30
Numeri(1,11) = 31
Numeri(2,11) = 32
Numeri(3,11) = 33
Numeri(1,12) = 34
Numeri(2,12) = 35
Numeri(3,12) = 36
Numeri(1,13) = 37
Numeri(2,13) = 38
Numeri(3,13) = 39
Numeri(1,14) = 40
Numeri(2,14) = 41
Numeri(3,14) = 42
Numeri(1,15) = 43
Numeri(2,15) = 44
Numeri(3,15) = 45
Numeri(1,16) = 46
Numeri(2,16) = 47
Numeri(3,16) = 48
Numeri(1,17) = 49
Numeri(2,17) = 50
Numeri(3,17) = 51
Numeri(1,18) = 52
Numeri(2,18) = 53
Numeri(3,18) = 54
Numeri(1,19) = 55
Numeri(2,19) = 56
Numeri(3,19) = 57
Numeri(1,20) = 58
Numeri(2,20) = 59
Numeri(3,20) = 60
Numeri(1,21) = 61
Numeri(2,21) = 62
Numeri(3,21) = 63
Numeri(1,22) = 64
Numeri(2,22) = 65
Numeri(3,22) = 66
Numeri(1,23) = 67
Numeri(2,23) = 68
Numeri(3,23) = 69
Numeri(1,24) = 70
Numeri(2,24) = 71
Numeri(3,24) = 72
Numeri(1,25) = 73
Numeri(2,25) = 74
Numeri(3,25) = 75
Numeri(1,26) = 76
Numeri(2,26) = 77
Numeri(3,26) = 78
Numeri(1,27) = 79
Numeri(2,27) = 80
Numeri(3,27) = 81
Numeri(1,28) = 82
Numeri(2,28) = 83
Numeri(3,28) = 84
Numeri(1,29) = 85
Numeri(2,29) = 86
Numeri(3,29) = 87
Numeri(1,30) = 88
Numeri(2,30) = 89
Numeri(3,30) = 90
EstrazioneIniziale = 1
EstrazioneFinale = EstrazioniArchivioSE
For es = EstrazioneIniziale To EstrazioniArchivioSE
For i = 1 To 30
For j = 1 To 3
c(j) = Numeri(j,i)
Next
Next
Next
End Sub
 
Ultima modifica:
Dato che in 10 estrazioni non si sa a priori quante terzine abbiano dato 0 punti in 10 estrazioni come va inizializzata la variabile che conterrà le terzine di cui va verificato l' esito ?
 
Buonanotte ,
Salutando tutti .
Provi cosi e continui lei .

Codice:
Option Explicit
Sub Main
Dim c(90)
Dim EstrazioneIniziale,EstrazioneFinale
Dim retestratti,retesito,es
Dim i,j
Dim Numeri(03,30)
Numeri(01,01) = 01
Numeri(02,01) = 02
Numeri(03,01) = 03
Numeri(01,02) = 04
Numeri(02,02) = 05
Numeri(03,02) = 06
Numeri(01,03) = 07
Numeri(02,03) = 08
Numeri(03,03) = 09
Numeri(01,04) = 10
Numeri(02,04) = 11
Numeri(03,04) = 12
Numeri(01,05) = 13
Numeri(02,05) = 14
Numeri(03,05) = 15
Numeri(01,06) = 16
Numeri(02,06) = 17
Numeri(03,06) = 18
Numeri(01,07) = 19
Numeri(02,07) = 20
Numeri(03,07) = 21
Numeri(01,08) = 22
Numeri(02,08) = 23
Numeri(03,08) = 24
Numeri(01,09) = 25
Numeri(02,09) = 26
Numeri(03,09) = 27
Numeri(01,10) = 28
Numeri(02,10) = 29
Numeri(03,10) = 30
Numeri(01,11) = 31
Numeri(02,11) = 32
Numeri(03,11) = 33
Numeri(01,12) = 34
Numeri(02,12) = 35
Numeri(03,12) = 36
Numeri(01,13) = 37
Numeri(02,13) = 38
Numeri(03,13) = 39
Numeri(01,14) = 40
Numeri(02,14) = 41
Numeri(03,14) = 42
Numeri(01,15) = 43
Numeri(02,15) = 44
Numeri(03,15) = 45
Numeri(01,16) = 46
Numeri(02,16) = 47
Numeri(03,16) = 48
Numeri(01,17) = 49
Numeri(02,17) = 50
Numeri(03,17) = 51
Numeri(01,18) = 52
Numeri(02,18) = 53
Numeri(03,18) = 54
Numeri(01,19) = 55
Numeri(02,19) = 56
Numeri(03,19) = 57
Numeri(01,20) = 58
Numeri(02,20) = 59
Numeri(03,20) = 60
Numeri(01,21) = 61
Numeri(02,21) = 62
Numeri(03,21) = 63
Numeri(01,22) = 64
Numeri(02,22) = 65
Numeri(03,22) = 66
Numeri(01,23) = 67
Numeri(02,23) = 68
Numeri(03,23) = 69
Numeri(01,24) = 70
Numeri(02,24) = 71
Numeri(03,24) = 72
Numeri(01,25) = 73
Numeri(02,25) = 74
Numeri(03,25) = 75
Numeri(01,26) = 76
Numeri(02,26) = 77
Numeri(03,26) = 78
Numeri(01,27) = 79
Numeri(02,27) = 80
Numeri(03,27) = 81
Numeri(01,28) = 82
Numeri(02,28) = 83
Numeri(03,28) = 84
Numeri(01,29) = 85
Numeri(02,29) = 86
Numeri(03,29) = 87
Numeri(01,30) = 88
Numeri(02,30) = 89
Numeri(03,30) = 90
EstrazioneIniziale = EstrazioniArchivioSE
EstrazioneFinale = EstrazioniArchivioSE
For es = EstrazioneIniziale To EstrazioniArchivioSE
For i = 01 To 30
For j = 01 To 03
c(j) = Numeri(j,i)
Next
Call VerificaEsitoSE(c,es,AMBATA_,01,retesito,,retestratti)
Call Scrivi(GetInfoEstrazioneSE(es) & "  " & StringaNumeri(c,,True) & "  " & retesito & "  " & retestratti)
Next
Next
End Sub
Controllare Sempre .
Salvo Errori ed Omissis .
 
Penso che la funzione verifica esito non sia consona per selezionare le terzine che in 10 estrazioni non abbiano dato esito . Penso sia consona invece la funzione seriefrequenze . Ma come fare ?

Codice:
Option Explicit
Sub Main
Dim c(90)
Dim EstrazioneIniziale,EstrazioneFinale
Dim retestratti,retesito,es
Dim i,j
Dim Numeri(03,30)
Dim freq
EstrazioneIniziale=1
EstrazioneFinale=10
Numeri(01,01) = 01
Numeri(02,01) = 02
Numeri(03,01) = 03
Numeri(01,02) = 04
Numeri(02,02) = 05
Numeri(03,02) = 06
Numeri(01,03) = 07
Numeri(02,03) = 08
Numeri(03,03) = 09
Numeri(01,04) = 10
Numeri(02,04) = 11
Numeri(03,04) = 12
Numeri(01,05) = 13
Numeri(02,05) = 14
Numeri(03,05) = 15
Numeri(01,06) = 16
Numeri(02,06) = 17
Numeri(03,06) = 18
Numeri(01,07) = 19
Numeri(02,07) = 20
Numeri(03,07) = 21
Numeri(01,08) = 22
Numeri(02,08) = 23
Numeri(03,08) = 24
Numeri(01,09) = 25
Numeri(02,09) = 26
Numeri(03,09) = 27
Numeri(01,10) = 28
Numeri(02,10) = 29
Numeri(03,10) = 30
Numeri(01,11) = 31
Numeri(02,11) = 32
Numeri(03,11) = 33
Numeri(01,12) = 34
Numeri(02,12) = 35
Numeri(03,12) = 36
Numeri(01,13) = 37
Numeri(02,13) = 38
Numeri(03,13) = 39
Numeri(01,14) = 40
Numeri(02,14) = 41
Numeri(03,14) = 42
Numeri(01,15) = 43
Numeri(02,15) = 44
Numeri(03,15) = 45
Numeri(01,16) = 46
Numeri(02,16) = 47
Numeri(03,16) = 48
Numeri(01,17) = 49
Numeri(02,17) = 50
Numeri(03,17) = 51
Numeri(01,18) = 52
Numeri(02,18) = 53
Numeri(03,18) = 54
Numeri(01,19) = 55
Numeri(02,19) = 56
Numeri(03,19) = 57
Numeri(01,20) = 58
Numeri(02,20) = 59
Numeri(03,20) = 60
Numeri(01,21) = 61
Numeri(02,21) = 62
Numeri(03,21) = 63
Numeri(01,22) = 64
Numeri(02,22) = 65
Numeri(03,22) = 66
Numeri(01,23) = 67
Numeri(02,23) = 68
Numeri(03,23) = 69
Numeri(01,24) = 70
Numeri(02,24) = 71
Numeri(03,24) = 72
Numeri(01,25) = 73
Numeri(02,25) = 74
Numeri(03,25) = 75
Numeri(01,26) = 76
Numeri(02,26) = 77
Numeri(03,26) = 78
Numeri(01,27) = 79
Numeri(02,27) = 80
Numeri(03,27) = 81
Numeri(01,28) = 82
Numeri(02,28) = 83
Numeri(03,28) = 84
Numeri(01,29) = 85
Numeri(02,29) = 86
Numeri(03,29) = 87
Numeri(01,30) = 88
Numeri(02,30) = 89
Numeri(03,30) = 90

For es = EstrazioneIniziale To EstrazioneFinale
For i = 01 To 30
For j = 01 To 03
c(j) = Numeri(j,i)
Next

Call VerificaEsitoSE(c,es,AMBATA_,01,retesito,,retestratti)
Call Scrivi(GetInfoEstrazioneSE(es) &"  " & StringaNumeri(c,,True) &"  " & retesito & "  " & retestratti)

Next
Next
End Sub
 
Come faccio a far stampare in out le terzine trovate con 0 presene ?

Codice:
[Option Explicit
Sub Main
Dim c(90)
Dim EstrazioneIniziale,EstrazioneFinale
Dim retestratti,retesito,es,presenza
Dim i,j
Dim Numeri(03,30)
Numeri(01,01) = 01
Numeri(02,01) = 02
Numeri(03,01) = 03
Numeri(01,02) = 04
Numeri(02,02) = 05
Numeri(03,02) = 06
Numeri(01,03) = 07
Numeri(02,03) = 08
Numeri(03,03) = 09
Numeri(01,04) = 10
Numeri(02,04) = 11
Numeri(03,04) = 12
Numeri(01,05) = 13
Numeri(02,05) = 14
Numeri(03,05) = 15
Numeri(01,06) = 16
Numeri(02,06) = 17
Numeri(03,06) = 18
Numeri(01,07) = 19
Numeri(02,07) = 20
Numeri(03,07) = 21
Numeri(01,08) = 22
Numeri(02,08) = 23
Numeri(03,08) = 24
Numeri(01,09) = 25
Numeri(02,09) = 26
Numeri(03,09) = 27
Numeri(01,10) = 28
Numeri(02,10) = 29
Numeri(03,10) = 30
Numeri(01,11) = 31
Numeri(02,11) = 32
Numeri(03,11) = 33
Numeri(01,12) = 34
Numeri(02,12) = 35
Numeri(03,12) = 36
Numeri(01,13) = 37
Numeri(02,13) = 38
Numeri(03,13) = 39
Numeri(01,14) = 40
Numeri(02,14) = 41
Numeri(03,14) = 42
Numeri(01,15) = 43
Numeri(02,15) = 44
Numeri(03,15) = 45
Numeri(01,16) = 46
Numeri(02,16) = 47
Numeri(03,16) = 48
Numeri(01,17) = 49
Numeri(02,17) = 50
Numeri(03,17) = 51
Numeri(01,18) = 52
Numeri(02,18) = 53
Numeri(03,18) = 54
Numeri(01,19) = 55
Numeri(02,19) = 56
Numeri(03,19) = 57
Numeri(01,20) = 58
Numeri(02,20) = 59
Numeri(03,20) = 60
Numeri(01,21) = 61
Numeri(02,21) = 62
Numeri(03,21) = 63
Numeri(01,22) = 64
Numeri(02,22) = 65
Numeri(03,22) = 66
Numeri(01,23) = 67
Numeri(02,23) = 68
Numeri(03,23) = 69
Numeri(01,24) = 70
Numeri(02,24) = 71
Numeri(03,24) = 72
Numeri(01,25) = 73
Numeri(02,25) = 74
Numeri(03,25) = 75
Numeri(01,26) = 76
Numeri(02,26) = 77
Numeri(03,26) = 78
Numeri(01,27) = 79
Numeri(02,27) = 80
Numeri(03,27) = 81
Numeri(01,28) = 82
Numeri(02,28) = 83
Numeri(03,28) = 84
Numeri(01,29) = 85
Numeri(02,29) = 86
Numeri(03,29) = 87
Numeri(01,30) = 88
Numeri(02,30) = 89
Numeri(03,30) = 90
EstrazioneIniziale = EstrazioniArchivioSE-15
EstrazioneFinale = EstrazioniArchivioSE
For es = EstrazioneIniziale To EstrazioniArchivioSE
For i = 01 To 30
For j = 01 To 03
c(j) = Numeri(j,i)
Next
presenza=SerieFreqSE(es, es+5, c, 0) 

If presenza=0 Then 
Scrivi "le terzine trovate con 0 presenze sono :"
End If 

'Call VerificaEsitoSE(c,es,AMBATA_,01,retesito,,retestratti)
'Call Scrivi(GetInfoEstrazioneSE(es) &"  " &StringaNumeri(c,,True) &"  " &retesito &"  " &retestratti)
Next
Next
End Sub/CODE]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto