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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto