Richiesta Somma 90 su due ruote....

[CocoNut]

Tempo fa' avevo fatto la stessa richiesta e Blackmore gentilmente mi è venuto in soccorso.
Attualmente per svariati motivi non sono piu' in possesso dello script e avrei piacere di riaverlo.


Ricerca somma 90 su due ruote anche non consecutive
Fondamentale però che la somma 90 sia presente in diagonale o verticale, stessa posizione,
e inoltre deve girare su L8 e non Spaziometria di Luigi ( non lo uso ).

Esempi:

( diagonale )

Bari.. 44 XX 56 XX XX
Roma 34 XX 46 XX XX

(Verticale )

Cagliari XX 46 XX XX 56
Genova XX 44 XX XX 34


Grazie in anticipo !

 

[claudio8]

http://forum.lottoced.com/f8/metodo-iso90-101455/

prova qui forse è quello che cerchi. a volte basta chiedere su google. ciao

 

[DjNomade]

Io ho questo.......

Ciauzzzzzzzzzz

Sub Main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
x=CInt(InputBox("Quale somma ?","da 1 a 90",90))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. n° "&es&" del "&DataEstrazione(es)&" [ by Genlotto ]"
For r1=1 To 11
For r2=r1+1 To 12
If r2=11 Then r2=12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2)
sv1=Fuori90(a+c) :sv2=Fuori90(b+d)
sd1=Fuori90(a+d) :sd2=Fuori90(b+c)
If (sv1=x And sv2=x) Or (sd1=x And sd2=x) Then
casi=casi+1:Scrivi String(75,"="),1
If sv1=x Then xx="|vert|" Else xx="|diag|"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ]"&" " & x
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] "&xx
Scrivi String(64,"-")&" caso n° "&(casi)
End If
Next
Next
Next
Next
Next
End Sub

 

[CocoNut]

http://forum.lottoced.com/f8/metodo-iso90-101455/

prova qui forse è quello che cerchi. a volte basta chiedere su google. ciao

Grazie...
Quando posso vado anch'io a fare una visitina su google,
se l'avessi trovato però, non avrei fatto richiesta qui.

Chiedevo uno script di sola ricerca degli ambi di doppia somma 90,
e che la stessa venga a formarsi su due ruote in verticale o diagonale
e non proveniente da ambi in posizioni orizzontali.
Oltre a tutto questo script rivela anche figure ed elabora gli ambi del metodo,
quindi non corrisponde esattamente alla mia richiesta.

Cmq, grazie lo stesso

 

[CocoNut]

Io ho questo.......

Ciauzzzzzzzzzz

Sub Main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
x=CInt(InputBox("Quale somma ?","da 1 a 90",90))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. n° "&es&" del "&DataEstrazione(es)&" [ by Genlotto ]"
For r1=1 To 11
For r2=r1+1 To 12
If r2=11 Then r2=12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2)
sv1=Fuori90(a+c) :sv2=Fuori90(b+d)
sd1=Fuori90(a+d) :sd2=Fuori90(b+c)
If (sv1=x And sv2=x) Or (sd1=x And sd2=x) Then
casi=casi+1:Scrivi String(75,"="),1
If sv1=x Then xx="|vert|" Else xx="|diag|"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ]"&" " & x
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] "&xx
Scrivi String(64,"-")&" caso n° "&(casi)
End If
Next
Next
Next
Next
Next
End Sub

Grazie DJ , era cio' che cercavo .
Ora, oltre a te, ce l'ho anch'io....
E come immaginavo, la tecnica che lo richiede ( lo script ),
ha dato l'ambo proprio su ruota (Venezia) il 21 Agosto....
pazienza !

 

[claudio8]

Senza polemica, solo per darti una l'indirizzo esatto, del listato.

http://forum.lottoced.com/f12/per-gli-scripter-un-favore-1550/#post110263


Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

 

[CocoNut]

Ancora grazie per il tuo interesse, ma...
tu dici senza polemica,
però non capisco questa insistenza di dovermi indirizzare a tutti i costi verso richieste simili già postate,
come se desse fastidio il fatto di avere aperto un topic per MIA comodità o pigrizia se così vogliamo definirla ?!
Ho cercato su google ( sono capace anch'io ) prima di postare il mio quesito, e non l'ho trovato.
Magari se avessi perseverato prima o poi sarei incappata nel listato di Genlotto,
ma mi chiedo, il tuo problema dove sta per averne aperto ( manco se lo facessi tutti i giorni !) uno tutto mio???
Inoltre mi suona strano quel "copia e incolla" della mia firma, tuttavia onorata di essere " copiata" !

Il tutto concludendo con un " senza polemica "
...solo x informarti che ha già provveduto DJNomade,
per cui l'argomento da parte mia è stato chiuso giorni fa.... !

 

[Micio]

ciao coccobella eccerto che puoi chiedere tutto che vooooiii anke di +++ vabbe dai parliamoci un po di questa cosa girando il script in spazio di luigi b mi da solo kondizioni da giocare cioe dove si presenta somma 90 ma ambo e una cosa tua oppure..... sta li ma non lo vedo
quello che mi da il script e condizione dall 16 agosto ge 1 28 to 62 89 e come vedo 90 a torino a secondo colpo e genova a terzo direi nnte di male ma venezia come dicevi dove sta?????? e un ambo a tutte oppure..... a tutte ci credo poco che fai ricerca allora e a ruota .... ma tutto puo essere... se e solo un ambo..... bacione

 

[elmiki]

Ciao coco io quando esce una somma 90 isotopa (non di num zerati) faccio la somma delle cifre ed esce sempre 18 e molto spesso mi esce come ambata nelle due ruote anche 63 la sua dist 45 magari se qlcn puo fare una ricerca magari mi smentisce io visivamente lo trovo interessante ciao

 

[Joe91]

Buon Giorno a tutte/i.

Aprrofitto per porgere un caro saluto agli amici vecchi e nuovi.

Ci sarebbe da correggere un piccolo errore sul ciclo for della prima ruota. Si deve fermare a 10.

Poi ... mettendoci mano, ho costruito, la versione per SommaPura. Anche in Orizzontale.

Cordiali saluti

Sub Main()
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",155))
	k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
	x = CInt(InputBox("Quale da 3 a 179 ?" ," S O M M A",91))
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n°  " & es & "  [ by Genlotto / Rev By Joe ]"
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
				If r2 = 11 Then r2 = 12
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
						c = Estratto(es,r2,p1) : d = Estratto(es,r2,p2)
						sv1 = (a + c) :sv2 = (b + d)
						sd1 = (a + d) :sd2 = (b + c)
						so1 = (a + b) :so2 = (c + d)
						If(sv1 = x And sv2 = x) Or(sd1 = x And sd2 = x)Or(so1 = x And so2 = x) Then
							casi = casi + 1:Scrivi String(78,"="),1
							If so1 = x Then xx = "|orizz|" 
							If sv1 = x Then xx = "|vert.|" 
							If sd1 = x Then xx = "|diag.|"
							Scrivi FormatSpace (DataEstrazione(es,1),20) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
							" ] [ " & Format2(a) & "." & Format2(b) & " in " & p1 & "/" & p2 & " ^ pos. ]"  & Space (3) & x
							Scrivi FormatSpace (DataEstrazione(es,1),20) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
							" ] [ " & Format2(c) & "." & Format2(d) & " in " & p1 & "/" & p2 & " ^ pos. ] " & xx
							Scrivi String(67,"-") & " caso n° " &(casi)
						End If
					Next
				Next
			Next
		Next
	Next
End Sub

 

[claudio8]

Ciao coco io quando esce una somma 90 isotopa (non di num zerati) faccio la somma delle cifre ed esce sempre 18 e molto spesso mi esce come ambata nelle due ruote anche 63 la sua dist 45 magari se qlcn puo fare una ricerca magari mi smentisce io visivamente lo trovo interessante ciao

Potresti inserire un esmpio reale con le ambate che intendi giocare per capire come impostare lo script?

 

[elmiki]

ciao claudio ti faccio degli esempi pratici

14/8/14

pa 89
ro 01

8+9+0+1=18

al 1° colpo ambata 18 roma


12/8/14

ge 09
naz81

0+9+8+1=18

al 1° colpo 18 ambata nazionale


9/8/14

ge 28
to 62

2+8+6+2=18

al 1° colpo 18 ambata genova


9/8/14

fi 23
na67

2+3+6+7=18

al 1° colpo 18 ambata napoli


29/7/14

ge 81
na 09

8+1+0+9=18

al 4 colpo 18 ambata genova
al 2 colpo 63 ambata napoli ( il 63 mi sembra esca anche qualche volta anche se il 18 è più frequente)

speriamo bene...

funziona nelle somme 90 che non siano zerate( 80-10...50-40...60-30 )le quali danno sempre 9 dalla somma delle cifre

 

[claudio8]

'''''
' x elmiki - Ricerca in stessa estrazione numeri isotopi con somma 90 e gioca la somma delle decine e delle cadenze =18 o + 45 = 63 " (scritp by claudio8)"
Sub Main()
	Dim nu1(2),ruote(3),posta(1)
	posta(1) = 5' posta per ambata
	Dim ambata
	'..............................
	ce = InputBox("Quante estrazione vuoi controllare? ","estrazione",100) '225 inizio estrazione di esempio
	k = InputBox("per quanti colpi?","Colpi di gioco",9)
	vistaEstrazioni = InputBox("Vuoi vedere in output le estrazioni dei colpi di gioco? 1=SI.. 0=NO ","Estrazioni in output ",0)
	ini = EstrazioneFin - ce
	fin = EstrazioneFin
	ColoreTesto 2
	ColoreTesto 0
	Scrivi String(85,"=") & " scritp by claudio8",1
	Scrivi "Ricerca dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin) & " ( " &(fin - ini) & " estrazioni) con esiti in " & k & " colpi. ",1
	For es = ini To EstrazioneFin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		For r1 = 1 To 10
			For p1 = 1 To 5
				''p2 = p1
				For r2 = r1 + 1 To 12
					If r2 = 11 Then r2 = 12
					a = Estratto(es,r1,p1)
					b = Estratto(es,r2,p1)
					If(a + b) = 90 And Cadenza(a) <> 0 Then
						casi = casi + 1
						ambata = Decina(a) + Cadenza(a) + Decina(b) + Cadenza(b)
						'ambata = Figura (a) + Figura(b)
						ColoreTesto 1
						Scrivi String(94,"-") & " caso n° " & casi
						ColoreTesto 0
						Scrivi DataEstrazione(es) & " " &(p1) & "° estr.  " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " | " & Format2(a) & " |  somma = [ " & Format2(Fuori90(a + b)) & " ]"
						Scrivi "                     " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " | " & Format2(b) & " | ambata = " & ambata & " e " & Format2(Fuori90(ambata + 45))
						Scrivi String(80,"."),1
						If vistaEstrazioni = 1 Then
							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
						End If
						ruote(1) = r1
						ruote(2) = r2
						co = 0
						nu1(1) = ambata
						nu1(2) = Fuori90(ambata + 45)
						co = co + 1
						ImpostaGiocata co,nu1,ruote,posta,k',1  ' estratto
						Gioca es,True,,2
					End If
				Next
			Next
		Next
	Next
	ColoreTesto 1
	Scrivi String(90,"_ ") & " totale casi " & casi,1
	Scrivi
	ColoreTesto 0
	ScriviResoconto
End Sub

vistaEstrazioni = InputBox........ , con valore "1", ti da la possibilità di visionare le estrazioni dei colpi x valutare eventuali altre giocate o abbinamenti.