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.
nel caso vuoi vedere i ripetuti da 2 in su devi solo fare quello che c'è scritto nel CODICEquote:Originally posted by lotto_tom75
Scusate riguardo lo script della rilevazione dei NUMERI RIPETUTI , TOT volte nel NUMERO DI ESTRAZIONI VOLUTE qualsiasi numero di ripetuti voluti io inserisca... mi trova sempre quelli presenti 2 volte... vi risulta anche a voi? Comunque sia complimenti al creatore dello script!
"Vero sapiente e' colui che sa di non sapere" (Socrate)
f = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 ThenIf stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)= f Thenquote:Originally posted by claudio8
nel caso vuoi vedere i ripetuti da 2 in su devi solo fare quello che c'è scritto nel CODICEquote:Originally posted by lotto_tom75
Scusate riguardo lo script della rilevazione dei NUMERI RIPETUTI , TOT volte nel NUMERO DI ESTRAZIONI VOLUTE qualsiasi numero di ripetuti voluti io inserisca... mi trova sempre quelli presenti 2 volte... vi risulta anche a voi? Comunque sia complimenti al creatore dello script!
"Vero sapiente e' colui che sa di non sapere" (Socrate)Codice:f = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice ' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<< If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
se invece vuoi scegliere un solo valore di frequenza alla volta , devi sostituire la rigaCodice:If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)= f Then
claudio
quote:Originally posted by lotto_tom75
quote:Originally posted by claudio8
nel caso vuoi vedere i ripetuti da 2 in su devi solo fare quello che c'è scritto nel CODICEquote:Originally posted by lotto_tom75
Scusate riguardo lo script della rilevazione dei NUMERI RIPETUTI , TOT volte nel NUMERO DI ESTRAZIONI VOLUTE qualsiasi numero di ripetuti voluti io inserisca... mi trova sempre quelli presenti 2 volte... vi risulta anche a voi? Comunque sia complimenti al creatore dello script!
"Vero sapiente e' colui che sa di non sapere" (Socrate)Codice:f = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice ' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<< If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
se invece vuoi scegliere un solo valore di frequenza alla volta , devi sostituire la rigaCodice:If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)= f Then
claudio
Ok ci provo
Grazie!
Ciao
ps:Claudio conosci per caso anche il c++? Perchè se si avrei un piccolo quesito da porti... [|)] tnx
"Vero sapiente e' colui che sa di non sapere" (Socrate)
'
'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota, scegliere la frequenza + bassa
Option Explicit
Sub Main()
'visualizza il quadro esteso con colorazione dei numeri ripetuti nella frequenza scelta e nelle successive +1, +2 e +3 per aver un quadro di lettura più ampio
Dim Vet(),stat(),temp(),nu(),max(12)
Dim fin,estr,Ini,r,es,f1,f2,f3,f4,n,p,x,y,i,cu,maxcu,co,riga,rigo,t,u,cl,m,s
Dim sTmpRiga,nTmpColor
fin = EstrazioneFin -(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,5))
estr = InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f1 = CInt(InputBox("Quale frequenza devono avere i ripetuti?","Frequenza più bassa",2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
'f2 = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,f1+1))
'f3 = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,f1+2))
'f4 = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,f1+3))
f2 = f1+1
f3 = f1+2
f4 = f1+3
Ini = fin -(estr - 1)
ReDim vet(0)
ReDim stat(2,0)
ReDim temp(0)
ReDim nu(12,0)
For r = 1 To 12
If r <> 11 Then nu(r,0) = r
Next
'-----------------------------
For r = 1 To 11
If r = 11 Then r = 12
Erase vet
Erase stat
ReDim vet(estr*5)
n = 0
For es = Ini To fin
For p = 1 To 5
n = n + 1
vet(n) = Estratto(es,r,p)
Next
Next
'------------------------
OrdinaMatrice vet,1
x = UBound(vet)
ReDim stat(2,0)
For i = 1 To x
If vet(i) > vet(i - 1) Then
co = co + 1
ReDim Preserve stat(2,co)
stat(1,co) = vet(i)
stat(2,co) = 1
For y = i + 1 To x
If vet(i) = vet(y) Then stat(2,co) = stat(2,co) + 1
Next
End If
Next
'------------------------
cu = 0
ReDim temp(0)
For i = 1 To co
If stat(2,i) = f1 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then ''sostituito il 2 con f
cu = cu + 1
ReDim Preserve temp(cu)
If cu > maxcu Then maxcu = cu
temp(cu) = stat(1,i)
End If
Next
max(r) = cu
ReDim Preserve nu(12,maxcu)
For i = 1 To cu
nu(r,i) = temp(i)
Next
Next
'--------------------------------------
ColoreTesto 0
Scrivi Chr(10) & " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0
ColoreTesto 2
Scrivi "--> " & f1 & " <-- ",1,0
ColoreTesto 0
Scrivi " VOLTE SU RUOTA UNICA " & Chr(10),1
Scrivi Space(4) & "Ru - Ripetuti ",1
riga = FormattaTesto("Data",Space(10),2)
For r = 1 To 12
'If max(r) > 0 Then riga = riga & Space(6) & SiglaRuota(r) & Space(7)
If max(r) > 0 Then riga = riga & FormattaTesto(SiglaRuota(r),Space(15),2)
rigo = ""
If max(r) > 0 Then
rigo = Space(4) & SiglaRuota(nu(r,0)) & Space(2)
For t = 1 To max(r)
rigo = rigo & " " & Format2(nu(r,t))
Next
u = u + 1
End If
If rigo <> "" Then Scrivi rigo
Next
If u > 0 Then
Scrivi
Scrivi riga,1
For es = Ini To fin
'ColoreTesto 0
'Call Scrivi(DataEstrazione(es),0,0)
sTmpRiga = DataEstrazione(es)
For r = 1 To 11
If r = 11 Then
r = 12
End If
If max(r) > 0 Then
'ColoreTesto 0
'Scrivi "|",0,0
sTmpRiga = sTmpRiga & "|"
If Not pari(r) Or r = 12 Then
cl = "#FF0000" ' rosso
Else
cl = "#0000FF" ' blue
End If
For p = 1 To 5
For m = 1 To max(r)
'ColoreTesto 0
nTmpColor = "#000000"
If Estratto(es,r,p) = nu(r,m) Then
'ColoreTesto cl
nTmpColor = cl
Exit For
End If
Next
If p < 5 Then s = " " Else s = ""
sTmpRiga = sTmpRiga & GetTestoColorato(Format2(Estratto(es,r,p)),nTmpColor) & s
'Call Scrivi(Format2(Estratto(es,r,p)) & s,1,0)
Next
'If r = 12 And p = 6 Or r = u And p = 6 Then Scrivi Chr(13)
'If r = 12 And p = 6 Then Scrivi Chr(13)
End If
Next
Call Scrivi(sTmpRiga)
Next
En'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota
Option Explicit
Sub Main()
' --------------------'IMPORTANTE leggere la riga 143' ----------------------------
'non visualizza il quadro esteso con colorazione dei numeri ripetuti in una frequenza scelta e visualizza nella successiva + 1 per
'aver un quadro visivo dei numeri che sono passati a frequenza maggiore e quindi estratti nei colpi di analisi.
Dim Vet(),stat(),temp(),nu(),max(12)
Dim fin,range,Ini,r,es,f1,f2,f3,f4,n,p,x,y,i,cu,maxcu,co,riga,rigo,t,u,cl,m,s,colpi
Dim sTmpRiga,nTmpColor
fin = EstrazioneFin -(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,10))
range = InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f1 = CInt(InputBox("Quale frequenza devono avere i ripetuti?","Frequenza più bassa",3)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
colpi = InputBox("Per quanti colpi vuoi cercare la ripetizione dei numeri a Frequenza piu bassa?",,10)
f2 = f1 + 1 ' CInt(InputBox("Quale frequenza devono avere i ripetuti?",,f1+1))
' If(EstrazioneFin - fin) < colpi Then
'MsgBox " Errore..numero colpi maggiore di estrazioni indietro"
'End If
Ini = fin -(range - 1)
ReDim vet(0)
ReDim stat(2,0)
ReDim temp(0)
ReDim nu(12,0)
For r = 1 To 12
If r <> 11 Then nu(r,0) = r
Next
'-----------------------------
For r = 1 To 11
If r = 11 Then r = 12
Erase vet
Erase stat
ReDim vet(range*5)
n = 0
For es = Ini To fin
For p = 1 To 5
n = n + 1
vet(n) = Estratto(es,r,p)
Next
Next
'------------------------
OrdinaMatrice vet,1
x = UBound(vet)
ReDim stat(2,0)
For i = 1 To x
If vet(i) > vet(i - 1) Then
co = co + 1
ReDim Preserve stat(2,co)
stat(1,co) = vet(i)
stat(2,co) = 1
For y = i + 1 To x
If vet(i) = vet(y) Then stat(2,co) = stat(2,co) + 1
Next
End If
Next
'------------------------
cu = 0
ReDim temp(0)
For i = 1 To co
If stat(2,i) = f1 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then ''sostituito il 2 con f
cu = cu + 1
ReDim Preserve temp(cu)
If cu > maxcu Then maxcu = cu
temp(cu) = stat(1,i)
End If
Next
max(r) = cu
ReDim Preserve nu(12,maxcu)
For i = 1 To cu
nu(r,i) = temp(i)
Next
Next
'--------------------------------------
ColoreTesto 0
Scrivi Chr(10) & " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0
ColoreTesto 2
Scrivi "--> " & f1 & " <-- ",1,0
ColoreTesto 0
Scrivi " VOLTE SU RUOTA UNICA dal " & DataEstrazione(Ini)& " al "& DataEstrazione(fin)& Chr(10),1
Scrivi Space(4) & "Ru - Ripetuti ",1
riga = FormattaTesto("Data",Space(10),2)
For r = 1 To 12
'If max(r) > 0 Then riga = riga & Space(6) & SiglaRuota(r) & Space(7)
If max(r) > 0 Then riga = riga & FormattaTesto(SiglaRuota(r),Space(15),2)
rigo = ""
If max(r) > 0 Then
rigo = Space(4) & SiglaRuota(nu(r,0)) & Space(2)
For t = 1 To max(r)
rigo = rigo & " " & Format2(nu(r,t))
Next
u = u + 1
End If
If rigo <> "" Then Scrivi rigo
Next
If u > 0 Then
Scrivi
Scrivi riga,1
For es = Ini To fin
'ColoreTesto 0
'Call Scrivi(DataEstrazione(es),0,0)
sTmpRiga = DataEstrazione(es)
For r = 1 To 11
If r = 11 Then
r = 12
End If
If max(r) > 0 Then
'ColoreTesto 0
'Scrivi "|",0,0
sTmpRiga = sTmpRiga & "|"
If Not pari(r) Or r = 12 Then
cl = "#FF0000" ' rosso
Else
cl = "#0000FF" ' blue
End If
For p = 1 To 5
For m = 1 To max(r)
'ColoreTesto 0
nTmpColor = "#000000"
If Estratto(es,r,p) = nu(r,m) Then
'ColoreTesto cl
nTmpColor = cl
Exit For
End If
Next
If p < 5 Then s = " " Else s = ""
sTmpRiga = sTmpRiga & GetTest
