Adattare Script x 10elotto serale

[jure]

Nel mio Archivio ho trovato questo listato qualcuno potrebbe Adattarlo per il 10elotto Serale.

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)

ultest = 8830 ' inserite qui il numero indice dell'ultima estrazione

n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For ru1 = 1 To 10
For ru2 = ru1 To 10
Messaggio " Elaboro la ruota n° " & CInt(ru1) & " con la n° " & CInt(ru2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),8) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + " su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
Next
Next
End Sub

 

[Membro cancellato 16574]

Buonanotte ,
Listato Modificato .

Sub Main()
Call ImpostaArchivio10ELotto(01)
Dim som(10,10,90)
Dim estr(2,10)
Dim Val(10,10,90)
Dim amb(90)
'r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,95)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)
ultest = EstrazioniArchivioDL ' inserite qui il numero indice dell'ultima estrazione
n = EstrazioneFinDL
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensileDL(n) = eval(es) And(eval(es) > 0)) _
Or((IndiceMensileDL(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazioneDL(nn) + " al " + DataEstrazioneDL(EstrazioneFinDL)
Messaggio " Elaborazione in corso "
z = 0
For i = 1 To 10
For l = 1 To 10
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 10
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFinDL
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensileDL(m) = eval(es) And(eval(es) > 0)) _
Or((IndiceMensileDL(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 10
estr(1,i) = EstrattoDL(n,i)
estr(2,i) = EstrattoDL(n,i)
Next
For i = 1 To 10
For l = 1 To 10
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensileDL(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFinDL Then k3 = EstrazioneFinDL
For nv = n + 1 To k3
For i = 1 To 10
For j = 1 To 10
For l = 1 To 10
k = EstrattoDL(nv,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 10
For l = 1 To 10
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° + " + CStr(eval(l)) + "° + "
s = s + FormatSpace(CStr(eval(j)),2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + " : " + _
FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
If(som(i,l,j) >= zz) Then
If i < l Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = _
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[jure]

Grazie Magia. Per la previsione finale si potrebbero mettere i numeri a scalare in base alle preferenze es. 15 su 15 - 14 su 15 - 13 su 15 ecc.
ciioe' in base ai mesi inpostati es. 12 su 12 - 11 su 12 - 10 su 12 ecc.

 

[Alien.]

è LO SCRIPT SAREBBE CARINO ANCHE PER IL LOTTO SI PUO' FARE?

 

[jure]

Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.

 

[jure]

Ciao Magia il procedimento secondo la mia intenzione doveva essere lasciato svilupparsi sulle Ruote poi
la statistica doveva essere fatta sull'archivio del 10elotto.
es. 1° Bari + 3° di Milano su Bari 13 su 15 = 87 il risultato dovra' essere fatta la statistica sull'archivio del 10elotto.

 

[Membro cancellato 16574]

Buonanotte,
Salutando gli intervenuti .
Postiamo il listato , modificato , per le sole 1 e 2 posizione .

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,70)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,12)
ultest = EstrazioniArchivio ' inserite qui il numero indice dell'ultima estrazione
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile(n) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For ru1 = 1 To 11
If ru1 = 11 Then ru1 = 12
For ru2 = ru1 To 11
If ru2 = 11 Then ru2 = 12
AvanzamentoElab 01,11,ru1
Messaggio " Elaboro la ruota " & NomeRuota(ru1) & " con la " & NomeRuota(ru2) & " sulla ruota " & NomeRuota(r2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 2
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),10) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(NomeRuota(ru2),10) + " + " + FormatSpace(CStr(eval(j)),2) + " su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
Next
Next
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[jure]

GRAZIE MAGIA
Adesso lo provo .

 

[Alien.]

Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.

acc...perdonami non ho copiato il primo script non me ne ero accorto,grazie.

 

[Alien.]

IL LISTATO PER IL LOTTO ....CREDO..CHE.....SE NON è AGGIORNATO TI DA AMBI E TERNI....,A POI SE AGGIORNI DOPO TI DA SOLO AMBATA DA METTERE IN GIOCO,QUINDI,,,BARA ? HO NON SO INTERPRETARLO ?

 

[jure]

Ciao Magia Si potrebbe ad ogni previsione inserire la quantità' del numero che è
ripetuto ?
Magari sotto o sopra la previsione evidenziare i numeri in base alla quantita'.
es. 90=4 58=4 38=3 26=3 52=3 ecc.
Ti Ringrazio

All'ultima° estrazione del mese per 12 colpi:
Statistica dal 29.10.2016 al 25.03.2017
2° di Bari + 4° di Bari + 89 su Nazionale 5 su 6: 90 in corso=4
4° di Bari + 4° di Cagliari + 61 su Nazionale 5 su 6: 58 in corso=4
4° di Bari + 4° di Firenze + 72 su Nazionale 5 su 6: 79 in corso
1° di Bari + 1° di Palermo + 36 su Nazionale 5 su 6: 35 in corso
2° di Bari + 3° di Torino + 1 su Nazionale 5 su 6: 56 in corso
4° di Bari + 4° di Torino + 4 su Nazionale 5 su 6: 31 in corso
1° di Bari + 4° di Venezia + 14 su Nazionale 5 su 6: 38 in corso=3
2° di Bari + 1° di Venezia + 77 su Nazionale 5 su 6: 26 in corso
5° di Bari + 5° di Nazionale + 3 su Nazionale 5 su 6: 27 in corso
1° di Cagliari + 4° di Cagliari + 53 su Nazionale 5 su 6: 90 in corso
2° di Cagliari + 5° di Cagliari + 44 su Nazionale 5 su 6: 85 in corso
2° di Cagliari + 2° di Firenze + 87 su Nazionale 5 su 6: 77 in corso
3° di Cagliari + 4° di Firenze + 41 su Nazionale 5 su 6: 26 in corso
1° di Cagliari + 3° di Milano + 60 su Nazionale 5 su 6: 66 in corso
3° di Cagliari + 2° di Milano + 86 su Nazionale 5 su 6: 43 in corso
2° di Cagliari + 3° di Palermo + 10 su Nazionale 5 su 6: 61 in corso
5° di Cagliari + 3° di Palermo + 14 su Nazionale 5 su 6: 18 in corso
2° di Cagliari + 1° di Roma + 63 su Nazionale 5 su 6: 52 in corso=3
1° di Cagliari + 3° di Venezia + 40 su Nazionale 5 su 6: 15 in corso
5° di Cagliari + 5° di Venezia + 3 su Nazionale 5 su 6: 26 in corso
1° di Cagliari + 2° di Nazionale + 64 su Nazionale 5 su 6: 79 in corso
5° di Cagliari + 4° di Nazionale + 4 su Nazionale 5 su 6: 83 in corso
5° di Firenze + 5° di Genova + 42 su Nazionale 5 su 6: 76 in corso
2° di Firenze + 1° di Napoli + 68 su Nazionale 5 su 6: 65 in corso
3° di Firenze + 4° di Napoli + 49 su Nazionale 5 su 6: 14 in corso
ecc.