Help un ambo spia in posizione derterminata

korokoro · 3 Agosto 2011

Ciao a tutti , come posso far cercare con questo listato un ambo spia in posizione derterminata .....
Grazie Anticipate Leo

Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE (Con InputBox)"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub

imported_n/a · 3 Agosto 2011

Ciao Leo quello che cerchi lo puoi ottenere creando degli input box per determinare la posizione dei 2 numeri del ambo spia.

la riga su cui agire e questa del codice posizione.

If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then

infatti la riga dice se la posizione di n1 è superiore a zero(quindi in ogni posizione) e cosi il numero n2 allora il codice e' vero.

io ho solo inserito 2 input box per determinate le posizioni del 1° e del 2° numero spia e metterlo = alla riga di posizione.

If (Posizione(es,r,n1) = pos1 And Posizione(es,r,n2) = pos2) Then ' --------------- > prende la posizione dell'input box

Ciao spero di essere stato chiaro.

Mike58

'------------------------------------------'

Codice:

Sub Main()
	Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
	Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
	n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
	pos1 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL PRIMO NUMERO ?","SPIA n° 1^",1)) ' aggiunta inputbox per posizione 1° numero
	n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
	pos2 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL SECONDO NUMERO ?","SPIA n° 1^",2)) 'aggiunta InputBox per Posizione 2° numero
	r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
	rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
	rt(1) = rut
	ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
	clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
	ru1(1) = 11
	fin = EstrazioneFin
	ini = EstrazioneFin - ee
	For cc = 1 To 90
		For w = 1 To 2
			n(cc,w) = 0
			nt(cc,w) = 0
			nrr(cc,w) = 0
		Next
	Next
	co = 0
	casi = 0
	For es = ini To fin
		Messaggio " Spia: " & n1 & "-" & n2 & " Estrazione : " & es
		If(Posizione(es,r,n1) = pos1 And Posizione(es,r,n2) = pos2) Then ' --------------- > prende la posizione dell'input box
			Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & "_" & n2
			casi = casi + 1
			ess = es + clp
			If ess > fin Then ess = fin End If
			For x = es + 1 To ess
				cc = 0
				For pp = 1 To 5
					d = Estratto(x,r,pp)
					e = Estratto(x,rut,pp)
					n(d,1) = d
					nrr(e,1) = e
					n(d,2) = n(d,2) + 1
					nrr(e,2) = nrr(e,2) + 1 '<<<
				Next
				For rr = 1 To 10
					For p1 = 1 To 5
						g = Estratto(x,rr,p1)
						nt(g,1) = g
						nt(g,2) = nt(g,2) + 1
					Next
				Next
			Next
			co = 0
			For x = 1 To 90
				For y = x + 1 To 90
					co = co + 1
					nn(1) = x
					nn(2) = y
					ru(1) = r
					ambi(co,1) = co
					ambi(co,2) = x
					ambi(co,3) = y
					yy = SerieFreq(es + 1,ess,nn,ru,2)
					ambi(co,4) = ambi(co,4) + yy
					If yy > 0 Then
						ambi(co,5) = ambi(co,5) + 1
					Else
						ambi(co,5) = ambi(co,5)
					End If
					nn1(1) = x
					nn1(2) = y
					ambi1(co,1) = co
					ambi1(co,2) = x
					ambi1(co,3) = y
					xx = SerieFreq(es + 1,ess,nn1,ru1,2)
					ambi1(co,4) = ambi1(co,4) + xx
					If xx > 0 Then
						ambi1(co,5) = ambi1(co,5) + 1
					Else
						ambi1(co,5) = ambi1(co,5)
					End If
					nr(1) = x
					nr(2) = y
					ambrr(co,1) = co
					ambrr(co,2) = x
					ambrr(co,3) = y
					kk = SerieFreq(es + 1,ess,nr,rt,2)
					ambrr(co,4) = ambrr(co,4) + kk
					If kk > 0 Then
						ambrr(co,5) = ambrr(co,5) + 1
					Else
						ambrr(co,5) = ambrr(co,5)
					End If
				Next
			Next
		End If
	Next
	Scrivi
	Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
	Scrivi
	Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica di - " & NomeRuota(r) & " in posizione ---> " & pos1 & "-" & pos2,1
	Scrivi
	Scrivi NomeRuota(r),1
	Scrivi "N° casi: " & CInt(casi),1
	Scrivi
	Scrivi " Frequenti nei " & clp & " colpi successivi",1
	OrdinaMatrice n,- 1,2
	OrdinaMatrice ambi,- 1,5
	OrdinaMatrice ambi1,- 1,5
	OrdinaMatrice nt,- 1,2
	Ordina

korokoro · 4 Agosto 2011

Per mike58

1000 grazie mike58 , e quello che volevo , se posso disturbarti ancora vorrei poter cercare l'ambo spia che i numeri siano uscita tanto in una posizione o altra , mantenento le condizione del inizio , cioè :

Sub Main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
pos1 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL PRIMO NUMERO ?","SPIA n° 1^",1)) ' aggiunta inputbox per posizione 1° numero
n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
pos2 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL SECONDO NUMERO ?","SPIA n° 1^",2)) 'aggiunta InputBox per Posizione 2° numero
r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))

L'ambo spia 1-3/3-1 che possa esser cercato sempre 1.2 POSIZIONE , indifferentemente del loro ordine .
Ciao Leo

korokoro · 4 Agosto 2011

SEMPRE MIKE58

FORSE COSI GIRA BENE

Sub Main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",53))
pos1 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL PRIMO NUMERO ?","SPIA n° 1^",2)) ' aggiunta inputbox per posizione 1° numero
n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",87))
pos2 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL SECONDO NUMERO ?","SPIA n° 1^",3)) 'aggiunta InputBox per Posizione 2° numero
r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",1))
rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",6))
rt(1) = rut
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",4500))
clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",1))
ru1(1) = 11
fin = EstrazioneFin
ini = EstrazioneFin - ee
For cc = 1 To 90

For w = 1 To 2
n(cc,w) = 0
nt(cc,w) = 0
nrr(cc,w) = 0
Next
Next
co = 0
casi = 0
For es = ini To fin
Messaggio " Spia: " & n1 & "-" & n2 & " Estrazione : " & es
If(Posizione(es,r,n1) = pos1 And Posizione(es,r,n2) = pos2) Or (Posizione(es,r,n2) = pos1 And Posizione(es,r,n1) = pos2) Then ' --------------- > prende la posizione dell'input box

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & "_" & n2
casi = casi + 1
ess = es + clp
If ess > fin Then ess = fin End If
For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
e = Estratto(x,rut,pp)
n(d,1) = d
nrr(e,1) = e
n(d,2) = n(d,2) + 1
nrr(e,2) = nrr(e,2) + 1 '<<<
Next
For rr = 1 To 10
For p1 = 1 To 5
g = Estratto(x,rr,p1)
nt(g,1) = g
nt(g,2) = nt(g,2) + 1
Next
Next
Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x
nn(2) = y
ru(1) = r
ambi(co,1) = co
ambi(co,2) = x
ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x
nn1(2) = y
ambi1(co,1) = co
ambi1(co,2) = x
ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
nr(1) = x
nr(2) = y
ambrr(co,1) = co
ambrr(co,2) = x
ambrr(co,3) = y
kk = SerieFreq(es + 1,ess,nr,rt,2)
ambrr(co,4) = ambrr(co,4) + kk
If kk > 0 Then
ambrr(co,5) = ambrr(co,5) + 1
Else
ambrr(co,5) = ambrr(co,5)
End If
Next
Next
End If
Next

Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica di - " & NomeRuota(r) & " in posizione ---> " & pos1 & "-" & pos2,1
Scrivi
Scrivi NomeRuota(r),1
Scrivi "N° casi: " & CInt(casi),1
Scrivi
Scrivi " Frequenti nei " & clp & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
OrdinaMatrice nt,- 1,2
OrdinaMatrice nrr,- 1,2
OrdinaMatrice ambrr,- 1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x = 1 To 10
riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & _
Format2(nt(x,2))
Scrivi riga
riga = ""
Next
Scrivi String(65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota

imported_n/a · 4 Agosto 2011

Perfetto Leo, hai trovato il codice giusto.
Se proprio devo suggerirti qualcosa cambia la dicitura degli inputbox
pos1 = CInt(InputBox("QUAL'E' LA POSIZIONE DEL PRIMO NUMERO ?","SPIA n° 1^",2))
con qual'è la prima posizione da cercare....

Per il resto tutto ok.

Ciao

Mike58

Cerca

Cerca

Help un ambo spia in posizione derterminata

korokoro

Super member

imported_n/a

Advanced Premium Member

korokoro

Super member

korokoro

Super member

imported_n/a

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi