Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","34.34")
r = CInt(InputBox("1°Ruota di ricerca",,5))
r1 = CInt(InputBox("2°Ruota di ricerca",,10))
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",10)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",3000)
'pos=InputBox("In quale posizione?","posizione",1)
rtt(1) = 11
Erase nu1 : Erase nu2 : Erase nu3 : Erase nu4 : Erase mat
fin = EstrazioneFin
ini = EstrazioneFin - tmp
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazione(es)
'For r = 1 To 9
x(1) = n(1) : x(2) = n(2)
'p=pos ' Mettere Apice Per la ricerca in tutte le posizioni
For p = 1 To 5 'Togliere Apice Per la ricerca in tutte le posizioni
a = Estratto(es,r,p)
If a = n(1) Or a = n(2) Then
If a = n(1) Then x(1) = 0 Else x(2) = 0
'For r1 = r + 1 To 10
'If r1=11 Then r1=12
b = Estratto(es,r1,p)
If b = x(1) Or b = x(2) Then
Call informa(es,r,a,r1,b)
casi = casi + 1
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
nn(1) = x1 : nn(2) = y1 : ru(1) = r : ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
nn1(1) = x1 : nn1(2) = y1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
mat(co,1) = co : mat(co,2) = x1 : mat(co,3) = y1
ne(1) = x1 : ne(2) = y1
xf = SerieFreq(es + 1,ess,ne,rtt,2)
mat(co,4) = mat(co,4) + xf
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co : nu3(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co : nu4(co,2) = xx
nn2(1) = xx
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
'Next
End If
'Next
Next
If ScriptInterrotto Then Exit For
Next ' per la ricerca in tutte le posizini
OrdinaMatrice mat,- 1,4
OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3
ColoreTesto 2
Scrivi "Formazione Spia Cercata ISOTOPA su due ruote " & StringaNumeri(n) & " dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
" estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
"+presenti nei c. / Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
ColoreTesto 0
For wx = 1 To 15
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
Format2(nu4(wx,3))
Scrivi Space(7) & riga,1
riga = ""
Next
Scrivi String(90,"*")
Scrivi : ColoreTesto 1 : Scrivi Space(4) & "Ambi + frequenti a TUTTE",1 : ColoreTesto 0
For wx = 1 To 20
riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
Scrivi Space(8) & riga,1
riga = ""
Next
End Sub
Function informa(es,r,a,r1,b)
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & Format2(a) & " e " & SiglaRuota(r1) & " " & Format2(b),1
End Function
Sub Main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","34.34")
'r = CInt(InputBox("1°Ruota di ricerca",,5))
'r1 = CInt(InputBox("2°Ruota di ricerca",,10))
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",10)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",500)
'pos=InputBox("In quale posizione?","posizione",1)
rtt(1) = 11
Erase nu1 : Erase nu2 : Erase nu3 : Erase nu4 : Erase mat
fin = EstrazioneFin
ini = EstrazioneFin - tmp
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazione(es)
For r = 1 To 9
x(1) = n(1) : x(2) = n(2)
'p=pos ' Mettere Apice Per la ricerca in tutte le posizioni
For p = 1 To 5 'Togliere Apice Per la ricerca in tutte le posizioni
a = Estratto(es,r,p)
If a = n(1) Or a = n(2) Then
If a = n(1) Then x(1) = 0 Else x(2) = 0
For r1 = r + 1 To 10
'If r1=11 Then r1=12
b = Estratto(es,r1,p)
If b = x(1) Or b = x(2) Then
Call informa(es,r,a,r1,b)
casi = casi + 1
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
nn(1) = x1 : nn(2) = y1 : ru(1) = r : ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
nn1(1) = x1 : nn1(2) = y1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
mat(co,1) = co : mat(co,2) = x1 : mat(co,3) = y1
ne(1) = x1 : ne(2) = y1
xf = SerieFreq(es + 1,ess,ne,rtt,2)
mat(co,4) = mat(co,4) + xf
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co : nu3(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co : nu4(co,2) = xx
nn2(1) = xx
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit For
Next ' per la ricerca in tutte le posizini
OrdinaMatrice mat,- 1,4
OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3
ColoreTesto 2
Scrivi "Formazione Spia Cercata ISOTOPA su due ruote " & StringaNumeri(n) & " dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
" estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
"+presenti nei c. / Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
ColoreTesto 0
For wx = 1 To 15
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
Format2(nu4(wx,3))
Scrivi Space(7) & riga,1
riga = ""
Next
Scrivi String(90,"*")
Scrivi : ColoreTesto 1 : Scrivi Space(4) & "Ambi + frequenti a TUTTE",1 : ColoreTesto 0
For wx = 1 To 20
riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
Scrivi Space(8) & riga,1
riga = ""
Next
End Sub
Function informa(es,r,a,r1,b)
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & Format2(a) & " e " & SiglaRuota(r1) & " " & Format2(b),1
End Function
Ciao Blackmore, ambidue gli script mi danno errore nella prima riga: errore 1025 prevista fine istruzione. Grazie per l'aiuto.