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ì 24 aprile 2026
    Bari
    15
    88
    36
    90
    37
    Cagliari
    49
    22
    46
    28
    86
    Firenze
    07
    85
    14
    84
    55
    Genova
    89
    69
    88
    41
    81
    Milano
    71
    43
    45
    25
    03
    Napoli
    83
    72
    60
    16
    21
    Palermo
    75
    78
    68
    80
    76
    Roma
    13
    25
    67
    83
    78
    Torino
    30
    39
    63
    72
    81
    Venezia
    13
    55
    71
    89
    05
    Nazionale
    42
    70
    22
    48
    41
    Estrazione Simbolotto
    Genova
    38
    45
    33
    15
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto