x pfca claudio8 genlotto djnomade ed altri

[keeper]

l'amico cupido ha bisogno di questo scritp

quando escono le ambate isotope in qualsiasi posizione siano meglio se in prima posizione sommate le 2 ambate isotope oppure i primi estratti delle 2 ruote per ambata 02 rimettete in gioco il numero isotopo per ambo secco 01-02 poi aggiungete 2 abbinamenti per sorti superiori mettendo 88-89

percio esempio pratico il 13 agosto

ca 01-48-45-30-23
to 01-05-63-52-32

01+01=02 ambata
ambo secco 01-02

01+89=90 89
02+88=90 88

per ambo e superiori 01-02-88-89

come la vedo io chiaramente poi ci sono altri 1000 modi di trovare gli abbinamenti buon divertimento

cupido

ma bisognerebbe integrare anche questo
per l'amica 1160
ricerca numero uguale in 4°pos in 2 ruote
prendere il 1°estratto delle 2 ruote e sommarli
il risultato sarà l'ambata da mettere in gioco
nelle 2 ruote
solitamente esce entro 3 colpi
esempio pratico estrazione 10-09-2011
BA-CA 4°estratto 90
BA- 1°estratto 43
CA- 1°estratto 30

quindi si somma 43+30=73
73 ambata in gioco BA-CA
capisco che non è molto
ma funziona
in bocca al lupo
Emilia

 

[DjNomade]

Questo dovrebbe essere il secondo
Ciauz

'http://forum.lottoced.com/topic.asp?TOPIC_ID=137354
ColoreTesto 1
Scrivi "Ricerca numero uguale in 4°pos in 2 ruote ___ List.by DjNomade- x keeper forum.lottoced.com",1
Scrivi
ColoreTesto 0
Sub Main()
	Dim k(2)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(1) = 1
	poste(2) = 2
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
	co = 0
	ini = EstrazioneFin - tmp
	For es = ini To EstrazioneFin
		Messaggio(es)
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 4 To 4
					n1 = Estratto(es,r1,p1)
					n2 = Estratto(es,r2,p1)
					If(n1) =(n2) Then
						co = co + 1
						Scrivi String(70,"=")
						ColoreTesto 2
						Scrivi NomeRuota(r1) & "-" & NomeRuota(r2) & _
						" Numero isotopo " & n1 & "-" & n2 & " estratto al " & p1 & "° posto",1
						Scrivi
						ColoreTesto 0
						ruote(1) = r1
						ruote(2) = r2
						k(1) = Fuori90(Estratto(es,r1,1) + Estratto(es,r2,1))
						ImpostaGiocata 1,k,ruote,posta,clp,3
						Gioca es
					End If
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati n° " & CInt(co)
	ScriviResoconto
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[keeper]

grazie dj avvìso subito l'amica 1160.

 

[keeper]

ciao ragazzi ma nessuno riesce a scriptare il metodo messo a disposizione da cupido?

 

[pfca]

Ciao keeper,
vedi questo se ti va bene:
'Ricerca Numeri Uguali e Isotopi
Sub Main()
Dim n(4)
Dim ruota(2)
Dim posta(3)
posta(1) = 0
posta(2) = 1
posta(3) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
Messaggio es
For r = 1 To 9
For r1 = r + 1 To 10
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
For pf = 1 To 90
If a = CInt(pf) And b = CInt(pf) Or a = CInt(pf) And b = CInt(pf) Then
n(1) = a
n(2) = Fuori90(a + b)
n(3) = 88
n(4) = 89
ruota(1) = r
ruota(2) = r1
ImpostaGiocata 1,n,ruota,posta,12,2
Gioca es
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi "Ricerca numero uguale e isotopo su 2 ruote by pfca x keeper",1
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub



C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco