lottofortune
Advanced Member >PLATINUM<
Ciao a tutti,esiste qualche script su metodi di numero uguali isotopi?
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.
Ricerca script
- Creatore Discussione lottofortune
- Data di inizio
*blacklotto*
Super Member >PLATINUM<
Ciao, listato prelevato in web tempo fa
26.01.2019 PA 25.27.30.17.82
26.01.2019 FI 25.33.43.52.70
26.01.2019 FI-PA Numero isotopo 25-25 estratto al 1° posto
26.01.2019 TO 50.67.27.30.82
26.01.2019 PA 25.27.30.17.82
26.01.2019 PA-TO Numero isotopo 82-82 estratto al 5° posto
29.01.2019 RO 34.38.71.57.44
29.01.2019 BA 31.38.14.83.57
29.01.2019 BA-RO Numero isotopo 38-38 estratto al 2° posto
29.01.2019 TO 85.26.43.14.36
29.01.2019 MI 23.26.07.76.29
29.01.2019 MI-TO Numero isotopo 26-26 estratto al 2° posto
31.01.2019 CA 44.56.60.57.32
31.01.2019 BA 23.56.87.21.17
31.01.2019 BA-CA Numero isotopo 56-56 estratto al 2° posto
31.01.2019 TO 01.80.51.34.39
31.01.2019 MI 87.80.89.24.27
31.01.2019 MI-TO Numero isotopo 80-80 estratto al 2° posto
Sub Main()
Dim k(10),ab(2),ab1(7)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1) = 1 : ptt(2) = 1: ptt(3) = 1 : clp = 13
ini = EstrazioneFin - 2
co = 0
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 10
rt(1) = r : rtt(1) = r
For p1 = 1 To 5
n1 = Estratto(es,r,p1)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
rt(2) = r1 : rtt(2) = r1
ruote(1) = 11:ruote(2) = 12
n2 = Estratto(es,r1,p1)
If(n1) =(n2)Then
co = co + 1
Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & ""
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " "
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & _
" Numero isotopo " & n1 & "-" & n2 & " estratto al " & p1 & "° posto",1
Scrivi
ab(1) = Fuori90(n1 + 1)
ab(2) = Vert(ab(1))
ImpostaGiocata 1,ab,rtt,pt,clp
ab1(1) = Fuori90(n1 + 1)
ab1(2) = Vert(ab1(1))
ab1(3) = Figura(ab1(1))
ab1(4) = Fuori90(ab1(3) + 1)
ab1(5) = Fuori90(ab1(4) + 4)
ab1(6) = Fuori90(ab1(5) + 4)
ab1(7) = Diametrale(ab1(1))
ImpostaGiocata 2,ab1,rtt,ptt,clp
ImpostaGiocata 3,ab1,ruote,ptt,clp
'Gioca es
End If
Next
Next
Next
Next
'ScriviResoconto
End Sub
26.01.2019 PA 25.27.30.17.82
26.01.2019 FI 25.33.43.52.70
26.01.2019 FI-PA Numero isotopo 25-25 estratto al 1° posto
26.01.2019 TO 50.67.27.30.82
26.01.2019 PA 25.27.30.17.82
26.01.2019 PA-TO Numero isotopo 82-82 estratto al 5° posto
29.01.2019 RO 34.38.71.57.44
29.01.2019 BA 31.38.14.83.57
29.01.2019 BA-RO Numero isotopo 38-38 estratto al 2° posto
29.01.2019 TO 85.26.43.14.36
29.01.2019 MI 23.26.07.76.29
29.01.2019 MI-TO Numero isotopo 26-26 estratto al 2° posto
31.01.2019 CA 44.56.60.57.32
31.01.2019 BA 23.56.87.21.17
31.01.2019 BA-CA Numero isotopo 56-56 estratto al 2° posto
31.01.2019 TO 01.80.51.34.39
31.01.2019 MI 87.80.89.24.27
31.01.2019 MI-TO Numero isotopo 80-80 estratto al 2° posto
Sub Main()
Dim k(10),ab(2),ab1(7)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1) = 1 : ptt(2) = 1: ptt(3) = 1 : clp = 13
ini = EstrazioneFin - 2
co = 0
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 10
rt(1) = r : rtt(1) = r
For p1 = 1 To 5
n1 = Estratto(es,r,p1)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
rt(2) = r1 : rtt(2) = r1
ruote(1) = 11:ruote(2) = 12
n2 = Estratto(es,r1,p1)
If(n1) =(n2)Then
co = co + 1
Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & ""
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " "
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & _
" Numero isotopo " & n1 & "-" & n2 & " estratto al " & p1 & "° posto",1
Scrivi
ab(1) = Fuori90(n1 + 1)
ab(2) = Vert(ab(1))
ImpostaGiocata 1,ab,rtt,pt,clp
ab1(1) = Fuori90(n1 + 1)
ab1(2) = Vert(ab1(1))
ab1(3) = Figura(ab1(1))
ab1(4) = Fuori90(ab1(3) + 1)
ab1(5) = Fuori90(ab1(4) + 4)
ab1(6) = Fuori90(ab1(5) + 4)
ab1(7) = Diametrale(ab1(1))
ImpostaGiocata 2,ab1,rtt,ptt,clp
ImpostaGiocata 3,ab1,ruote,ptt,clp
'Gioca es
End If
Next
Next
Next
Next
'ScriviResoconto
End Sub
Ultima modifica:
lottofortune
Advanced Member >PLATINUM<
Grazie mille blacklotto..Buon weekend 
Ultima modifica:
lottofortune
Advanced Member >PLATINUM<
L'ho provato ma non va sulla stringa
scrivi dataestrazione(es) &""& sigla ruota(r1) &""& mi da errore di sintassi
scrivi dataestrazione(es) &""& sigla ruota(r1) &""& mi da errore di sintassi
*blacklotto*
Super Member >PLATINUM<
Ciao,
non capisco che errore possa darti, prova ad inserirlo e vedremo cosa fare.
Intanto, se ti può interessare inserisco un listato, sempre preso dal web, che mostra 3 numeri uguali isotopi.
Estrazione n.9560 del 04.12.2018 MI 48 02 15 32 25
Estrazione n.9561 del 06.12.2018 MI 87 42 58 32 37
Estrazione n.9560 del 04.12.2018 FI 82 33 88 32 38
Estrazione n.9562 del 10.12.2018 GE 63 82 81 79 72
Estrazione n.9563 del 11.12.2018 GE 16 58 81 67 48
Estrazione n.9562 del 10.12.2018 NA 14 65 81 84 69
Estrazione n.9580 del 19.01.2019 GE 09 05 46 74 01
Estrazione n.9581 del 22.01.2019 GE 63 48 46 13 43
Estrazione n.9581 del 22.01.2019 CA 90 09 46 14 89
Estrazione n.9580 del 19.01.2019 TO 63 41 55 06 71
Estrazione n.9581 del 22.01.2019 TO 63 77 20 49 42
Estrazione n.9581 del 22.01.2019 GE 63 48 46 13 43
Estrazione n.9582 del 24.01.2019 GE 27 34 04 50 72
Estrazione n.9583 del 26.01.2019 GE 19 36 53 48 72
Estrazione n.9583 del 26.01.2019 BA 78 26 34 29 72
Option Explicit
Sub Main
Dim FIn,Ini,Es,Caso,Casi
Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9550)
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es + 1,R1,P1)
If A = B Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
C = Estratto(Es,R2,P1)
D = Estratto(Es + 1,R2,P1)
If C = A Or D = A Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(55,"=")
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es + 1,R1,P6)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
'
If C = A Then
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E3 = Estratto(Es,R2,P7)
If E3 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
End If
If D = A Then
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P8 = 1 To 5
E4 = Estratto(Es + 1,R2,P8)
If E4 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E4) & " ",1,0
ColoreTesto 0
Next
Scrivi
End If
End If
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
non capisco che errore possa darti, prova ad inserirlo e vedremo cosa fare.
Intanto, se ti può interessare inserisco un listato, sempre preso dal web, che mostra 3 numeri uguali isotopi.
Estrazione n.9560 del 04.12.2018 MI 48 02 15 32 25
Estrazione n.9561 del 06.12.2018 MI 87 42 58 32 37
Estrazione n.9560 del 04.12.2018 FI 82 33 88 32 38
Estrazione n.9562 del 10.12.2018 GE 63 82 81 79 72
Estrazione n.9563 del 11.12.2018 GE 16 58 81 67 48
Estrazione n.9562 del 10.12.2018 NA 14 65 81 84 69
Estrazione n.9580 del 19.01.2019 GE 09 05 46 74 01
Estrazione n.9581 del 22.01.2019 GE 63 48 46 13 43
Estrazione n.9581 del 22.01.2019 CA 90 09 46 14 89
Estrazione n.9580 del 19.01.2019 TO 63 41 55 06 71
Estrazione n.9581 del 22.01.2019 TO 63 77 20 49 42
Estrazione n.9581 del 22.01.2019 GE 63 48 46 13 43
Estrazione n.9582 del 24.01.2019 GE 27 34 04 50 72
Estrazione n.9583 del 26.01.2019 GE 19 36 53 48 72
Estrazione n.9583 del 26.01.2019 BA 78 26 34 29 72
Option Explicit
Sub Main
Dim FIn,Ini,Es,Caso,Casi
Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,P7,P8,E1,E2,E3,E4
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9550)
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es + 1,R1,P1)
If A = B Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
C = Estratto(Es,R2,P1)
D = Estratto(Es + 1,R2,P1)
If C = A Or D = A Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(55,"=")
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es + 1,R1,P6)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
'
If C = A Then
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E3 = Estratto(Es,R2,P7)
If E3 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
End If
If D = A Then
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P8 = 1 To 5
E4 = Estratto(Es + 1,R2,P8)
If E4 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E4) & " ",1,0
ColoreTesto 0
Next
Scrivi
End If
End If
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
Ultima modifica:
lottofortune
Advanced Member >PLATINUM<
grazie blacklotto..lo script ora và..io comunque cercavo uno script che facesse dei calcoli,con previsione..
lottofortune
Advanced Member >PLATINUM<
Scrivo qua per non creare altri post...esiste quale script o funzione in spaziometria che mi trovi le figure dei numeri in ogni estrazione?
lottofortune
Advanced Member >PLATINUM<
buongiorno a tutti,ho trovato questo nel web,ma mi da i risultati fino al 2017,qualcuno potrebbe gentilmente aiutarmi?grazie
Codice:
Sub Main()
ini = 8500
For n = ini To EstrazioneFin
Messaggio DataEstrazione(n)
For r1 = 1 To 9
For p1 = 1 To 4 : a = Estratto(n,r1,p1)
For p2 = p1 + 1 To 5 : b = Estratto(n,r1,p2)
If Distanza(a,b) = 30 Then
For r2 = r1 + 1 To 10
For p3 = 1 To 4 : c = Estratto(n,r2,p3)
For p4 = p3 + 1 To 5 : d = Estratto(n,r2,p4)
fa = Figura(a) : fc = Figura(c) : df1 = Abs(fa - fc)
If Distanza(c,d) = 30 And(df1 = 0 Or df1 = 3 Or df1 = 6) And a <> c And a <> d Then
f1 = fa : f2 = Figura(fa + 3) : f3 = Figura(fa + 6)
'Quadratura somme
sv1 = Fuori90(a + c) : sv2 = Fuori90(b + d)
sd1 = Fuori90(a + d) : sd2 = Fuori90(b + c)
If sv1 = sv2 Or sd1 = sd2 Then
If sv1 = sv2 Then sc = sv1 Else sc = sd1
For q1 = 1 To 5 : e1 = Estratto(n,r1,q1)
For q2 = 1 To 5 : e2 = Estratto(n,r2,q2)
se = Fuori90(e1 + e2) : fe1 = Figura(e1) : fe2 = Figura(e2) : df2 = Abs(fe1 - fe2)
If se = sc And e1 <> a And e1 <> b And e1 <> c And e1 <> d And(df2 = 0 Or df2 = 3 Or df2 = 6) And(fe1 = f1 Or fe1 = f2 Or fe1 = f3) Then
casi = casi + 1:Scrivi String(105,"="),1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ] [ " & _
Format2(a) & "." & Format2(b) & " ] Dist. 30 in " &(p1) & "^/" &(p2) & "^ pos. [" & Format2(e1) & "] pos. " & q1 & "^"
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(n,r2) & " ] [ " & _
Format2(c) & "." & Format2(d) & " ] Dist. 30 in " &(p3) & "^/" &(p4) & "^ pos. [" & Format2(e2) & "] pos. " & q2 & "^ Som. com. " & Format2(sc)
Scrivi "Terz. simmetrica : " &(f1) & "." &(f2) & "." &(f3),1
Scrivi String(105,"-") & " caso n° " &(casi)
End If
Next
Next
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
End Sub
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Si ferma al 30-11-2017 perchè dopo non si sono verificati casi secondo i parametri dello script, al primo acchito la cosa può sembrare strana, ma se si fa qualche prova, diventa fattibile, sono partito dall'estrazione n1 ed ho riscontrato solo 133 casi praticamente di media un caso ogni 72 estrazioni - DI MEDIA
Si ferma al 30-11-2017 perchè dopo non si sono verificati casi secondo i parametri dello script, al primo acchito la cosa può sembrare strana, ma se si fa qualche prova, diventa fattibile, sono partito dall'estrazione n1 ed ho riscontrato solo 133 casi praticamente di media un caso ogni 72 estrazioni - DI MEDIA
lottofortune
Advanced Member >PLATINUM<
Va bene grazie mille salvo50...Io cercavo uno script Sulla tripla figurale in ogni estrazione..vabbè grazie ancora salvo50..
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 14 gennaio 2025Bari4125127355Cagliari5420483267Firenze7523681038Genova3327817064Milano6801648687Napoli4775451021Palermo5586335370Roma8878610607Torino7608236182Venezia2515492181Nazionale7010327807Estrazione Simbolotto
Bari
0714284531
