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
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
