Novità

Adattare Script x 10elotto serale

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio
J

jure

Premium Member
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(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 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
 
Buonanotte ,
Listato Modificato .

Codice: 
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 .
 
Ultima modifica di un moderatore:
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.
 
Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.
 
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.
 
Buonanotte,
Salutando gli intervenuti .
Postiamo il listato , modificato , per le sole 1 e 2 posizione .

Codice: 
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;n2054301 ha scritto:
Ciao Alien lo script All'origine era ideato solo per il lotto io ho chiesto di poterlo
adattare per il 10elotto.
Clicca per espandere...

acc...perdonami non ho copiato il primo script non me ne ero accorto,grazie.
 
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 ?:p
 
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.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 maggio 2026
    Bari
    88
    65
    11
    87
    59
    Cagliari
    05
    64
    45
    80
    74
    Firenze
    37
    56
    25
    19
    36
    Genova
    29
    31
    90
    15
    17
    Milano
    73
    61
    45
    85
    48
    Napoli
    21
    85
    29
    48
    77
    Palermo
    40
    02
    66
    87
    51
    Roma
    23
    68
    57
    60
    26
    Torino
    44
    04
    76
    05
    57
    Venezia
    79
    86
    19
    29
    40
    Nazionale
    33
    54
    75
    39
    63
    Estrazione Simbolotto
    Milano
    27
    16
    30
    21
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto