Novità

terno metodo camaleonte

Abitte

Advanced Member >PLATINUM PLUS<
giusto per curiosità,visto che si è presentata una condizione sulla NAZ proprio giovedì e sabato scorsi, ho estrapolato la previsione....
NAZ ambo secco 8-14 e terni 8.14.23 e 8-14-24.
Sarei grata se l'autore del metodo confermasse o meno la previsione e, se non corretta, desse delucidazioni. Grazie mille :)

p.s. la condizione deriva dal numero 11 estratto in 3^ posiz. sulla NAZ
 

Alberto Anderlini

Super member
buona sera a tutti gli intervenuti nella discussione, la previsione è: 8-14 terni 8-14-23 e 8-14-24 quindi esatte.
la previsione è per 9 estrazioni come si verifica un evento favorele si conclude la previsione a volte si hanno ulteriori risultati positivi. preciso che il metodo non è l mio, cercavo ssoltanto qualcuno che faacesse uno script,
 

vengio

Super Member >GOLD<
buona sera a tutti gli intervenuti nella discussione, la previsione è: 8-14 terni 8-14-23 e 8-14-24 quindi esatte.
la previsione è per 9 estrazioni come si verifica un evento favorele si conclude la previsione a volte si hanno ulteriori risultati positivi. preciso che il metodo non è l mio, cercavo ssoltanto qualcuno che faacesse uno script,
Ciao Alberto, pur non essendo un professionista ho cominciato a tirare su uno script. Al momento non è ancora definitivo ma i risultati non sono molto incoraggianti. Se vuoi posso postarlo in modo che tu possa dargli un'occhiata sperando che nel frattempo qualche mago ne prepari uno ad ok.
 

Alberto Anderlini

Super member
allego script di baffoblu sono due uno per numeri alla destra e uno per numeri a sinistra, inotre chiede ruota e posizione del numero. quindi molto lungo da elaborare.
Scrivi " Script Terno per laterali a sinistra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(2)
Dim am1(3)
Dim am2(3)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,1)
b2 = Estratto(idEstr,r,1)
p1 = 1
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
'------------------------------------------
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
n(2) = k2
am1(1) = k1
am1(2) = k2
am1(3) = k3
am2(1) = k1
am2(2) = k2
am2(3) = k4
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° coppia di elementi di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° coppia di elementi di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi
ColoreTesto 7
Scrivi "Ambo Secco : " & k1 & " - " & k2,1
Scrivi "1° terno : " & k1 & " - " & k2 & " - " & k3,1
Scrivi "2° terno : " & k1 & " - " & k2 & " - " & k4,1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco',1
ImpostaGiocata 2,am1,ruote,poste,nColpiDiGioco',2
ImpostaGiocata 3,am2,ruote,poste,nColpiDiGioco',2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub

secondo script
Sub Main()
Scrivi " Script Terno per laterali a destra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(2)
Dim am1(3)
Dim am2(3)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
'------------------------------------------
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,5)
b2 = Estratto(idEstr,r,5)
p1 = 5
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
n(2) = k2
am1(1) = k1
am1(2) = k2
am1(3) = k3
am2(1) = k1
am2(2) = k2
am2(3) = k4
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° coppia di elementi di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° coppia di elementi di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi
ColoreTesto 7
Scrivi "Ambo Secco : " & k1 & " - " & k2,1
Scrivi "1° terno : " & k1 & " - " & k2 & " - " & k3,1
Scrivi "2° terno : " & k1 & " - " & k2 & " - " & k4,1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco',1
ImpostaGiocata 2,am1,ruote,poste,nColpiDiGioco',2
ImpostaGiocata 3,am2,ruote,poste,nColpiDiGioco',2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
 

Alberto Anderlini

Super member
Ciao Alberto, pur non essendo un professionista ho cominciato a tirare su uno script. Al momento non è ancora definitivo ma i risultati non sono molto incoraggianti. Se vuoi posso postarlo in modo che tu possa dargli un'occhiata sperando che nel frattempo qualche mago ne prepari uno ad ok.
ok mandalo così lo provo grazie
 

vengio

Super Member >GOLD<
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim Ruotedigioco(12)
   'Dim posta(3)
   Dim Poste(4)
   ' posta(1) = 1
   Poste(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1
   clp = 12
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   t = 0
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,p - 1)
            d = Estratto(es,r,p - 1)
            e = Estratto(es - 1,r,p + 1)
            f = Estratto(es,r,p + 1)
            If a = b Then
               If pari(c) = True And pari(d) = True Or pari(e) = True And pari(f) = True Then
                  h = Differenza(c,d)
                  i = a + b
                  g = i + h
                  k = Fuori90(g/2)
                  j = Fuori90(Differenza(i,k))
                  qq = Fuori90(k + j)
                  ss = Fuori90(qq + 1)
                  vv = Fuori90(qq + 2)
                  z1 = j
                  z2 = k
                  z3 = qq
                  z4 = ss
                  z5 = vv'
                  x(1) = j
                  x(2) = k
                  x(3) = qq
                  x(4) = ss
                  x(5) = vv
                  ' _______________________________________________________________
                  l = Differenza(e,f)
                  m = i + l
                  u = Fuori90(m/2)
                  o = Fuori90(Differenza(i,u))
                  q = Fuori90(U + o)
                  s = Fuori90(q + 1)
                  v = Fuori90(q + 2)
                  Ruotedigioco(1) = r
                  Ruotedigioco(2) = 12
                  n(1) = u
                  n(2) = o
                  n(3) = q
                  n(4) = s
                  n(5) = v
                  ColoreTesto 1
                  Scrivi
                  ColoreTesto 0
                  Scrivi String(110,"*"),1
                  Scrivi
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(qq) & " " & Format2(ss) & " " & Format2(vv),1
                  Scrivi String(110,"*"),2
                  Scrivi Format2(u) & " " & Format2(o) & " " & Format2(q) & " " & Format2(s) & " " & Format2(v),1
                  'Scrivi Format2(u) & " " & Format2(o) & " " & Format2(q) & " " & Format2(s) & " " & Format2(v),1
                  ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                  ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                  Gioca es
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Al momento calcola sempre e comunque tutti e due i numeri, appena ho tempo vedo di ultimarlo o se comunque vuol farlo qualcun'altro nessun problema. Ciao.
 

vengio

Super Member >GOLD<
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   Poste(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1
   clp = 12
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   t = 0
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,p - 1)
            d = Estratto(es,r,p - 1)
            e = Estratto(es - 1,r,p + 1)
            f = Estratto(es,r,p + 1)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               ok = 0
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  z1 = j
                  z2 = k
                  z3 = qq
                  z4 = ss
                  z5 = vv'
                  x(1) = j
                  x(2) = k
                  'x(3) = qq
                  x(3) = ss
                  x(4) = vv
                  Ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione sinistra  " & c & " e " & d,1
               End If
               ' _______________________________________________________________
               l = Differenza(e,f)
               m = i + l
               u = Fuori90(m/2)
               o = Fuori90(Differenza(i,u))
               q = Fuori90(U + o)
               s = Fuori90(q + 1)
               v = Fuori90(q + 2)
               If pari(e) = True And pari(f) = True Or dispari(e) = True And dispari(f) = True Then
                  x(1) = u
                  x(2) = o
                  'x(3) = q
                  x(3) = s
                  x(4) = v
                  ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione destra  " & e & " e " & f,1
               End If
               If ok = 1 Then
                  Scrivi
                  Scrivi String(110,"*"),2
                  'Scrivi Format2(u) & " " & Format2(o) & " " & Format2(q) & " " & Format2(s) & " " & Format2(v),1
                  Ruotedigioco(1) = r
                  Ruotedigioco(2) = 11
                  ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                  ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                  Gioca es
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Qualcosa ho migliorato, fammi sapere eventuali errori.
 
Ultima modifica:

Alberto Anderlini

Super member
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   Poste(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1
   clp = 12
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   t = 0
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,p - 1)
            d = Estratto(es,r,p - 1)
            e = Estratto(es - 1,r,p + 1)
            f = Estratto(es,r,p + 1)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               ok = 0
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  z1 = j
                  z2 = k
                  z3 = qq
                  z4 = ss
                  z5 = vv'
                  x(1) = j
                  x(2) = k
                  'x(3) = qq
                  x(3) = ss
                  x(4) = vv
                  Ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione sinistra  " & c & " e " & d,1
               End If
               ' _______________________________________________________________
               l = Differenza(e,f)
               m = i + l
               u = Fuori90(m/2)
               o = Fuori90(Differenza(i,u))
               q = Fuori90(U + o)
               s = Fuori90(q + 1)
               v = Fuori90(q + 2)
               If pari(e) = True And pari(f) = True Or dispari(e) = True And dispari(f) = True Then
                  x(1) = u
                  x(2) = o
                  'x(3) = q
                  x(3) = s
                  x(4) = v
                  ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione destra  " & e & " e " & f,1
               End If
               If ok = 1 Then
                  Scrivi
                  Scrivi String(110,"*"),2
                  'Scrivi Format2(u) & " " & Format2(o) & " " & Format2(q) & " " & Format2(s) & " " & Format2(v),1
                  Ruotedigioco(1) = r
                  Ruotedigioco(2) = 11
                  ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                  ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                  Gioca es
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Qualcosa ho migliorato, fammi sapere eventuali errori.
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   Poste(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Poste(4) = 1
   clp = 12
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   t = 0
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,p - 1)
            d = Estratto(es,r,p - 1)
            e = Estratto(es - 1,r,p + 1)
            f = Estratto(es,r,p + 1)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               ok = 0
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  z1 = j
                  z2 = k
                  z3 = qq
                  z4 = ss
                  z5 = vv'
                  x(1) = j
                  x(2) = k
                  'x(3) = qq
                  x(3) = ss
                  x(4) = vv
                  Ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione sinistra  " & c & " e " & d,1
               End If
               ' _______________________________________________________________
               l = Differenza(e,f)
               m = i + l
               u = Fuori90(m/2)
               o = Fuori90(Differenza(i,u))
               q = Fuori90(U + o)
               s = Fuori90(q + 1)
               v = Fuori90(q + 2)
               If pari(e) = True And pari(f) = True Or dispari(e) = True And dispari(f) = True Then
                  x(1) = u
                  x(2) = o
                  'x(3) = q
                  x(3) = s
                  x(4) = v
                  ok = 1
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione destra  " & e & " e " & f,1
               End If
               If ok = 1 Then
                  Scrivi
                  Scrivi String(110,"*"),2
                  'Scrivi Format2(u) & " " & Format2(o) & " " & Format2(q) & " " & Format2(s) & " " & Format2(v),1
                  Ruotedigioco(1) = r
                  Ruotedigioco(2) = 11
                  ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                  ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                  Gioca es
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Qualcosa ho migliorato, fammi sapere eventuali errori.
 

Alberto Anderlini

Super member
c'è un numero di troppo, è un ambo base e 2 terni mi da un errore 9-indice non compreso nell'intervallo.
se vedi l'estrazione dove c'è 11 su nazionale la previsione è 8-14 ambo 8-14-23 8-14-24 terni quindi il numero 22 a cui si somma il +1 e il +2 non va messo in gioco. penso che una volta apportata la modifica possa andare. grzie
 

Alberto Anderlini

Super member
21.11.2019 NZ 41.18.11.60.34 NZ 11 in 3° Posizione
23.11.2019 NZ 64.35.11.54.84 NZ 11 in 3° Posizione(Ripetuto in estrazione consecutiva)
02 20 22 23 24
**************************************************************************************************************
14 08 22 23 24
Estrazione generatrice del pronostico 09712 [141 - 23/11/2019]
G 0001 Numeri in gioco : 14.08.22.23.24 su NZ per Estratto,Ambo,Terno,Quaterna

N. [14.08.22.23.24 ] [NZ] [.. .. .. .. ..] C. 1 09713 [142 - 26/11/2019]

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 02.20.22.23.24 su NZ per Estratto,Ambo,Terno,Quaterna
N. [02.20.22.23.24 ] [NZ] [.. .. .. .. ..] C. 1 09713 [142 - 26/11/2019]

In corso per altre 11 estrazioni
non riesco a capire il G 0002 a cosa si rifrisce.
 

vengio

Super Member >GOLD<
Devi far girare il 2° che ho postato dove il 22 è stato eliminato. Ho rimasto la singola quartina, controlla se i calcoli sono esatti anche sui numeri calcolati dal lato opposto e poi magari sistemo le terzine.
 

Alberto Anderlini

Super member
per il calcolo si devono prendere in esame i due numeri a sinistra entrambi, pari o dispari o
i due numeri a dx entrambi pari o dispari. nel caso non ci fossero, si cercano nelle posizioni precedenti o dopo.
nel caso siano sia a dx che sinistra entrambi pari o dispari abbiamo una doppia previsione.
 

Alberto Anderlini

Super member
nel secondo, ho visto che non è andato oltre alla ricerca si è fermata all'11 su nazionale mentre l'ultimo ha trovato un altro isotopo 61 bari. in terza posizione ci sono due numeri pari quindi si può avere a prevsione.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto