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ì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto