Novità

forse una buona base

genios

Advanced Member >PLATINUM<
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
 

genios

Advanced Member >PLATINUM<
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:

genios

Advanced Member >PLATINUM<
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 ?
 
M

Membro cancellato 16574

Guest
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 .
 

genios

Advanced Member >PLATINUM<
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
 

genios

Advanced Member >PLATINUM<
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ì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto