salve
innanzi tutto ringrazio per l'interessamento alla richiesta del mio script,
quello che chiedo è il il ritardo che hanno le decine ( 1,10,20,30,40,50,60,70,80)
con le decine ( 1,10,20,30,40,50,60,70,80),
mike mi aveva fatto un questo ottimo script che mi va benissimo,
ma me ne servirebbe uno leggermente diverso, che mi permetta di vedere più ruote
contemporaneamente
cerco di spiegarmi meglio....
adesso con questo script se ad esempio seleziono la ruota di bari e di cagliari
il risultato dello script fa come se le due ruote siano una sola,
invece io vorrei che il risultato visualizzasse le due ruote separatamente,
in modo da poterle confrontare.
la stessa cosa vorrei se decidessi anche di utilizzare tre o quattro ruote contemporaneamente
ad esempio bari roma torino e venezia, lo script mi dovrebbe far vedere nella stessa videata
prima la ruota di bari poi la ruota di roma poi quella di torino ed in fine quella di venezia.
spero di essere stato più chiaro e preciso adesso,
e mi scuso se non lo sono stato precedentemente,
se servisse farò altri esempi
ringrazio anticipatamente chi mi vorrà aiutare
ciao
qui a seguire metto l'ottimo script del grande Mike
Sub Main
Dim a(36)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(13)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(05) = " Estr. "
atitoli(06) = " pr.-1 "
atitoli(07) = " pr.-2 "
atitoli(08) = " pr.-3 "
atitoli(09) = " estr.+2 "
atitoli(10) = " estr.+3 "
atitoli(11) = " estr.+4 "
atitoli(12) = " I.C. "
atitoli(13) = " Media uscita "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02-03-04-05-06-07-08-09-90-10-11-12-13-14-15-16-17-18-19"
a(02) = "01-02-03-04-05-06-07-08-09-90-20-21-22-23-24-25-26-27-28-29"
a(03) = "01-02-03-04-05-06-07-08-09-90-30-31-32-33-34-35-36-37-38-39"
a(04) = "01-02-03-04-05-06-07-08-09-90-40-41-42-43-44-45-46-47-48-49"
a(05) = "01-02-03-04-05-06-07-08-09-90-50-51-52-53-54-55-56-57-58-59"
a(06) = "01-02-03-04-05-06-07-08-09-90-60-61-62-63-64-65-66-67-68-69"
a(07) = "01-02-03-04-05-06-07-08-09-90-70-71-72-73-74-75-76-77-78-79"
a(08) = "01-02-03-04-05-06-07-08-09-90-80-81-82-83-84-85-86-87-88-89"
'---------------------------------------------------------------------
a(09) = "10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29"
a(10) = "10-11-12-13-14-15-16-17-18-19-30-31-32-33-34-35-36-37-38-39"
a(11) = "10-11-12-13-14-15-16-17-18-19-40-41-42-43-44-45-46-47-48-49"
a(12) = "10-11-12-13-14-15-16-17-18-19-50-51-52-53-54-55-56-57-58-59"
a(13) = "10-11-12-13-14-15-16-17-18-19-60-61-62-63-64-65-66-67-68-69"
a(14) = "10-11-12-13-14-15-16-17-18-19-70-71-72-73-74-75-76-77-78-79"
a(15) = "10-11-12-13-14-15-16-17-18-19-80-81-82-83-84-85-86-87-88-89"
'---------------------------------------------------------------------
a(16) = "20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39"
a(17) = "20-21-22-23-24-25-26-27-28-29-40-41-42-43-44-45-46-47-48-49"
a(18) = "20-21-22-23-24-25-26-27-28-29-50-51-52-53-54-55-56-57-58-59"
a(19) = "20-21-22-23-24-25-26-27-28-29-60-61-62-63-64-65-66-67-68-69"
a(20) = "20-21-22-23-24-25-26-27-28-29-70-71-72-73-74-75-76-77-78-79"
a(21) = "20-21-22-23-24-25-26-27-28-29-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
a(22) = "30-31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49"
a(23) = "30-31-32-33-34-35-36-37-38-39-50-51-52-53-54-55-56-57-58-59"
a(24) = "30-31-32-33-34-35-36-37-38-39-60-61-62-63-64-65-66-67-68-69"
a(25) = "30-31-32-33-34-35-36-37-38-39-70-71-72-73-74-75-76-77-78-79"
a(26) = "30-31-32-33-34-35-36-37-38-39-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
a(27) = "40-41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59"
a(28) = "40-41-42-43-44-45-46-47-48-49-60-61-62-63-64-65-66-67-68-69"
a(29) = "40-41-42-43-44-45-46-47-48-49-70-71-72-73-74-75-76-77-78-79"
a(30) = "40-41-42-43-44-45-46-47-48-49-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
a(31) = "50-51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69"
a(32) = "50-51-52-53-54-55-56-57-58-59-70-71-72-73-74-75-76-77-78-79"
a(33) = "50-51-52-53-54-55-56-57-58-59-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
a(34) = "60-61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79"
a(35) = "60-61-62-63-64-65-66-67-68-69-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
a(36) = "70-71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a
),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,, estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
'End If
If fre > 0 Then
ReDim avalori(13)
avalori(1) = " Dec. " & Format2
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = aaa + bbb
avalori(10) = aaa + bbb + ccc
avalori(11) = aaa + bbb + ccc + ddd
avalori(12) = Round(qt/fre,2)
avalori(13) = Round(fre/qt*rit,2)
Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
