Novità

x djnomade

???

Codice: 
Sub Main()
    ColoreTesto 2
    Scrivi "================================================== TABELLA SETTENARIA===================== ",1
    Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo idea di Franca46 =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    Scrivi
    ColoreTesto 0
    Dim ruota(2)
    Dim numeri(5),numeri1(5),numeri2(5),amb(5)
    Dim posta(2)
    Dim poste(2),postee(5)
    posta(1) = 1
    posta(2) = 1
    poste(2) = 1
    postee(2) = 1
    postee(3) = 1
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",20))
    clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
    co = 0
    ini = EstrazioneFin - tmp
    For n = ini To EstrazioneFin
        Messaggio(n)
        For r1 = 1 To 10
           
                a = Estratto(n,r1,p1)
                n1 = Fuori90(SommaEstratti(n,r1)) 
                    co = co + 1
                    Scrivi String(70,"=")
                    ColoreTesto 9
                    Scrivi NomeRuota(r1) & " Somma estratti - " & SommaEstratti(n,r1) & " (FUORI 90) -----> "  & n1,1
                    Scrivi
                    Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ]",1
                    Scrivi
                    ColoreTesto 0
                    ruota(1) = r1
                    If n1 = 1 Then
                        amb(1) = 7
                        amb(2) = 13
                        amb(3) = 78
                        amb(4) = 90
                    End If
                    If n1 = 2 Then
                        amb(1) = 14
                        amb(2) = 26
                        amb(3) = 65
                        amb(4) = 89
                    End If
                    If n1 = 3 Then
                        amb(1) = 21
                        amb(2) = 39
                        amb(3) = 52
                        amb(4) = 88
                    End If
                    If n1 = 4 Then
                        amb(1) = 28
                        amb(2) = 52
                        amb(3) = 39
                        amb(4) = 87
                    End If
                    If n1 = 5 Then
                        amb(1) = 35
                        amb(2) = 65
                        amb(3) = 26
                        amb(4) = 86
                    End If
                    If n1 = 6 Then
                        amb(1) = 42
                        amb(2) = 78
                        amb(3) = 13
                        amb(4) = 85
                    End If
                    If n1 = 7 Then
                        amb(1) = 49
                        amb(2) = 1
                        amb(3) = 90
                        amb(4) = 84
                    End If
                    If n1 = 8 Then
                        amb(1) = 56
                        amb(2) = 14
                        amb(3) = 77
                        amb(4) = 83
                    End If
                    If n1 = 9 Then
                        amb(1) = 63
                        amb(2) = 27
                        amb(3) = 64
                        amb(4) = 82
                    End If
                    If n1 = 10 Then
                        amb(1) = 70
                        amb(2) = 40
                        amb(3) = 51
                        amb(4) = 81
                    End If
                    If n1 = 11 Then
                        amb(1) = 77
                        amb(2) = 53
                        amb(3) = 38
                        amb(4) = 80
                    End If
                    If n1 = 12 Then
                        amb(1) = 84
                        amb(2) = 66
                        amb(3) = 25
                        amb(4) = 79
                    End If
                    If n1 = 13 Then
                        amb(1) = 1
                        amb(2) = 79
                        amb(3) = 12
                        amb(4) = 78
                    End If
                    If n1 = 14 Then
                        amb(1) = 8
                        amb(2) = 2
                        amb(3) = 89
                        amb(4) = 77
                    End If
                    If n1 = 15 Then
                        amb(1) = 15
                        amb(2) = 15
                        amb(3) = 76
                        amb(4) = 76
                    End If
                    If n1 = 16 Then
                        amb(1) = 22
                        amb(2) = 28
                        amb(3) = 63
                        amb(4) = 75
                    End If
                    If n1 = 17 Then
                        amb(1) = 29
                        amb(2) = 41
                        amb(3) = 50
                        amb(4) = 74
                    End If
                    If n1 = 18 Then
                        amb(1) = 36
                        amb(2) = 54
                        amb(3) = 37
                        amb(4) = 73
                    End If
                    If n1 = 19 Then
                        amb(1) = 43
                        amb(2) = 67
                        amb(3) = 24
                        amb(4) = 72
                    End If
                    If n1 = 20 Then
                        amb(1) = 50
                        amb(2) = 11
                        amb(3) = 11
                        amb(4) = 71
                    End If
                    If n1 = 21 Then
                        amb(1) = 57
                        amb(2) = 3
                        amb(3) = 88
                        amb(4) = 70
                    End If
                    If n1 = 22 Then
                        amb(1) = 64
                        amb(2) = 16
                        amb(3) = 75
                        amb(4) = 69
                    End If
                    If n1 = 23 Then
                        amb(1) = 71
                        amb(2) = 29
                        amb(3) = 62
                        amb(4) = 68
                    End If
                    If n1 = 24 Then
                        amb(1) = 78
                        amb(2) = 42
                        amb(3) = 49
                        amb(4) = 67
                    End If
                    If n1 = 25 Then
                        amb(1) = 85
                        amb(2) = 55
                        amb(3) = 36
                        amb(4) = 66
                    End If
                    If n1 = 26 Then
                        amb(1) = 2
                        amb(2) = 68
                        amb(3) = 23
                        amb(4) = 65
                    End If
                    If n1 = 27 Then
                        amb(1) = 9
                        amb(2) = 81
                        amb(3) = 10
                        amb(4) = 64
                    End If
                    If n1 = 28 Then
                        amb(1) = 16
                        amb(2) = 4
                        amb(3) = 87
                        amb(4) = 63
                    End If
                    If n1 = 29 Then
                        amb(1) = 23
                        amb(2) = 17
                        amb(3) = 74
                        amb(4) = 62
                    End If
                    If n1 = 30 Then
                        amb(1) = 30
                        amb(2) = 30
                        amb(3) = 61
                        amb(4) = 61
                    End If
                    If n1 = 31 Then
                        amb(1) = 37
                        amb(2) = 43
                        amb(3) = 48
                        amb(4) = 60
                    End If
                    If n1 = 32 Then
                        amb(1) = 44
                        amb(2) = 56
                        amb(3) = 35
                        amb(4) = 59
                    End If
                    If n1 = 33 Then
                        amb(1) = 51
                        amb(2) = 69
                        amb(3) = 22
                        amb(4) = 58
                    End If
                    If n1 = 34 Then
                        amb(1) = 58
                        amb(2) = 82
                        amb(3) = 9
                        amb(4) = 57
                    End If
                    If n1 = 35 Then
                        amb(1) = 65
                        amb(2) = 5
                        amb(3) = 86
                        amb(4) = 56
                    End If
                    If n1 = 36 Then
                        amb(1) = 72
                        amb(2) = 18
                        amb(3) = 73
                        amb(4) = 55
                    End If
                    If n1 = 37 Then
                        amb(1) = 79
                        amb(2) = 31
                        amb(3) = 60
                        amb(4) = 54
                    End If
                    If n1 = 38 Then
                        amb(1) = 86
                        amb(2) = 44
                        amb(3) = 47
                        amb(4) = 53
                    End If
                    If n1 = 39 Then
                        amb(1) = 3
                        amb(2) = 57
                        amb(3) = 34
                        amb(4) = 52
                    End If
                    If n1 = 40 Then
                        amb(1) = 10
                        amb(2) = 70
                        amb(3) = 21
                        amb(4) = 51
                    End If
                    If n1 = 41 Then
                        amb(1) = 17
                        amb(2) = 83
                        amb(3) = 8
                        amb(4) = 50
                    End If
                    If n1 = 42 Then
                        amb(1) = 24
                        amb(2) = 6
                        amb(3) = 85
                        amb(4) = 49
                    End If
                    If n1 = 43 Then
                        amb(1) = 31
                        amb(2) = 19
                        amb(3) = 72
                        amb(4) = 48
                    End If
                    If n1 = 44 Then
                        amb(1) = 38
                        amb(2) = 32
                        amb(3) = 59
                        amb(4) = 47
                    End If
                    If n1 = 45 Then
                        amb(1) = 45
                        amb(2) = 45
                        amb(3) = 46
                        amb(4) = 46
                    End If
                    If n1 = 46 Then
                        amb(1) = 52
                        amb(2) = 58
                        amb(3) = 33
                        amb(4) = 45
                    End If
                    If n1 = 47 Then
                        amb(1) = 59
                        amb(2) = 71
                        amb(3) = 20
                        amb(4) = 44
                    End If
                    If n1 = 48 Then
                        amb(1) = 66
                        amb(2) = 84
                        amb(3) = 7
                        amb(4) = 43
                    End If
                    If n1 = 49 Then
                        amb(1) = 73
                        amb(2) = 7
                        amb(3) = 84
                        amb(4) = 42
                    End If
                    If n1 = 50 Then
                        amb(1) = 80
                        amb(2) = 20
                        amb(3) = 71
                        amb(4) = 41
                    End If
                    If n1 = 51 Then
                        amb(1) = 87
                        amb(2) = 33
                        amb(3) = 58
                        amb(4) = 40
                    End If
                    If n1 = 52 Then
                        amb(1) = 4
                        amb(2) = 46
                        amb(3) = 45
                        amb(4) = 39
                    End If
                    If n1 = 53 Then
                        amb(1) = 11
                        amb(2) = 59
                        amb(3) = 32
                        amb(4) = 38
                    End If
                    If n1 = 54 Then
                        amb(1) = 18
                        amb(2) = 72
                        amb(3) = 19
                        amb(4) = 37
                    End If
                    If n1 = 55 Then
                        amb(1) = 25
                        amb(2) = 85
                        amb(3) = 6
                        amb(4) = 36
                    End If
                    If n1 = 56 Then
                        amb(1) = 32
                        amb(2) = 8
                        amb(3) = 83
                        amb(4) = 35
                    End If
                    If n1 = 57 Then
                        amb(1) = 39
                        amb(2) = 21
                        amb(3) = 70
                        amb(4) = 34
                    End If
                    If n1 = 58 Then
                        amb(1) = 46
                        amb(2) = 34
                        amb(3) = 57
                        amb(4) = 33
                    End If
                    If n1 = 59 Then
                        amb(1) = 53
                        amb(2) = 47
                        amb(3) = 44
                        amb(4) = 32
                    End If
                    If n1 = 60 Then
                        amb(1) = 60
                        amb(2) = 31
                    End If
                    If n1 = 61 Then
                        amb(1) = 67
                        amb(2) = 73
                        amb(3) = 18
                        amb(4) = 30
                    End If
                    If n1 = 62 Then
                        amb(1) = 74
                        amb(2) = 86
                        amb(3) = 5
                        amb(4) = 29
                    End If
                    If n1 = 63 Then
                        amb(1) = 81
                        amb(2) = 9
                        amb(3) = 82
                        amb(4) = 28
                    End If
                    If n1 = 64 Then
                        amb(1) = 88
                        amb(2) = 22
                        amb(3) = 69
                        amb(4) = 27
                    End If
                    If n1 = 65 Then
                        amb(1) = 5
                        amb(2) = 35
                        amb(3) = 56
                        amb(4) = 26
                    End If
                    If n1 = 66 Then
                        amb(1) = 12
                        amb(2) = 48
                        amb(3) = 43
                        amb(4) = 25
                    End If
                    If n1 = 67 Then
                        amb(1) = 19
                        amb(2) = 61
                        amb(3) = 30
                        amb(4) = 24
                    End If
                    If n1 = 68 Then
                        amb(1) = 26
                        amb(2) = 74
                        amb(3) = 17
                        amb(4) = 23
                    End If
                    If n1 = 69 Then
                        amb(1) = 33
                        amb(2) = 87
                        amb(3) = 4
                        amb(4) = 22
                    End If
                    If n1 = 70 Then
                        amb(1) = 40
                        amb(2) = 10
                        amb(3) = 81
                        amb(4) = 21
                    End If
                    If n1 = 71 Then
                        amb(1) = 47
                        amb(2) = 23
                        amb(3) = 68
                        amb(4) = 20
                    End If
                    If n1 = 72 Then
                        amb(1) = 54
                        amb(2) = 36
                        amb(3) = 55
                        amb(4) = 19
                    End If
                    If n1 = 73 Then
                        amb(1) = 61
                        amb(2) = 49
                        amb(3) = 42
                        amb(4) = 18
                    End If
                    If n1 = 74 Then
                        amb(1) = 68
                        amb(2) = 62
                        amb(3) = 29
                        amb(4) = 17
                    End If
                    If n1 = 75 Then
                        amb(1) = 75
                        amb(2) = 75
                        amb(3) = 16
                        amb(4) = 16
                    End If
                    If n1 = 76 Then
                        amb(1) = 82
                        amb(2) = 88
                        amb(3) = 3
                        amb(4) = 15
                    End If
                    If n1 = 77 Then
                        amb(1) = 89
                        amb(2) = 11
                        amb(3) = 80
                        amb(4) = 14
                    End If
                    If n1 = 78 Then
                        amb(1) = 6
                        amb(2) = 24
                        amb(3) = 67
                        amb(4) = 13
                    End If
                    If n1 = 79 Then
                        amb(1) = 13
                        amb(2) = 37
                        amb(3) = 54
                        amb(4) = 12
                    End If
                    If n1 = 80 Then
                        amb(1) = 20
                        amb(2) = 50
                        amb(3) = 41
                        amb(4) = 11
                    End If
                    If n1 = 81 Then
                        amb(1) = 27
                        amb(2) = 63
                        amb(3) = 28
                        amb(4) = 10
                    End If
                    If n1 = 82 Then
                        amb(1) = 34
                        amb(2) = 76
                        amb(3) = 15
                        amb(4) = 9
                    End If
                    If n1 = 83 Then
                        amb(1) = 41
                        amb(2) = 89
                        amb(3) = 2
                        amb(4) = 8
                    End If
                    If n1 = 84 Then
                        amb(1) = 48
                        amb(2) = 12
                        amb(3) = 79
                        amb(4) = 7
                    End If
                    If n1 = 85 Then
                        amb(1) = 55
                        amb(2) = 25
                        amb(3) = 66
                        amb(4) = 6
                    End If
                    If n1 = 86 Then
                        amb(1) = 62
                        amb(2) = 38
                        amb(3) = 53
                        amb(4) = 5
                    End If
                    If n1 = 87 Then
                        amb(1) = 69
                        amb(2) = 51
                        amb(3) = 40
                        amb(4) = 4
                    End If
                    If n1 = 88 Then
                        amb(1) = 76
                        amb(2) = 64
                        amb(3) = 27
                        amb(4) = 3
                    End If
                    If n1 = 89 Then
                        amb(1) = 83
                        amb(2) = 77
                        amb(3) = 14
                        amb(4) = 2
                    End If
                    If n1 = 90 Then
                        amb(1) = 90
                        amb(2) = 90
                        amb(3) = 1
                        amb(4) = 1
                    End If
                    numeri1(1) = amb(1)
                    numeri1(2) = amb(2)
                    ImpostaGiocata 1,numeri1,ruota,posta,clp,2
                    numeri1(1) = amb(1)
                    numeri1(2) = amb(3)
                    ImpostaGiocata 2,numeri1,ruota,poste,clp,3
                    numeri1(1) = amb(1)
                    numeri1(2) = amb(4)
                    ImpostaGiocata 3,numeri1,ruota,poste,clp,3
                    numeri1(1) = amb(2)
                    numeri1(2) = amb(3)
                    ImpostaGiocata 4,numeri1,ruota,poste,clp,3
                    numeri1(1) = amb(2)
                    numeri1(2) = amb(4)
                    ImpostaGiocata 5,numeri1,ruota,poste,clp,3
                    numeri1(1) = amb(3)
                    numeri1(2) = amb(4)
                    ImpostaGiocata 6,numeri1,ruota,poste,clp,3
                    numeri2(1) = amb(1)
                    numeri2(2) = amb(2)
                    numeri2(3) = amb(3)
                    numeri2(4) = amb(4)
                    ImpostaGiocata 7,numeri2,ruota,postee,clp,4
                    Gioca n
            		Next
		If scriptinterrotto Then Exit For 
    Next
    Scrivi
    Scrivi "Casi Riscontrati n° " & CInt(co)
    ScriviResoconto
    ColoreTesto 2
    Scrivi "================================================== TABELLA SETTENARIA===================== ",1
    Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo idea di Franca46 =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    Scrivi
End Sub
 
sthum1ii7hh.gif
perfetto , ma io non avevo saputo chiedere.
 
Tranquilla, anch'io sono alle prese con la settenaria, questo script serve anche a me
L' unica differenza, è che, per alcuni passaggi io NON USO il fuori90
Ciao
 
Mike58 ha scritto:
Ciao Baffo, purtroppo devo contraddirti ma nel listato di dj le istruzioni con i cicli for next e if then servono tutte.
Infatti DJ dice una mia libera interpretazione della richiesta di Franca.
Lo script calcola la somma su tutte le ruote ed a ogni estrazione solo nel caso la somma ha come risultato un mumero presente negli estratti da sommare.

For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
n1 = Fuori90(SommaEstratti(n,r1))
If n1 = a Then

Torino Somma estratti----273----> 3 ---rintracciato estratto al 4° posto

giovedì, mar 15 2012 [ TO - 58.78.46.03.88 ]

Invece negli altri casi citati hai tutte le ragioni.

Un saluti a tutti gli amici del forum.
Clicca per espandere...


Scusa Mike

Ma io non leggo da nessuna parte che franca46
Abbia chiesto di rintraccare il numero in un ipotetico
qualsiasi posto estrazionale.

Franca ha scritto questo (che mi sembra chiarissimo ):

"io vorrei che il numero di ricerca sia la somma degli estratti di una ruota" .

e se n1 va da 1 a 90, è palese che la somma sia da ritenere fuori 90.

Quindi queste istruzioni :

For p1 = 1 To 5
a = Estratto(n,r1,p1)
n1 = Fuori90(SommaEstratti(n,r1))
If n1 = a Then

sono superflue e non servono allo scopo.
 
X Franca46

Mi sembra che questo script postato
l'altro giorno, faccia esattamente cio che hai richiesto.....

L'unica differenza è che hai un inputbox per decidere la ruota....






Baffoblu ha scritto:
Penso che così vada più che bene..........


Codice: 
Sub Main()
    'in questo tu cerchi un numero ripetuto in 1° e 5° posizione in due estrazioni consecutive
    'io vorrei che il numero di ricerca sia la somma degli estratti di una ruota .
    ColoreTesto 2
    Scrivi "================================================== TABELLA SETTENARIA===================== ",1
    Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    ColoreTesto 1
    Scrivi "========================================= Modifica by Baffoblu ===============================",1
    Scrivi
    ColoreTesto 0
    Dim ruota(10)
    Dim numeri(5)
    Dim numeri1(5)
    Dim numeri2(5)
    Dim amb(5)
    Dim posta(2)
    Dim poste(2)
    Dim postee(5)
    posta(1) = 1
    posta(2) = 1
    poste(2) = 1
    postee(2) = 1
    postee(3) = 1
    r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
    clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
    co = 0
    ini = EstrazioneFin - tmp
    For n = ini To EstrazioneFin
        Messaggio(n)
        a = Fuori90(SommaEstratti(n,r))
        n1 = a
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        ColoreTesto 1
        Scrivi NomeRuota(r) & _
        " SOMMA fuori 90 dei cinque estratti----> " & a,1
        Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
        Scrivi
        ColoreTesto 0
        ruota(1) = r
        If n1 = 1 Then
            amb(1) = 7
            amb(2) = 13
            amb(3) = 78
            amb(4) = 90
        End If
        If n1 = 2 Then
            amb(1) = 14
            amb(2) = 26
            amb(3) = 65
            amb(4) = 89
        End If
        If n1 = 3 Then
            amb(1) = 21
            amb(2) = 39
            amb(3) = 52
            amb(4) = 88
        End If
        If n1 = 4 Then
            amb(1) = 28
            amb(2) = 52
            amb(3) = 39
            amb(4) = 87
        End If
        If n1 = 5 Then
            amb(1) = 35
            amb(2) = 65
            amb(3) = 26
            amb(4) = 86
        End If
        If n1 = 6 Then
            amb(1) = 42
            amb(2) = 78
            amb(3) = 13
            amb(4) = 85
        End If
        If n1 = 7 Then
            amb(1) = 49
            amb(2) = 1
            amb(3) = 90
            amb(4) = 84
        End If
        If n1 = 8 Then
            amb(1) = 56
            amb(2) = 14
            amb(3) = 77
            amb(4) = 83
        End If
        If n1 = 9 Then
            amb(1) = 63
            amb(2) = 27
            amb(3) = 64
            amb(4) = 82
        End If
        If n1 = 10 Then
            amb(1) = 70
            amb(2) = 40
            amb(3) = 51
            amb(4) = 81
        End If
        If n1 = 11 Then
            amb(1) = 77
            amb(2) = 53
            amb(3) = 38
            amb(4) = 80
        End If
        If n1 = 12 Then
            amb(1) = 84
            amb(2) = 66
            amb(3) = 25
            amb(4) = 79
        End If
        If n1 = 13 Then
            amb(1) = 1
            amb(2) = 79
            amb(3) = 12
            amb(4) = 78
        End If
        If n1 = 14 Then
            amb(1) = 8
            amb(2) = 2
            amb(3) = 89
            amb(4) = 77
        End If
        If n1 = 15 Then
            amb(1) = 15
            amb(2) = 15
            amb(3) = 76
            amb(4) = 76
        End If
        If n1 = 16 Then
            amb(1) = 22
            amb(2) = 28
            amb(3) = 63
            amb(4) = 75
        End If
        If n1 = 17 Then
            amb(1) = 29
            amb(2) = 41
            amb(3) = 50
            amb(4) = 74
        End If
        If n1 = 18 Then
            amb(1) = 36
            amb(2) = 54
            amb(3) = 37
            amb(4) = 73
        End If
        If n1 = 19 Then
            amb(1) = 43
            amb(2) = 67
            amb(3) = 24
            amb(4) = 72
        End If
        If n1 = 20 Then
            amb(1) = 50
            amb(2) = 11
            amb(3) = 11
            amb(4) = 71
        End If
        If n1 = 21 Then
            amb(1) = 57
            amb(2) = 3
            amb(3) = 88
            amb(4) = 70
        End If
        If n1 = 22 Then
            amb(1) = 64
            amb(2) = 16
            amb(3) = 75
            amb(4) = 69
        End If
        If n1 = 23 Then
            amb(1) = 71
            amb(2) = 29
            amb(3) = 62
            amb(4) = 68
        End If
        If n1 = 24 Then
            amb(1) = 78
            amb(2) = 42
            amb(3) = 49
            amb(4) = 67
        End If
        If n1 = 25 Then
            amb(1) = 85
            amb(2) = 55
            amb(3) = 36
            amb(4) = 66
        End If
        If n1 = 26 Then
            amb(1) = 2
            amb(2) = 68
            amb(3) = 23
            amb(4) = 65
        End If
        If n1 = 27 Then
            amb(1) = 9
            amb(2) = 81
            amb(3) = 10
            amb(4) = 64
        End If
        If n1 = 28 Then
            amb(1) = 16
            amb(2) = 4
            amb(3) = 87
            amb(4) = 63
        End If
        If n1 = 29 Then
            amb(1) = 23
            amb(2) = 17
            amb(3) = 74
            amb(4) = 62
        End If
        If n1 = 30 Then
            amb(1) = 30
            amb(2) = 30
            amb(3) = 61
            amb(4) = 61
        End If
        If n1 = 31 Then
            amb(1) = 37
            amb(2) = 43
            amb(3) = 48
            amb(4) = 60
        End If
        If n1 = 32 Then
            amb(1) = 44
            amb(2) = 56
            amb(3) = 35
            amb(4) = 59
        End If
        If n1 = 33 Then
            amb(1) = 51
            amb(2) = 69
            amb(3) = 22
            amb(4) = 58
        End If
        If n1 = 34 Then
            amb(1) = 58
            amb(2) = 82
            amb(3) = 9
            amb(4) = 57
        End If
        If n1 = 35 Then
            amb(1) = 65
            amb(2) = 5
            amb(3) = 86
            amb(4) = 56
        End If
        If n1 = 36 Then
            amb(1) = 72
            amb(2) = 18
            amb(3) = 73
            amb(4) = 55
        End If
        If n1 = 37 Then
            amb(1) = 79
            amb(2) = 31
            amb(3) = 60
            amb(4) = 54
        End If
        If n1 = 38 Then
            amb(1) = 86
            amb(2) = 44
            amb(3) = 47
            amb(4) = 53
        End If
        If n1 = 39 Then
            amb(1) = 3
            amb(2) = 57
            amb(3) = 34
            amb(4) = 52
        End If
        If n1 = 40 Then
            amb(1) = 10
            amb(2) = 70
            amb(3) = 21
            amb(4) = 51
        End If
        If n1 = 41 Then
            amb(1) = 17
            amb(2) = 83
            amb(3) = 8
            amb(4) = 50
        End If
        If n1 = 42 Then
            amb(1) = 24
            amb(2) = 6
            amb(3) = 85
            amb(4) = 49
        End If
        If n1 = 43 Then
            amb(1) = 31
            amb(2) = 19
            amb(3) = 72
            amb(4) = 48
        End If
        If n1 = 44 Then
            amb(1) = 38
            amb(2) = 32
            amb(3) = 59
            amb(4) = 47
        End If
        If n1 = 45 Then
            amb(1) = 45
            amb(2) = 45
            amb(3) = 46
            amb(4) = 46
        End If
        If n1 = 46 Then
            amb(1) = 52
            amb(2) = 58
            amb(3) = 33
            amb(4) = 45
        End If
        If n1 = 47 Then
            amb(1) = 59
            amb(2) = 71
            amb(3) = 20
            amb(4) = 44
        End If
        If n1 = 48 Then
            amb(1) = 66
            amb(2) = 84
            amb(3) = 7
            amb(4) = 43
        End If
        If n1 = 49 Then
            amb(1) = 73
            amb(2) = 7
            amb(3) = 84
            amb(4) = 42
        End If
        If n1 = 50 Then
            amb(1) = 80
            amb(2) = 20
            amb(3) = 71
            amb(4) = 41
        End If
        If n1 = 51 Then
            amb(1) = 87
            amb(2) = 33
            amb(3) = 58
            amb(4) = 40
        End If
        If n1 = 52 Then
            amb(1) = 4
            amb(2) = 46
            amb(3) = 45
            amb(4) = 39
        End If
        If n1 = 53 Then
            amb(1) = 11
            amb(2) = 59
            amb(3) = 32
            amb(4) = 38
        End If
        If n1 = 54 Then
            amb(1) = 18
            amb(2) = 72
            amb(3) = 19
            amb(4) = 37
        End If
        If n1 = 55 Then
            amb(1) = 25
            amb(2) = 85
            amb(3) = 6
            amb(4) = 36
        End If
        If n1 = 56 Then
            amb(1) = 32
            amb(2) = 8
            amb(3) = 83
            amb(4) = 35
        End If
        If n1 = 57 Then
            amb(1) = 39
            amb(2) = 21
            amb(3) = 70
            amb(4) = 34
        End If
        If n1 = 58 Then
            amb(1) = 46
            amb(2) = 34
            amb(3) = 57
            amb(4) = 33
        End If
        If n1 = 59 Then
            amb(1) = 53
            amb(2) = 47
            amb(3) = 44
            amb(4) = 32
        End If
        If n1 = 60 Then
            amb(1) = 60
            amb(2) = 31
        End If
        If n1 = 61 Then
            amb(1) = 67
            amb(2) = 73
            amb(3) = 18
            amb(4) = 30
        End If
        If n1 = 62 Then
            amb(1) = 74
            amb(2) = 86
            amb(3) = 5
            amb(4) = 29
        End If
        If n1 = 63 Then
            amb(1) = 81
            amb(2) = 9
            amb(3) = 82
            amb(4) = 28
        End If
        If n1 = 64 Then
            amb(1) = 88
            amb(2) = 22
            amb(3) = 69
            amb(4) = 27
        End If
        If n1 = 65 Then
            amb(1) = 5
            amb(2) = 35
            amb(3) = 56
            amb(4) = 26
        End If
        If n1 = 66 Then
            amb(1) = 12
            amb(2) = 48
            amb(3) = 43
            amb(4) = 25
        End If
        If n1 = 67 Then
            amb(1) = 19
            amb(2) = 61
            amb(3) = 30
            amb(4) = 24
        End If
        If n1 = 68 Then
            amb(1) = 26
            amb(2) = 74
            amb(3) = 17
            amb(4) = 23
        End If
        If n1 = 69 Then
            amb(1) = 33
            amb(2) = 87
            amb(3) = 4
            amb(4) = 22
        End If
        If n1 = 70 Then
            amb(1) = 40
            amb(2) = 10
            amb(3) = 81
            amb(4) = 21
        End If
        If n1 = 71 Then
            amb(1) = 47
            amb(2) = 23
            amb(3) = 68
            amb(4) = 20
        End If
        If n1 = 72 Then
            amb(1) = 54
            amb(2) = 36
            amb(3) = 55
            amb(4) = 19
        End If
        If n1 = 73 Then
            amb(1) = 61
            amb(2) = 49
            amb(3) = 42
            amb(4) = 18
        End If
        If n1 = 74 Then
            amb(1) = 68
            amb(2) = 62
            amb(3) = 29
            amb(4) = 17
        End If
        If n1 = 75 Then
            amb(1) = 75
            amb(2) = 75
            amb(3) = 16
            amb(4) = 16
        End If
        If n1 = 76 Then
            amb(1) = 82
            amb(2) = 88
            amb(3) = 3
            amb(4) = 15
        End If
        If n1 = 77 Then
            amb(1) = 89
            amb(2) = 11
            amb(3) = 80
            amb(4) = 14
        End If
        If n1 = 78 Then
            amb(1) = 6
            amb(2) = 24
            amb(3) = 67
            amb(4) = 13
        End If
        If n1 = 79 Then
            amb(1) = 13
            amb(2) = 37
            amb(3) = 54
            amb(4) = 12
        End If
        If n1 = 80 Then
            amb(1) = 20
            amb(2) = 50
            amb(3) = 41
            amb(4) = 11
        End If
        If n1 = 81 Then
            amb(1) = 27
            amb(2) = 63
            amb(3) = 28
            amb(4) = 10
        End If
        If n1 = 82 Then
            amb(1) = 34
            amb(2) = 76
            amb(3) = 15
            amb(4) = 9
        End If
        If n1 = 83 Then
            amb(1) = 41
            amb(2) = 89
            amb(3) = 2
            amb(4) = 8
        End If
        If n1 = 84 Then
            amb(1) = 48
            amb(2) = 12
            amb(3) = 79
            amb(4) = 7
        End If
        If n1 = 85 Then
            amb(1) = 55
            amb(2) = 25
            amb(3) = 66
            amb(4) = 6
        End If
        If n1 = 86 Then
            amb(1) = 62
            amb(2) = 38
            amb(3) = 53
            amb(4) = 5
        End If
        If n1 = 87 Then
            amb(1) = 69
            amb(2) = 51
            amb(3) = 40
            amb(4) = 4
        End If
        If n1 = 88 Then
            amb(1) = 76
            amb(2) = 64
            amb(3) = 27
            amb(4) = 3
        End If
        If n1 = 89 Then
            amb(1) = 83
            amb(2) = 77
            amb(3) = 14
            amb(4) = 2
        End If
        If n1 = 90 Then
            amb(1) = 90
            amb(2) = 90
            amb(3) = 1
            amb(4) = 1
        End If
        numeri1(1) = amb(1)
        numeri1(2) = amb(2)
        ImpostaGiocata 1,numeri1,ruota,posta,clp,2
        numeri1(1) = amb(1)
        numeri1(2) = amb(3)
        ImpostaGiocata 2,numeri1,ruota,poste,clp,3
        numeri1(1) = amb(1)
        numeri1(2) = amb(4)
        ImpostaGiocata 3,numeri1,ruota,poste,clp,3
        numeri1(1) = amb(2)
        numeri1(2) = amb(3)
        ImpostaGiocata 4,numeri1,ruota,poste,clp,3
        numeri1(1) = amb(2)
        numeri1(2) = amb(4)
        ImpostaGiocata 5,numeri1,ruota,poste,clp,3
        numeri1(1) = amb(3)
        numeri1(2) = amb(4)
        ImpostaGiocata 6,numeri1,ruota,poste,clp,3
        numeri2(1) = amb(1)
        numeri2(2) = amb(2)
        numeri2(3) = amb(3)
        numeri2(4) = amb(4)
        ImpostaGiocata 7,numeri2,ruota,postee,clp,4
        Gioca n
    Next
    Scrivi
    Scrivi "Casi Riscontrati n° " & CInt(co),1
    ScriviResoconto
    ColoreTesto 2
    Scrivi "================================================== TABELLA SETTENARIA===================== ",1
    Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    Scrivi "========================================= Modifica by Baffoblu ===============================",1
End Sub
Clicca per espandere...
 
La mia interpretazione è come descirtta esattamente da Mike58,anche perche ad ogni estrazione si avrebbe 11 condizioni di gioco se ci si mette pure la Nazionale, il che' mi sembrava un po' assurdo per questo ho scelto quella strada...
cosi ora Franca46 ha un ampia scelta per il suo specifico utilizzo....;)
Ciauz
 
DjNomade ha scritto:
La mia interpretazione è come descirtta esattamente da Mike58,anche perche ad ogni estrazione si avrebbe 11 condizioni di gioco se ci si mette pure la Nazionale, il che' mi sembrava un po' assurdo per questo ho scelto quella strada...
cosi ora Franca46 ha un ampia scelta per il suo specifico utilizzo....;)
Ciauz
Clicca per espandere...

Beh !, se vogliamo parlare di interpretazioni,
c'è ne potrebbero essere decine e decine...

Io mi sono limitato alla richiesta " specifica "
di Franca46,
e mi sembra di averla rispettata.....

:)
 
buon giorno ragazzi , grazie della vostra pazienza ,
in effetti avete ragione tutti ,
sono io che ho fatto confusione nella domanda.
con il listato di Blackmore e Baffoblu decido quale ruota seguire
perchè è logico seguirne 1 .
per quello di djnomade riduce le giocate a quella condizione, che non è male.
adesso guardo gli appunti e vedo come proseguire.
grazie ancora a tutti
intanto vi lascio il caffè che fà sempre bene.

tazzina-figa.jpg


a rileggervi tutti
 
Chiedo scusa sia a Blackmore che a DJNomade,
se mi sono un pò fissato su gli argomenti
di questo script.
Il fatto che cerco sempre di seguire fedelmente
le richieste degli utenti, al di la del fatto se l'idea
sia più o meno buona.....

:) Peace & Love
 
Baffoblu ha scritto:
Chiedo scusa sia a Blackmore che a DJNomade,
se mi sono un pò fissato su gli argomenti
di questo script.
Il fatto che cerco sempre di seguire fedelmente
le richieste degli utenti, al di la del fatto se l'idea
sia più o meno buona.....

:) Peace & Love
Clicca per espandere...

Ma di che ti devi scusare??? non dirlo nemmeno per scherzo.....
Siamo tutti qui per aiutarci per sconfiggere la Lottomatica... hihiihihihihi:D

Ciauzzzzzzzzzzzzzzzz
 
Ciao ragazzi ! :)

Hei ! Avete visto la richiesta script
di Arcor ?

Veramente tosto in quanto a condizioni
da far andare daccordo tutte insieme.....

Dice arcor che ci avete rinunciato,
io ci sto provando, ma mi sono stancato
a furia di provarci.....
Mi sa che mi sono bloccato allo stesso punto vostro....

Però ! bella sfida sto script....

:)
 
Baffoblu ha scritto:
Ciao ragazzi ! :)

Hei ! Avete visto la richiesta script
di Arcor ?

Veramente tosto in quanto a condizioni
da far andare daccordo tutte insieme.....

Dice arcor che ci avete rinunciato,
io ci sto provando, ma mi sono stancato
a furia di provarci.....
Mi sa che mi sono bloccato allo stesso punto vostro....

Però ! bella sfida sto script....

:)
Clicca per espandere...


Infatti credo che tu ci riesca,il tuo modo di analizzare si addicea questo metodo.Io ci ho provato ma...il casino
​è la condizione in più del diametrale
 
antelao ha scritto:


Infatti credo che tu ci riesca,il tuo modo di analizzare si addicea questo metodo.Io ci ho provato ma...il casino
​è la condizione in più del diametrale
Clicca per espandere...


Lo devo alle spiegazioni di Luigi ed al mio intuito....

Comunque ho i miei limiti.....

Quando si arriva ai diametrali le cose si attorcigliano

Ma.....

Il diametrale non è l'unico intoppo.....


Diciamo che è una bella ginnastica mentale....

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto