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
    martedì 04 febbraio 2025
    Bari
    49
    67
    39
    89
    68
    Cagliari
    30
    23
    16
    05
    90
    Firenze
    20
    33
    60
    73
    87
    Genova
    59
    10
    18
    48
    51
    Milano
    18
    86
    71
    70
    32
    Napoli
    54
    43
    50
    65
    76
    Palermo
    63
    06
    75
    80
    25
    Roma
    08
    09
    14
    46
    06
    Torino
    55
    20
    17
    23
    80
    Venezia
    19
    81
    40
    77
    28
    Nazionale
    50
    89
    12
    80
    52
    Estrazione Simbolotto
    Cagliari
    04
    10
    21
    16
    35

Ultimi Messaggi

Indietro
Alto