Script su Metodi Cabalistici, Ciclometrici & C.

Matematico · 8 Marzo 2024

Ciao salvo50 , potresti cortesemente correggere questo script sul Byron creato da Robbe ?
Mi dà il seguente errore :
Errore script!
1024-Prevista istruzione
Linea : 81
Colonna : 0
Source: Errore di compilazione di Microsoft VBScript

Scrivi "==================== il BYRON di ROBBE ================================================================="
Dim ruota(1),ruote(1),numeri(2),posta(10),poste(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : colpiambate=18 : colpiambo=18 : poste(1)=0 : poste(2)=1
numero=CInt(InputBox("Numero dell'estrazione che si vuole analizzare ?","ESTRAZIONE",8500))
ruotascelta=CInt(InputBox("La ruota che si vuole analizzare [01..11] ?","RUOTA",11))
EQ1=CInt(InputBox("Introduci il 1°estr.della 1^cinquina [1..90] ?","",90))
EQ2=CInt(InputBox("Introduci il 2°estr.della 1^cinquina [1..90] ?","",90))
EQ3=CInt(InputBox("Introduci il 3°estr.della 1^cinquina [1..90] ?","",90))
EQ4=CInt(InputBox("Introduci il 4°estr.della 1^cinquina [1..90] ?","",90))
EQ5=CInt(InputBox("Introduci il 5°estr.della 1^cinquina [1..90] ?","",90))
EQ6=CInt(InputBox("Introduci il 1°estr.della 2^cinquina[1..90] ?","",90))
EQ7=CInt(InputBox("Introduci il 2°estr.della 2^cinquina [1..90] ?","",90))
EQ8=CInt(InputBox("Introduci il 3°estr.della 2^cinquina [1..90] ?","",90))
EQ9=CInt(InputBox("Introduci il 4°estr.della 2^cinquina [1..90] ?","",90))
EQ10=CInt(InputBox("Introduci il 5°estr.della 2^cinquina [1..90] ?","",90))
estraz=numero
conta=0
Messaggio estraz
If ruotascelta=11 Then ruotascelta=12
r=ruotascelta
ruota(1)=ruotascelta
ruote(1)=11
a1=EQ1
a2=EQ2
a3=EQ3
a4=EQ4
a5=EQ5
b1=EQ6
b2=EQ7
b3=EQ8
b4=EQ9
b5=EQ10
ColoreTesto 0
Scrivi
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz,r)
Scrivi
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)
Scrivi Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)& Space(4)&_
Format2(b5)
conta=conta+1
s1=Fuori90(a1+a2+a3+a4+a5)
s2=Fuori90(a2+a3+a4+a5+b1)
s3=Fuori90(a3+a4+a5+b1+b2)
s4=Fuori90(a4+a5+b1+b2+b3)
s5=Fuori90(a5+b1+b2+b3+b4)
s6=Fuori90(b1+b2+b3+b4+b5)
sc=Fuori90(s1+s2+s3+s4+s5+s6)
nc=90-sc
xx=Fuori90(b1+nc)
numeri(1)=xx
n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
sp=Fuori90(s4+s5+s6)
st=Fuori90(s6+s7)
yy=sp-st
If sp<st Then yy=(sp+90)-st
If yy=0 Then yy=90
numeri(2)=yy
n2(1)=yy
ColoreTesto 1
Scrivi
Scrivi "Somma delle somme delle prime sei colonne = "& sc
ColoreTesto 2
Scrivi
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 2
Scrivi
Scrivi "Quinto Futuro Estratto = "& Format2(yy)
Scrivi
ImpostaGiocata 1,numeri,ruota,posta,colpiambate,2
ImpostaGiocata 2,numeri,ruote,poste,colpiambo,2
Gioca estraz
Scrivi
ColoreTesto 2
Scrivi "==================== il BYRON di ROBBE ==============================================================="
Scrivi
ColoreTesto 0
ScriviResoconto

End Sub

DjNomade · 8 Marzo 2024

Manca la parte iniziale
Sub Main()
senno funziona
Ciauz

Matematico · 8 Marzo 2024

Grazie di cuore DjNomade, ora funziona perfettamente

KEN · 3 Novembre 2024

salvo50 ha scritto:

Ciao a Tutti.

IL QUATERNO PERPETUO (prima parte) di FEDELE DAVENAL a cura di CARMINE TEDESCO

Il metodo è strutturato in 3 parti, però nonostante la base di partenza è sempre la stessa (l'esagono) alla fine risultano 3 metodi diversi, nelle estrazioni bisogna trovare un numero o più che appartenga a quei 48 numeri con sfondo verde nella prima immagine, e dice che bisogna scegliere l'estratto centrale cioè il terzo, solo se non cè questa condizione si possono prendere anche gli altri estratti, ma io nello script non ho seguito questa regola, praticamente li ho usati tutti non ho guardato se erano centrali o no, anche perchè ho notato che se devono uscire o no, avvengono in qualsiasi posizione.

Nel primo metodo vengono pronosticati 42 numeri, il DAVENAL dice che c'è sempre la QUATERNA, in questo script, dato che i numeri pronosticati sono moltissimi 42, io il controllo lo faccio solo per una estrazione (a colpo) e ho costatato che nonostante ci siano 42 numeri la quaterna non c'è sempre, i colpi negativi sono moltissimi, però dato che la CINQUINA paga molto di più della quaterna, ho inserito anche la ricerca della cinquina, e anche se si verificano molto meno casi della quaterna, diciamo che per quello che viene pagata la cinquina, non ce ne sono poche, 42 numeri sono troppi, però a volte dato che si verificano dei doppioni, questi 42 numeri si riducono anche a meno di 30, ho fatto un controllo visivo per vedere se qualche cinquina era uscita dove si erano i 42 numeri ridotti a meno di 30, ed ho trovato nella ruota di PALERMO estrazione 9024 del 02-07-2015, i 42 numeri ridotti (per via dei doppioni) a 27 numeri, ed era uscita la cinquina, non ho fatto altri controlli visivi.

Nello script alla seconda domanda si può inserire una sola ruota mettendo il rispettivo numero, 1 per Bari, 2 per Cagliari ecc... fino al 10, il numero 11 per tutte le ruote ed il numero 12 per la Nazionale.

Nell'output alla fine ho messo un resoconto per TERNI, QUATERNE E CINQUINE

La seconda e terza parte del metodo non li ho ancora fatti.

Vedi l'allegato 2190031

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR
   Dim DeEst,CaEst,Est,A,B,C,D,E,F,G,Sp,FInR
   Dim H(42),Ru(1)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " IL QUATERNO PERPETUO DI FEDELE DAVENAL PRIMA PARTE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiEst =(Figura(Est))
            DeEst =(Decina(Est))
            CaEst =(Cadenza(Est))
            If Not Gemello(Est) And FiEst <> 9 And CaEst <> 9 And CaEst <> 0 And Est > 10 Then
               G = FiEst
               A = FuoriX(DeEst + G,9) : B = FuoriX(CaEst + G,9) : E = FuoriX(G + A,9)
               F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
               'PRIMO GRUPPO
               H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
               H(7) = Vert(H(1)) : H(8) = Vert(H(2)): : H(9) = Vert(H(3)) : H(10) = Vert(H(4))
               H(11) = Vert(H(5)) : H(12) = Vert(H(6))
               'SECONDO GRUPPO
               H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(3))
               H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17))
               'TERZO GRUPPO
               H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
               H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
               'QUARTO GRUPPO
               H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
               'QUINTO GRUPPO
               H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
               'SESTO GRUPPO
               H(41) = E & F : H(42) = Vert(H(41))
               '
               Ru(1) = R1
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = Est Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               If Es < FIn Then
                  Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,,,1
               End If
               Scrivi
               Scrivi
               Scrivi Space(27) & "A=" & A & Space(3) & "B=" & B,1,,,1,3
               Scrivi
               Scrivi Space(24) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F,1,,,2,3
               Scrivi
               Scrivi Space(27) & "C=" & C & Space(3) & "D=" & D,1,,,1,3
               Scrivi
               'Visualizzazione primo gruppo sopra
               Scrivi "Accoppiamento  delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
               Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
               'Visualizzazione secondo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
               Scrivi Sp & Format2(H(6)) & Sp & Format2(H(17)),1,0,,1
               'Visualizzazione terzo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
               Scrivi Sp & Format2(H(26)),1,0,,2
               'visualizzazione quarto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
               'visualizzazione quinto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
               'visualizzazione sesto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
               'Visualizzazione primo gruppo sotto
               Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
               Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
               'Visualizzazione secondo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
               Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
               'visualizzazione terzo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
               'visualizzazione quarto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
               'visualizzazione quinto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
               'visualizzazione sesto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
               Scrivi
               EliminaRipetuti H
               Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
               Scrivi StringaNumeri(H," "),1,,,1
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
                  L3 = L3 + 1
                  Scrivi Space(13) & "TERNO",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
                  L4 = L4 + 1
                  Scrivi Space(13) & "QUATERNA",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
                  L5 = L5 + 1
                  Scrivi Space(13) & "CINQUINA",1,,,2,6
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti   " & Format2(L3) & "  TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L4) & "  QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L5) & "  CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub

Buongiorno , qualcuno può fare delle modifiche in questo listato .
Bisogna fare si che nella ricerca da mettere in gioco trovi estrazione con 3 o 4 numeri dei 48 e metta nel esagono il 3 estratto.

salvo50 · 6 Novembre 2024

Ciao a Tutti
Ciao Ken
Vedi se è quello che hai chiesto

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR,Rr
   Dim A,B,C,D,E,F,G,Sp,FInR,FiRr,DeRr,CaRr,Est
   Dim H(42),Ru(1),aNum,aNum1,aNum2
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " Il Quaterno Perpetuo Di Fedele Davenal Prima Parte - Script Salvo50",1,,4,,3,,1
   Scrivi Space(8) & "                  Con Modifica Proposta da Ken                      ",1,,4,,3,,1

   aNum = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,_
   47,48,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)
   aNum1 = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,47,48)
   aNum2 = Array(0,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)

   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Rr = Estratto(Es,R1,3)
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiRr =(Figura(Rr))
            DeRr =(Decina(Rr))
            CaRr =(Cadenza(Rr))
         Next
         Ru(1) = R1
         If SerieFreqTurbo(Es,Es,aNum,Ru,1) > 2 Then
            If Not Gemello(Rr) And FiRr <> 9 And CaRr <> 9 And CaRr <> 0 And Rr > 10 Then
               G = FiRr
               A = DeRr : B = CaRr : E = FuoriX(G + A,9)
               F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
               'PRIMO GRUPPO
               H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
               H(7) = Vert(H(1)) : H(8) = Vert(H(2)): : H(9) = Vert(H(3)) : H(10) = Vert(H(4))
               H(11) = Vert(H(5)) : H(12) = Vert(H(6))
               'SECONDO GRUPPO
               H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(3))
               H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17))
               'TERZO GRUPPO
               H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
               H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
               'QUARTO GRUPPO
               H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
               'QUINTO GRUPPO
               H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
               'SESTO GRUPPO
               H(41) = E & F : H(42) = Vert(H(41))
               '
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = Rr Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               If Es < FIn Then
                  Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,,,1
               End If
               Scrivi
               Scrivi Space(12)& String (71,"-"),1
               Scrivi Space(24)& "Almeno 3 degli estratti sono in questi numeri",1
               Scrivi Space(12)& StringaNumeri(aNum1," ",True),1
               Scrivi Space(12)& StringaNumeri(aNum2," ",True),1
               Scrivi Space(12)& String (71,"-"),1
               Scrivi

               Scrivi Space(8) & "A=" & A & Space(3) & "B=" & B & Space(13) & "A = Decina 3° Estratto -- B = Cadenza 3° Estratto",1,,,1,3
               Scrivi
               Scrivi Space(6) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F & Space(9) & "E = G + A -- G = Figura 3° Estratto -- F = G + B",1,,,2,3
               Scrivi
               Scrivi Space(8) & "C=" & C & Space(3) & "D=" & D & Space(13) & "C = G + E -- D = G + F",1,,,1,3
               Scrivi
              
               'Visualizzazione primo gruppo sopra
               Scrivi "Accoppiamento  delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
               Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
               'Visualizzazione secondo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
               Scrivi Sp & Format2(H(6)) & Sp & Format2(H(17)),1,0,,1
               'Visualizzazione terzo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
               Scrivi Sp & Format2(H(26)),1,0,,2
               'visualizzazione quarto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
               'visualizzazione quinto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
               'visualizzazione sesto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
               'Visualizzazione primo gruppo sotto
               Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
               Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
               'Visualizzazione secondo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
               Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
               'visualizzazione terzo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
               'visualizzazione quarto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
               'visualizzazione quinto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
               'visualizzazione sesto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
               Scrivi
               EliminaRipetuti H
               Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
               Scrivi StringaNumeri(H," "),1,,,1
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
                  L3 = L3 + 1
                  Scrivi Space(13) & "TERNO",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
                  L4 = L4 + 1
                  Scrivi Space(13) & "QUATERNA",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
                  L5 = L5 + 1
                  Scrivi Space(13) & "CINQUINA",1,,,2,6
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti   " & Format2(L3) & "  TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L4) & "  QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L5) & "  CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub

KEN · 7 Novembre 2024

Si va bene Salvo grazie

KEN · 10 Novembre 2024

capito grazie , sposto in download

salvo50 · 10 Novembre 2024

Ciao Ken

Il titolo di questo topic recita

Script su Metodi Cabalistici, Ciclometrici & C.

Quindi

No statistica, no ritardi, no frequenze

In questo topic l'ho ripetuto più di una volta, naturalmente te non puoi saperlo, avresti dovuto leggere tutti i post che sono più di 700
quindi non te ne faccio una colpa, comunque se la tua richiesta la vuoi lasciare qua, fai pure, io non posso aiutarti.

KEN · Ieri alle 14:26

salvo50 ha scritto:

Ciao a Tutti
Ciao Ken
Vedi se è quello che hai chiesto

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Salvo50,Ruota,L3,L4,L5,E2
   Dim R1,Caso,Casi,P1,P2,E1,FiEst,F2,IniR,Rr
   Dim A,B,C,D,E,F,G,Sp,FInR,FiRr,DeRr,CaRr,Est
   Dim H(42),Ru(1),aNum,aNum1,aNum2
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Scrivi Space(8) & " Il Quaterno Perpetuo Di Fedele Davenal Prima Parte - Script Salvo50",1,,4,,3,,1
   Scrivi Space(8) & "                  Con Modifica Proposta da Ken                      ",1,,4,,3,,1

   aNum = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,_
   47,48,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)
   aNum1 = Array(0,12,13,14,15,16,17,21,23,24,25,26,28,31,32,34,35,37,38,41,42,43,46,47,48)
   aNum2 = Array(0,51,52,53,56,57,58,61,62,64,65,67,68,71,73,74,75,76,78,81,83,84,85,86,87)

   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Rr = Estratto(Es,R1,3)
         For P1 = 1 To 5
            Est = Estratto(Es,R1,P1)
            FiRr =(Figura(Rr))
            DeRr =(Decina(Rr))
            CaRr =(Cadenza(Rr))
         Next
         Ru(1) = R1
         If SerieFreqTurbo(Es,Es,aNum,Ru,1) > 2 Then
            If Not Gemello(Rr) And FiRr <> 9 And CaRr <> 9 And CaRr <> 0 And Rr > 10 Then
               G = FiRr
               A = DeRr : B = CaRr : E = FuoriX(G + A,9)
               F = FuoriX(G + B,9) : C = FuoriX(G + E,9) : D = FuoriX(G + F,9)
               'PRIMO GRUPPO
               H(1) = G & A : H(2) = G & B : H(3) = G & C : H(4) = G & D : H(5) = G & E : H(6) = G & F
               H(7) = Vert(H(1)) : H(8) = Vert(H(2)): : H(9) = Vert(H(3)) : H(10) = Vert(H(4))
               H(11) = Vert(H(5)) : H(12) = Vert(H(6))
               'SECONDO GRUPPO
               H(13) = A & B : H(14) = A & C : H(15) = A & D : H(16) = A & E : H(17) = A & F : H(18) = Vert(H(3))
               H(19) = Vert(H(14)) : H(20) = Vert(H(15)) : H(21) = Vert(H(16)) : H(22) = Vert(H(17))
               'TERZO GRUPPO
               H(23) = B & C : H(24) = B & D : H(25) = B & E : H(26) = B & F : H(27) = Vert(H(23))
               H(28) = Vert(H(24)) : H(29) = Vert(H(25)) : H(30) = Vert(H(26))
               'QUARTO GRUPPO
               H(31) = C & D : H(32) = C & E : H(33) = C & F : H(34) = Vert(H(31)): H(35) = Vert(H(32)) : H(36) = Vert(H(33))
               'QUINTO GRUPPO
               H(37) = D & E : H(38) = D & F : H(39) = Vert(H(37)) : H(40) = Vert(H(38))
               'SESTO GRUPPO
               H(41) = E & F : H(42) = Vert(H(41))
               '
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = Rr Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               If Es < FIn Then
                  Scrivi " Estratti Estrazione successiva " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,,,1
               End If
               Scrivi
               Scrivi Space(12)& String (71,"-"),1
               Scrivi Space(24)& "Almeno 3 degli estratti sono in questi numeri",1
               Scrivi Space(12)& StringaNumeri(aNum1," ",True),1
               Scrivi Space(12)& StringaNumeri(aNum2," ",True),1
               Scrivi Space(12)& String (71,"-"),1
               Scrivi

               Scrivi Space(8) & "A=" & A & Space(3) & "B=" & B & Space(13) & "A = Decina 3° Estratto -- B = Cadenza 3° Estratto",1,,,1,3
               Scrivi
               Scrivi Space(6) & "E=" & E & Space(3) & "G=" & G & Space(3) & "F=" & F & Space(9) & "E = G + A -- G = Figura 3° Estratto -- F = G + B",1,,,2,3
               Scrivi
               Scrivi Space(8) & "C=" & C & Space(3) & "D=" & D & Space(13) & "C = G + E -- D = G + F",1,,,1,3
               Scrivi
             
               'Visualizzazione primo gruppo sopra
               Scrivi "Accoppiamento  delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(1)) & Sp & Format2(H(2)) & Sp & Format2(H(3)),1,0,,2
               Scrivi Sp & Format2(H(4)) & Sp & Format2(H(5)) & Sp & Format2(H(6)),1,0,,2
               'Visualizzazione secondo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(13)) & Sp & Format2(H(14)) & Sp & Format2(H(15)),1,0,,1
               Scrivi Sp & Format2(H(6)) & Sp & Format2(H(17)),1,0,,1
               'Visualizzazione terzo gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(23)) & Sp & Format2(H(24)) & Sp & Format2(H(25)),1,0,,2
               Scrivi Sp & Format2(H(26)),1,0,,2
               'visualizzazione quarto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(31)) & Sp & Format2(H(32)) & Sp & Format2(H(33)),1,0,,1
               'visualizzazione quinto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(37)) & Sp & Format2(H(38)),1,0,,2
               'visualizzazione sesto gruppo sopra
               Scrivi Space(1) & Sp & Format2(H(41)),1,,,1
               'Visualizzazione primo gruppo sotto
               Scrivi "Vertibili Acc. delle 7 cifre",1,0,,1
               Scrivi Sp & Format2(H(7)) & Sp & Format2(H(8)) & Sp & Format2(H(9)),1,0,,2
               Scrivi Sp & Format2(H(10)) & Sp & Format2(H(11)) & Sp & Format2(H(12)),1,0,,2
               'Visualizzazione secondo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(18)) & Sp & Format2(H(19)) & Sp & Format2(H(20)),1,0,,1
               Scrivi Sp & Format2(H(21)) & Sp & Format2(H(22)),1,0,,1
               'visualizzazione terzo gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(27)) & Sp & Format2(H(28)) & Sp & Format2(H(29)) & Sp & Format2(H(30)),1,0,,2
               'visualizzazione quarto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(34)) & Sp & Format2(H(35)) & Sp & Format2(H(36)),1,0,,1
               'visualizzazione quinto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(39)) & Sp & Format2(H(40)),1,0,,2
               'visualizzazione sesto gruppo sotto
               Scrivi Space(1) & Sp & Format2(H(42)),1,,,1
               Scrivi
               EliminaRipetuti H
               Scrivi Space(28) & "SENZA EVENTUALI DOPPIONI",1,,,2
               Scrivi StringaNumeri(H," "),1,,,1
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,3) = 1 Then
                  L3 = L3 + 1
                  Scrivi Space(13) & "TERNO",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,4) = 1 Then
                  L4 = L4 + 1
                  Scrivi Space(13) & "QUATERNA",1,,,2,6
               End If
               If SerieFreqTurbo(Es + 1,Es + 1,H,Ru,5) = 1 Then
                  L5 = L5 + 1
                  Scrivi Space(13) & "CINQUINA",1,,,2,6
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   If L3 < 1 Then L3 = 0
   If L4 < 1 Then L4 = 0
   If L5 < 1 Then L5 = 0
   Scrivi
   Scrivi String(54,"O"),1,,,1,4
   If Ruota = 11 Then
      Scrivi " In Tutte Le Ruote Più Nazionale ",1,,,2,4
   Else
      Scrivi Space(15) & " Nella Ruota di " & NomeRuota(Ruota),1,,,2,4
   End If
   Scrivi
   Scrivi " Nel periodo selezionato sono usciti   " & Format2(L3) & "  TERNI",1,,,1,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L4) & "  QUATERNE",1,,,2,4
   Scrivi
   Scrivi " Nel periodo selezionato sono uscite   " & Format2(L5) & "  CINQUINE",1,,,1,4
   Scrivi String(54,"O"),1,,,2,4
End Sub

Posso chiederti se possibile fare un modifica particolare , provo a spiegarmi nelle 2 righe dei numeri che mette in gioco ( accoppiamento e vertibili ) è possibile fare in modo che per restringere i numeri ti consiglia una cinquina o due in base essendo uscito più volte il numero calcolato

esempio : prima riga il XII numero è uscito 20 volte - il XVII numero 15 volte
seconda riga IX numero è uscito 18 volte - XIII numero è uscito 12 volte - XX numero è uscito 8 volte
quindi ti propone n. 48 17 54 58 25

vedi tu se possibile

Alien. · Ieri alle 22:08

Ciao Salvo solo un informazione puoi mettere sopra i numeri estrapolati un numero consecutivo sopra poi se escono 3/4/5 numeri dirmi la posizione di uscita

SENZA EVENTUALI DOPPI SENZA EVENTUALI DOPPIONI
11 12 15 16 17 18 19 21 22 25 26 27 28 29 51 52 55 57 58 59 61 62 65 66 67 68 69 70 71 72 75 76 78 80 81 82 85 86 87
TERNO

11 12 15 16 17 18 19 21 22 25 26 27 28 29 51 52 55 57 58 59 61 62 65 66 67 68 69 70 71 72 75 76 78 80 81 82 85 86 87
TERNO
sopra l'11 il numero 1 sopra il 12 il numero 2 sopra il numero 15 il numero 3 ecc.

Non so se mi sono spiegato, grazie.

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

Matematico

Advanced Member >PLATINUM<

DjNomade

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

KEN

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

KEN

Senior Member

KEN

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

Script su Metodi Cabalistici, Ciclometrici & C.

KEN

Senior Member

Alien.

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi

Script su Metodi Cabalistici, Ciclometrici & C.

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Script su Metodi Cabalistici, Ciclometrici & C.​

Senior Member

Advanced Premium Member

Script su Metodi Cabalistici, Ciclometrici & C.