Posts written by SimoRocket

Posted: 4/10/2023, 07:23

24 BA CA

24 38 26 62

Ambetto Ambo terno BA CA TT

NON HO ANCORA TROVATO LA SOLUZIONE DELLO SCRIPT DI SOPRA PER AVERE IL VERTIBILE DELLA TERZA SOMMA PER VALUTARE MA SECONDO ME QUESTO METODO NON MIO MA MODIFICATO PUÒ ANCORE REGALARE PICCOLE SODDISFAZIONI

DAJEEE

Posted: 3/10/2023, 20:55

Correzione script - Area libera

È ora della verità siamo alla prima

Posted: 25/9/2023, 12:36

Correzione script - Area libera

Sub Main
Dim FIn,Es,Es2,Salvo50,Ini,N1,N2,N3,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Posta(1),Poste(2),Ruo(3)
Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)
Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,12)
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,1))
Posta(1) = 1
Poste(2) = 1
'Scrivi "Solo Una Ambata ed un Ambo Secco di Nando52 PER LE SORTI DI AMBETTO AMBO TERNO- Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1
Ruo(1) = BA_ : Ruo(2) = CA_: Ruo(3) = TT_
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = CInt(Estratto(Es,BA_,4))
B = CInt(Estratto(Es,PA_,4))
C = CInt(Estratto(Es,NA_,2))
D = CInt(Estratto(Es,TO_,2))
N1 = CInt(Decina(A) + Cadenza(A))
N1 = CInt(Fuori90(N1 + B + 23))
N2 = CInt(Fuori90(C * C))
N2 = CInt(Fuori90(N2 + D + 80))
N3 = CInt(Fuori90(C * C + 80))
: Ruo(2) = CA_
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1
Scrivi
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
Ambo(1) = N1 : Ambo(2) = N2: Ambo(3) = N3
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
Gioca Es
Scrivi Space(20) & "AMBETTI",1,,,2
For k = 1 To Clp
Ru1 = BA_
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru2 = CA_
Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru3 = FI_
Ambetto = VerificaAmbetto(Ambo,Ru3,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru4 = GE_
Ambetto = VerificaAmbetto(Ambo,Ru4,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru5 = MI_
Ambetto = VerificaAmbetto(Ambo,Ru5,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru6 = NA_
Ambetto = VerificaAmbetto(Ambo,Ru6,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru7 = PA_
Ambetto = VerificaAmbetto(Ambo,Ru7,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru8 = RO_
Ambetto = VerificaAmbetto(Ambo,Ru8,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru9 = TO_
Ambetto = VerificaAmbetto(Ambo,Ru9,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
'
Ru10 = VE_
Ambetto = VerificaAmbetto(Ambo,Ru10,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Ru11 = NZ_
Ambetto = VerificaAmbetto(Ambo,Ru11,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1
Scrivi " Vincita di " & Retvinc & " Volte la posta",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub

Come faccio a farmi restituite il verticale di questa funzione grazie

N3 = CInt(Fuori90(C * C + 80))

Posted: 16/12/2021, 11:22

Chi mi Aiuta Vince - Aiuto per Listati

Buongiorno ho trovato in rete questo metodo ed è spettacolare
e secondo me si può tentare anche al 10 e lotto mettendo xelle fisse con numeretti che escono frequentemente con un buono script si riuscirebbe a vedere bene come si comporta ti posto il metodoche non è mio ma una vera bomba

buona serata a tutti, posto un mio metodo, per il 10 e lotto serale, sperando di fare cosa gradita.

Il metodo funziona così:

si prende il terzo numero , è lo si moltiplica x 3
e viene la prima ambata
il vertibile sarà la seconda ambata

le due ambate vanno sommate ,
se serve, fare il fuori 90
al risultato ottenuto si fa il +2
e otterremo così la nostra ambata definitiva con il suo vertibile
da mettere in gioco in prima o seconda posizione
oppure lo si può giocare come estratto
oppure come abbinamento ad un vostro numero x ambo che è pagato bene.

Faccio 2 esempi reali con una piccola statistica che potete controllare:

il 21/1/21 il terzo numero era il 12
12x3= 36... Vert. 63
si fa la prima somma
36+63=99; 99-90= 9
al 9 si somma il fisso 2
9+2= 11
11 e il suo vert. 19

11 e 19 sono i 2 numeri da mettere in gioco
al 1 colpo esce il 19

Posted: 8/5/2021, 18:15

Chi mi Aiuta Vince - Aiuto per Listati

bella li grandi

non vedo lo script modificato grazie

Posted: 4/5/2021, 09:32

Chi mi Aiuta Vince - Aiuto per Listati

grazie per l'ottimo lavoro

io aggiungerei per le due quaterne anche la statistica su tutte come si comporta grazie

Posted: 12/4/2021, 10:39

Chi mi Aiuta Vince - Aiuto per Listati

Io onestamente non saprei da dove iniziare

jpg

https://image.forumfree.it/1/3/4/5/9/1/9/9/1616745149.jpg

Posted: 26/3/2021, 08:54

L'ALTRA - Area libera

ECCO QUA LA SECONDA

Posted: 26/3/2021, 08:51

DUE OTTIME TECNICHE - Area libera

BUONGIORNO A TUTTI HO TROVATO QUESTE DUE BELLISSIME TECNICHE CON DUE LISTATI SI POSSONO AVERE SIA GLI ESITI CHE LE PREVISIONI

CHI PUO AIUTARMI A FARE QUESTI DUE LISTATI PER ME SONO ABBASTANZA DIFFICILI GRAZIE

Posted: 4/1/2021, 14:37

Ambata Ba - Area libera

Estrazione generatrice del pronostico 09868 [ 1 - 02/01/2021]
43.su BA Ambata principale
43.34 su BA per Estratto,Ambo
43.48 su BA per Estratto,Ambo
43.84su BA per Estratto,Ambo

Abbinamenti Ambo 6 27 72 sempre su Ba
In corso per altre 13 estrazioni

Buon anno a Tutti giocate bene con progressione

Posted: 27/12/2020, 14:40

Il terno di fine anno - Aiuto per Listati

ecco questa credo sia la mia sensazione finale con questa tecnica avremo questa previsione

89 88 48 84 BA per ambetto ambo e terno

sviluppo ambi per ambetto e ambo

89 88

89 84

84 48

se qualcuno vuol compilare un bello script vedremo le statisteche precedenti

Posted: 23/12/2020, 10:41

Il terno di fine anno - Aiuto per Listati

Buongiorno a tutti

Si avvicina il natale e sopratutto si chiude questo anno di M....

Io metto questo regalo sotto l'albero per tutti nella speranza che chiudiamo in bellezza anche con un terno a tutte

Auguri

SPOILER (clicca per visualizzare)

Sub Main()
ColoreTesto 1
Scrivi
Scrivi
Scrivi
Scrivi " METODO E LIST SIMO",1
Scrivi
ColoreTesto 0
Dim r,es
Dim ruote(10):Dim aRuota(1)
Dim nn1(1): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim nn6(5):Dim nn7(5): Dim poste(5):Dim posta(1)
Dim aSpiea(3):Dim aSpieb(3):Dim aSpiec(3):Dim aSpied(3):Dim aSpiee(3)
posta(1) = 10
poste(2) = .50
poste(3) = 1
'
aSpiea(1) = 6
aSpiea(2) = 77
aSpiea(3) = 89
'
aSpieb(1) = 33
aSpieb(2) = 39
aSpieb(3) = 60
'
aSpiec(1) = 33
aSpiec(2) = 60
aSpiec(3) = 83
'
aSpied(1) = 33
aSpied(2) = 77
aSpied(3) = 88
'
aSpiee(1) = 86
aSpiee(2) = 87
aSpiee(3) = 88
'Formazione spia a =06-77-89
'Formazione spia b =33-39-60
'Formazione spia c=33-60-83
'Formazione spia d=33-77-88
'Formazione spia e=86-87-88
klp = 10
ini = 9700 '9500
fin = EstrazioneFin
co = 0
For es = ini To fin
For r = 1 To 11
If r = 11 Then r = 12
aRuota(1) = r
'If IndiceMensile(es) = 1 Then
If SerieFreqTurbo(es,es,aSpiea,aRuota,2) > 0 Or SerieFreqTurbo(es,es,aSpieb,aRuota,2) > 0 Or SerieFreqTurbo(es,es,aSpiec,aRuota,2) > 0 Or SerieFreqTurbo(es,es,aSpied,aRuota,2) > 0 Or SerieFreqTurbo(es,es,aSpiee,aRuota,2) > 0 Then ' condizione di ricerca
ruote(1) = r
ruote(2) = 11
ruote(3) = 12
casi = casi + 1
co = co + 1
ColoreTesto 2
Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi String(66," ") & DataEstrazione(es) & " ruota " & SiglaRuota(r) & " " & StringaEstratti(es,r),True,,,1 '& ' IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = 90
ImpostaGiocata 1,nn1,aRuota,posta,klp
nn2(1) = 11
nn2(2) = 49
nn2(3) = 90
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = 14
nn3(2) = 20
nn3(3) = 90
ImpostaGiocata 3,nn3,ruote,poste,klp
nn4(1) = 14
nn4(2) = 63
nn4(3) = 90
ImpostaGiocata 4,nn4,ruote,poste,klp
nn5(1) = 20
nn5(2) = 63
nn5(3) = 90
ImpostaGiocata 5,nn5,ruote,poste,klp
nn6(1) = 35
nn6(2) = 63
nn6(3) = 90
ImpostaGiocata 6,nn6,ruote,poste,klp
nn7(1) = 36
nn7(2) = 62
nn7(3) = 90
ImpostaGiocata 7,nn7,ruote,poste,klp
Gioca es,1
End If
'End If ' indice mensile
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub

Posted: 20/11/2020, 14:49

Modifica,se possibile,a questo listato - Aiuto per Listati

sembra ottimo che dici

Posted: 20/11/2020, 13:30

Modifica,se possibile,a questo listato - Aiuto per Listati

TROVATO ERRORE

SPOILER (clicca per visualizzare)

Sub Main()
Dim es,Ini,fin,r
Dim n(4),n1(3),n2(3),n3(3),n4(3),ru(3),ps(3)
Dim ruo(1)
Dim ps1(3)

ps(2) = 2
ps(3) = 1
ps1(3) = 1

' r =9 <-------------------------------------------------------------
ru(1) = 11
ru(2) = 11
ruo(1) = 11
For es = EstrazioneFin - 80 To EstrazioneFin
Call Messaggio(es)
For r = 01 To 11
If r = 11 Then r = 12
If Posizione(es,r,7) > 0 Then
n(1) = 14
n(2) = 27
n(3) = 31
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n1(1) = 27
n1(2) = 69
n1(3) = 80
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n2(1) = 30
n2(2) = 35
n2(3) = 79
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4

n3(1) = 48
n3(2) = 74
n3(3) = 80

n4(1) = 35
n4(2) = 69
n4(3) = 74

Scrivi "----------------------------------------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(7) & " ",1
ImpostaGiocata 1,n,ru,ps,10
ImpostaGiocata 2,n1,ru,ps,10
ImpostaGiocata 3,n2,ru,ps,10
ImpostaGiocata 4,n3,ru,ps,10
ImpostaGiocata 5,n4,ru,ps,10

Gioca es
End If
Next
Next
ScriviResoconto
End Sub

sembra perfetto manca solo a ruota di rilevamento ma direi che va bene anzi benissimo grazie

SPOILER (clicca per visualizzare)

Sub Main()
Dim es,Ini,fin,r
Dim na(2),n(4),n1(3),n2(3),n3(3),n4(3),ru(3),ps(3)
Dim ruo(1)
Dim ps1(3)

ps(2) = 2
ps(3) = 1
ps1(3) = 1

' r =9 <-------------------------------------------------------------
ru(1) = 11
ru(2) = 11
ruo(1) = 11
For es = EstrazioneFin - 80 To EstrazioneFin
Call Messaggio(es)
For r = 01 To 11
If r = 11 Then r = 12
If Posizione(es,r,7) > 0 Then
na(1) = 74
na(2) = 79

n(1) = 14
n(2) = 27
n(3) = 31
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n1(1) = 27
n1(2) = 69
n1(3) = 80
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n2(1) = 30
n2(2) = 35
n2(3) = 79
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4

n3(1) = 48
n3(2) = 74
n3(3) = 80

n4(1) = 35
n4(2) = 69
n4(3) = 74

Scrivi "----------------------------------------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(7) & " ",1
ImpostaGiocata 1,na,ru,ps,10
ImpostaGiocata 2,n,ru,ps,10
ImpostaGiocata 3,n1,ru,ps,10
ImpostaGiocata 4,n2,ru,ps,10
ImpostaGiocata 5,n3,ru,ps,10
ImpostaGiocata 6,n4,ru,ps,10

Gioca es
End If
Next
Next
ScriviResoconto
End Sub

Posted: 20/11/2020, 13:06

Modifica,se possibile,a questo listato - Aiuto per Listati

MI SEGNALA SOLO DUE GIOCATE E ANDREBBERO MESSE LE DUE AMBATE CHE SONO 74 79

SPOILER (clicca per visualizzare)

Sub Main()
Dim es,Ini,fin,r
Dim n(4),n1(3),n2(3),n3(3),n4(3),ru(3),ps(3)
Dim ruo(1)
Dim ps1(3)
ps(2) = 2
ps(3) = 1
ps1(3) = 1
' r =9 <-------------------------------------------------------------
ru(1) = 11
ru(2) = 11
ruo(1) = 11
For es = EstrazioneFin - 80 To EstrazioneFin
Call Messaggio(es)
For r = 01 To 11
If r = 11 Then r = 12
If Posizione(es,r,7) > 0 Then
n(1) = 14
n(2) = 27
n(3) = 31
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n1(1) = 27
n1(2) = 69
n1(3) = 80
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
n2(1) = 30
n2(2) = 35
n2(3) = 79
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4

n3(1) = 48
n3(2) = 74
n3(3) = 80

n4(1) = 35
n4(2) = 69
n4(3) = 74

Scrivi "----------------------------------------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(7) & " ",1
ImpostaGiocata 1,n,ru,ps,10
ImpostaGiocata 2,n1,ru,ps,10
ImpostaGiocata 1,n2,ru,ps,10
ImpostaGiocata 1,n3,ru,ps,10
ImpostaGiocata 1,n4,ru,ps,10

Gioca es
End If
Next
Next
ScriviResoconto
End Sub

GUARDA

37 replies since 25/6/2020

Filter forums