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.
chissa che c'entra poi con la parola ATTENZIONE !!! ... Sub main()
ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Scrivi "Ricerca per Ambata condizionata a STEP(salti) nel periodo selezionato",1
Dim som(5,90)
Dim estr(5)
Dim val(5,90)
Dim amb(90)
perc=InputBox("Imposta la percentuale esiti (10% - 100%)","PERCENTUALE",70)
nmc=CInt (InputBox("Quanti cicli(STEP) da analizzare ?","STEP",4))
esq=CInt (InputBox("La Lunghezza in estrazioni di uno STEP?","LUNGHEZZA STEP",5))
ncg=InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO-ANALISI",3)
tes=CInt (InputBox ("Quante estrazioni vuoi indietreggiare dall'ultima in archivio?","SOLO per ANALISI",1))
'la riga sopra serve solo per staccare l'analisi dall'ultima estrazione in archivio, potremmo così vedere
'nelle estrazioni che decidiamo di mettere nel limbo(valore tes), quali numeri sono già sortiti...
fin=EstrazioneFin-tes
ini=Fin -(nmc*esq)
For r2=1 To 10
For i=1 To 90
amb(i)=0
Next
ColoreTesto 0 : Scrivi : Scrivi String (50,"*")
ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1
s="Cicli analizzati "& nmc &" da "& esq &" estrazioni cad. per "
If eval(ncg)=1 Then
s=s+ncg+") colpo:"
Else
s=s+ncg+") colpi:"
End If
ColoreTesto 0 : Scrivi s
ColoreTesto 1 : Scrivi "Quantità cicli Impostati: ("& nmc &") tot. ("& (nmc*esq)&") Estr.",1
ColoreTesto 0 : Scrivi "Statistica dal: "+DataEstrazione(ini)+" al: "+DataEstrazione(Fin),1
ColoreTesto 2 : Scrivi "Percentuale Impostata: "& perc &"%",1
Scrivi
For r=1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
For n=ini To fin step esq
If eval(esq)=0 Then m=n+1 Else m=n End If
z=z+1
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
val(i,j)=True
Next
Next
k3=n+ncg
If k3 > EstrazioniArchivio Then k3 = EstrazioniArchivio End If
For nv=n+1 To k3
For i=1 To 5
For j=1 To 5
k=Estratto(nv,r2,j)-estr(i)
While k<=0
k=k+90
Wend
If val(i,k)=True Then
som(i,k)=som(i,k)+1
val(i,k)=False
End If
Next
Next
Next
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*perc)
s=CStr(eval(i))+"° di "+FormatSpace(NomeRuota(r),8)+" + "+FormatSub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !! --> RICERCA PER AMBATA <-- ",1
Scrivi "Eseguita in tutte le ruote contemporaneamente, per i CASI richiesti",1
Dim som(5,90)
Dim estr(5)
Dim estrn(5),ambn(90)
Dim Val(5,90)
Dim amb(90)
Dim perc 'perc minima
Dim r1,p1,cs1,colpi
Dim r2,p2,a,b,ini1,fin,r3
Dim rr,r
' 'DATI DAI SPECIFICA
perc = 99 ' ' ok Perc
r1 = 4 '<-----Ruota1
p1 = 2 '<-----Posiz1
r2 = 8 '<-----Ruota2
p2 = 2 '<-----Posiz1
cs1 = 10 '<-----Casi
colpi = 10 '<-----Colpi
' 'INIZIO con la ricerca del n. casi da rintraccire "cs1"
cc = 0 ' imposto il contatore dei casi cc = 0
tme1 = 0 ' totale-meno-estrazioni1 riferito alle estrazioni
For es = EstrazioneFin - tes To 1 Step - 1 ' legge le estrazioni dall'ultima - tes (togli estrazione)alla 1a e si ferma quando ha trovato il n. casi richiesti e rileva il tme1
a = Estratto(es,r1,p1) ' definisco gli estratti da trovare
b = Estratto(es,r2,p2) ' con l asottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
If a = b Then ' numeri uguali nelle posizione di ricerca a = b
cc = cc + 1 'cc = cc + 1 Incrementa il contatore dei casi
If cc = cs1 Then 'se il contatore casi cc = cs1(numero casi richiesti) allora
tme1 =(EstrazioneFin - tes - es) ' tme1 = (estraz fin-tes-es) -> totale-meno-estrazioni1 riferito alle estrazioni
End If
End If
Next
' 'FINE ricerca del n. casi da rintraccire "cs1"
ini1 = EstrazioneFin - tme1 ' inizio estrazioni = ultimo caso a ritroso = estrazione finale - tes - tme1
fin = EstrazioneFin ' deve diventare tme1
ini1 = fin - tme1
' 'INIZIO CICLO ELABORAZIONE
For r3 = 1 To 1 'r3 = ruota di analisi
For i = 1 To 90
amb(i) = 0
Next
ColoreTesto 0
Scrivi
Scrivi String(80,"*")
ColoreTesto 0
Scrivi "PARAMETRI IMPOSTATI :",1
s = "Statistica dal: " & DataEstrazione(ini1) & " al: " & DataEstrazione(fin) & " Casi impostati " & cs1 & " per "
If eval(colpi) = 1 Then
s = s & colpi & " colpo:"
Else
s = s & colpi & " colpi:"
End If
ColoreTesto 0
Scrivi s,1
ColoreTesto 1
Scrivi "Quantità casi per analisi: " & cs1
ColoreTesto 0
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & " % "
Scrivi
For r = 1 To 10 'r per le ruote di partenza da 1 to 10
z = 0
For i = 1 To 5 'per estratti da 1 to 5 ,
For j = 1 To 90 'per i numeri fissi da 1 to 90 , i fissi
som(i,j) = 0 'matrice som (estratto, fisso) = 0
Val(i,j) = True 'matrice val (estratto, fisso) = vero
Next
Next
For i = 1 To 5
estr(i) = 0
estrn(i) = 0
Next
valido = False
For es = ini1 To fin
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = b Then
z = z + 1
For i = 1 To 5
estr(i) = Estratto(es,r,i)
estrn(i) = Estratto(fin + 1,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k3 = es + colpi
If k3 > EstrazioniArchivio Then
k3 = EstrazioniArchivio
End If
' CICLO DI VERIFICA del fisso
'colpov = 0
For nv = es + 1 To k3 ' for estrazione verifica = es+1 to k3 = es+colpi, a condizione di non fine archivio
For i = 1 To 5 ' for gli estratti i = 1 to 5
For j = 1 To 5
k = Estratto(nv,r3,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1 ' contatore del estratto e fisso
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + FormFor estraz_verif = es + 1 To k3 ' for estrazione verifica = es+1 to k3 = es+colpi, a condizione di non fine archivio
For i = 1 To 5 ' for gli estratti base i = 1 to 5 - (posizione da 1 a 5) ell'estratto base
For j = 1 To 5 ' ????????? for j = 1 to 5 ( posizione dell' )
k = Estratto(estraz_verif,r3,j) - estr_base(i) 'k = diff. tra estratto di verif.posiz j(da 1 a 5) ed est_base nelle pos da 1 a 5
While k <= 0' esgue ciclicamente la istruzione sotto scritta (k=k+ 90) fintanto che la K <=0
k = k + 90 ' istruzione (k = k+ 90).
'--> in sostanza se la differenza K che identifica il numero "fisso" é <=90, al K occorrre sommare il 90
Wend
If Val(i,k) = True Then 'se la matrice val(i,k) = True (vero) allora...
som(i,k) = som(i,k) + 1 ' contatore del som(estr_base e fisso) incrementa di 1
Val(i,k) = False ' val( estr_base e fisso) = false (-1)
Gli script mi stanno appassionando, ma se non supero questo muro altissimo ... mi ci butto giù Sub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !! --> RICERCA PER AMBATA <-- ",1
Scrivi "Eseguita in tutte le ruote contemporaneamente, per i CASI richiesti",1
Dim som(5,90)
Dim estr_base(5)
Dim estr_new(5)
Dim Val(5,90)
Dim n_ambata(90),ambn(90)
Dim perc 'perc minima
Dim r1,p1,cs1,colpi,estraz_verif
Dim r2,p2,a,b,ini1,fin,r3
Dim rr,r
' 'DATI DA SPECIFICA
perc = 99 ' ' ok Perc
r1 = 4 '<-----Ruota1
p1 = 2 '<-----Posiz1
r2 = 8 '<-----Ruota2
p2 = 2 '<-----Posiz1
cs1 = 10 '<-----Casi
colpi = 10 '<-----Colpi
' 'INIZIO con la ricerca del n. casi da rintraccire "cs1"
cc = 0 ' imposto il contatore dei casi cc = 0
tme1 = 0 ' totale-meno-estrazioni1 riferito alle estrazioni
For es = EstrazioneFin - tes To 1 Step - 1 ' legge le estrazioni dall'ultima - tes (togli estrazione)alla 1a e si ferma quando ha trovato il n. casi richiesti e rileva il tme1
a = Estratto(es,r1,p1) ' definisco gli estratti da trovare
b = Estratto(es,r2,p2) ' con l asottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
If a = b Then ' numeri uguali nelle posizione di ricerca a = b
cc = cc + 1 'cc = cc + 1 Incrementa il contatore dei casi
If cc = cs1 Then 'se il contatore casi cc = cs1(numero casi richiesti) allora
tme1 =(EstrazioneFin - tes - es) ' tme1 = (estraz fin-tes-es) -> totale-meno-estrazioni1 riferito alle estrazioni
End If
End If
Next
' 'FINE ricerca del n. casi da rintraccire "cs1"
ini1 = EstrazioneFin - tme1 ' inizio estrazioni = ultimo caso a ritroso = estrazione finale - tes - tme1
fin = EstrazioneFin ' deve diventare tme1
ini1 = fin - tme1
' 'INIZIO CICLO ELABORAZIONE
For r3 = 1 To 1 'r3 = ruota di analisi - ricerca per gioco bari
For i = 1 To 90
'CREA MATRICI CON
n_ambata(i) = 0 'n_ambata(i = 90 righe ) = 0
Next
ColoreTesto 0
Scrivi
Scrivi String(80,"*")
ColoreTesto 0
Scrivi "PARAMETRI IMPOSTATI :",1
' 'gestione del testo sing-plurale con if ...then
s = "StatiSub Main
End subDim Ruota
Sub Main
ruota = 1
End Sub
Sub ScriviValoreVariabile
call scrivi (ruota)
End Sub
Const PiGreco = 3.14Sub Main
' dichiaro la matrice
ReDim Cassettiera(3 ,2)
' valorizzo la matrice con valori a caso
Cassettiera(1 ,1) = 10
Cassettiera(1 ,2) = 20
Cassettiera(2 ,1) = 30
Cassettiera(2 ,2) = 40
Cassettiera(3 ,1) = 50
Cassettiera(3 ,2) = 60
' ora con un ciclo scrivo a video il valore degli elementi (cioè i cassetti)
For k = 1 To 3 ' k gestisce il numero dei cassetti
For j = 1 To 2 ' j gestisce il numero degli scomparti
Call Scrivi (Cassettiera (k,j))
Next
Next
' ora con un ciclo scrivo a video il valore degli elementi (cioè i cassetti)
' ma uso variabili differenti per specificare gli indici
For z = 1 To 3 ' z gestisce il numero dei cassetti
For y = 1 To 2 ' jy gestisce il numero degli scomparti
Call Scrivi (Cassettiera (z,y))
Next
Next
. N.B.
' Come si puo vedere lanciando lo script
' anche se ho usato variabili differenti per passare gli indici il risultato è
' giustamente identico perche cio che viene stampato a video è il valore
' dei cassetti della matrice Cassettiera
End Sub
