Class clsLunghetta
Private mSNumeri
Private mRitardo
Public Property Let sNumeri(Value)
mSNumeri = Value
End Property
Public Property Get sNumeri()
sNumeri = mSNumeri
End Property
Public Property Let Ritardo(Value)
mRitardo = Value
End Property
Public Property Get Ritardo()
Ritardo = mRitardo
End Property
End ClassSub Main
Dim Lunghette() : Dim QuantitaLunghette 'Array che conterrà le lunghette è la rispettiva quantità
Dim aRuote,aRuoteSel,aPosizioni 'utili al rilevamento del ritardo
Dim k,q,y ' variabili cicli for
Dim RitardoEstratti(90) 'array contenente i ritardi dei 90 nuemri per estratto
Dim Lunghetta(5) 'Array che conterrà i numeri della singola lunghetta
End sub nColonneTot = InitSviluppoIntegrale(aNumeri,1)
' ciclo che continua fiono a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
Call RitardoCombinazione...Ecc. Ecc
LoopSub CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
End Sub
La mia non vuole essere una critica ci mancherebbe, ma la teoria trova riscontro e vale solo per le sequele in ritardo ( x un solo numero estratto ) mentre per:
Per sorte Ambo & Terno o superiore nelle lunghette ( sarà solo un puro caso se ci sarà presente l'Ambo base più ritardato )
Questa sera ( 52-62 ) ruota analizzata era Roma.
Assolutamente si! Falsata al 100% senza ombra di dubbio. Sono abbastanza pazzo ma non fino al punto di dire una ca**zat* del genere ahahaahaha.
Class clsLunghetta
Private mSNumeri
Private mRitardo
Public Property Let sNumeri(Value)
mSNumeri = Value
End Property
Public Property Get sNumeri()
sNumeri = mSNumeri
End Property
Public Property Let Ritardo(Value)
mRitardo = Value
End Property
Public Property Get Ritardo()
Ritardo = mRitardo
End Property
End Class
Sub Main
Dim Lunghette() : Dim QuantitaLunghette 'Array che conterrà le lunghette è la rispettiva quantità
Dim aRuote,aRuoteSel,aPosizioni 'utili al rilevamento del ritardo
Dim k,q,y ' variabili cicli for
Dim RitardoEstratti(90) 'array contenente i ritardi dei 90 nuemri per estratto
Dim Lunghetta(5) 'Array che conterrà i numeri della singola lunghetta
End sub
Sub CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
End SubSub CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
Dim IdEstr
Dim Flag
Dim Estrazione
Dim r,e,n
Dim EstrattoSingolo
For IdEstr = 1 To EstrazioneFin 'ciclo le estrazioni dalla prima all'ultima
If GetEstrazioneCompleta(IdEstr,Estrazione) Then 'grazie a questa funzione ottengo un array estrazione(11,5)
Flag = True ' do per scontato che le'strazione vada bene per qualsiasi ruota
For r = 1 To 10 ' ciclo le ruote
If aRuote(r) Then ' se la ruota è stata scelta dall'utente proseguo altrimenti salto. In questo modo i risultati saranno su ruote unite se la scelta delle ruote è superiore a una
If Estrazione(r,1) = 0 Then ' se il primo estratto della ruota scelta dall'utente è zero vuol dire che la ruota ancora non esisteva. Semplice
Flag = False
Else
For e = 1 To 5 ' ciclo le posizioni
If aPosizioni(e) Then ' se la posizione è stata scelta dall'utente
EstrattoSingolo = Estrazione(r,e) ' mi salvo in una variabile temporanea il valore dell'estratto
RitardoEstratti(EstrattoSingolo) = - 1 ' pongo a meno uno il valore del ritardo (RitardoEstratti(90) è dichiarato cosi)
End If
Next
End If
End If
Next
If Flag Then
For n = 1 To 90 ' ciclo i 90 numeri
RitardoEstratti(n) = RitardoEstratti(n) + 1 ' incremento il valore del ritardo di 1 (quindi se è -1 è sortito ed il ritardo è zero altrimenti aumento il suo ritardo)
Next
End If
End If
Next
End SubOption Explicit
Class clsLunghetta
Private mSNumeri
Private mRitardo
Public Property Let sNumeri(Value)
mSNumeri = Value
End Property
Public Property Get sNumeri()
sNumeri = mSNumeri
End Property
Public Property Let Ritardo(Value)
mRitardo = Value
End Property
Public Property Get Ritardo()
Ritardo = mRitardo
End Property
End Class
Sub Main
Dim Lunghette() : Dim QuantitaLunghette 'Array che conterrà le lunghette è la rispettiva quantità
Dim aRuote,aRuoteSel,aPosizioni 'utili al rilevamento del ritardo
Dim k,q,y ' variabili cicli for
Dim RitardoEstratti(90) 'array contenente i ritardi dei 90 nuemri per estratto
Dim Lunghetta(5)
End Sub
Sub CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
Dim IdEstr
Dim Flag
Dim Estrazione
Dim r,e,n
Dim EstrattoSingolo
For IdEstr = 1 To EstrazioneFin
If GetEstrazioneCompleta(IdEstr,Estrazione) Then
Flag = True
For r = 1 To 10
If aRuote(r) Then
If Estrazione(r,1) = 0 Then
Flag = False
Else
For e = 1 To 5
If aPosizioni(e) Then
EstrattoSingolo = Estrazione(r,e)
RitardoEstratti(EstrattoSingolo) = - 1
End If
Next
End If
End If
Next
If Flag Then
For n = 1 To 90
RitardoEstratti(n) = RitardoEstratti(n) + 1
Next
End If
End If
Next
End SubSub ImpostaParametri(Lunghette,QuantitaLunghette,aRuoteSel,aRuote,aPosizioni)
Dim i,k
Call ScegliRuote(aRuoteSel,aRuote)
QuantitaLunghette = InputBox("Scelta quantià","Scegli la quantità delle Lunghette da rilevare (massimo 100)",50)
ReDim Lunghette(QuantitaLunghette)
For i = 1 To QuantitaLunghette
Set Lunghette(i) = New clsLunghetta
Next
ReDim aPosizioni(5)
For k = 1 To 5
aPosizioni(k) = True
Next
End Sub For i = 1 To QuantitaLunghette
Set Lunghette(i) = New clsLunghetta
NextOption Explicit
Class clsLunghetta
Private mSNumeri
Private mRitardo
Public Property Let sNumeri(Value)
mSNumeri = Value
End Property
Public Property Get sNumeri()
sNumeri = mSNumeri
End Property
Public Property Let Ritardo(Value)
mRitardo = Value
End Property
Public Property Get Ritardo()
Ritardo = mRitardo
End Property
End Class
Sub Main
Dim Lunghette() : Dim QuantitaLunghette
Dim aRuote,aRuoteSel,aPosizioni
Dim k,q,y
Dim RitardoEstratti(90)
Dim Lunghetta(5)
Call ImpostaParametri(Lunghette,QuantitaLunghette,aRuoteSel,aRuote,aPosizioni)
Call CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
End Sub
Sub ImpostaParametri(Lunghette,QuantitaLunghette,aRuoteSel,aRuote,aPosizioni)
Dim i,k
Call ScegliRuote(aRuoteSel,aRuote)
QuantitaLunghette = InputBox("Scelta quantità","Scegli la quantità delle Lunghette da rilevare (massimo 100)",50)
ReDim Lunghette(QuantitaLunghette)
For i = 1 To QuantitaLunghette
Set Lunghette(i) = New clsLunghetta
Next
ReDim aPosizioni(5)
For k = 1 To 5
aPosizioni(k) = True
Next
End Sub
Sub CalcolaRitardiEstratti(RitardoEstratti,aRuote,aPosizioni)
Dim IdEstr
Dim Flag
Dim Estrazione
Dim r,e,n
Dim EstrattoSingolo
For IdEstr = 1 To EstrazioneFin
If GetEstrazioneCompleta(IdEstr,Estrazione) Then
Flag = True
For r = 1 To 10
If aRuote(r) Then
If Estrazione(r,1) = 0 Then
Flag = False
Else
For e = 1 To 5
If aPosizioni(e) Then
EstrattoSingolo = Estrazione(r,e)
RitardoEstratti(EstrattoSingolo) = - 1
End If
Next
End If
End If
Next
If Flag Then
For n = 1 To 90
RitardoEstratti(n) = RitardoEstratti(n) + 1
Next
End If
End If
Next
End Sub
