Novità

Ricerca script

*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
 
Ultima modifica:

*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
 
Ultima modifica:

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
 

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

Ultimi Messaggi

Alto