ESTRATTI DIAMETRALI IN DECINA IN 3° POSIZIONE by MARCO

Codice:

Sub Main()
ColoreTesto 2
Scrivi" ESTRATTI DIAMETRALI IN DECINA IN 3° POSIZIONE by MARCO",1
ColoreTesto 0
Dim ruote(2)
Dim ambata(1)
Dim n(3)
Dim posta(1)
Dim poste(2)
posta(1) = 2
poste(2) = 1
esp = CInt(InputBox("Estrazione di Partenza ?",,8000))
klp = InputBox("Colpi di gioco ?",,15)
co = 0
casi = 0
ini = esp
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 3 To 3
For p1 = 3 To 3
If p = p1 Then
a = Estratto(es,r1,p)
b = Estratto(es,r2,p1)
ok = 0
If a = DiametraleD(b) Then
n1 = Fuori90(a + b)
n2 = Fuori90(Figura(n1) + n1)'AMBATA
n3 = Fuori90(n1 + n2)
ok = 1
End If
If ok = 1 Then
co = co + 1
casi = casi + 1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 1
Scrivi String(95,"°") & " Caso n° " & casi,1
ColoreTesto 0
ColoreTesto 2
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ----> " & Format2(Estratto(es,r1,p)) & " ESTRATTO "
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ----> " & Format2(Estratto(es,r2,p)) & " DIAMETRALE IN DECINA ESTRATTO "
ColoreTesto 0
ambata(1) = n2
ImpostaGiocata 1,ambata,ruote,posta,klp,1
n(1) = n2
n(2) = n3
ImpostaGiocata 2,n,ruote,poste,klp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub





chloè74 ha scritto:..non conosco le operazioni da fare,ho solo lo script

chloè74 ha scritto:nuova previsione MILANO ROMA 86/86-75..attenti all'ambata,si può usare per abbinarla ad altre...ciaooo

chloè74 ha scritto:..voglio la quaternaaaaaaaaaaaaaaaaaa    

dolce lei...un vole mica tanto   

spike5 ha scritto: l'ho giocata solo a Roma    

Spike nooo..mi dispiace tantissimo     speriamo nella prossima dai   

DEAEBE ha scritto:SCUSA L'ERRORE MA HO PROVATO A MANDARTI UNA FACCINA SORRIDENTE E NON CI SONO RIUSCITA