Novità

A volte basta uno script facile per tutti.

Ti ho aggiunto il secondo numero, perchè dal listato usciva solo l'ambata, vedi se ti va bene...
Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a,Serpico90
Dim Nu(20),Num(10),poste(5),R1,R3,x1,x2
x1 = CInt(InputBox("Inserisci 1° Numero a Tua scelta",Serpico90,1))'
x2 = CInt(InputBox("Inserisci 2° Numero a Tua scelta",Serpico90,2))'
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
Num(2) = 90 - Num(1)
Num(3) = x1
Num(4) = x2
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
Perfetto era quello che desideravo
Mille Grazie

Chiedo scusa se ho invaso il 3D ,spero che questa mia richiesta possa servire.
Ancora Grazie Toon
Buon proseguimento

Serpico
 
be' la spia E' il centrale numero mentre l ' ambata e' il tredicesimale ovvero numero in alto a sinistra della tavola .pardon del quadratino della tavola.giusto?saluti
 
Serpico 90, Qui non si disturba mai, si arricchisce solo il 3D.. (y)
Mission, ti ho fatto 2 script, uno con Indice mensile a scelta e uno con giocate ad ogni estrazione , e come richiesto con la richiesta dei numeri da inserire, ne ho messi 5 ma se vuoi aggiungerne uno togli l'apostrofo dall'ultimo imput box a dall'ultimo numero in gioco.
Spero vada bene così :
Sub Main
Dim Ru(12),posta(5),ini,fin,n1(6),Missione
ReDim n(90)
Call ScegliNumeri(n)
qn = UBound(n)
Scrivi "Numeri Richiesti : ",1
Scrivi StringaNumeri(n,".") & " Tot.n." & qn,1,2,4
y = CInt(InputBox("Quante estrazioni d'analisi?",Missione,100))'
x = CInt(InputBox("Inserisci l'Indice mensile che preferisci",Missione,1))'
x1 = CInt(InputBox("Quanti colpi di gioco?",Missione,18))'
rt = CInt(InputBox("Scegli la ruota di gioco 1 Bari ecc.",Missione,1))'
posta(2) = 1
posta(3) = 0.5
posta(4) = 0.5
ini = EstrazioneFin - y
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = x Then
'---
Ru(1) = rt
'---
ImpostaGiocata 1,n,Ru,posta,k',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
Sub Main
Dim Ru(12),posta(5),ini,fin,n1(6),qn,Missione
ReDim n(90)
Call ScegliNumeri(n)
qn = UBound(n)
Scrivi "Numeri Richiesti : ",1
Scrivi StringaNumeri(n,".") & " Tot.n." & qn,1,2,4
x = CInt(InputBox("Quante estrazioni d'analisi?",Missione,100))'
x1 = CInt(InputBox("Quanti colpi di gioco?",Missione,18))'
rt = CInt(InputBox("Scegli la ruota di gioco 1 Bari ecc.",Missione,1))'
posta(2) = 1
posta(3) = 0.5
posta(4) = 0.5
ini = EstrazioneFin - x
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'---
Ru(1) = rt
'---
ImpostaGiocata 1,n,Ru,posta,k',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Buona sera a tutto il 3D...
Scusate se non mi intrometto,
ma per me lo script è come se parlassi
con gli alieni:ROFLMAO::eek:.
Però se a qualcuno può interessare...
Io come il 3 ed il 58 presi a Napoli...
Ora avrei il 35/53 sempre Milano-Napoli
posiz. preferite 1°-3°-5° e semplice di recupero.
Qualcuno ha convergenza?
 
Serpico 90, Qui non si disturba mai, si arricchisce solo il 3D.. (y)
Mission, ti ho fatto 2 script, uno con Indice mensile a scelta e uno con giocate ad ogni estrazione , e come richiesto con la richiesta dei numeri da inserire, ne ho messi 5 ma se vuoi aggiungerne uno togli l'apostrofo dall'ultimo imput box a dall'ultimo numero in gioco.
Spero vada bene così :
Sub Main
Dim n(7),Ru(12),posta(5),ini,fin,n1(6),Missione
c1 = CInt(InputBox("Inserisci il primo numero ",Missione,1))'
c2 = CInt(InputBox("Inserisci il secondo numero ",Missione,2))'
c3 = CInt(InputBox("Inserisci il terzo numero ",Missione,3))'
c4 = CInt(InputBox("Inserisci il quarto numero ",Missione,4))'
c5 = CInt(InputBox("Inserisci il quinto numero ",Missione,5))'
' c6 = CInt(InputBox("Inserisci il sesto numero ",Missione,6))'
y = CInt(InputBox("Quante estrazioni d'analisi?",Missione,100))'
x = CInt(InputBox("Inserisci l'Indice mensile che preferisci",Missione,1))'
x1 = CInt(InputBox("Quanti colpi di gioco?",Missione,18))'
rt = CInt(InputBox("Scegli la ruota di gioco 1 Bari ecc.",Missione,1))'
posta(2) = 1
posta(3) = 0.5
posta(4) = 0.5
ini = EstrazioneFin - y
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = x Then
n(1) = c1
n(2) = c2
n(3) = c3
n(4) = c4
'---
n1(1) = c1
n1(2) = c2
n1(3) = c3
n1(4) = c4
n1(5) = c5
' n1(6) = c6
'---
Ru(1) = rt
'---
ImpostaGiocata 1,n,Ru,posta,k',2
ImpostaGiocata 2,n1,Ru,posta,k',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
Sub Main
Dim n(7),Ru(12),posta(5),ini,fin,n1(6),Missione
c1 = CInt(InputBox("Inserisci il primo numero ",Missione,1))'
c2 = CInt(InputBox("Inserisci il secondo numero ",Missione,2))'
c3 = CInt(InputBox("Inserisci il terzo numero ",Missione,3))'
c4 = CInt(InputBox("Inserisci il quarto numero ",Missione,4))'
c5 = CInt(InputBox("Inserisci il quinto numero ",Missione,5))'
' c6 = CInt(InputBox("Inserisci il sesto numero ",Missione,6))'
x = CInt(InputBox("Quante estrazioni d'analisi?",Missione,100))'
x1 = CInt(InputBox("Quanti colpi di gioco?",Missione,18))'
rt = CInt(InputBox("Scegli la ruota di gioco 1 Bari ecc.",Missione,1))'
posta(2) = 1
posta(3) = 0.5
posta(4) = 0.5
ini = EstrazioneFin - x
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'---
n(1) = c1
n(2) = c2
n(3) = c3
n(4) = c4
'---
n1(1) = c1
n1(2) = c2
n1(3) = c3
n1(4) = c4
n1(5) = c5
'n1(6) = c6
'---
Ru(1) = rt
'---
ImpostaGiocata 1,n,Ru,posta,k',2
ImpostaGiocata 2,n1,Ru,posta,k',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
Next
ScriviResoconto
End Sub
E' perfetto Toon ottimo lavoro Grazie
 
X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......
Grazie ma un po complicato,riesci a farci un esempio semplice se vuoi Grazie
 
Buona sera a tutto il 3D...
Scusate se non mi intrometto,
ma per me lo script è come se parlassi
con gli alieni:ROFLMAO::eek:.
Però se a qualcuno può interessare...
Io come il 3 ed il 58 presi a Napoli...
Ora avrei il 35/53 sempre Milano-Napoli
posiz. preferite 1°-3°-5° e semplice di recupero.
Qualcuno ha convergenza?
si convergo parzialmente non con le ruote.
li ho forti su VE BA ed ho aggiunto TO (ve preferita)
questo è l'esito dei miei programmi a confronto
vediamo che succede.
 
Grazie ma un po complicato,riesci a farci un esempio semplice se vuoi Grazie
Ciao Batters....non e' complicato,e' solo statistica dei ritardi con compensazioni varie e analisi dei vari livelli di ritardo...un po' lungo e complicato da spiegare; in altro forum Alessandro Bronzetti spiegò molto bene le dinamiche di questo tipo di ricerche il cui "padre"delle ricerche è "IL FISICO" ...scomparso dalla scena lottologica ( a mia memoria)
 
L'ambata SECCA 55 su 3 ruote e posizioni o semplice. BA'NA'VE.

BARI: 55 Pos. 2^ 3^
Napoli: 55 pos. 2^ 3^ 4^
Venezia: 55 pos.2^ 3^ 5^
Scegliete la vostra ruota preferita e le vostre convergenze solo 7 colpi! Moderazione sempre.
E in piu' vi metto gli abbinamenti per ogni singola ruota.

BARI 55 con 58-73
Napoli 55 con 56-59-77-79
Venezia 55 con 50-83-88-89

Bene direi che per la fine del mese abbiamo quello che ci serve,per una scelta giusta.
Vi ricordo che gli abbinamenti provengono tutte dalle coppie al 100%
 
Ultima modifica:

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
Indietro
Alto