Sub Main()
'cerca numero isotopo su 2 ruote consecutive
Scrivi"Listato per ricerca Numero iso su 2 Ruote ",True,False,2,4,3
Scrivi" **** Richiesta dragone197601 ***** ",True,False,4,2,3
Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
Scrivi
Dim k(10),nu(4),num(2)
Dim ruote(2)
Dim posta(5)
Dim poste(5)
posta(1) = 3
poste(2) = 1.5
poste(3) = .5
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
ReDim at(11)
at(1) = " Data Estrazione "
at(2) = " Ruota "
at(3) = " estratti "
at(4) = " Numero iso "
at(5) = " Posiz. "
at(6) = " Stringa Numeri "
at(7) = " Esito "
at(8) = " colpo "
at(9) = " R_estratti a Tutte "
at(10) = " Data Esito "
at(11) = " casi "
Call InitTabella(at,1,,3,5)
For es = fin To Ini Step - 1
Call Messaggio("Elaboro Estrazioni . . . . . . " & es & " * * * * Script by Mike58 * * * * ")
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
If n1 = n3 Or n1 = n4 Then ' numero = numero
If n2 = n3 Or n2 = n4 Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
nu(1) = n1
nu(2) = n2
nu(3) = n3
nu(4) = n4
EliminaRipetuti(nu)
num(1) = nu(1)
num(2) = nu(2)
'--------- Calcolo Numeri da mettere in gioco-------------
'x1 = Decina(n1)
'For y = 1 To 10
'x = x1*10
'x2 = y +(x)
'k(y) = y +(x)
'Next
'---------------------------------------------------------
k(1) = Diametrale(num(1))
k(2) = Vert(k(1))
k(3) = Diametrale(num(2))
k(4) = Vert(k(3))
ReDim Tutte(10)
For rr = 1 To 10
Tutte(rr) = rr
Call VerificaEsito(k,Tutte,es + 1,2,11,Nothing,esito,colpi,estratti,id)
Next
ReDim av(11)
av(1) = DataEstrazione(es)
av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
av(4) = StringaNumeri(num)
av(5) = p1 & "°" & p2 & "°"
av(6) = StringaNumeri(k,,True)
av(7) = esito
av(8) = colpi & "°"
av(9) = estratti
If esito <> "" Then av(10) = DataEstrazione(id)
If esito = "" And colpi > 10 Then av(10) = " Negativo "
If esito = "" And colpi <= 10 Then av(10) = " In corso "
av(11) = co '& " " & IndiceMensile(es)
Call AddRigaTabella(av,,,3,,"arial black")
Call SetColoreCella(2,RGB(175,174,222),5)
Call SetColoreCella(3,RGB(252,237,240),0)
Call SetColoreCella(6,RGB(164,242,249),0)
Call SetColoreCella(4,RGB(175,239,173),0)
Call SetColoreCella(9,RGB(236,200,176),2)
If esito = "Ambo" Then Call SetColoreCella(7,2,4)
' ---------------- calcolo colpi -------------------------
If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
If colpi >= 7 Then clp11 = clp11 + 1
'---------------------------------------------------------
End If
End If
Next
Next
Next
Next
Next
Call SetTableWidth("100%")
CreaTabella()
ReDim att(14)
att(1) = " Colpo 1 "
att(2) = " Colpo 2 "
att(3) = " Colpo 3 "
att(4) = " Colpo 4 "
att(5) = " Colpo 5 "
att(6) = " Colpo 6 "
att(7) = " Colpo 7 "
att(8) = " Colpo 8 "
att(9) = " Colpo 9 "
att(10) = " Colpo 10 "
att(11) = " Totali casi "
att(12) = " Casi positivi "
att(13) = " Casi Negativi "
att(14) = " Casi in corso "
Call InitTabella(att,2,,3,4)
ReDim avv(14)
avv(1) = clp1
avv(2) = clp2
avv(3) = clp3
avv(4) = clp4
avv(5) = clp5
avv(6) = clp6
avv(7) = clp7
avv(8) = clp8
avv(9) = clp9
avv(10) = clp10
avv(11) = co
avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
avv(13) = clp11
avv(14) = clpcorso
Call AddRigaTabella(avv,4,,3,2)
Call SetTableWidth("100%")
Call CreaTabella()
'Scrivi
End Sub
come hai tirato fuori gi altri 3 numeri? Si non è la sola ma a volte si ripete la stessa...........non che ci sia nulla di errato.
