'Ramco-ricerca 5 spie in cinque pos su rt1
'Ramco 29/01/2011 x Lones (Mauro)
'modificato a 5 spie x debora
Sub Main()
Dim num1(90,7),num2(90,7),num3(90,7),numt(90,7),rt(1),nu(1)
Dim num4(90,7),num5(90,7)
r = CInt(InputBox("Quale Ruota di Ricerca?","RUOTA",1))
rt(1) = r
sp1 = CInt(InputBox("1ยฐ Numero SPIA?","SPIA 1ยฐ",46))
p1 = CInt(InputBox("POSIZIONE 1ยฐ Numero Spia?","POSIZIONE SP1",1))
sp2 = CInt(InputBox("2ยฐ Numero SPIA?","SPIA 2ยฐ",47))
p2 = CInt(InputBox("POSIZIONE 2ยฐ Numero Spia?","POSIZIONE SP2",2))
sp3 = CInt(InputBox("3ยฐ Numero SPIA?","SPIA 3ยฐ",48))
p3 = CInt(InputBox("POSIZIONE 3ยฐ Numero Spia?","POSIZIONE SP3",3))
sp4 = CInt(InputBox("4ยฐ Numero SPIA?","SPIA 4ยฐ",49))
p4 = CInt(InputBox("POSIZIONE 4ยฐ Numero Spia?","POSIZIONE SP3",4))
sp5 = CInt(InputBox("5ยฐ Numero SPIA?","SPIA 5ยฐ",50))
p5 = CInt(InputBox("POSIZIONE 5ยฐ Numero Spia?","POSIZIONE SP3",5))
cs1 = CInt(InputBox("Quanti Casi analizziamo per la spia N1?","ANALISI CASI-SPIA",9))
cs2 = CInt(InputBox("Quanti Casi analizziamo per la spia N2?","ANALISI CASI-SPIA",9))
cs3 = CInt(InputBox("Quanti Casi analizziamo per la spia N3?","ANALISI CASI-SPIA",9))
cs4 = CInt(InputBox("Quanti Casi analizziamo per la spia N4?","ANALISI CASI-SPIA",9))
cs5 = CInt(InputBox("Quanti Casi analizziamo per la spia N5?","ANALISI CASI-SPIA",9))
colpi = InputBox("Quanti colpi successivi?","ANALISI COLPI",6)
kl = CInt(InputBox("L'ananlisi dei frequenti, vuoi che comprenda l'estrazione di rilevamento? (0=SI 1=NO)","ANALISI ESTR.",1))
For i = 1 To 90
For y = 2 To 7
num1(i,1) = i : num1(i,y) = 0
num2(i,1) = i : num2(i,y) = 0
num3(i,1) = i : num3(i,y) = 0
num4(i,1) = i : num4(i,y) = 0
num5(i,1) = i : num5(i,y) = 0
numt(i,1) = i : numt(i,y) = 0
Next
Next
cc = 0 : tmp1 = 0
For es = EstrazioneFin To 1 Step - 1
If Posizione(es,r,sp1) = p1 Then
cc = cc + 1
If cc = cs1 Then
tmp1 =(EstrazioneFin - es) + 1
End If
End If
Next
ini1 = EstrazioneFin - tmp1
fin = EstrazioneFin
cc = 0 : tmp2 = 0
For es = EstrazioneFin To 1 Step - 1
If Posizione(es,r,sp2) = p2 Then
cc = cc + 1
If cc = cs2 Then
tmp2 =(EstrazioneFin - es) + 1
End If
End If
Next
ini2 = EstrazioneFin - tmp2
cc = 0 : tmp3 = 0
For es = EstrazioneFin To 1 Step - 1
If Posizione(es,r,sp3) = p3 Then
cc = cc + 1
If cc = cs3 Then
tmp3 =(EstrazioneFin - es) + 1
End If
End If
Next
ini3 = EstrazioneFin - tmp3
cc = 0 : tmp4 = 0
For es = EstrazioneFin To 1 Step - 1
If Posizione(es,r,sp4) = p4 Then
cc = cc + 1
If cc = cs4 Then
tmp4 =(EstrazioneFin - es) + 1
End If
End If
Next
ini4 = EstrazioneFin - tmp4
cc = 0 : tmp5 = 0
For es = EstrazioneFin To 1 Step - 1
If Posizione(es,r,sp5) = p5 Then
cc = cc + 1
If cc = cs5 Then
tmp5 =(EstrazioneFin - es) + 1
End If
End If
Next
ini5 = EstrazioneFin - tmp5
Scrivi " Analisi dal " & DataEstrazione(ini1) & " ad oggi"
Scrivi "Piรน frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO IN POSIZIONE ",1
Scrivi
co = 0
For es = ini1 To fin
ae = Estratto(es,r,p1)
If ae = sp1 Then
co = co + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
If es + kl > fin Then Exit For
For i = 1 To 90
nu(1) = i
xf1 = SerieFreq(es + kl,ess,nu,rt,6)
num1(i,2) = num1(i,2) + xf1
xf2 = SerieFreq(es + kl,ess,nu,rt,7)
num1(i,3) = num1(i,3) + xf2
xf3 = SerieFreq(es + kl,ess,nu,rt,8)
num1(i,4) = num1(i,4) + xf3
xf4 = SerieFreq(es + kl,ess,nu,rt,9)
num1(i,5) = num1(i,5) + xf4
xf5 = SerieFreq(es + kl,ess,nu,rt,10)
num1(i,6) = num1(i,6) + xf5
xft = SerieFreq(es + kl,ess,nu,rt,1)
num1(i,7) = num1(i,7) + xft
Next
End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp1 & " su ruota in " & p1 & "ยฐpos. nยฐcasi = " & co & " x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num1
Scrivi String(50,"-")
Scrivi " Analisi dal " & DataEstrazione(ini2) & " ad oggi"
Scrivi "Piรน frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO IN POSIZIONE ",1
Scrivi
co = 0
For es = ini2 To fin
ae = Estratto(es,r,p2)
If ae = sp2 Then
co = co + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp2
ess = es + colpi + 1
If ess > fin Then ess = fin End If
If es + kl > fin Then Exit For
For i = 1 To 90
nu(1) = i
xf1 = SerieFreq(es + kl,ess,nu,rt,6)
num2(i,2) = num2(i,2) + xf1
xf2 = SerieFreq(es + kl,ess,nu,rt,7)
num2(i,3) = num2(i,3) + xf2
xf3 = SerieFreq(es + kl,ess,nu,rt,8)
num2(i,4) = num2(i,4) + xf3
xf4 = SerieFreq(es + kl,ess,nu,rt,9)
num2(i,5) = num2(i,5) + xf4
xf5 = SerieFreq(es + kl,ess,nu,rt,10)
num2(i,6) = num2(i,6) + xf5
xft = SerieFreq(es + kl,ess,nu,rt,1)
num2(i,7) = num2(i,7) + xft
Next
End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp2 & " su ruota in " & p2 & "ยฐpos. nยฐcasi = " & co & " x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num2
Scrivi String(50,"-")
Scrivi " Analisi dal " & DataEstrazione(ini3) & " ad oggi"
Scrivi "Piรน frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO IN POSIZIONE ",1
Scrivi
co = 0
For es = ini3 To fin
ae = Estratto(es,r,p3)
If ae = sp3 Then
co = co + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp3
ess = es + colpi + 1
If ess > fin Then ess = fin End If
If es + kl > fin Then Exit For
For i = 1 To 90
nu(1) = i
xf1 = SerieFreq(es + kl,ess,nu,rt,6)
num3(i,2) = num3(i,2) + xf1
xf2 = SerieFreq(es + kl,ess,nu,rt,7)
num3(i,3) = num3(i,3) + xf2
xf3 = SerieFreq(es + kl,ess,nu,rt,8)
num3(i,4) = num3(i,4) + xf3
xf4 = SerieFreq(es + kl,ess,nu,rt,9)
num3(i,5) = num3(i,5) + xf4
xf5 = SerieFreq(es + kl,ess,nu,rt,10)
num3(i,6) = num3(i,6) + xf5
xft = SerieFreq(es + kl,ess,nu,rt,1)
num3(i,7) = num3(i,7) + xft
Next
End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp3 & " su ruota in " & p3 & "ยฐpos. nยฐcasi = " & co & " x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num3
Scrivi String(50,"-")
Scrivi " Analisi dal " & DataEstrazione(ini4) & " ad oggi"
Scrivi "Piรน frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO IN POSIZIONE ",1
Scrivi
co = 0
For es = ini4 To fin
ae = Estratto(es,r,p4)
If ae = sp4 Then
co = co + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp4
ess = es + colpi + 1
If ess > fin Then ess = fin End If
If es + kl > fin Then Exit For
For i = 1 To 90
nu(1) = i
xf1 = SerieFreq(es + kl,ess,nu,rt,6)
num4(i,2) = num4(i,2) + xf1
xf2 = SerieFreq(es + kl,ess,nu,rt,7)
num4(i,3) = num4(i,3) + xf2
xf3 = SerieFreq(es + kl,ess,nu,rt,8)
num4(i,4) = num4(i,4) + xf3
xf4 = SerieFreq(es + kl,ess,nu,rt,9)
num4(i,5) = num4(i,5) + xf4
xf5 = SerieFreq(es + kl,ess,nu,rt,10)
num4(i,6) = num4(i,6) + xf5
xft = SerieFreq(es + kl,ess,nu,rt,1)
num4(i,7) = num4(i,7) + xft
Next
End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp4 & " su ruota in " & p4 & "ยฐpos. nยฐcasi = " & co & " x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num4
Scrivi String(50,"-")
Scrivi " Analisi dal " & DataEstrazione(ini5) & " ad oggi"
Scrivi "Piรน frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Scrivi "USCITO IN POSIZIONE ",1
Scrivi
co = 0
For es = ini5 To fin
ae = Estratto(es,r,p5)
If ae = sp5 Then
co = co + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " <--SPIA " & sp5
ess = es + colpi + 1
If ess > fin Then ess = fin End If
If es + kl > fin Then Exit For
For i = 1 To 90
nu(1) = i
xf1 = SerieFreq(es + kl,ess,nu,rt,6)
num5(i,2) = num5(i,2) + xf1
xf2 = SerieFreq(es + kl,ess,nu,rt,7)
num5(i,3) = num5(i,3) + xf2
xf3 = SerieFreq(es + kl,ess,nu,rt,8)
num5(i,4) = num5(i,4) + xf3
xf4 = SerieFreq(es + kl,ess,nu,rt,9)
num5(i,5) = num5(i,5) + xf4
xf5 = SerieFreq(es + kl,ess,nu,rt,10)
num5(i,6) = num5(i,6) + xf5
xft = SerieFreq(es + kl,ess,nu,rt,1)
num5(i,7) = num5(i,7) + xft
Next
End If
Next
ColoreTesto 1
Scrivi "Numero spia: " & sp5 & " su ruota in " & p5 & "ยฐpos. nยฐcasi = " & co & " x colpi " & colpi
ColoreTesto 0
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ScriviMatrice num5
Scrivi String(50,"-")
Scrivi
For i = 1 To 90
For y = 2 To 7
numt(i,y) = num1(i,y) + num2(i,y) + num3(i,y) + num4(i,y) + num5(i,y)
Next
Next
ColoreTesto 2
Scrivi "TABELLA RIEPILOGATIVA TOTALE",1
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ColoreTesto 0
ScriviMatrice numt
ColoreTesto 2
Scrivi "TABELLA RIEPILOGATIVA TOTALE per DECINA",1
Scrivi Space(4) & "NU" & Space(5) & "P1" & Space(4) & "P2" & Space(4) & "P3" & Space(4) & "P4" & Space(4) & "P5" & Space(4) & "Tot",1
ColoreTesto 0
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
For i = 1 To 10
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 11 To 20
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 21 To 30
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 31 To 40
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 41 To 50
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 51 To 60
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 61 To 70
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 71 To 80
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
tt1 = 0 : tt2 = 0 : tt3 = 0 : tt4 = 0 : tt5 = 0 : tt6 = 0
Scrivi
For i = 81 To 90
Scrivi Space(4) & numt(i,1) & Space(6) & numt(i,2) & Space(5) & numt(i,3) & Space(5) & numt(i,4) & Space(5) & numt(i,5) & Space(5) & _
numt(i,6) & Space(6) & numt(i,7)
tt1 = tt1 + numt(i,2): tt2 = tt2 + numt(i,3): tt3 = tt3 + numt(i,4): tt4 = tt4 + numt(i,5): tt5 = tt5 + numt(i,6): tt6 = tt6 + numt(i,7)
Next
Scrivi "Tot.Dec. " & tt1 & Space(5) & tt2 & Space(4) & tt3 & Space(4) & tt4 & Space(4) & tt5 & Space(5) & tt6,1
End Sub