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ì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09

Ultimi Messaggi

Indietro
Alto