Ambo ripetuto

[mpisticchia]

Ciao a tutti,
chiedo una cosa velocissima, credo, per molti di Voi:
qualcuno può passarmi un script per gli ambi ripetuti anche non isotopi e nella stessa estrazione anche su ruote non unite

Grazie mille

Buone feste a tutto il forum!!

 

[mpisticchia]

Grazie disaronno, per controllarli va benissimo, ora provo a costruirci sopra delle giocate.
Solo una cosa: nel caso nella stessa estrazione ci siano + ambi ripetuti ne seleziona soltanto uno, pensa che sia semplice poterlo estendere?
Ad esempio nell'estrazione del 16/12 ce n'erano almeno 3 (13-43 BaNz, 29-31 MiNa e 10-31 NaNz)...

 

[mpisticchia]

Grazie mille disaronno ora comincio a lavorarci sopra.
Buone feste!

 

[claudio8]

Una piccola variante

Option Explicit
Sub Main()
    Dim ep,Ini,fin,es,r1,p1,p2,n1,n2,r2,p3,p4,n3,n4,casi,est
    Scrivi " Ambo ripetuto x mpisticchia ",1 ' - http://forum.lottoced.com/f12/ambo-ripetuto-117537/ -
    ep = InputBox("Quante estrazioni vuoi controllare",,100)
    casi = 0
    Ini = EstrazioneFin - ep
    fin = EstrazioneFin
    For es = Ini To fin
        Messaggio es
        AvanzamentoElab Ini,fin,es
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    For r2 = r1 + 01 To 11
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5
                                n3 = Estratto(es,r2,p3)
                                n4 = Estratto(es,r2,p4)
                                If r1 <> r2 And n1 = n3 And n2 = n4 Or n1 = n4 And n2 = n3 Then
                                    casi = casi + 1
                                    Scrivi String(105,"-") & "Caso n° " & Format2(casi),1
                                    ReDim MatriceCaselleDaEvid(4,2)
                                    MatriceCaselleDaEvid(1,0) = r1 ' ruota prima
                                    MatriceCaselleDaEvid(1,1) = p1 ' Pos. Estratto
                                    MatriceCaselleDaEvid(2,0) = r1 ' ruota prima
                                    MatriceCaselleDaEvid(2,1) = p2 ' Pos. Estratto
                                    MatriceCaselleDaEvid(3,0) = r2 ' ruota seconda
                                    MatriceCaselleDaEvid(3,1) = p3 ' Pos. Estratto
                                    MatriceCaselleDaEvid(4,0) = r2 ' ruota seconda
                                    MatriceCaselleDaEvid(4,1) = p4 ' Pos. Estratto
                                    Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
						For est = es+1 To es+3 
						Call DisegnaEstrazione(est)
						Next
                                    Scrivi
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
        If ScriptInterrotto Then Exit For
    Next
End Sub

Una piccola variante

 

[claudio8]

un'altro modo per ricerca e ipotesi di calcolo numeri x esito, visionando le estrazioni successive ai casi.

Sub Main()
	Dim nu1(2),nu2(6),num1(2),num2(2),num3(2),ruote(2),ruota(1),posta(1),poste(2),post(5)
	posta(1) = 5
	poste(2) = 3
	post(2) = 3
	post(3) = 3
	post(4) = 3
	post(5) = 3
	ce = InputBox("Quente estrazione vuoi controllare? ","estrazione",400)
	k = InputBox("per quanti colpi?","colpi di gioco",10)
	spacchi = InputBox("Quanti spacchi? 0, 1, 2, 3 ","Distanza posizione tra numeri",0)
	iso = InputBox("Isotopo ? 1 = si .. 0 = no (incrociato) ","Isotopo o incrociato",1)
	ini = EstrazioneFin - ce
	fin = EstrazioneFin
	ColoreTesto 2
	Scrivi "Ambo isotopo nella stessa estrazione su 2 ruote con  " & spacchi & " spacchi  -  (scritp by claudio8)",1
	ColoreTesto 0
	Scrivi String(85,"="),1
	Scrivi "Ricerca dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin) & " ( " &(fin - ini) & " estrazioni.)",1
	For es = ini To EstrazioneFin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		For r1 = 1 To 10
			For p1 = 1 To(5 -(spacchi + 1))
				p2 = p1 +(spacchi + 1)
				a = Estratto(es,r1,p1)
				b = Estratto(es,r1,p2)
				For r2 = r1 + 1 To 12
					If r2 = 11 Then r2 = 12
					p3 = p1
					p4 = p2
					c = Estratto(es,r2,p3)
					d = Estratto(es,r2,p4)
					' per l'incrocio invertire nel codice seguent "if....... "
					'If iso = 0 Then
						If a = c And b = d Then 'isotopo
						'Else
						'If a = d And b = c Then 'Incrociato
					'End If
							casi = casi + 1
							ColoreTesto 1
							Scrivi String(94,"-") & " caso n° " & casi
							ColoreTesto 0
							Scrivi DataEstrazione(es) & " " &(p1) & "° e " &(p2) & "° estr.  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " | " & Format2(a) & _
							"." & Format2(b) & " | 1a som.vert = [ " & Format2(Fuori90(a + c)) & " ] 2a som.vert = [ " & Format2(Fuori90(b + d)) & " ] "
							Scrivi "                          " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " | " & Format2(c) & "." & Format2(d) & " | somma oriz. = [ " & _
							Format2(Fuori90(a + b)) & " ] somma tot.  = [ " & Format2(Fuori90(a + b + c + d)) & " ] "
							Scrivi String(80,"."),1
							For z = - 1 To 0
								Scrivi DataEstrazione(es + z) & "                " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & "             " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2)
							Next
							Scrivi String(80,"."),1
							For z = 1 To k
								Scrivi DataEstrazione(es + z) & "                " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & "             " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2)
							Next
							'''''Iserire algoritmo di ricerca esiti
							ruote(1) = r1
							ruote(2) = r2
							ruota(1) = 11
							co = 0
							nu1(1) = Fuori90(a + d)'61 vecchia previsione  '  a ' per previsione ad 1 spacco
							'nu1(2) = a
							co = co + 1
							ImpostaGiocata co,nu1,ruote,posta,k',1
							''''''''''Gioca es,True,,2
							co = co + 1
							nu2(1) = DiametraleD(Fuori90(b + c)) 'b
							nu2(2) = Diametrale(Fuori90(b + c))
							'nu2(3) =DiametraleD( Estratto(es-1,r2,3))
							ImpostaGiocata co,nu2,ruote,poste,k,2
							'Gioca es,True,,2
							co = co + 1
							nu2(1) = b
							'nu2(2) =DiametraleD( Estratto(es-1,r1,3))
							nu2(2) = DiametraleD(Estratto(es - 1,r2,3))
							ImpostaGiocata co,nu2,ruote,poste,k,2
							'							co = co + 1
							'							ImpostaGiocata co,nu1,ruota,poste,k 'tutte
							'							nu2(1) = no1
							'							nu2(2) = no2
							'							nu2(3) = n9
							'							nu2(4) = n10
							'							nu2(5) = n11
							'							nu2(6) = n12
							'							co = co + 1
							'							ImpostaGiocata co,nu2,ruote,post,k
							Gioca es,True,,2
						End If
					Next
				Next
			Next
		Next
		ColoreTesto 1
		Scrivi String(88,"_ ") & " totale casi " & casi,1
		Scrivi
		ColoreTesto 0
		ScriviResoconto
End Sub

 

[mpisticchia]

Wow grazie mille anche a Claudio8 e Buone Feste a tutti