terno metodo camaleonte

Alberto Anderlini · 21 Novembre 2019

cerco programma script metodo camaleonte allego descrizione

Abitte · 25 Novembre 2019

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 · 25 Novembre 2019

ciao Abitte , per quanto ho letto iter operativo il tuo calcolo e giusto

Abitte · 25 Novembre 2019

? ciao Desi ! e grazie

curioso · 25 Novembre 2019

Scusate per quanti colpi si dovrebbe giocare la previsione?

desideria · 25 Novembre 2019

curioso ha scritto:
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

curioso · 25 Novembre 2019

Grazie e buona serata anche a te

Alberto Anderlini · 25 Novembre 2019

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 · 26 Novembre 2019

Alberto Anderlini ha scritto:
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 · 26 Novembre 2019

si il metodo è quello ma io cerco uno script unico senza selezionare ruote e posizione dei numeri.

Alberto Anderlini · 26 Novembre 2019

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 · 26 Novembre 2019

vengio ha scritto:
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 · 26 Novembre 2019

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 · 26 Novembre 2019

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 · 27 Novembre 2019

vengio ha scritto:

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.

vengio ha scritto:

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 · 27 Novembre 2019

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 · 27 Novembre 2019

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 · 27 Novembre 2019

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 · 27 Novembre 2019

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 · 27 Novembre 2019

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.

terno metodo camaleonte

Super member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Super member

Super Member >GOLD<

Super member

Super member

Super member

Super Member >GOLD<

Super Member >GOLD<

Super member

Super member

Super member

Super Member >GOLD<

Super member

Super member