Novità

aiuto

G

giluge

Super Member >PLATINUM<
chi mi puo' aiutare?

cerco statistiche o script che analizzino per statistica al 10elotto queste serie di numeri da 30 lette verticalmente
grazieeeeeeeeeeeee


1 2 3
4 5 6
7 8 9
10 11 12
13 14 15
16 17 18
19 20 21
22 23 24
25 26 27
28 29 30
31 32 33
34 35 36
37 38 39
40 41 42
43 44 45
46 47 48
49 50 51
52 53 54
55 56 57
58 59 60
61 62 63
64 65 66
67 68 69
70 71 72
73 74 75
76 77 78
79 80 81
82 83 84
85 86 87
88 89 90
 
spiego meglio la richiesta

gradirei uno script che scelga 8-9-10 e piu' numeri facenti parte di una colonna delle suddette verticali
grazie ancora
 
ciao giluge vedi se può esserti di aiuto
Codice: 
Sub MainImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-02-03"
a(02) = "04-05-06"
a(03) = "07-08-09"
a(04) = "10-11-12"
a(05) = "13-14-15" 
a(06) = "16-17-18"
a(07) = "19-20-21"
a(08) = "22-23-24"
a(09) = "24-26-27"
a(10) = "28-29-30"
a(11) = "31-32-33"
a(12) = "34-35-36"
a(13) = "37-38-39"
a(14) = "40-41-42"
a(15) = "43-44-45"
a(16) = "46-47-48"
a(17) = "49-50-51"
a(18) = "52-53-54"
a(19) = "55-56-57"
a(20) = "58-59-60"
a(21) = "61-62-63" 
a(22) = "64-65-66"
a(23) = "67-68-69"
a(24) = "70-71-72"
a(25) = "73-74-75"
a(26) = "76-77-78"
a(27) = "79-80-81"
a(28) = "82-83-84"
a(29) = "85-86-87"
a(30) = "88-89-90"
For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''


ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub
 
errore script

1010 previsto identificatore
linea 1
colonna 32
source errore di compilazione di microsoft vbcript
 
grazie, cosi va bene, grazie tante.

preciso che la statistica la vorrei sulla colonna verticale - sulle 3 colonne verticali
 
a(01) = "01-04-07-10-13-16-19-22-25-28-31-34-37-40-43-46-49-52-55-58-61-64-67-70-73-76-79-82-85-88"

poi 02-05-08-11-14-17-20-23-26-29-32-35-38-41-44-47-50-53-56-59-62-65-68-71-74-77-80-83-86-89

03-06-09-12-15-18-21-24-27-30-33-36-39-42-45-48-51-54-57-60-63-66-69-72-75-78-81-84-87-90
queste le righe
a me interessa sapere quanti numeri di una, quanti della seconda e quanti della 3^
grazie ancora a tutti
e, se possibile magari mettere delle combinazioni piu' probabili
in classe che vi viene meglio
chiedo troppo?

p.s.10elotto 5 m
e quello serale grazie ancora
 
Ultima modifica:
allora potresti usare direttamente spaziometria combinazioni frequenti oppure creare un sistema e salvare le colonne in terzine poi dovresti caricarlo nelle formazioni e fare una statistica
 
keeper ha scritto:
allora potresti usare direttamente spaziometria combinazioni frequenti oppure creare un sistema e salvare le colonne in terzine poi dovresti caricarlo nelle formazioni e fare una statistica
Clicca per espandere...
grazie keeper per laiuto
ma in effetti non cerco statistiche su terzine, ma su tutta la riga dei 30 numeri
purtroppo non so fare come dici di usare direttamente spaziometria....
cmq grazie ugualmente
chissa' se qualcun altro che legge mi vorra' aiutare--------- riferimento puramente a mister baffoblu :)
 
Mi dispiace, ma io mi dedico solo al Lotto classico.

Tutto il resto non mi ha mai interessato veramente.....
 
Baffoblu ha scritto:
Mi dispiace, ma io mi dedico solo al Lotto classico.

Tutto il resto non mi ha mai interessato veramente.....
Clicca per espandere...

prendo atto
e' una statistica, che sia lotto classico o 5m non importa
avevo letto che facevi script a richiesta
mi sono sbagliato allora
forse nel forum passo per un .....
 
giluge ha scritto:
prendo atto
e' una statistica, che sia lotto classico o 5m non importa
avevo letto che facevi script a richiesta
mi sono sbagliato allora
forse nel forum passo per un .....
Clicca per espandere...


1°) - Non mi occupo di 10eLotto.

2°) - Il 10eLotto non mi piace affatto.

3°) - Gli script per il 10eLotto sono leggermente diversi.

4°) - Io faccio script, ma dico sempre : "Se lo so fare......".

5°) - Lo script che chiedi, io non lo so fare.

6°) - Speriamo che hai capito.......
 
keeper ha scritto:
ciao giluge vedi se può esserti di aiuto
Codice: 
Sub MainImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-02-03"
a(02) = "04-05-06"
a(03) = "07-08-09"
a(04) = "10-11-12"
a(05) = "13-14-15" 
a(06) = "16-17-18"
a(07) = "19-20-21"
a(08) = "22-23-24"
a(09) = "24-26-27"
a(10) = "28-29-30"
a(11) = "31-32-33"
a(12) = "34-35-36"
a(13) = "37-38-39"
a(14) = "40-41-42"
a(15) = "43-44-45"
a(16) = "46-47-48"
a(17) = "49-50-51"
a(18) = "52-53-54"
a(19) = "55-56-57"
a(20) = "58-59-60"
a(21) = "61-62-63" 
a(22) = "64-65-66"
a(23) = "67-68-69"
a(24) = "70-71-72"
a(25) = "73-74-75"
a(26) = "76-77-78"
a(27) = "79-80-81"
a(28) = "82-83-84"
a(29) = "85-86-87"
a(30) = "88-89-90"
For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''


ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub
Clicca per espandere...
ciao keeper e altre anime pie

io ho modificato i numeri, le terzine e lo script mi viene, mi da il ritardo sull'ambo
guarda come modificato
Sub Main
ImpostaArchivio10ELotto(2)
Dim a(30)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - 3000
'Scrivi NomeRuota(Ru(1)),1,0
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & EstrazioniArchivioDL(),1,0,6
Scrivi" ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a(01) = "01-04-07"
a(02) = "10-13-16"
a(03) = "19-22-25"
a(04) = "28-31-34"
a(05) = "37-40-43"
a(06) = "46-49-52"
a(07) = "55-58-61"
a(08) = "64-67-70"
a(09) = "73-76-79"
a(10) = "82-85-88"
a(11) = "02-05-08"
a(12) = "11-14-17"
a(13) = "20-23-26"
a(14) = "29-32-35"
a(15) = "38-41-44"
a(16) = "47-50-53"
a(17) = "56-59-62"
a(18) = "65-68-71"
a(19) = "74-77-80"
a(20) = "83-86-89"
a(21) = "03-06-09"
a(22) = "12-15-18"
a(23) = "21-24-27"
a(24) = "30-33-36"
a(25) = "39-42-45"
a(26) = "48-51-54"
a(27) = "57-60-63"
a(28) = "66-69-72"
a(29) = "75-78-81"
a(30) = "84-87-90"


For n = 1 To 30 '''''''''''''''''''''''''il 30 è riferito alla quantità di formazioni da ricercare
Nu = Split("0-" & a(n),"-")
SF = SerieFreqDL(Ini,Fin,Nu,2)
Tot = Tot + SF
SRA = SerieRitardoDL(Ini,fin,nu,2)
''''''''''''''''''''''''''
SFT = SerieFreqDL(Ini,Fin,Nu,3)
TotT = TotT + SFT
SRT = SerieRitardoDL(Ini,fin,nu,3)
''''''''''''''''''''''''''




ColoreTesto 1
Scrivi StringaNumeri(Nu) & " - " & " Pres. Ambo " & Format2(SF) & " - Rit. Ambo : " & Format2(srA) & " Pres. Terno " & Format2(SFT) & " - Rit. Terno : " & Format2(sft),1
ColoreTesto 0
ImpostaGiocataDL n,nu,1,72
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
Call GiocaDL(fin - 72)
ScriviResoconto(True)
TestoInBandaPassante("listato originale joe91 - mike58 modificato da keeper > "),1,3,0
End Sub


chiedo
anziche' fare 30 terzine, si possono fare 3 trentine?

cioe' queste:
01-04-07-10-13-16-19-22-25-28-31-34-37-40-43-46-49-52-55-58-61-64-67-70-73-76-79-82-85-88"
 02-05-08-11-14-17-20-23-26-29-32-35-38-41-44-47-50-53-56-59-62-65-68-71-74-77-80-83-86-89

03-06-09-12-15-18-21-24-27-30-33-36-39-42-45-48-51-54-57-60-63-66-69-72-75-78-81-84-87-90
e cercare la statistica su ambi -terni ecc
oppure solo la sestina?
scusate la mia ignoranza e se non posto in modo che si capisce, il mio quoziente arriva cosi-
grazie e scusatemi
 
Ciao, Giluge, le combinazioni dello script puoi modificarle a tuo piacimento ma in numero di max 10 per combinazione perchè altrimenti il codice GIOCA non roconosce la giocata ( che è max 10 numeri per bolletta ).
Quindi sullo script in oggetto puoi fare tutte le combinazioni che vuoi(max della matrice impostata) ricercare con un max di 10 numeri.

Tuttavia se proprio vuoi fare una ricerca statistica sui tuoi numeri in lnghette anche da 30 numeri prova questa soluzione.
lo script e impostato per il 10 e lotto classico se vuoi il 10 e lotto 5min devi impostare l'archivio con
ImpostaArchivio10ELotto(2)

Ciao.

Codice: 
Sub Main()
 ImpostaArchivio10ELotto(1)
 Dim Nn(30)
 QT = InputBox("Quanti Numeri","Numeri",6)
 ScegliNumeri(Nn)
 Ini = EstrazioniArchivioDL - 20
 Fin = EstrazioniArchivioDL
 Scrivi "........ Da " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
 Scrivi
 Scrivi " Evidenzia numeri giocati sulla combinazione 10 e lotto ",1
 Scrivi"------------------------------------------------------------"
 ColoreTesto 2
 Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
 ColoreTesto 0
 Scrivi"------------------------------------------------------------"
 For Es = Ini To Fin
  tot = 0
  Scrivi DataEstrazioneDL(es) & " ",0,0
  Scrivi "[" & Es & "] ",0,0
  For P = 1 To 20
   ColoreTesto 1
   For x = 1 To Qt
    If EstrattoDL(Es,P) = Nn(x) Then
     ColoreTesto 2
     tot = tot + 1
    End If
   Next
   Scrivi Format2(EstrattoDL(Es,P)),1,0
   ColoreTesto 0
   Scrivi ".",0,0
  Next
  ColoreTesto 7
  Scrivi " - Punteggio max -> " & tot,1
  ColoreTesto 0
 Next
 Scrivi
 Scrivi"--------------------------------------------------------------"
End Sub
 
x mike58
grazie mille
faro' come dici
anche se, aspetto qualche script ed anche con possibilita' di selezionare dei numeri da mettere in gioco, i piu' probabili.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 giugno 2025
    Bari
    76
    01
    50
    74
    87
    Cagliari
    13
    76
    67
    43
    59
    Firenze
    37
    17
    71
    48
    23
    Genova
    54
    58
    44
    48
    46
    Milano
    48
    09
    86
    77
    44
    Napoli
    38
    25
    17
    19
    82
    Palermo
    81
    66
    78
    72
    05
    Roma
    70
    27
    83
    44
    71
    Torino
    79
    86
    53
    03
    89
    Venezia
    78
    18
    33
    79
    38
    Nazionale
    49
    63
    48
    86
    68
    Estrazione Simbolotto
    Napoli
    43
    08
    01
    35
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto