scrignobianco
Super Member >GOLD<
vero... ma erano 2 banconote da 50 euro (100 euro)... vediamo qualche colpo
A volte basta uno script facile per tutti.
- Creatore Discussione Missione Impossibile.
- Data di inizio
Missione Impossibile.
Advanced Member >PLATINUM<
Hai mai pensato di mettere sempre i suoi laterali, come faccio io, quando credo ad una previsione, tanto 2€ in piu' cosa cambia.Dico questo che amme' i laterali non mi fregano piu'.vero... ma erano 2 banconote da 50 euro (100 euro)... vediamo qualche colpo
scrignobianco
Super Member >GOLD<
no a dire il vero no perche' quando sogno i numeri.. quelli sono. Il problema è il quando escono 😅 a volte presto a volte dopo parecchio... Pero', buona idea grazie, ne terro' conto
Missione Impossibile.
Advanced Member >PLATINUM<
Io stasera mi accontento di un solo estratto. Il 66 a Bari.
Missione Impossibile.
Advanced Member >PLATINUM<
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!
Con moderazione!!!
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!
Con moderazione!!!
Missione Impossibile.
Advanced Member >PLATINUM<
Questo e' un resocondo reale del 1° caso a Bari dopo la spia 78 coppia 1.32 con l'uscita del 32 del 8/3/2024 al 2° colpo.
Estr. n. 8970 del 26/2/2015 Ruota: Ba 78 Esito: E 1 Ba; al 14° C
Estr. n. 8987 del 7/4/2015 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 9003 del 14/5/2015 Ruota: Ba 78 Esito: E 1 Ba; al 7° C
Estr. n. 9014 del 9/6/2015 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9036 del 30/7/2015 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9051 del 3/9/2015 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9102 del 31/12/2015 Ruota: Ba 78 Esito: E 1 Ba; al 9° C
Estr. n. 9113 del 26/1/2016 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9150 del 21/4/2016 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9153 del 28/4/2016 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 9212 del 13/9/2016 Ruota: Ba 78 Esito: E 32 Ba; al 5° C
Estr. n. 9258 del 29/12/2016 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9296 del 28/3/2017 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9313 del 6/5/2017 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9340 del 8/7/2017 Ruota: Ba 78 Esito: E 1 Ba; al 17° C
Estr. n. 9354 del 10/8/2017 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9389 del 31/10/2017 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9405 del 7/12/2017 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9466 del 28/4/2018 Ruota: Ba 78 Esito: E 1 Ba; al 6° C
Estr. n. 9474 del 17/5/2018 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9494 del 3/7/2018 Ruota: Ba 78 Esito: E 1 Ba;E 32 Ba; al 4° C
Estr. n. 9503 del 24/7/2018 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9539 del 16/10/2018 Ruota: Ba 78 Esito: E 1 Ba; al 13° C
Estr. n. 9557 del 27/11/2018 Ruota: Ba 78 Esito: E 32 Ba; al 5° C
Estr. n. 9576 del 10/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9578 del 15/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9580 del 19/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9581 del 22/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 9° C
Estr. n. 9583 del 26/1/2019 Ruota: Ba 78 Esito: E 1 Ba; al 7° C
Estr. n. 9612 del 4/4/2019 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9623 del 30/4/2019 Ruota: Ba 78 Esito: E 32 Ba; al 4° C
Estr. n. 9645 del 20/6/2019 Ruota: Ba 78 Esito: E 1 Ba; al 8° C
Estr. n. 9659 del 23/7/2019 Ruota: Ba 78 Esito: E 1 Ba; al 5° C
Estr. n. 9661 del 27/7/2019 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9663 del 1/8/2019 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9669 del 16/8/2019 Ruota: Ba 78 Esito: E 32 Ba; al 4° C
Estr. n. 9702 del 31/10/2019 Ruota: Ba 78 Esito: E 32 Ba; al 7° C
Estr. n. 9721 del 14/12/2019 Ruota: Ba 78 Esito: E 1 Ba; al 17° C
Estr. n. 9742 del 1/2/2020 Ruota: Ba 78 Esito: E 1 Ba; al 3° C
Estr. n. 9756 del 5/3/2020 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9768 del 14/5/2020 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9783 del 18/6/2020 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 9790 del 4/7/2020 Ruota: Ba 78 Esito: E 1 Ba; al 2° C
Estr. n. 9791 del 7/7/2020 Ruota: Ba 78 Esito: E 1 Ba; al 1° C
Estr. n. 9840 del 29/10/2020 Ruota: Ba 78 Esito: E 1 Ba; al 14° C
Estr. n. 9872 del 12/1/2021 Ruota: Ba 78 Esito: E 1 Ba; al 2° C
Estr. n. 9897 del 11/3/2021 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Estr. n. 9907 del 3/4/2021 Ruota: Ba 78 Esito: E 32 Ba; al 6° C
Estr. n. 9919 del 3/5/2021 Ruota: Ba 78 Esito: E 1 Ba; al 10° C
Estr. n. 9952 del 17/7/2021 Ruota: Ba 78 Esito: E 32 Ba; al 11° C
Estr. n. 9957 del 29/7/2021 Ruota: Ba 78 Esito: E 32 Ba; al 6° C
Estr. n. 9960 del 5/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 9968 del 24/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 9970 del 28/8/2021 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 10038 del 3/2/2022 Ruota: Ba 78 Esito: E 32 Ba; al 9° C
Estr. n. 10065 del 7/4/2022 Ruota: Ba 78 Esito: E 32 Ba; al 18° C
Estr. n. 10091 del 7/6/2022 Ruota: Ba 78 Esito: E 32 Ba; al 14° C
Estr. n. 10097 del 21/6/2022 Ruota: Ba 78 Esito: E 32 Ba; al 8° C
Estr. n. 10132 del 10/9/2022 Ruota: Ba 78 Esito: E 32 Ba; al 3° C
Estr. n. 10134 del 15/9/2022 Ruota: Ba 78 Esito: E 32 Ba; al 1° C
Estr. n. 10190 del 24/1/2023 Ruota: Ba 78 Esito: E 32 Ba; al 7° C
Estr. n. 10199 del 14/2/2023 Ruota: Ba 78 Esito: E 1 Ba; al 6° C
Estr. n. 10401 del 8/3/2024 Ruota: Ba 78 Esito: E 32 Ba; al 2° C
Codicebinario
Advanced Member >PLATINUM<
Ora vi faccio un regalo....Batters studialo bene,ha' tutti i titoli per entrare in "FUTURO",x TOON, e' possibile allineare la prima tabella ,dove ci sono in blu le posizioni e sotto gli esiti in rosso?
Il listato prende in esame il numero di estrazioni desiderato e
restituisce quante volte ogni estratto di ogni ruota si è ripetuto
nella prima estrazione successiva, vi dice inoltre, su quali ruote
sono avvenute le ripetizioni e in quali posizioni.
Ritengo sia uno degli script piu belli e utili fatti negli anni da un
vero artista nella compilazione di listati.
Io nell'imputbox ho scelto 216 estrazioni,ma si puo' cambiare...il valore 216 ,a mio avviso ha' il suo perche'...fate le vostre prove.....script di Jesy.
Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
inizio = EstrazioneFin - es
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (2,"-")
Next
End Sub
Il listato prende in esame il numero di estrazioni desiderato e
restituisce quante volte ogni estratto di ogni ruota si è ripetuto
nella prima estrazione successiva, vi dice inoltre, su quali ruote
sono avvenute le ripetizioni e in quali posizioni.
Ritengo sia uno degli script piu belli e utili fatti negli anni da un
vero artista nella compilazione di listati.
Io nell'imputbox ho scelto 216 estrazioni,ma si puo' cambiare...il valore 216 ,a mio avviso ha' il suo perche'...fate le vostre prove.....script di Jesy.
Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
inizio = EstrazioneFin - es
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (2,"-")
Next
End Sub
Missione Impossibile.
Advanced Member >PLATINUM<
Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estr
Codicebinario
Advanced Member >PLATINUM<
Allora ti dico il mio ragionamento.....se andiamo a vedere i ritardi max di un lottrone,abbiamo il 53 a venezia ,vado a memoria...253 estrazioni...sono ritardi di PRESENZA...in realta se vai a calcolare la max di presenza(media) di un ritardatario e' 216 ,pochissime volte si hanno ritardi sopra questa cifra....ed e' per questo che qui,su questo 3d,ho detto,visto e proposto i 2 ritardatari di Ba (presi,e giocati...è bene pure)....ora,la formula del ripetuto su ruota proposto dal listato,NON puo prescindere da questa tesi... (mio parere) liberissimi di fare le Vostre prove.Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estr
Missione Impossibile.
Advanced Member >PLATINUM<
Tipo come questo,ha 20 anni l'ho' tirato fuori da un cd,ancora funzionante.
X Toon mi confermi il tuo 22 MI/PA per vedere le presenze se sono esatte.
Allegati
Codicebinario
Advanced Member >PLATINUM<
Un altro utilissimo listato che, dopo averci chiesto
di quale numero vogliamo sapere tutto sui ritardi in
posizione, ci restituisce per ogni posizione e su ogni ruota
il ritardo attuale e, a fianco quello storico.
Bellissimo e utilissimo.
Sub main()
Dim numero
Dim ritardi(5,10)
Dim storici(5,10)
numero=InputBox("Inserisci il numero per la ricerca.")
If numero="" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If
For r= 1 To 10
For i= 1 To 5
ritardi(i,r)=EstrazioneIni
Next
Next
For n=EstrazioneIni To EstrazioneFin
For r= 1 To 10
p=Posizione(n,r,numero)
If p>0 Then
If n-ritardi(p,r) > storici(p,r) Then storici(p,r)=n-ritardi(p,r)
ritardi(p,r)=n
End If
Next
Next
Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""
For r=1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p= 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next
End Sub
Ora basta regali...voglio ricordare a tutti gli abitanti del 3d,che questi listati sono utilissimi se a priori ci sta'una base di ricerca seria....e "FUTURO" di Batters lo e'...questi listati presi a se' NON fanno vincere una cippa'....anzi vi rimbabiscono ancor di piu' nel "mare" dei numeri....avvisati e mezzi salvati....
di quale numero vogliamo sapere tutto sui ritardi in
posizione, ci restituisce per ogni posizione e su ogni ruota
il ritardo attuale e, a fianco quello storico.
Bellissimo e utilissimo.
Sub main()
Dim numero
Dim ritardi(5,10)
Dim storici(5,10)
numero=InputBox("Inserisci il numero per la ricerca.")
If numero="" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If
For r= 1 To 10
For i= 1 To 5
ritardi(i,r)=EstrazioneIni
Next
Next
For n=EstrazioneIni To EstrazioneFin
For r= 1 To 10
p=Posizione(n,r,numero)
If p>0 Then
If n-ritardi(p,r) > storici(p,r) Then storici(p,r)=n-ritardi(p,r)
ritardi(p,r)=n
End If
Next
Next
Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""
For r=1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p= 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next
End Sub
Ora basta regali...voglio ricordare a tutti gli abitanti del 3d,che questi listati sono utilissimi se a priori ci sta'una base di ricerca seria....e "FUTURO" di Batters lo e'...questi listati presi a se' NON fanno vincere una cippa'....anzi vi rimbabiscono ancor di piu' nel "mare" dei numeri....avvisati e mezzi salvati....
Missione Impossibile.
Advanced Member >PLATINUM<
Questo e' fenomenale Grazie ancora Codicebinario. Viene calcolato dalla prima estrazione?
Missione Impossibile.
Advanced Member >PLATINUM<
Ma anche a voi quando mandate un messaggio esce una riga verde in alto veloce?
scrignobianco
Super Member >GOLD<
convergenza 1 ..10 ba, da sogno non mio, che sto giocando
Missione Impossibile.
Advanced Member >PLATINUM<
Ma vuoi vedere che da questo sogno anche se non tuo ci si beccaconvergenza 1 ..10 ba, da sogno non mio, che sto giocando
Missione Impossibile.
Advanced Member >PLATINUM<
Esce anche il 73 a Napoli caso chiuso
Missione Impossibile.
Advanced Member >PLATINUM<
Esce il 5 a Bari caso chiuso .
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 04 maggio 2024Bari0231815221Cagliari3988840167Firenze3630700641Genova5923612227Milano0517695739Napoli8162824350Palermo7355624518Roma7670016415Torino8255357046Venezia5823612921Nazionale1014014309Estrazione Simbolotto
Milano
3001053211
