per gli scripter grazie s'é possibile

[janez57]

Buona domenica a tutti/e

Vorrei chiedere s'è possibile gentilmente avere questo metodo scriptato.
In ogni ruota si deve sviluppare i dieci ambi,poi si cerca il numero mancante alla somma 91 in un'altra ruota.
Possibilmente con la scelta sia isotopo e non.Questo numero deve essere solo estratto in un'altra ruota,altrimenti se è presente in più ruote si deve scartare la previsione.

Faccio un esempio:
estrazione del 20/09/11
Bari seconda e terza posizione 75-4 =79 il numero mancante a 91 è il 12 che troviamo in seconda posizione sulla ruota di Roma,per cui si mette in gioco Bari Roma il 12 esito al primo colpo 12 a bari.
Ringrazio fin d'ora chi mi può aiutare.
La verifica retroattiva è sufficente ultime 100 estrazioni.

Janez57

 

[Joe91]

Buon Giorno a tutti.

'Somma Complementare 91 Isotopa V.1.0
'Per Janez57 Scritto da Joe91 04/10/2011
'http://forum.lottoced.com/topic.asp?TOPIC_ID=137996
Sub main()
Dim Ng(1), Ru(2), Po(1) : Po(1)=1
Fin = EstrazioneFin : Ini=Fin -100
For Es = Ini To Fin
Scrivi " By Joe " & String (30,"=") & "  ",1,0  : Co=0 
For R = 1 To 10 : Ru(1)=R
E = "0." &  StringaEstratti (Es,R)  
Nu = Split(E,".") : ' Scrivi StringaNumeri (Nu)
For P1 = 1 To 4 
For P2 = P1+1 To 5 
E1 = CInt(Nu(P1)) : E2 = CInt(Nu(P2))
SO = Fuori90(E1+E2)
Ng(1) = 91 - So : 'scrivi So  & "  " & Ng(1) & "  ",0
k=0 
For R2 = 1 To 10 
If R2 <> R Then 
P3 = Posizione  (Es,R2,CInt(Ng(1)))
If  (P3 = P1) Or (P3 = P2)  Then
K = k+1 : Ru(2)=R2
End If 
End If
Next 
If K = 1 Then 
Co=Co+1
'Scrivi SiglaRuota (R) & " " & Format2 (E1) & " " & Format2 (E2) & " >> ",0,0
'Scrivi Format2 (Ng(1))  & " " & SiglaRuota (Ru(2)) 
ImpostaGiocata Co,Ng,Ru,Po,6,1
End If 
Next
Next 
Next
Gioca Es
Next
ScriviResoconto
End Sub

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[janez57]

Buona sera a tutti/e.

Non ho parole per ringraziarla Sig.Joe per la sua
disponibilità.
Fantastico.
Grazie Mille.

Janez57