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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto