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
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45

Ultimi Messaggi

Indietro
Alto