Cinquine non concluse

Marcorun · 28 Agosto 2021

Ciao Cinzia,ciao a tutti,,,è molto interessante questo script......mi/ti chiedevo se potesse essere fattibile qualcosa di simile da applicare al 10elotto serale......

Cinzia27 · 28 Agosto 2021

Non conosco 10elotto serale. In questo momento ho Spaziometria impegnato a far girare uno script di Joe.
Quando avrà completato l' esecuzione, se vi sono le istruzioni adatte proverò.
Ciao e grazie per l' interesse verso lo script cinquine non concluse

Alien. · 28 Agosto 2021

Ciao Cinzia ,informazioni per il 10elotto serale:

Che cos'è il 10eLotto e come si gioca

Il 10eLotto è un gioco legato al gioco del Lotto e nato il 28 luglio 2009. Per partecipare si scelgono da un minimo di 1 a un massimo di 10 numeri da 1 a 90.

www.estrazionedellotto.it

Come si vince al 10 e lotto , Ho vinto al 10 e lotto , quanto ho vinto al 10 e lotto

Come si vince al 10 e lotto ogni 5 minuti. Ho vinto al 10 e lotto , quanto ho vinto al 10 e lotto

www.10-e-lotto-ogni-5-minuti.com

10eLotto: ecco i giorni delle estrazioni e quando giocare

Datasport.it offre ai propri lettori il servizio relativo al 10eLotto, altra nuova proposta targata Lottomatica.

www.datasport.it

Cinzia27 · 28 Agosto 2021

Grazie, Alien

Marcorun · 29 Agosto 2021

Ho provato a modificare qualcosa io....ma vista la mia scarsa competenza ,mi è venuto fuori questo....funziona ma non si vede l'utilità. .bisognerebbe fare in modo che cerchi le combinazioni non concluse a cui manca più di un numero!....

Scrivi "Prima della conclusione della cinquina (Cinzia) x 10eLotto?" & Chr(10)
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub Main()
ImpostaArchivio10ELotto(1)
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n11(1),n12(1),n13(1),n14(1),n15(1),n16(1),n17(1),n18(1),n19(1),n20(1),nu(20),nr(20)
Dim s(20)
fin = EstrazioneFinDL
ini = EstrazioneFinDL - 100
Scrivi "Estrazione finale " & Fin:Scrivi
For es = ini To fin

Messaggio(es)
'For r = 1 To 11
'If r = 11 Then r = 12

'ru(1) = r

n1(1) = EstrattoDL(es,1)
n2(1) = EstrattoDL(es,2)
n3(1) = EstrattoDL(es,3)
n4(1) = EstrattoDL(es,4)
n5(1) = EstrattoDL(es,5)
n6(1) = EstrattoDL(es,6)
n7(1) = EstrattoDL(es,7)
n8(1) = EstrattoDL(es,8)
n9(1) = EstrattoDL(es,9)
n10(1) = EstrattoDL(es,10)
n11(1) = EstrattoDL(es,11)
n12(1) = EstrattoDL(es,12)
n13(1) = EstrattoDL(es,13)
n14(1) = EstrattoDL(es,14)
n15(1) = EstrattoDL(es,15)
n16(1) = EstrattoDL(es,16)
n17(1) = EstrattoDL(es,17)
n18(1) = EstrattoDL(es,18)
n19(1) = EstrattoDL(es,19)
n20(1) = EstrattoDL(es,20)
nr(1) = n1(1)
nr(2) = n2(1)
nr(3) = n3(1)
nr(4) = n4(1)
nr(5) = n5(1)
nr(6) = n6(1)
nr(7) = n7(1)
nr(8) = n8(1)
nr(9) = n9(1)
nr(10) = n10(1)
nr(11) = n11(1)
nr(12) = n12(1)
nr(13) = n13(1)
nr(14) = n14(1)
nr(15) = n15(1)
nr(16) = n16(1)
nr(17) = n17(1)
nr(18) = n18(1)
nr(19) = n19(1)
nr(20) = n20(1)
fra = SerieFreqDL(es + 1,fin - 1,nr,1)
'If fra>15 Then
ex = es + 1
If ex <= fin Then
s(1) = SeriePrimaDL(ex,fin - 1,n1,1)
s(2) = SeriePrimaDL(ex,fin - 1,n2,1)
s(3) = SeriePrimaDL(ex,fin - 1,n3,1)
s(4) = SeriePrimaDL(ex,fin - 1,n4,1)
s(5) = SeriePrimaDL(ex,fin - 1,n5,1)
s(6) = SeriePrimaDL(ex,fin - 1,n6,1)
s(7) = SeriePrimaDL(ex,fin - 1,n7,1)
s(8) = SeriePrimaDL(ex,fin - 1,n8,1)
s(9) = SeriePrimaDL(ex,fin - 1,n9,1)
s(10) = SeriePrimaDL(ex,fin - 1,n10,1)
s(11) = SeriePrimaDL(ex,fin - 1,n11,1)
s(12) = SeriePrimaDL(ex,fin - 1,n12,1)
s(13) = SeriePrimaDL(ex,fin - 1,n13,1)
s(14) = SeriePrimaDL(ex,fin - 1,n14,1)
s(15) = SeriePrimaDL(ex,fin - 1,n15,1)
s(16) = SeriePrimaDL(ex,fin - 1,n16,1)
s(17) = SeriePrimaDL(ex,fin - 1,n17,1)
s(18) = SeriePrimaDL(ex,fin - 1,n18,1)
s(19) = SeriePrimaDL(ex,fin - 1,n19,1)
s(20) = SeriePrimaDL(ex,fin - 1,n20,1)
OrdinaMatrice s,1
If s(1) = 0 And s(2) > 0 Then
'If s(5)=0 Or s(4)=0 Or s(3)=0 Or s(2)=0 Or s(1)=0 Then
rt = fin - es
Scrivi es & " " & StringaEstrattiDL(es) & " " & FormatSpace(rt,9,1) & " ---> ",0,0
frr1 = SerieFreqDL(es + 1,fin - 1,n1,1)
frr2 = SerieFreqDL(es + 1,fin - 1,n2,1)
frr3 = SerieFreqDL(es + 1,fin - 1,n3,1)
frr4 = SerieFreqDL(es + 1,fin - 1,n4,1)
frr5 = SerieFreqDL(es + 1,fin - 1,n5,1)
frr6 = SerieFreqDL(es + 1,fin - 1,n6,1)
frr7 = SerieFreqDL(es + 1,fin - 1,n7,1)
frr8 = SerieFreqDL(es + 1,fin - 1,n8,1)
frr9 = SerieFreqDL(es + 1,fin - 1,n9,1)
frr10 = SerieFreqDL(es + 1,fin - 1,n10,1)
frr11 = SerieFreqDL(es + 1,fin - 1,n11,1)
frr12 = SerieFreqDL(es + 1,fin - 1,n12,1)
frr13 = SerieFreqDL(es + 1,fin - 1,n13,1)
frr14 = SerieFreqDL(es + 1,fin - 1,n14,1)
frr15 = SerieFreqDL(es + 1,fin - 1,n15,1)
frr16 = SerieFreqDL(es + 1,fin - 1,n16,1)
frr17 = SerieFreqDL(es + 1,fin - 1,n17,1)
frr18 = SerieFreqDL(es + 1,fin - 1,n18,1)
frr19 = SerieFreqDL(es + 1,fin - 1,n19,1)
frr20 = SerieFreqDL(es + 1,fin - 1,n20,1)
If frr1 > 0 Then Scrivi Format2(n1(1)) & " ",0,0
If frr2 > 0 Then Scrivi Format2(n2(1)) & " ",0,0
If frr3 > 0 Then Scrivi Format2(n3(1)) & " ",0,0
If frr4 > 0 Then Scrivi Format2(n4(1)) & " ",0,0
If frr5 > 0 Then Scrivi Format2(n5(1)) & " ",0,0
If frr6 > 0 Then Scrivi Format2(n6(1)) & " ",0,0
If frr7 > 0 Then Scrivi Format2(n7(1)) & " ",0,0
If frr8 > 0 Then Scrivi Format2(n8(1)) & " ",0,0
If frr9 > 0 Then Scrivi Format2(n9(1)) & " ",0,0
If frr10 > 0 Then Scrivi Format2(n10(1)) & " ",0,0
If frr11 > 0 Then Scrivi Format2(n11(1)) & " ",0,0
If frr12 > 0 Then Scrivi Format2(n12(1)) & " ",0,0
If frr13 > 0 Then Scrivi Format2(n13(1)) & " ",0,0
If frr14 > 0 Then Scrivi Format2(n14(1)) & " ",0,0
If frr15 > 0 Then Scrivi Format2(n15(1)) & " ",0,0
If frr16 > 0 Then Scrivi Format2(n16(1)) & " ",0,0
If frr17 > 0 Then Scrivi Format2(n17(1)) & " ",0,0
If frr18 > 0 Then Scrivi Format2(n18(1)) & " ",0,0
If frr19 > 0 Then Scrivi Format2(n19(1)) & " ",0,0
If frr20 > 0 Then Scrivi Format2(n20(1)) & " ",0,0

fr1 = SerieFreqDL(fin,fin,n1,1)
fre1 = SerieFreqDL(es + 1,fin - 1,n1,1)
If fr1 > 0 And fre1 = 0 Then usc = usc + 1: ColoreTesto 2:Scrivi " " & Format2(n1(1)) & " ",1,0
If fr1 > 0 And fre1 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n1(1)) & " ",0,0

fr2 = SerieFreqDL(fin,fin,n2,1)
fre2 = SerieFreqDL(es + 1,fin - 2,n2,1)
If fr2 > 0 And fre2 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n2(1)) & " ",1,0
If fr2 > 0 And fre2 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n2(1)) & " ",0,0

fr3 = SerieFreqDL(fin,fin,n3,1)
fre3 = SerieFreqDL(es + 1,fin - 1,n3,1)
If fr3 > 0 And fre3 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n3(1)) & " ",1,0
If fr3 > 0 And fre3 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n3(1)) & " ",0,0

fr4 = SerieFreqDL(fin,fin,n4,1)
fre4 = SerieFreqDL(es + 1,fin - 1,n4,1)
If fr4 > 0 And fre4 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n4(1)) & " ",1,0
If fr4 > 0 And fre4 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n4(1)) & " ",0,0

fr5 = SerieFreqDL(fin,fin,n5,1)
fre5 = SerieFreqDL(es + 1,fin - 1,n5,1)
If fr5 > 0 And fre5 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n5(1)) & " ",1,0
If fr5 > 0 And fre5 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n5(1)) & " ",0,0

fr6 = SerieFreqDL(fin,fin,n6,1)
fre6 = SerieFreqDL(es + 1,fin - 1,n6,1)
If fr6 > 0 And fre6 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n6(1)) & " ",1,0
If fr6 > 0 And fre6 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n6(1)) & " ",0,0

fr7 = SerieFreqDL(fin,fin,n7,1)
fre7 = SerieFreqDL(es + 1,fin - 1,n7,1)
If fr7 > 0 And fre7 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n7(1)) & " ",1,0
If fr7 > 0 And fre7 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n7(1)) & " ",0,0

fr8 = SerieFreqDL(fin,fin,n8,1)
fre8 = SerieFreqDL(es + 1,fin - 1,n8,1)
If fr8 > 0 And fre8 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n8(1)) & " ",1,0
If fr8 > 0 And fre8 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n8(1)) & " ",0,0

fr9 = SerieFreqDL(fin,fin,n9,1)
fre9 = SerieFreqDL(es + 1,fin - 1,n9,1)
If fr9 > 0 And fre9 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n9(1)) & " ",1,0
If fr9 > 0 And fre9 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n9(1)) & " ",0,0

fr10 = SerieFreqDL(fin,fin,n10,1)
fre10 = SerieFreqDL(es + 1,fin - 1,n10,1)
If fr10 > 0 And fre10 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n10(1)) & " ",1,0
If fr10 > 0 And fre10 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n10(1)) & " ",0,0

fr11 = SerieFreqDL(fin,fin,n11,1)
fre11 = SerieFreqDL(es + 1,fin - 1,n11,1)
If fr11 > 0 And fre11 = 0 Then usc = usc + 1: ColoreTesto 2:Scrivi " " & Format2(n11(1)) & " ",1,0
If fr11 > 0 And fre11 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n11(1)) & " ",0,0

fr12 = SerieFreqDL(fin,fin,n12,1)
fre12 = SerieFreqDL(es + 1,fin - 2,n12,1)
If fr12 > 0 And fre12 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n12(1)) & " ",1,0
If fr12 > 0 And fre12 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n12(1)) & " ",0,0

fr13 = SerieFreqDL(fin,fin,n13,1)
fre13 = SerieFreqDL(es + 1,fin - 1,n13,1)
If fr13 > 0 And fre13 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n13(1)) & " ",1,0
If fr13 > 0 And fre13 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n13(1)) & " ",0,0

fr14 = SerieFreqDL(fin,fin,n14,1)
fre14 = SerieFreqDL(es + 1,fin - 1,n14,1)
If fr14 > 0 And fre14 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n14(1)) & " ",1,0
If fr14 > 0 And fre14 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n14(1)) & " ",0,0

fr15 = SerieFreqDL(fin,fin,n15,1)
fre15 = SerieFreqDL(es + 1,fin - 1,n15,1)
If fr15 > 0 And fre15 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n15(1)) & " ",1,0
If fr15 > 0 And fre15 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n15(1)) & " ",0,0

fr16 = SerieFreqDL(fin,fin,n16,1)
fre16 = SerieFreqDL(es + 1,fin - 1,n16,1)
If fr16 > 0 And fre16 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n16(1)) & " ",1,0
If fr16 > 0 And fre16 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n16(1)) & " ",0,0

fr17 = SerieFreqDL(fin,fin,n17,1)
fre17 = SerieFreqDL(es + 1,fin - 1,n17,1)
If fr17 > 0 And fre17 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n17(1)) & " ",1,0
If fr17 > 0 And fre17 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n17(1)) & " ",0,0

fr18 = SerieFreqDL(fin,fin,n18,1)
fre18 = SerieFreqDL(es + 1,fin - 1,n18,1)
If fr18 > 0 And fre18 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n18(1)) & " ",1,0
If fr18 > 0 And fre18 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n18(1)) & " ",0,0

fr19 = SerieFreqDL(fin,fin,n19,1)
fre19 = SerieFreqDL(es + 1,fin - 1,n19,1)
If fr19 > 0 And fre19 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n19(1)) & " ",1,0
If fr19 > 0 And fre19 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n19(1)) & " ",0,0

fr20 = SerieFreqDL(fin,fin,n20,1)
fre20 = SerieFreqDL(es + 1,fin - 1,n20,1)
If fr20 > 0 And fre20 = 0 Then usc = usc + 1:ColoreTesto 2:Scrivi " " & Format2(n20(1)) & " ",1,0
If fr20 > 0 And fre20 > 0 Then usc = usc + 1:ColoreTesto 0:Scrivi " " & Format2(n20(1)) & " ",0,0
ColoreTesto 0:
Scrivi
End If
End If
'End If
'Next
Next
Scrivi usc

End Sub

mina10 · 29 Agosto 2021

Alien. ha scritto:

Bellissima questa immagine

mina10 · 29 Agosto 2021

Buona domenica , CINZIA ,potresti aggiornare quando puoi come fai tu
gli script so che sono importanti ma io non li capisco ,

grazie

-un saluto a tutti.

Alien. · 29 Agosto 2021

ATTENZIONE MINA VAGANTE.

Grazie mina , per fortuna che abbiamo Cinzia che ci risolve i .....problemi.

Alien. · 29 Agosto 2021

Ciao marcorun mi spieghi un po' lo script, grazie

Estrazione finale 9969 data.........??

9946 07.11.12.15.17.19.21.24.28.29.34.38.39.60.61.63.68.76.80.86 23 ---> 07 11 12 15 17 19 21 24 28 29 34 38 39 60 61 68 76 80 86 12 38 39
9952 08.09.16.21.25.26.35.36.37.42.43.47.49.54.59.69.70.74.78.85 17 ---> 08 09 16 21 25 26 35 36 37 42 47 49 54 59 69 70 74 78 85 09 26 42 49 54 59
9957 03.04.14.15.18.22.23.24.26.28.35.40.47.54.55.76.78.83.86.87 12 ---> 03 04 14 15 18 23 24 26 28 35 40 47 54 55 76 78 83 86 87 22 23 26 54
9958 04.06.08.10.13.14.19.32.34.44.49.52.54.60.61.73.80.82.85.87 11 ---> 04 06 08 10 13 14 19 32 34 44 52 54 60 61 73 80 82 85 87 32 49 52 54 82
9959 01.02.08.12.16.20.21.27.29.38.40.50.52.56.69.71.79.81.83.89 10 ---> 01 02 08 12 16 20 27 29 38 40 50 52 56 69 71 79 81 83 89 02 12 20 38 52 79
24

Marcorun · 29 Agosto 2021

Lo script è quello di Cinzia.....io ho provato a modificarlo x il 10elotto, già è qualcosa di buono che funziona......chiedere a me la spiegazione della struttura dello script è davvero troppo ...se fossi in grado di spiegartelo sarei sicuramente in grado di costruirmeli da solo

Alien. · 29 Agosto 2021

Acc........hai ragione chiedo scusa a Cinzia ,ma a forza di girare per il forum perdo il filo del discorso........Cinzia puoi spiegarmi ,grazie.

mina10 · 29 Agosto 2021

Alien. ha scritto:
ATTENZIONE MINA VAGANTE.

Grazie mina , per fortuna che abbiamo Cinzia che ci risolve i .....problemi.

Nooo dai è uno scherzo

questo filmato

terribile questo se’fatto male

ALIEN IO SBIRCIO IN FORUM PER EVENTUALI CONVERGENZE E CINZIA È di GRANDE AIUTO
QUINDI GRAZIE

MOLTE

Alien. · 29 Agosto 2021

CIAO mina ma credo di no è stato lo spostamento d'aria che lo ha lanciato a terra ma se non sa fare 2+2 quello è il risultato..........

Cinzia27 · 29 Agosto 2021

Gentilissimi,
ho fatto qualche modifica allo script di Marcorun che ringrazio perché mi è servito da guida.
Occorre però controllare, perché ho più di un dubbio.

Ecco i parametri che ho usato ( che si possono assolutamente cambiare senza alterare lo script)

Condizione 1
fra = SerieFreqDL(es + 1,fin - 1,nr,7)'frequenza sorte ho messo 7 cioè settina perché per sorti inferiori non mi dava nulla
If fra=0 Then' se la frequenza è 0, ossia se non è uscita la sorte impostata ( settina) allora faccio tutto il resto sennò niente
Significa se non sono ancora usciti sette numeri tutti insieme

Condizione 2
Poi qui ho lasciato il parametro di Macrorun
If s(1) = 0 And s(2) > 0 Then
Che significa se ad oggi di quella ventina sono usciti 19 numeri su 20 numeri allora faccio tutto il resto sennò niente

Questo è l' output
Abbiamo da una parte la ventina che rispetta le condizioni, il ritardo e i numeri usciti ( in grassetto) all' ultima estrazione

Estrazione finale 9970

9952 08.09.16.21.25.26.35.36.37.42.43.47.49.54.59.69.70.74.78.85 18 ---> 09 35 36 47 54 78
9959 01.02.08.12.16.20.21.27.29.38.40.50.52.56.69.71.79.81.83.89 11 ---> 01
7

Per cortesia, fate un controllo approfondito su questi 2 casi,io so poco di 10lotto voi ne capite di più.

Cinzia27 · 29 Agosto 2021

Dimenticavo, ho letto dai link indicati da Alien ma non ci ho capito granché. A quale delle tipologia appartiene questo script, lotto serale, lotto immediato, ecc?

Marcorun · 29 Agosto 2021

Grazie..l' ho provato i dubbi restano..è difficile capire l'utilità...che numeri giocheresti?
Bisognerebbe almeno isolare una decina da mettere in gioco....forse il 10elotto è troppo diverso dal lotto

Cinzia27 · 29 Agosto 2021

Ciao, Marcorun. Ma le due righe di output che ho postato sono giuste ?
Però anche fossero giusti i casi a volte sono zero. Come dici tu, il 10lotto è troppo diverso dal lotto, là ci sono 5 numeri qua 20.
Direi di optare per un' altra ricerca.

Alien. · 29 Agosto 2021

Proviamo a trovare 2 decine che si combinano più spesso che danno 7/8/9/.....10 punti ed ogni quanto escono.......

Cinzia27 · 29 Agosto 2021

Alien, sto provando un' altra soluzione, poi mi direte.

Cinzia27 · 29 Agosto 2021

Cinzia27 ha scritto:
Dimenticavo, ho letto dai link indicati da Alien ma non ci ho capito granché. A quale delle tipologia appartiene questo script, lotto serale, lotto immediato, ecc?

Mi potete rispondere?
Grazie

Cinquine non concluse

Advanced Member >GOLD<

Premium Member

Advanced Premium Member

Premium Member

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >GOLD<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Premium Member

Advanced Member >GOLD<

Premium Member

Advanced Premium Member

Premium Member

Premium Member