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 · Ieri alle 10:30

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.

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

Matematico

Advanced Member >PLATINUM<

DjNomade

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

KEN

Member

Ultima estrazione Lotto

Ultimi Messaggi