CHI VERIFICA

[cablat]

OGNI QUALVOLTA ESCE IL N°4 A ROMA SOMMARE AL SECONDO ESTRATTO IL NUMERO 8 E POI IL NUMERO 83,I DUE NUMERI METTERLI IN GIOCO PER AMBO A TUTTE PER 12 COLPI,SEMBRA CHE NEGLI ULTIMI ANNI ABBIA DATO SEMPRE L'AMBO.

GLI AMBI IN GIOCO PER I PROSSIMI COLPI SONO QUESTI.
70-85 12 COLPI
43-58 10 COLPI
54-69 08 COLPI

vincenzino

 

[DjNomade]

Ciauz questo è il listato




Scrivi " Tutte le volte che esce spia 4 sulla ruota di ROMA by CABLAT",1
Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
Sub main()

Dim ruote(5)
Dim am(10)
Dim n1(10)
Dim n2(10)
Dim poste1(10),poste2(10),poste3(10),poste4(10),poste5(10)
poste1(1)=1.00
poste2(2)=1.00

poste3(2)=1.50
poste3(3)=1.00

fin=EstrazioneFin
ini=EstrazioneFin-1000
For es=ini To fin

a=Estratto(es,8,1) ' ruota di ricerca e posizione estratto numero spia
b=Estratto(es,8,2)
c=Estratto(es,8,3)
d=Estratto(es,8,4)
e=Estratto(es,8,5)

If (a)=4 Or (b)=4 Or (c)=4 Or (d)=4 Or (e)=4 Then ' numero spia da cambiare a scelta
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi "******************************* Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
ruote(1)=11
'ruote(2)=8 'si puo'aggiungere altre ruote su cui giocare

am(1)=Fuori90(b+8) 'Ambata da giocare
am(2)=Fuori90(b+83)
ImpostaGiocata 1,am,ruote,poste2,12,2

Gioca es

End If
Next

ScriviResoconto
Scrivi " Tutte le volte che esce spia 4 sulla ruota di ROMA by CABLAT",1
Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
End Sub



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

 

[cablat]

GRAZIE

vincenzino

 

[imported_n/a]

Ciao, metto anche la mia versione con l'aggiunta dell'ambata e ambo anche su Ruota Spia.

Mike58

Sub Main()
	'spia 4 a Roma
	Dim ru(2),rt(12)
	Dim ps(5),pst(2)
	Dim num(10)
	Dim ambi(2)
	ps(1) = 10 '
	ps(2) = 1
	pst(2) = 2
	nn = InputBox("quale numero SPIA vuoi analizzare ? ",,4)
	r = 8
	rr = 11
	ru(1) = r
	rt(2) = rr
	k = 14
	For es = EstrazioneFin - 200 To EstrazioneFin
		If Posizione(es,r,nn) > 0 Then 
		a = Estratto(es,RO_,2)
		aa = Fuori90(a + 8)
		bb = Fuori90(a + 83)
		num(1) = aa
		num(2) = bb
		ImpostaGiocata 1,num,ru,ps,k,1
		ImpostaGiocata 2,num,rt,pst,k,2
		co = co + 1
		ca = EstrazioneFin - es
		Scrivi String(110,"="),1
		Scrivi
		ColoreTesto 0
		Scrivi " Metodo Quando esce il 4 a ROMA .........author... metodo CABLAT.......    --->   Listed... (by Mike58)     ",- 1,4,2
		ColoreTesto 1
		Scrivi String(110,"_"),1
		Scrivi "estratto di calcolo .. " & a & " --- posizione " & Posizione(es,r,a)
		aa = Fuori90(a + 8)
		bb = Fuori90(a + 83)
		Scrivi "somma..." & a & "+" & "8 = " & aa
		Scrivi "somma..." & a & "+" & "83 = " & bb
		Scrivi String(110,"-"),1
		Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(nn) & " " & " estraz.trascorse - - - > " & ca,1
		Scrivi "_______________________________________________________________________________________________________ caso n° " & co,1
		ColoreTesto 0
		Gioca es
		'Call ScriviResoconto(True)
	End If
Next
ColoreTesto 2
Scrivi"________________________________________________________________________________________________________________________________"
Scrivi""
Scrivi "Resoconto da " & DataEstrazione(EstrazioneFin - 150) & " a " & DataEstrazione(EstrazioneFin) & " -------------- > casi totali  = " & co,2
Scrivi"________________________________________________________________________________________________________________________________"
ColoreTesto 0
ScriviResoconto
End Sub

 

[888990]

NON HA DATO SEMPRE L'AMBO, ANZI...