Ambo Secco e Quartina con script

[parmando]

Ciao ragazzi, potreste creare questo script che diamo un'occhiata quanto sia valido:

Trovare 2 Numeri Vertibili Isotopi

Mettere in gioco per Ambo la loro chiusura a 90,

la loro diametralità a 45

e la quartina, il tutto sulle 2 ruote di rilevamento e TUTTE.



un recentissimo es.:

31 Agosto Bari 64...Venezia 46 in gioco Ba/Ve/TT 26-44..19-1.....26-44-19-1

al 1°colpo Venezia 26-44

Grazie in anticipo.

 

[Roby]

Ciao parmando, ho fatto 2 ambi e una quartina

Sub Main()
	Scrivi:Scrivi "Per Parmando Scriptato da Blackmore",1:Scrivi
	Dim ruote(10),ambo1(2),ambo2(2),quartina(4),poste(2),postee(3)
	poste(2) = 1 : postee(2) = 1 : postee(3) = 1
	ini = InputBox("INIZIO : ",,8700)
	col = InputBox("COLPI : ",,10)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
				If r2 = 11 Then r2 = 12
				For p = 1 To 5
					n1 = Estratto(es,r1,p) : n2 = Estratto(es,r2,p)
					If n2 = Vert(n1) Then
						ruote(1) = r1 : ruote(2) = r2 : ruote(3) = TU_
						co = co + 1 :Scrivi String(100,"=") & " Caso n°" & Format2(co),1
						Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  ° " & Format2(n1) & " ° in " & p & "°Pos.",1
						Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  ° " & Format2(n2) & " ° in " & p & "°Pos.",1
						ambo1(1) = 90 -(n1)
						ambo1(2) = 90 -(n2)
						ImpostaGiocata 1,ambo1,ruote,poste,col,2
						ambo2(1) = Diametrale(n1)
						ambo2(2) = Diametrale(n2)
						ImpostaGiocata 2,ambo2,ruote,poste,col,2
						quartina(1) = ambo1(1)
						quartina(2) = ambo1(2)
						quartina(3) = ambo2(1)
						quartina(4) = ambo2(2)
						EliminaRipetuti quartina
						ImpostaGiocata 3,quartina,ruote,postee,col,2
						Gioca es,1
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:ScriviResoconto
End Sub

 

[Lanfranco60]

ciao spero che sia quello che cerchi

Sub Main()
    Dim es
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim poste(10)
    Dim r
    Dim r1
    Dim ee
    Dim p
    Dim clp
    Dim n(4)
    poste(2) = 1
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - ee
    Fine = EstrazioneFin
    co = 0
    For es = Inizio To Fine
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Inizio,Fine,es)
        '-------------------------------------------
        ruote(1) = r
        ruote(2) = r1
        ruote(3) = 11
        For r = 1 To 9
            For p = 1 To 5
                a = Estratto(es,r,p)
                For r1 = r + 1 To 10
                    b = Estratto(es,r1,p)
                    If p = 5 Then
                        c = Estratto(es,r,4)
                        d = Estratto(es,r1,1)
                    Else
                        c = Estratto(es,r,p + 1)
                        d = Estratto(es,r1,p + 1)
                    End If
                    If c = d Then
                        Exit For
                    Else If a = Vert(b) Then
                        '-------------------------------------------
                        e = ComplAdX(a,90)
                        f = ComplAdX(b,90)
                        g = Diametrale(a)
                        h = Diametrale(b)
                        n(1) = e
                        n(2) = f
                        n(3) = g
                        n(4) = h
                        ruote(1) = r
                        ruote(2) = r1
                        ruote(3) = 11
                        co = co + 1
                        Scrivi String(100,"°") & " Caso n°" & co,1
                        Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & "*** " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** " & "  Previsione :   " & n(1) & " - " & n(2) & " - " & n(3) & " - " & n(4),1
                        Scrivi String(100,"°"),1
                        ImpostaGiocata 1,n,ruote,poste,clp
                        Gioca es,1,,1
                    End If
                End If
            Next
        Next
    Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Ideato by Parmando listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub

 

[Lanfranco60]

Oppsss ! vedo solo adesso che ci ha pensato già blackmore, sono diversi ma fanno più o meno la stessa cosa

 

[Roby]

Grazie mille ad entrambi per il lavoro. Ciao