Novità

forse una buona base

G

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
Clicca per espandere...
 
G

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:
G

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

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
 
G

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]
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto