ESTRATTI DIAMETRALI IN DECINA IN 3° POSIZIONE by MARCO

chloè74 ha scritto:ciao a tutti,dopo un po' di tempo si è presentata una nuova condizione..
BARI CAGLIARI 13/ 13-24..ciaoo   

e dopo l'ambata,ambo secco a cagliari,ovviamente non giocato     vediamo come andrà con la nuova   

Codice:

Sub Main()
ColoreTesto 2
Scrivi" ESTRATTI DIAMETRALI IN DECINA IN 3° POSIZIONE by MARCO",1
ColoreTesto 0
Dim ruote(3)
Dim ambata(1)
Dim n(6)
Dim posta(1)
Dim poste(2)
posta(1) = 2
poste(2) = 1
esp = CInt(InputBox("Estrazione di Partenza ?",,8700))
klp = InputBox("Colpi di gioco ?",,9)
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)
n4 = DiametraleD(n1)
ok = 1
End If
If ok = 1 Then
co = co + 1
casi = casi + 1
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
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
n(1) = n2
n(2) = n4
ImpostaGiocata 3,n,ruote,poste,klp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub