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
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto