A volte basta uno script facile per tutti.

[Baciccia4251]

testato e funziona bene, devi copiarlo per bene ,apri il file di testo e fai ctrl A al fine di selezionarlo in ogni sua parte

Continua a darmi errore. Proverò a reinstallare Spaziometria visto che, ultimamente, mi da qualche problema. Grazie per l'aiuto Saluti

 

[Serpico 90]

Ti ho aggiunto il secondo numero, perchè dal listato usciva solo l'ambata, vedi se ti va bene...

Anticipazione (Spoiler)

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

 

[giggiona3]

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

 

[Baciccia4251]

Continua a darmi errore. Proverò a reinstallare Spaziometria visto che, ultimamente, mi da qualche problema. Grazie per l'aiuto Saluti

OK. Reinstallato Spaziometria. Funziona perfettamente. Grazie

 

[claudio8]

Spostata in area Download

 

[Sakti]

Serpico 90, Qui non si disturba mai, si arricchisce solo il 3D..
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ì :

Anticipazione (Spoiler)

Sub Main
Dim Ru(12),posta(5),ini,fin,n1(6),Missione
ReDim n(90)
Call ScegliNumeri
qn = UBound
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

Anticipazione (Spoiler)

Sub Main
Dim Ru(12),posta(5),ini,fin,n1(6),qn,Missione
ReDim n(90)
Call ScegliNumeri
qn = UBound
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

 

[Bepy78]

Buona sera a tutto il 3D...
Scusate se non mi intrometto,
ma per me lo script è come se parlassi
con gli alieni.
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?

 

[Missione Impossibile.]

Serpico 90, Qui non si disturba mai, si arricchisce solo il 3D..
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ì :

Anticipazione (Spoiler)

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

Anticipazione (Spoiler)

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

 

[Sakti]

Migliorati Imput Box dei 2 script... Si possono scegliere più numeri..
A MI.NA per sorti maggiori avrei anche 17 55 e 61

 

[Missione Impossibile.]

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

 

[[Andrei]]

Buona sera a tutto il 3D...
Scusate se non mi intrometto,
ma per me lo script è come se parlassi
con gli alieni.
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.

 

[Bepy78]

Migliorati Imput Box dei 2 script... Si possono scegliere più numeri..
A MI.NA per sorti maggiori avrei anche 17 55 e 61

Grazie mille Toon,ne farò tesoro

 

[Bepy78]

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 anche a te Andrei,ma è su Milano-Napoli

 

[giggiona3]

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

57 34
39



14 77
8

 

[Codicebinario]

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)

 

[Missione Impossibile.]

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%

 

[Codicebinario]

CHIUSA ++

 

[Sakti]

Ecco le nuove Ambate per Tutti, di tutte quelle che ho dato, solo 3 sono
ancora in sospeso , le prime 3*:
*BA.CA.NA 08
*MI.NA.RO 61
*MI.NA 55
GE VE 46
BA 26 62
RO TO 38
BA 53 37
GE TO 01
MI NA 55
MI PA 20
MI NA 17

 

[Missione Impossibile.]

Bene al mio segnale da domani....

 

[[Andrei]]

convergo molto bene con il 55 mi na e se mi è permesso partecipare se è di troppo ditemelo.
aggiungo
49,45 82,14
64,55,80
8.88
cosi come sono o l'intera novina .
bene bella serata a tut'quant.