C
codicebinario
Guest
°
SUERTE !!!!
SUERTE !!!!
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
R
Roby
Guest
Ciao Arte.. questo script calcola solo l'ambata
e l'ambo secco con gli abbinamenti
ma non calcola la lunghetta per ambo terno etc...
non ne sono capace, sorry
Scrivi : ColoreTesto 0 : Scrivi "All'11°Estrazione del mese 1 Ambata su 2 ruote + 4 Abbinamenti per Ambo"
Sub main
Dim n1(2),n2(2),n3(3),n4(4),pt(2),rt(2),nn(1),pta(1)
pt(2)=1
pta(1)=1
clp=10 'colpi di gioco
rt(1)=9 '1° ruota di gioco
rt(2)=10'2° ruota di gioco
ini=EstrazioneFin -500 'qui' mettere quante estrazioni controllare
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=11 Then '11° estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,9,1)'<<--- questo è il 1^estr. di Torino
b=Estratto(es,10,1)'<<--- questo è il 1^estr. di Venezia
'------------------------------Ambata
nn(1)=Fuori90 (a+b+30)
'------------------------------1^ Ambo
n1(1)=Fuori90 (a+b+30)
n1(2)=1
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+b+30)
n2(2)=29
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+b+30)
n3(2)=35
'------------------------------4^ Ambo
n4(1)=Fuori90 (a+b+30)
n4(2)=53
ImpostaGiocata 1,nn,rt,pta,clp,1
ImpostaGiocata 2,n1,rt,pt,clp,2
ImpostaGiocata 3,n2,rt,pt,clp,2
ImpostaGiocata 4,n3,rt,pt,clp,2
ImpostaGiocata 5,n4,rt,pt,clp,3
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Blackmore
e l'ambo secco con gli abbinamenti
ma non calcola la lunghetta per ambo terno etc...
non ne sono capace, sorry
Scrivi : ColoreTesto 0 : Scrivi "All'11°Estrazione del mese 1 Ambata su 2 ruote + 4 Abbinamenti per Ambo"
Sub main
Dim n1(2),n2(2),n3(3),n4(4),pt(2),rt(2),nn(1),pta(1)
pt(2)=1
pta(1)=1
clp=10 'colpi di gioco
rt(1)=9 '1° ruota di gioco
rt(2)=10'2° ruota di gioco
ini=EstrazioneFin -500 'qui' mettere quante estrazioni controllare
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=11 Then '11° estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,9,1)'<<--- questo è il 1^estr. di Torino
b=Estratto(es,10,1)'<<--- questo è il 1^estr. di Venezia
'------------------------------Ambata
nn(1)=Fuori90 (a+b+30)
'------------------------------1^ Ambo
n1(1)=Fuori90 (a+b+30)
n1(2)=1
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+b+30)
n2(2)=29
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+b+30)
n3(2)=35
'------------------------------4^ Ambo
n4(1)=Fuori90 (a+b+30)
n4(2)=53
ImpostaGiocata 1,nn,rt,pta,clp,1
ImpostaGiocata 2,n1,rt,pt,clp,2
ImpostaGiocata 3,n2,rt,pt,clp,2
ImpostaGiocata 4,n3,rt,pt,clp,2
ImpostaGiocata 5,n4,rt,pt,clp,3
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Blackmore
DjNomade
Advanced Member >PLATINUM PLUS<
Ciao Black mi hai appena anticipato.. hihih
ColoreTesto 1 :Scrivi "----------------------11° del mese TORINO-VENEZIA-- ARTEMISIO--",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
Scrivi
Sub main()
Dim posta(5),poste(5),post(5)
Dim ruote(5)
Dim am(10),am1(10),am2(10)
posta(1)=2
posta(2)=1
poste(2)=2
post(2)=1
post(3)=1
post(4)=0.5
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-1000
For es=ini To fin
If IndiceMensile(es)=11 Then
a=Fuori90(Estratto(es,9,1)+Estratto(es,10,1)+30)'ambata
Scrivi
ColoreTesto 2 :Scrivi "----------------------11° del mese TORINO-VENEZIA-- ARTEMISIO------------------------",1
Scrivi
ruote(1)=9
ruote(2)=10
am(1)=a
ImpostaGiocata 1,am,ruote,posta,10,2
am1(1)=a
am1(2)=1
ImpostaGiocata 2,am1,ruote,poste,10,2
am1(1)=a
am1(2)=29
ImpostaGiocata 3,am1,ruote,poste,10,2
am1(1)=a
am1(2)=35
ImpostaGiocata 4,am1,ruote,poste,10,2
am1(1)=a
am1(2)=53
ImpostaGiocata 5,am1,ruote,poste,10,2
am2(1)=a
am2(2)=1
am2(3)=29
am2(4)=35
am2(5)=53
ImpostaGiocata 6,am2,ruote,post,12,3
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
ColoreTesto 1 :Scrivi "----------------------11° del mese TORINO-VEBEZIA-- ARTEMISIO--",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
End Sub
«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
ColoreTesto 1 :Scrivi "----------------------11° del mese TORINO-VENEZIA-- ARTEMISIO--",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
Scrivi
Sub main()
Dim posta(5),poste(5),post(5)
Dim ruote(5)
Dim am(10),am1(10),am2(10)
posta(1)=2
posta(2)=1
poste(2)=2
post(2)=1
post(3)=1
post(4)=0.5
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-1000
For es=ini To fin
If IndiceMensile(es)=11 Then
a=Fuori90(Estratto(es,9,1)+Estratto(es,10,1)+30)'ambata
Scrivi
ColoreTesto 2 :Scrivi "----------------------11° del mese TORINO-VENEZIA-- ARTEMISIO------------------------",1
Scrivi
ruote(1)=9
ruote(2)=10
am(1)=a
ImpostaGiocata 1,am,ruote,posta,10,2
am1(1)=a
am1(2)=1
ImpostaGiocata 2,am1,ruote,poste,10,2
am1(1)=a
am1(2)=29
ImpostaGiocata 3,am1,ruote,poste,10,2
am1(1)=a
am1(2)=35
ImpostaGiocata 4,am1,ruote,poste,10,2
am1(1)=a
am1(2)=53
ImpostaGiocata 5,am1,ruote,poste,10,2
am2(1)=a
am2(2)=1
am2(3)=29
am2(4)=35
am2(5)=53
ImpostaGiocata 6,am2,ruote,post,12,3
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
ColoreTesto 1 :Scrivi "----------------------11° del mese TORINO-VEBEZIA-- ARTEMISIO--",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
End Sub
«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
R
Roby
Guest
Dj il tuo è di sicuro migliore del mio
Io li modifico, tu, essendo Bravissimo........ Li Crei dal nulla 
Blackmore
Io li modifico
, tu, essendo Bravissimo........ Li Crei dal nulla Blackmore
se posso, metto anche la mia variante... con un "trucchetto" per gli abbinamenti.
le righe sottostanti (presenti nello script) possono essere di aiuto nel caso in cui si debbano accoppiare x numeri all'ambata/capogioco, evitandovi così di scrivere ogni singola giocata d'ambo.
ciauz
Fortuna non omnibus aeque.
Codice:
Sub main()
Dim rt(2),pte(1),pta(2),am(1),ambo(4),nr(4),nn(5)
estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini=EstrazioneFin-estr
fin=EstrazioneFin
For es=ini To fin
If IndiceMensile(es)=11 Then
Messaggio es
pte(1)=1
pta(2)=1
rt(1)=9
rt(2)=10
ng=0
am(1)=Fuori90(Estratto(es,9,1)+Estratto(es,10,1)+30)
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clp
nr(1)=1
nr(2)=29
nr(3)=35
nr(4)=53
For x=1 To 4 '<=== totale degli accoppiamenti x ambo
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
nn(1)=am(1)
nn(2)=1
nn(3)=29
nn(4)=35
nn(5)=53
ng=ng+1
ImpostaGiocata ng,nn,rt,pta,clp
co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi
Gioca es
End If
Next
ScriviResoconto
End Suble righe sottostanti (presenti nello script) possono essere di aiuto nel caso in cui si debbano accoppiare x numeri all'ambata/capogioco, evitandovi così di scrivere ogni singola giocata d'ambo.
Codice:
nr(1)=1
nr(2)=29
nr(3)=35
nr(4)=53
For x=1 To 4 '<=== totale degli accoppiamenti x ambo
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
NextFortuna non omnibus aeque.
R
Roby
Guest
Grazie ragazzi,rientro solo ora da un tour de force lavorativo!!
Stasera con calma comincero' a far girare gli script e vediamo come si puo' fare....se qualcuno avesse idee e suggerimenti ben venga!!!!lo scopo e' sempre e solo 1....ingropparsi LOTTOLADRA !!!!
CIAO.[
][}]
SUERTE !!!!
Stasera con calma comincero' a far girare gli script e vediamo come si puo' fare....se qualcuno avesse idee e suggerimenti ben venga!!!!lo scopo e' sempre e solo 1....ingropparsi LOTTOLADRA !!!!
CIAO.
[][}]SUERTE !!!!
R
Roby
Guest
Allora .....questo e' il resoconto del metodo su' esposto,facendo girare il listato di DJNOMADE con un set di ricerca di 250 estrazioni.
RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 114 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 45 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 39,47 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Giocate in corso : 1 | | CA | | | | | | | CA | | | | | | | CA | | |
| Giocate terminate : 113 | | FI | | | | | | | FI | | | | | | | FI | | |
| Bollette giocate : 2.232 | | GE | | | | | | | GE | | | | | | | GE | | |
| Bollette vincenti : 62 | | MI | | | | | | | MI | | | | | | | MI | | |
| Attesa media : 5 | | NA | | | | | | | NA | | | | | | | NA | | |
| Spesa : 5.066,00 € | | PA | | | | | | | PA | | | | | | | PA | | |
| Vincita : 9.492,99 € | | RM | | | | | | | RM | | | | | | | RM | | |
| Guadagno : 4.426,99 € | | TO | 19| 17| | | | | TO |19,59|44,74| | | | | TO | 114| |
| Perc. Rendimento : 87,386 % | | VE | 11| 21| 3| | | | VE |11,34|55,26| 100| | | | VE | 114| |
| Mass. Esposizione : 534,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 97 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 38 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su ruota : 3
SUERTE !!!!
RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 114 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 45 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 39,47 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Giocate in corso : 1 | | CA | | | | | | | CA | | | | | | | CA | | |
| Giocate terminate : 113 | | FI | | | | | | | FI | | | | | | | FI | | |
| Bollette giocate : 2.232 | | GE | | | | | | | GE | | | | | | | GE | | |
| Bollette vincenti : 62 | | MI | | | | | | | MI | | | | | | | MI | | |
| Attesa media : 5 | | NA | | | | | | | NA | | | | | | | NA | | |
| Spesa : 5.066,00 € | | PA | | | | | | | PA | | | | | | | PA | | |
| Vincita : 9.492,99 € | | RM | | | | | | | RM | | | | | | | RM | | |
| Guadagno : 4.426,99 € | | TO | 19| 17| | | | | TO |19,59|44,74| | | | | TO | 114| |
| Perc. Rendimento : 87,386 % | | VE | 11| 21| 3| | | | VE |11,34|55,26| 100| | | | VE | 114| |
| Mass. Esposizione : 534,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 97 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 38 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su ruota : 3
SUERTE !!!!
R
Roby
Guest
...questo e' quello di BLACKMORE che a differenza di quello di DJNOMADE gioca solo le ambate e gli ambi,stesso range di ricerca :250 estrazioni.
Non mi sembra malaccio.........
Casi esaminati : 95 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 33 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 34,74 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Giocate in corso : 4 | | CA | | | | | | | CA | | | | | | | CA | | |
| Giocate terminate : 91 | | FI | | | | | | | FI | | | | | | | FI | | |
| Bollette giocate : 2.026 | | GE | | | | | | | GE | | | | | | | GE | | |
| Bollette vincenti : 33 | | MI | | | | | | | MI | | | | | | | MI | | |
| Attesa media : 6 | | NA | | | | | | | NA | | | | | | | NA | | |
| Spesa : 2.026,00 € | | PA | | | | | | | PA | | | | | | | PA | | |
| Vincita : 4.163,93 € | | RM | | | | | | | RM | | | | | | | RM | | |
| Guadagno : 2.137,93 € | | TO | 10| 9| | | | | TO | 20|52,94| | | | | TO | 95| |
| Perc. Rendimento : 105,525 % | | VE | 6| 8| | | | | VE | 12|47,06| | | | | VE | 95| |
| Mass. Esposizione : 242,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 50 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 17 | +----------------------------------+ +----------------------------------+ +----------------------------------+
|
CIAO.
SUERTE !!!!
Non mi sembra malaccio.........
Casi esaminati : 95 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 33 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 34,74 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Giocate in corso : 4 | | CA | | | | | | | CA | | | | | | | CA | | |
| Giocate terminate : 91 | | FI | | | | | | | FI | | | | | | | FI | | |
| Bollette giocate : 2.026 | | GE | | | | | | | GE | | | | | | | GE | | |
| Bollette vincenti : 33 | | MI | | | | | | | MI | | | | | | | MI | | |
| Attesa media : 6 | | NA | | | | | | | NA | | | | | | | NA | | |
| Spesa : 2.026,00 € | | PA | | | | | | | PA | | | | | | | PA | | |
| Vincita : 4.163,93 € | | RM | | | | | | | RM | | | | | | | RM | | |
| Guadagno : 2.137,93 € | | TO | 10| 9| | | | | TO | 20|52,94| | | | | TO | 95| |
| Perc. Rendimento : 105,525 % | | VE | 6| 8| | | | | VE | 12|47,06| | | | | VE | 95| |
| Mass. Esposizione : 242,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 50 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 17 | +----------------------------------+ +----------------------------------+ +----------------------------------+
|
CIAO.
SUERTE !!!!
R
Roby
Guest
Grazie a tutti!!!!!!il metodo e' stato spedito alla mailing list...grazie a DJNOMADE e BLACKMORE per i listati,e sopratutto UN GROSSO GRAZIE a tutti quelli che hanno ringraziato chi ha' lavorato per loro e per il bene comune.....Grazie ancora.
SUERTE !!!!
SUERTE !!!!
R
Roby
Guest
TORINO - VENEZIA
AMBATA 54
AMBI 1.54\29.54\35.54\53.54
LUNGHETTA 1.29.35.53.54
PRONOSTICO MENSILE.
Vediamo come va'...
PS per il gioco di ambo secco preferire 54.29
SUERTE !!!!
AMBATA 54
AMBI 1.54\29.54\35.54\53.54
LUNGHETTA 1.29.35.53.54
PRONOSTICO MENSILE.
Vediamo come va'...
PS per il gioco di ambo secco preferire 54.29
SUERTE !!!!
R
Roby
Guest
quote:Originally posted by mirning
Hai fatto un post proprio . . .
ad' "ARTE" ! [)] ! Grazie ! [^]
e di che MIRNING? Secondo me e' un buon metodo,e con l'aiuto degli script ho' potuto valutarlo e metterlo a disposizione di tutti....tutto qui.
CIAO.
SUERTE !!!!
Ciao Artemisio , grazie per il metodo e grazie a coloro che hanno fatto i listati.
Guardati questa variante con il num. 84 al pèosto dell'1.
Sub Main()
Dim rt(2),pte(1),pta(2),am(1),ambo(4),nr(4),nn(5)
estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp = CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini = EstrazioneFin - estr
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 11 Then
Messaggio es
pte(1) = 1
pta(2) = 1
rt(1) = 9
rt(2) = 10
ng = 0
am(1) = Fuori90(Estratto(es,9,1) + Estratto(es,10,1) + 30)
ng = ng + 1
ImpostaGiocata ng,am,rt,pte,clp
nr(1) = 84
nr(2) = 29
nr(3) = 35
nr(4) = 53
For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
ambo(1) = am(1)
ambo(2) = nr(x)
ng = ng + 1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
nn(1) = am(1)
nn(2) = 84
nn(3) = 29
nn(4) = 35
nn(5) = 53
ng = ng + 1
ImpostaGiocata ng,nn,rt,pta,clp
co = co + 1
Scrivi String(70,"=") & " Caso n° " & co,1
Scrivi
Gioca es
End If
Next
ScriviResoconto
End Sub
con il num. 84 al pèosto dell'1.
Un saluto e buona giornata.
Mauro
YES WE CAN
Guardati questa variante con il num. 84 al pèosto dell'1.
Sub Main()
Dim rt(2),pte(1),pta(2),am(1),ambo(4),nr(4),nn(5)
estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp = CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini = EstrazioneFin - estr
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 11 Then
Messaggio es
pte(1) = 1
pta(2) = 1
rt(1) = 9
rt(2) = 10
ng = 0
am(1) = Fuori90(Estratto(es,9,1) + Estratto(es,10,1) + 30)
ng = ng + 1
ImpostaGiocata ng,am,rt,pte,clp
nr(1) = 84
nr(2) = 29
nr(3) = 35
nr(4) = 53
For x = 1 To 4 '<=== totale degli accoppiamenti x ambo
ambo(1) = am(1)
ambo(2) = nr(x)
ng = ng + 1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
nn(1) = am(1)
nn(2) = 84
nn(3) = 29
nn(4) = 35
nn(5) = 53
ng = ng + 1
ImpostaGiocata ng,nn,rt,pta,clp
co = co + 1
Scrivi String(70,"=") & " Caso n° " & co,1
Scrivi
Gioca es
End If
Next
ScriviResoconto
End Sub
con il num. 84 al pèosto dell'1.
Un saluto e buona giornata.
Mauro
YES WE CAN
R
Roby
Guest
Ciao Mauro e grazie per l'attenzione,pero'.....mi sembra che la percentuale positiva sia scarsa rispetto al metodo giocato solo per ambata e ambo,cio'non toglie che secondo me sia una buona base di pertenza.......forza...proviamo a trovare un algoritmo positivissimo....
Grazie ancora a tutti !!!!
SUERTE !!!!
Grazie ancora a tutti !!!!
SUERTE !!!!
R
Roby
Guest
DIAVOLO[}] DI UN ARTEMISIO !!!!!!!!!Bravo ZAGOR sono felice per te!!!!!
[8D]Ciao.
SUERTE !!!!
] DI UN ARTEMISIO !!!!!!!!!Bravo ZAGOR sono felice per te!!!!![8D]Ciao.
SUERTE !!!!
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 20 giugno 2026Bari9024741475Cagliari7937324427Firenze0756792944Genova1724438922Milano6951282770Napoli0875733522Palermo5842785909Roma8878846853Torino6134655927Venezia3723768986Nazionale7218632233Estrazione Simbolotto
Napoli
2229252443
