Listato basato sulla tecnica degli Ambi Ripetuti

[trader]

Ciao a tutti, volevo sapere se esiste un listato basato sul metodo degli ambi ripetuti.
Grazie.

 

[rabberto]

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

 

[morena59]

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

 

[trader]

Grazie ragazzi vanno bene entrambi.

 

[rabberto]

Ciao trader , di niente , quando posso aiutare qualcuno sono sempre felice di farlo , ciao .