Novità

terno metodo camaleonte

Abitte

Advanced Member >PLATINUM PLUS<
Messaggi
2.146
Punti reazione
55
Punti
48
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
 

desideria

Advanced Member >PLATINUM PLUS<
Messaggi
2.920
Punti reazione
335
Punti
83
ciao Abitte , per quanto ho letto iter operativo il tuo calcolo e giusto;)
 

desideria

Advanced Member >PLATINUM PLUS<
Messaggi
2.920
Punti reazione
335
Punti
83
Scusate per quanti colpi si dovrebbe giocare la previsione?
se fai clik su allegato lo scarichi su pc e poi aprirlo ,comunque non e scritto
attendiamo la risposta di Alberto che sicuramente sa qualcosa di più visto che lo ha proposto,
buona serata
 
Messaggi
78
Punti reazione
1
Punti
8
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
Messaggi
178
Punti reazione
6
Punti
18
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.
 
Messaggi
78
Punti reazione
1
Punti
8
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
 
Messaggi
78
Punti reazione
1
Punti
8
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
Messaggi
178
Punti reazione
6
Punti
18
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
Messaggi
178
Punti reazione
6
Punti
18
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:
Messaggi
78
Punti reazione
1
Punti
8
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.
 
Messaggi
78
Punti reazione
1
Punti
8
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
 
Messaggi
78
Punti reazione
1
Punti
8
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
Messaggi
178
Punti reazione
6
Punti
18
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.
 
Messaggi
78
Punti reazione
1
Punti
8
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto