Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
chi se la sente di provare!
- Creatore Discussione arcor
- Data di inizio
B
Baffoblu
Guest
Su ... su .... me sembra che vi perdiate in un bicchiere d'acqua!!!!
Elementare .... elementare !!!!
Ihihihih
NOOOO, ci sono affogato dentro......
A proposito, dov'eri quando ho chiesto
aiuto ?.......
Ultima modifica di un moderatore:
B
Baffoblu
Guest
Grazie !!!
Ti ricordi 3 mesi fa, quando mi avevi fatto
lo script per " Baffometria "....
Io ti dissi che non ci capivo un c.... di script !
B
Baffoblu
Guest
Grazie
Si è vero, mi è servito....
Se lo faceva Luigi, sono sicurissimo
che sarebbe venuto uno script totalmente diverso,
migliore anni luce da quello mio.....
Comunque devo ancora definire
meglio alcune cosette.......
Tempo al tempo.....
B
Baffoblu
Guest
Script finale !
Codice:
Sub Main()
ColoreTesto 1
Scrivi " =============== IDEA BY ARCOR <> SCRIPT BY BAFFOBLU =====================",1
Scrivi
Scrivi
Scrivi " ======================= UN AMBATA CAPOGIOCO =====================",1
Scrivi
Scrivi " ========= UNA TERZINA PRINCIPALE X AMBO E UNA TERZINA A RECUPERO =========",1
Scrivi
Scrivi " ********************************************************************************************** ",1
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim nAnalisi
Dim nColpiDiGioco
Dim nu1(1)
Dim n1(3)
Dim n2(3)
posta(1) = 1
poste(2) = 1
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"77"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
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)
For r1 = 1 To 10
For r2 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
a = Estratto(idEstr,r1,p1)
b = Estratto(idEstr,r1,p2)
If Cadenza(a) = Cadenza(b) And Distanza(a,b) = 30 Then
'-----------------------------------------------------
If a > b Then
c = Estratto(idEstr,r2,p1)
If c =(a - 10) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'----------------------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'----------------------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & Format2(c) & " - " & "** " & " [" & " In " & p1 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
End If
End If
End If
'-----------------------------------------------------------------
If a < b Then
c = Estratto(idEstr,r2,p1)
If c =(Fuori90(a + 10)) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'-----------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'-----------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & Format2(c) & " - " & "** " & " [" & " In " & p1 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
End If
End If
End If
'-----------------------------------------------------------------
If b > a Then
c = Estratto(idEstr,r2,p1)
If c =(b - 10) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'----------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'----------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & Format2(c) & " - " & "** " & " [" & " In " & p1 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
End If
End If
End If
'-----------------------------------------------------------------
If b < a Then
c = Estratto(idEstr,r2,p1)
If c =(Fuori90(b + 10)) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'-------------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'------------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & Format2(c) & " - " & "** " & " [" & " In " & p1 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
End If
End If
End If
'-----------------------------------------------------------------
If a > b Then
c = Estratto(idEstr,r2,p2)
If c =(a - 10) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'----------------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'------------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & "** " & "- " & Format2(c) & " [" & " in " & p2 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
'-----------------------------------------------------------------
End If
End If
End If
'-----------------------------------------------------------------
If a < b Then
c = Estratto(idEstr,r2,p2)
If c =(Fuori90(a + 10)) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'----------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'----------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & "** " & "- " & Format2(c) & " [" & " in " & p2 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
'-----------------------------------------------------------------
End If
End If
End If
'-------------------------------------------------------------------------
If b > a Then
c = Estratto(idEstr,r2,p2)
If c =(b - 10) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'---------------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'------------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & "** " & "- " & Format2(c) & " [" & " in " & p2 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
'-----------------------------------------------------------------
End If
End If
End If
'-----------------------------------------------------------------
If b < a Then
c = Estratto(idEstr,r2,p2)
If c =(Fuori90(b + 10)) Then
'-------------------------------------------
w = Estratto(idEstr,r1,p3)
a1 = Diametrale(a)
b1 = Diametrale(b)
c1 = Diametrale(c)
'-----------------
a2 = DiametraleD(a)
b2 = DiametraleD(b)
c2 = DiametraleD(c)
'----------------------------------------------------------------------
If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
'----------------------------------------------------------------------
d = Minimo(a,b)
e = Minimo(a,c)
f = Minimo(b,c)
If d = e Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If d = f Then
g =(d + 10)
If g = a Or g = b Or g = c Then
g =(d + 20)
End If
End If
If e = f Then
g =(e + 10)
If g = a Or g = b Or g = c Then
g =(e + 20)
End If
End If
'----------------------------------------------------
If a1 = w Then
n1(2) = b1
n1(3) = c1
End If
If b1 = w Then
n1(2) = a1
n1(3) = c1
End If
If c1 = w Then
n1(2) = a1
n1(3) = b1
End If
'----------------------
If a2 = w Then
n1(2) = b2
n1(3) = c2
End If
If b2 = w Then
n1(2) = a2
n1(3) = c2
End If
If c2 = w Then
n1(2) = a2
n1(3) = b2
End If
'----------------------
d1 = Minimo(a,b)
e1 = Minimo(a,c)
f1 = Minimo(b,c)
If d1 = e1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If d1 = f1 Then
g1 =(d1 - 10)
If d1 < 10 Then
g1 =((90 + d1) - 10)
End If
End If
If e1 = f1 Then
g1 =(e1 - 10)
If e1 < 10 Then
g1 =((90 + e1) - 10)
End If
End If
'------------------
d2 = Massimo(a,b)
e2 = Massimo(a,c)
f2 = Massimo(b,c)
If d2 = e2 Then
g2 = Fuori90(d2 + 10)
End If
If d2 = f2 Then
g2 = Fuori90(d2 + 10)
End If
If e2 = f2 Then
g2 = Fuori90(e2 + 10)
End If
'------------------
'----------------------------------------------------
ruote(1) = r1
ruote(2) = r2
nu1(1) = g
n1(1) = g
n2(1) = g
n2(2) = g1
n2(3) = g2
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 0
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " Ambo in cadenza Distanza 30 : " & Format2(a) & " - " & Format2(b) & " [" & " in " & p1 & " e in " & p2 & " pos. ]",1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & " Isotopo Intermedio Distanza 10 : " & "** " & "- " & Format2(c) & " [" & " in " & p2 & " pos. ]",1
Scrivi
ColoreTesto 7
Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi "Diametrale o Diametrale in decina rintracciato : " & Format2(w),1
Scrivi
ColoreTesto 1
Scrivi " < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
Scrivi " Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
Scrivi " ---------------------------------------------------------------------------------------------- ",1
Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
ColoreTesto 0
Scrivi String(100,"="),1
ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
Gioca idEstr,1
'-----------------------------------------------------------------
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" IDEA BY ARCOR <> LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
Ultima modifica di un moderatore:
L
LuigiB
Guest
Grazie
Si è vero, mi è servito....
Se lo faceva Luigi, sono sicurissimo
che sarebbe venuto uno script totalmente diverso,
migliore anni luce da quello mio.....
Comunque devo ancora definire
meglio alcune cosette.......
Tempo al tempo.....
Ciao Baffo , forse si ma io sono il primo che sostiene l'ideologia che qualsiasi strada che porta alla meta è comunque una strada buona.Percio apprezzo moltissimo quello che hai fatto e ti rassicuro dicendoti che scrivere gli script è solo una questione di esperienza , vedrai che continuando a scriverli acquisterai quello stile che ora ti sembra lontano.
Peccato che altri promettenti scripter si siano dati alla macchia ... (se vede che l'ho bacchettato troppo... lui sa di chi parlo
)Ciao !
Ultima modifica di un moderatore:
B
Baffoblu
Guest
Ciao Baffo , forse si ma io sono il primo che sostiene l'ideologia che qualsiasi strada che porta alla meta è comunque una strada buona.Percio apprezzo moltissimo quello che hai fatto e ti rassicuro dicendoti che scrivere gli script è solo una questione di esperienza , vedrai che continuando a scriverli acquisterai quello stile che ora ti sembra lontano.
Peccato che altri promettenti scripter si siano dati alla macchia ... (se vede che l'ho bacchettato troppo... lui sa di chi parlo
Ciao !
Hehehe, tutte le strade portano a Roma.....
Grazie ! lo devo solo a te....
So di chi parli, ultimamente si era dedicato al 10 e lotto e affini,
ma poi è sparito.....(sarà preso da qualche ricerca......).
Ho scoperto che lo script richiesto da arcor
era già stato fatto da Emplein qualche mese fa....
Io lo fatto mooolto più lungo.....non essendo pratico....
Ciao Luigi
X arcor
Come mai hai fatto di nuovo la richiesta
dello stesso script ?
Mi risulta che quello fatto da Emplein
fosse funzionante.....
Ultima modifica di un moderatore:
B
Baffoblu
Guest
Scusa, ma nel tread " Per scripter tosti",
e questo qui, non ci vedo la differenza.
La tua richiesta è praticamente la stessa,
i calcoli pure......
Quale è la differenza ?
arcor
Advanced Member
ciao baffo devo darti ragione avevo preparato 2 versioni dello stesso metodo logicamente la prima richiesta doveva essere quella della prima versione del metodo e questa che hai realizzato tu la seconda invece ho messo subito la versione aggiornata nella prima richiesta chiedo umilmente scusa ormai mettere la prima versione ora non ha più senso
B
Baffoblu
Guest
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 ottobre 2025Bari4365365254Cagliari6389228545Firenze5917668878Genova7567427877Milano1221876631Napoli3875616876Palermo4290203371Roma5713808479Torino5954844826Venezia7705142820Nazionale0504104368Estrazione Simbolotto
4238162534
