Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Salvo ho letto il metodo
Ho cercato in rete, e anche altri sono simili a questo , poi le varianti credo siano studi personali.
Cmq è una piccola sfida listarlo.
Parlo del post 20.

Ora che ho letto , sappi che i complimenti su sono quantomeno triplicati 🙂👍
 
Ciao Salvo , potresti provare se questo codice da errore per favore ?
Codice: 
Sub main
Dim aE, a,b,c, aN(5,7)
' estrazioni fittizie con numero ripetuto
aE= array(0,76,58,55,87,21,21,73,72,54,68,0)
C=0
 For a=1 to 5
   For b= 1 to 7
     aN(a,b)= aE(b+c)
   Next
   C=c+1
 Next
Scrivimatrice(aN)
End sub
Non so se vengono incolonnati come dovrebbe essere.
Se da errore dimmi che cancello, e riprovo.
Grazie.
P.s= ho letto in rete che secondo molti era questa la parte difficile da fare con gli script ed ho voluto provarci.
Secondo me è tutto complicato, forse questa; è la parte più facile.
 
Ultima modifica:
i legend ha scritto:
Ciao Salvo , potresti provare se questo codice da errore per favore ?
Codice: 
Sub main
Dim aE, a,b,c, aN(5,7)
' estrazioni fittizie con numero ripetuto
aE= array(0,76,58,55,87,21,21,73,72,54,68,0)
C=0
 For a=1 to 5
   For b= 1 to 7
     aN(a,b)= aE(b+c)
   Next
   C=c+1
 Next
Scrivimatrice(aN)
End sub
Non so se vengono incolonnati come dovrebbe essere.
Se da errore dimmi che cancello, e riprovo.
Grazie.
P.s= ho letto in rete che secondo molti era questa la parte difficile da fare con gli script ed ho voluto provarci.
Secondo me è tutto complicato, forse questa; è la parte più facile.
Clicca per espandere...
Ciao ILegend vanno incolonnati benone.

A riguardo il fatto che vengono fatti delle varianti al sistema originale di Byron, io la penso diversamente da come l'hai scritta tu, perché nell'originale c'è solo da riscontrare una sola <equazione perfetta> l'autore la chiama così, cioè c'è una sola condizione da riscontrare, invece nelle varianti si parte da un minimo di tre condizioni, e più condizioni da rispettare ci sono ed è più difficile avere dei riscontri, secondo me vengono fatte queste varianti nell'illusione che il pronostico sia più vincente
 
Grazie Salvo per aver verificato il codice.
Beh sui metodi e le varie varianti che sono personali , ovviamente il massimo rispetto.
Tutte le tecniche hanno lo stesso valore 🙂👍
Complimenti ancora.
Io non avrei tanta pazienza.
Buono studio e buon lavoro🙂👍
 
Ciao salvo50 e buon pomeriggio a tutti , sempre tra le mie vecchie scartoffie ho rispolverato un metodo top di un noto lottologo , tale Giorgio Bononcini , ma stiamo parlando di tanti tanti anni fà , ti allego il metodo completo .
 

Allegati

  • pag1.jpg
    pag1.jpg
    163,4 KB · Visite: 31
  • pag2.jpg
    pag2.jpg
    206,7 KB · Visite: 29
  • pag3.jpg
    pag3.jpg
    183,9 KB · Visite: 29
  • pag4.jpg
    pag4.jpg
    134,8 KB · Visite: 26
  • pag5.jpg
    pag5.jpg
    210,9 KB · Visite: 26
  • pag6.jpg
    pag6.jpg
    149,6 KB · Visite: 25
  • pag7.jpg
    pag7.jpg
    125,5 KB · Visite: 24
  • pag8.jpg
    pag8.jpg
    122,6 KB · Visite: 24
  • pag9.jpg
    pag9.jpg
    198,3 KB · Visite: 24
  • pag10.jpg
    pag10.jpg
    109,8 KB · Visite: 24
Ecco le restanti pagine...
 

Allegati

  • pag11.jpg
    pag11.jpg
    233,9 KB · Visite: 28
  • pag12.jpg
    pag12.jpg
    144,4 KB · Visite: 27
  • pag13.jpg
    pag13.jpg
    177,9 KB · Visite: 29
  • pag. ultima.jpg
    pag. ultima.jpg
    152,5 KB · Visite: 33
Ciao per quanto riguarda l estratto avete provato ad abbinarlo al quadratino della settenaria o del cappuccino?
D
 
Ciao a Tutti.

Il Byron con le tre condizioni <equazione perfetta> c'è solo quella postata dall'autore, quindi di <equazione perfetta> ne ho lasciata solo una, se vuoi vedere l'estrazione dell'articolo, alla prima domanda "Inserisci l'estrazione che vuoi iniziare" devi mettere 8327 che ha ritroso alla 8325 c'è la seconda ruota, poi ho messo il numero di combinazioni da visualizzare e lo messo a 10 comunque tu lo puoi cambiare

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  Diam_B3 = Diametrale(B3)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     A1 = Estratto(Es2,R2,1)
                     If A1 > 0 Then
                        A2 = Estratto(Es2,R2,2)
                        A3 = Estratto(Es2,R2,3)
                        A4 = Estratto(Es2,R2,4)
                        A5 = Estratto(Es2,R2,5)
                        XX = Fuori90((A3 * 6) + A1)
                        SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        If Distanza(B3,A4) = 45 Then
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(XX + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                           S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                           S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                           S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                           Som_S2_S6 = Fuori90(S2 + S6)
                           Ok = 0
                           If Som_S2_S6 = 45 Then
                              D1 = Fuori90(90 +(A1 - A2))
                              D2 = Fuori90(90 +(A2 - XX))
                              D3 = Fuori90(90 +(XX - A4))
                              D4 = Fuori90(90 +(A4 - A5))
                              D5 = Fuori90(90 +(A5 - B1))
                              D6 = Fuori90(90 +(B1 - B2))
                              '----------------------------
                              D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
                              D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
                              D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
                              D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
                              D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
                              S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                              Ambata = Fuori90(S10 + B1)
                              S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
                              If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                              S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                              S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                              S12 = Fuori90(S11 + S10)' 1a Equazione
                              S13 = Fuori90(A1 + S11a) '2a Equazione
                              S14 = Fuori90(B1 + Ambata) '3a Equazione
                              If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
                              If Ok = 1 Then
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & "  Somma = " & Format2(SoC2),1,0
                                 Scrivi "  Seconda Ruota",1
                                 Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1,0
                                 Scrivi "  Prima ruota",1
                                 Scrivi
                                 Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                                 Scrivi " " & Format2(D5) & " " & Format2(D6) & "    -  Somma Delle 11 Distanze = ",1,0
                                 Scrivi Format2(S10),1,,,1
                                 Scrivi Space(20) & String(20,"-"),1
                                 Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
                                 Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                                 Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
                                 Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                 Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                 Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1
                                 Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                                 Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                                 Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                                 Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                                 Scrivi " " & Format2(Ambata),1,,,2
                                 Scrivi Space(20) & String(20,"-")
                                 Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                                 Scrivi " " & Format2(S5) & " " & Format2(S6) & " ",1,0
                                 Scrivi Format2(S7),1,0,,1
                                 Scrivi " -  Somma delle 6 Colonne ",1,0
                                 Scrivi Format2(S11),1,,,1
                                 Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                 Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                                 Scrivi
                                 Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                                 Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
                                 Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                                 Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
                                 Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                                 Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
                                 Scrivi
                                 Scrivi
                                 If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                                 '---------------------------------------------------------------------------------------------------
                                 If Casi = Comb Then Exit Sub
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Ultima modifica:
Riguardo al metodo di Bononcini mi sono ricordato che avevo già fatto lo script e quindi sono andato a cercarlo, si trova in questo stesso topic a pagina 25, post 489
 
Capisco che sia lento, bisogna fare sempre il confronto estrazione x estrazioni ruota x ruota e su più concorsi .
Ma tutta questa ricerca è per ambata o ambo.?
Salvo io non sarei riuscito, mi sarei incartato in tutte queste condizioni .
complimenti. 👍
ciao a tutti:)
 
salvo50 ha scritto:
Ciao a Tutti.

Il Byron con le tre condizioni <equazione perfetta> c'è solo quella postata dall'autore, quindi di <equazione perfetta> ne ho lasciata solo una, se vuoi vedere l'estrazione dell'articolo, alla prima domanda "Inserisci l'estrazione che vuoi iniziare" devi mettere 8327 che ha ritroso alla 8325 c'è la seconda ruota, poi ho messo il numero di combinazioni da visualizzare e lo messo a 10 comunque tu lo puoi cambiare

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  Diam_B3 = Diametrale(B3)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     A1 = Estratto(Es2,R2,1)
                     If A1 > 0 Then
                        A2 = Estratto(Es2,R2,2)
                        A3 = Estratto(Es2,R2,3)
                        A4 = Estratto(Es2,R2,4)
                        A5 = Estratto(Es2,R2,5)
                        XX = Fuori90((A3 * 6) + A1)
                        SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        If Distanza(B3,A4) = 45 Then
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(XX + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                           S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                           S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                           S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                           Som_S2_S6 = Fuori90(S2 + S6)
                           Ok = 0
                           If Som_S2_S6 = 45 Then
                              D1 = Fuori90(90 +(A1 - A2))
                              D2 = Fuori90(90 +(A2 - XX))
                              D3 = Fuori90(90 +(XX - A4))
                              D4 = Fuori90(90 +(A4 - A5))
                              D5 = Fuori90(90 +(A5 - B1))
                              D6 = Fuori90(90 +(B1 - B2))
                              '----------------------------
                              D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
                              D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
                              D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
                              D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
                              D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
                              S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                              Ambata = Fuori90(S10 + B1)
                              S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
                              If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                              S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                              S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                              S12 = Fuori90(S11 + S10)' 1a Equazione
                              S13 = Fuori90(A1 + S11a) '2a Equazione
                              S14 = Fuori90(B1 + Ambata) '3a Equazione
                              If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
                              If Ok = 1 Then
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                                 Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & "  Somma = " & Format2(SoC2),1
                                 Scrivi
                                 Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                                 Scrivi " " & Format2(D5) & " " & Format2(D6) & "    -  Somma Delle 11 Distanze = ",1,0
                                 Scrivi Format2(S10),1,,,1
                                 Scrivi Space(20) & String(20,"-"),1
                                 Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
                                 Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                                 Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
                                 Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                 Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                 Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1
                                 Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                                 Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                                 Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                                 Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                                 Scrivi " " & Format2(Ambata),1,,,2
                                 Scrivi Space(20) & String(20,"-")
                                 Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                                 Scrivi " " & Format2(S5) & " " & Format2(S6) & " ",1,0
                                 Scrivi Format2(S7),1,0,,1
                                 Scrivi " -  Somma delle 6 Colonne ",1,0
                                 Scrivi Format2(S11),1,,,1
                                 Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                 Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                                 Scrivi
                                 Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                                 Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
                                 Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                                 Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
                                 Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                                 Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
                                 Scrivi
                                 Scrivi
                                 If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                                 '---------------------------------------------------------------------------------------------------
                                 If Casi = Comb Then Exit Sub
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
Clicca per espandere...
Grazie di cuore salvo50, và benissimo e sempre in gambissima :)
 
Ciao salvo50, mi sono accorto ora che la ricerca delle cinquine và invertita come da metodo :) ...le 2 cinquine come da esempio nello script escono invertite . ...spero si possa fere la modifica grazie.
 
Matematico ha scritto:
Ciao salvo50, mi sono accorto ora che la ricerca delle cinquine và invertita come da metodo :) ...le 2 cinquine come da esempio nello script escono invertite . ...spero si possa fere la modifica grazie.
Clicca per espandere...
Spiegati meglio non ho capito

metti i numeri delle 2 cinquine e spiegami perché sono invertite
 
Ultima modifica:
Ciao salvo502, l'esempio originale riporta cosi le 2 cinquine ,


13-1-2011 = FI - 57-09-69-31-22
18/1/2011 =TO-61-64-76-65-37




Mentre nel listato appaiono invertite cosi :

18/1/2011 =TO-61-64-76-65-37
13-1-2011 = FI - 57-09-02-31-22

Il 2 poi x avere le 3 equazioni è permutato con il 69
 
Ultima modifica:
Matematico ha scritto:
Ciao salvo502, l'esempio originale riporta cosi le 2 cinquine ,


13-1-2011 = FI - 57-09-69-31-22
18/1/2011 =TO-61-64-76-65-37




Mentre nel listato appaiono invertite cosi :

18/1/2011 =TO-61-64-76-65-37
13-1-2011 = FI - 57-09-02-31-22

Il 2 poi x avere le 3 equazioni è permutato con il 69
Clicca per espandere...

A me sembra più logico prima mettere l'estrazione della prima ruota, cioè quella con la data più alta
Se per te è più logico mettere prima la seconda ruota, cioè quella con la data più bassa, si può fare
ci va un attimo a fare la modifica, dammi la conferma e li inverto
 
Anche a me sembra più logico , ma l'autore ha messo l'esempio in quel modo e credo che solo cosi si può avere il risultato positivo . Grazie confermo la modifica :-)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto