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
    martedì 31 marzo 2026
    Bari
    64
    09
    80
    53
    34
    Cagliari
    65
    25
    53
    11
    04
    Firenze
    52
    61
    16
    58
    66
    Genova
    28
    61
    02
    72
    60
    Milano
    40
    87
    27
    22
    05
    Napoli
    28
    17
    30
    29
    37
    Palermo
    65
    15
    79
    20
    52
    Roma
    84
    58
    35
    80
    60
    Torino
    34
    07
    48
    35
    55
    Venezia
    18
    24
    23
    26
    87
    Nazionale
    77
    81
    40
    26
    73
    Estrazione Simbolotto
    Firenze
    06
    16
    22
    20
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto