Novità

Listato basato sulla tecnica degli Ambi Ripetuti

Ciao trader io ho un listato sugli ambi , non e' mio non sono capace di fare script , spero ti vada bene , altrimenti puoi chiedere a qualcuno di fartelo modificare per le tue esigenze , ciao .




ColoreTesto 1
Scrivi "=================METODO DA AMBO RIPETUTO DI OSVALDO1.================",1
Scrivi
Scrivi String(28,32) & "Listato da Pescespada37",1
ColoreTesto 0
Sub Main()
Dim num(5)
Dim nu1(4)
Dim nu2(4)
Dim nu3(4)
Dim nu4(4)
Dim ruote(10),ruotee(10)
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
tmp = InputBox("Quante estrazioni controllo?",,6)
fin = EstrazioneFin
ini = fin - tmp
t = 0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k = 3
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For pp = 1 To 4
For qq = pp + 1 To 5
c = Estratto(es,r1,pp)
d = Estratto(es,r1,qq)
If(c = a And d = b) Or(c = b And d = a) Then
b1 = Fuori90(c + d)
a1 = Diametrale(b1)
b2 = Abs(d - c)
a2 = Diametrale(b2)
a3 = Vert(a2)
t = t + 1
Scrivi
ColoreTesto 2
Scrivi "============================================================" & "Giocata n° " & Format2(t),2
ColoreTesto 0
Scrivi" - - - - - - - - - - - - - - - - - " & DataEstrazione(es) & " - - - - - - - - - - - - - - ",True
Scrivi" " & Left(NomeRuota(r),3) & " " & " " & StringaEstratti(es,r) & " - - - > " & Format2(a) & " - " & Format2(b)
Scrivi" " & Left(NomeRuota(r1),3) & " " & " " & StringaEstratti(es,r1) & " - - - > " & Format2(c) & " - " & Format2(d)
ruote(1) = r
ruote(2) = r1
ruotee(1) = r
ruotee(2) = r1
ruotee(3) = 11
nu1(1) = a1
EliminaRipetuti nu1
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a1
nu2(2) = a2
EliminaRipetuti nu2
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a1
nu2(2) = a3
EliminaRipetuti nu2
ImpostaGiocata 3,nu2,ruote,poste,k
nu3(1) = a1
nu3(2) = a2
nu3(3) = a3
EliminaRipetuti nu3
ImpostaGiocata 4,nu3,ruotee,post,k
Gioca es
Scrivi"========================================="
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "----------------------METODO DA AMBO RIPETUTO DI OSVALDO1.-----",1
Scrivi
Scrivi String(28,32) & "Listato da Pescespada37",1
End Sub
 
Questo è il mio ambo ripetuto

Sub Main()
Dim num(5)
Dim ruote(10)
Dim post(5)
post(1) = 0
post(2) = 1
post(3) = 1
post(4) = 1
post(5) = 0


tmp = InputBox("Quante estrazioni controllo?",,50)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 10
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 4
For p1 = p + 1 To 5
For pp = 1 To 4
For pp1 = pp + 1 To 5
a1 = Estratto(es,r,p)
a2 = Estratto(es,r,p1)
a3 = Estratto(es,r1,pp)
a4 = Estratto(es,r1,pp1)
If a3 = a1 And a4 = a2 Or a3 = a2 And a4 = a1 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & _
" --> " & Format2(a1) & " - " & Format2(a2)
Scrivi Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & _
" --> " & Format2(a3) & " - " & Format2(a4)
b1 = Fuori90(a1 + a2)'Somma estratti
b2 = Fuori90(b1 + 45)'Complemento 45
b3 = Fuori90(b2*2)'Ambata
b4 = Fuori90(b3 + 2)'Primo abbinamento
b5 = Fuori90(b4 + 11)' Secondo abbinamento
b6 = Vert(b3) ' Terzo abbinamento
b7 = 11 + b3
Scrivi b1
Scrivi b2
Scrivi b3
Scrivi b4
Scrivi b5
Scrivi b6
Scrivi b7
ruote(1) = r
ruote(2) = r1
num(1) = b3
num(2) = b4
num(3) = b5
num(4) = b6
num(5) = b7
ImpostaGiocata 1,num,ruote,post,13
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto