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.
BUON GIORNO A TUTTI GLI ESPERTI DI SCRIPT GRAZIE ANTICIPATAMENTE
METODO DELLA E.MASI che adesso postero' sottostante
Vedi l'allegato 5071 Vedi l'allegato 5072
gennaro52
buonasera,
non sono molto esperto di script, ma a parte che la spiegazione del metodo e molto lacunosa ,secondo me, forse manca una pagina.
Comunque tutto si puo fare ,probabilmente il diffficile sono le condizioni impostate, e visto che la spiegazione non è chiara, probabilmente nessuno si mette a "scervellarsi" per fare uno script.
Io nel mio picccolo cerchero di farlo, sperando che qualcun' altro più esperto legga questo post.
dopo aver visto gennaro che si lamentava mi son detto vabbe va fammi vedere .. e dopo aver visto confermo e sottoscrivo quanto detto da disaronno , il metodo non solo è spiegato male ma è pure sbagliato , prima parla di stesso numer o in posizioni estrazionali uguai e poi tira fuori l'esempio col numero ripetuto in 3 posizioni differenti ... consolati gennaro sto metodo sara una tavanata galattica esattamernte come gli altri ... poi basta vedere l'impaginazione del giornale per capire chhe si tratta di una scemenza inutile...
buonasera,
trovi allegato lo script,senza nessuna pretesa, che dovrebbe esaudire le condizioni che si riesce a capire dalla lettura.
spero che ti possa essere utile , eventualmente da poter far correggere e\o migliorare.
Sub Main
Dim n(4),ruote(3),posta(2)
k = 9
posta(2) = 1
Ini = EstrazioneIni + 8477
fin = EstrazioneFin
For es = Ini To fin
Messaggio DataEstrazione(es)
AvanzamentoElab Ini,fin,es
For r = 1 To 9
For p = 1 To 5
a = Estratto(es,r,p)
r1 = r + 1
p1 = p
b = Estratto(es,r1,p1)
For r2 = 1 To 10
For p2 = 1 To 5
c = Estratto(es,r2,p2)
For r3 = 1 To 10
For p3 = 1 To 5
d = Estratto(es,r3,p3)
If a = b And b = c Then
If r <> r2 And r1 <> r2 Then
If d = DiametraleD(a) Or d = 90 Then
casi = casi + 1
Scrivi String(68,"=") & " caso n° " &(casi)
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] Numero [ " & Format2(a) & " ] in [ " & Format2(p) & "° ] Posizione"
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] Numero [ " & Format2(b) & " ] in [ " & Format2(p1) & "° ] Posizione "
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ] Numero [ " & Format2(c) & " ] in [ " & Format2(p2) & "° ] Posizione"
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " ] Numero [ " & Format2(d) & " ] in [ " & Format2(p3) & "° ] Posizione"
ColoreTesto 0
Scrivi String(78,"-")
ft = SerieFreq(es - 9,es,n,ruote,2)
ft2 = SeriePrima(es - 9,es,n,ruote,2)
If ft > 0 Then
ColoreTesto 2
Scrivi
Scrivi " Attenzione c'è stato un ambo nei 9 colpi prec. " & " Nell'estrazione N° " & ft2
ColoreTesto 0
Else
Scrivi
Scrivi " Nessun Ambo nei 9 colpi prec. "
End If
ruote(1) = r
ruote(2) = r1
ruote(3) = r2
n(1) = a
n(2) = 90
n(3) = Fuori90(a + a)
n(4) = 90 - a
EliminaRipetuti n
ImpostaGiocata 1,n,ruote,posta,k,2
Gioca es,True,,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub