Novità

Help un ambo spia in posizione derterminata

K

korokoro

Super member
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
 
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
 
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
 
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
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 06 marzo 2026
    Bari
    43
    76
    29
    71
    21
    Cagliari
    01
    75
    39
    73
    11
    Firenze
    72
    49
    17
    62
    54
    Genova
    36
    51
    34
    56
    63
    Milano
    59
    87
    52
    13
    16
    Napoli
    13
    83
    19
    79
    66
    Palermo
    18
    38
    23
    63
    15
    Roma
    41
    14
    85
    01
    45
    Torino
    04
    01
    22
    82
    57
    Venezia
    67
    18
    14
    40
    85
    Nazionale
    59
    55
    62
    74
    12
    Estrazione Simbolotto
    Firenze
    26
    37
    22
    35
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto