Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Cerco aiuto per script

demonio

Senior Member
lo script l'ho trovato tempo addietro è AMBO UNICO DI MILO MANARA
io non sono per niente esperto anzi non ci capisco proprio niente e qundi chiedo aiuto,
se qualcuno che ci capisce mi aiuta l'ho provato su spaziometria ma mi segnala errore che ho evidenziato sotto
grazie mille

Iter operativo
Rintracciare sul quadro estrazionale due ambi che presentano le seguenti
caratteristiche:
 isotopi;
 stessa distanza ciclometrica in orizzontale;
 stessa distanza ciclometrica in verticale;
 la somma diagonale eventualmente con il fuori 90 deve dare lo stesso
numero.
Rintracciata la condizione si procederà alla determinazione del numero chiave che è dato dalla somma comune in diagonale della formazione ricercata. Il diametrale del numero chiave rappresenterà l’ambata mentre gli altri due elementi a distanza 30 del numero chiave rappresentano i numeri da abbinare all’ambata per la sorte dell’ambo secco. La metodologia mette in gioco un’ambata su due ruote, tre ambi secchi ed una quartina per le sorti di ambo, terno e quaterna.

ColoreTesto 2

Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1

Scrivi String(45,32) & "",1

ColoreTesto 0

Sub Main()

Dim nu(10),nu1(10),nu2(10),nu3(10),nu4(10)

Dim ruote(10),ruota(10)

Dim poste(5),poste1(5),poste2(5),poste3(5)

poste(1) = 1

poste(1) = 1

poste1(2) = 1

poste2(2) = 1.9

poste2(3) = 1

poste2(4) = .1

fin = EstrazioneFin QUI MI SEGNALA ERRORE- Variabile non definita

ini = fin - 30

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1 = 1 To 10

For p1 = 1 To 4

For p2 = p1 + 1 To 5

n1 = Estratto(es,r1,p1)'6

n2 = Estratto(es,r1,p2)'75

For r2 = r1 + 1 To 11

If r2 = 11 Then r2 = 12

n3 = Estratto(es,r2,p1)'81

n4 = Estratto(es,r2,p2)'60

n5 = Fuori90(n1 + n4)'somma diag

n6 = Fuori90(n2 + n3)'somma diag

If n5 = n6 Then

n7 = Distanza(n1,n2)'distanza orizz

n8 = Distanza(n3,n4)'distanza orizz

If n7 = n8 Then

n9 = Distanza(n1,n3) 'distanza VERT

n10 = Distanza(n2,n4)'distanza VERT

n11 = Diametrale(n6)'ambata

n12 = Abs(n9 - n10)

If n9 = n10 And n7 = n8 And n5 = n6 Then

casi = casi + 1

Scrivi

Scrivi String(75,"=") & " caso n° " &(casi)

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _

" > ambo stessa Distanza " & Format2(n7) & " Orizzontale < " & Format2(n1) & "." & Format2(n2) & " >"

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _

" > ambo stessa Somma " & Format2(n6) & " Diagonale < " & Format2(n3) & "." & Format2(n4) & " >"

Scrivi " stessa Distanza Vert = " & Format2(n9)

ruote(1) = r1

ruote(2) = r2

ruota(1) = 11

ruota(1) = 12

k = 9

co = 0

nu(1) = n11' 1°ambata

ImpostaGiocata 1,nu,ruote,poste,k

nu1(1) = n11' 1°ambata

nu1(2) = n5' 1 abbinamento

ImpostaGiocata 2,nu1,ruote,poste1,k

nu1(1) = n11' 1°ambata

nu1(2) = Fuori90(n5 + 30) ' abbinamento

ImpostaGiocata 3,nu1,ruote,poste1,k

nu1(1) = n11' 1°ambata

nu1(2) = Fuori90(n5 + 60)' abbinamento

ImpostaGiocata 4,nu1,ruote,poste1,k

nu2(1) = n11' 1°ambata

nu2(2) = n5' 1 abbinamento

nu2(3) = Fuori90(n5 + 30)'

nu2(4) = Fuori90(n5 + 60) ' abbinamento

ImpostaGiocata 5,nu2,ruote,poste2,k

Gioca es

End If

End If

End If

Next

Next

Next

Next

Next

ScriviResoconto

ColoreTesto 2

Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1

Scrivi String(45,32) & "",1

ColoreTesto 0

End Sub
 

rudivall

Advanced Member >PLATINUM<
Demonio ho provato così' ...con Spaziometria mi funziona bene.
 

Allegati

  • Osvaldo Manara Ambo unico.txt
    3,5 KB · Visite: 21

druid

Super member
Ciao, lo script funziona, copialo pari-pari.

Codice:
ColoreTesto 2

Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1

Scrivi String(45,32) & "",1

ColoreTesto 0

Sub Main()

Dim nu(10),nu1(10),nu2(10),nu3(10),nu4(10)

Dim ruote(10),ruota(10)

Dim poste(5),poste1(5),poste2(5),poste3(5)

poste(1) = 1

poste(1) = 1

poste1(2) = 1

poste2(2) = 1.9

poste2(3) = 1

poste2(4) = .1

fin = EstrazioneFin
ini = fin - 30

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1 = 1 To 10

For p1 = 1 To 4

For p2 = p1 + 1 To 5

n1 = Estratto(es,r1,p1)'6

n2 = Estratto(es,r1,p2)'75

For r2 = r1 + 1 To 11

If r2 = 11 Then r2 = 12

n3 = Estratto(es,r2,p1)'81

n4 = Estratto(es,r2,p2)'60

n5 = Fuori90(n1 + n4)'somma diag

n6 = Fuori90(n2 + n3)'somma diag

If n5 = n6 Then

n7 = Distanza(n1,n2)'distanza orizz

n8 = Distanza(n3,n4)'distanza orizz

If n7 = n8 Then

n9 = Distanza(n1,n3) 'distanza VERT

n10 = Distanza(n2,n4)'distanza VERT

n11 = Diametrale(n6)'ambata

n12 = Abs(n9 - n10)

If n9 = n10 And n7 = n8 And n5 = n6 Then

casi = casi + 1

Scrivi

Scrivi String(75,"=") & " caso n° " &(casi)

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo stessa Distanza " & Format2(n7) & " Orizzontale < " & Format2(n1) & "." & Format2(n2) & " >"

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo stessa Somma " & Format2(n6) & " Diagonale < " & Format2(n3) & "." & Format2(n4) & " >"

Scrivi " stessa Distanza Vert = " & Format2(n9)

ruote(1) = r1

ruote(2) = r2

ruota(1) = 11

ruota(1) = 12

k = 9

co = 0

nu(1) = n11' 1°ambata

ImpostaGiocata 1,nu,ruote,poste,k

nu1(1) = n11' 1°ambata

nu1(2) = n5' 1 abbinamento

ImpostaGiocata 2,nu1,ruote,poste1,k

nu1(1) = n11' 1°ambata

nu1(2) = Fuori90(n5 + 30) ' abbinamento

ImpostaGiocata 3,nu1,ruote,poste1,k

nu1(1) = n11' 1°ambata

nu1(2) = Fuori90(n5 + 60)' abbinamento

ImpostaGiocata 4,nu1,ruote,poste1,k

nu2(1) = n11' 1°ambata

nu2(2) = n5' 1 abbinamento

nu2(3) = Fuori90(n5 + 30)'

nu2(4) = Fuori90(n5 + 60) ' abbinamento

ImpostaGiocata 5,nu2,ruote,poste2,k

Gioca es

End If

End If

End If

Next

Next

Next

Next

Next

ScriviResoconto

ColoreTesto 2

Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1

Scrivi String(45,32) & "",1

ColoreTesto 0

End Sub

;)
 

Mike58

Advanced Member >PLATINUM PLUS<
Confermo anch'io lo script è funzionante.
L' errore che riscontri sarà dovuto al fatto che usi la pagina con Option Explicit.
Cancella tutto dalla pagina dell edit script ed incolla lo script nella pagina vuota e vedrai che tutto funziona.

P.s. quando si usa option explicit bisogna dichiarare le variabili ( in questo caso FIN) in matrice DIM.
esempio
Dim Fin,ini,etc

Ciao
 

demonio

Senior Member
Confermo anch'io lo script è funzionante.
L' errore che riscontri sarà dovuto al fatto che usi la pagina con Option Explicit.
Cancella tutto dalla pagina dell edit script ed incolla lo script nella pagina vuota e vedrai che tutto funziona.

P.s. quando si usa option explicit bisogna dichiarare le variabili ( in questo caso FIN) in matrice DIM.
esempio
Dim Fin,ini,etc

Ciao
grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 08 aprile 2021
    Bari
    24
    19
    57
    21
    42
    Cagliari
    81
    32
    60
    28
    54
    Firenze
    86
    77
    81
    12
    75
    Genova
    01
    31
    78
    45
    72
    Milano
    45
    46
    57
    03
    49
    Napoli
    48
    07
    56
    69
    01
    Palermo
    11
    56
    12
    61
    75
    Roma
    34
    74
    13
    53
    33
    Torino
    80
    68
    23
    88
    19
    Venezia
    76
    34
    78
    28
    90
    Nazionale
    45
    69
    76
    54
    06
    Estrazione Simbolotto
    Genova
    10
    22
    30
    36
    23

Ultimi Messaggi

Alto